Initial commit

engines/glk/hugo/hemedia.cpp

@@ -0,0 +1,158 @@
+/* ScummVM - Graphic Adventure Engine
+ *
+ * ScummVM is the legal property of its developers, whose names
+ * are too numerous to list here. Please refer to the COPYRIGHT
+ * file distributed with this source distribution.
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ */
+
+#include "glk/hugo/hugo.h"
+
+namespace Glk {
+namespace Hugo {
+
+int Hugo::loadres(HUGO_FILE infile, int reslen, int type) {
+	char buf[4096];
+	frefid_t fileref;
+	strid_t stream;
+	long offset;
+	int idVal;
+	int i, n;
+
+	offset = hugo_ftell(infile);
+	for (i = 0; i < numres[type]; i++)
+		if (resids[type][i] == offset)
+			return i;
+
+	/* Too many resources loaded... */
+	if (numres[type] + 1 == MAXRES)
+		return -1;
+
+	idVal = numres[type]++;
+	Common::sprintf_s(buf, "%s%d", type == PIC ? "PIC" : "SND", idVal);
+	resids[type][idVal] = offset;
+
+	fileref = glk_fileref_create_by_name(fileusage_Data, buf, 0);
+	if (!fileref)
+	{
+		return -1;
+	}
+
+	stream = glk_stream_open_file(fileref, filemode_Write, 0);
+	if (!stream)
+	{
+		glk_fileref_destroy(fileref);
+		return -1;
+	}
+
+	glk_fileref_destroy(fileref);
+
+	while (reslen > 0)
+	{
+		n = hugo_fread(buf, 1, reslen < (int)sizeof(buf) ? reslen : sizeof(buf), infile);
+		if (n <= 0)
+			break;
+		glk_put_buffer_stream(stream, buf, n);
+		reslen -= n;
+	}
+
+	glk_stream_close(stream, nullptr);
+
+	return idVal;
+}
+
+int Hugo::hugo_hasgraphics() {
+	/* Returns true if the current display is capable of graphics display */
+	return glk_gestalt(gestalt_Graphics, 0)
+		&& glk_gestalt(gestalt_DrawImage, glk_window_get_type(mainwin));
+}
+
+void Hugo::initsound() {
+	if (!glk_gestalt(gestalt_Sound, 0))
+		return;
+	schannel = glk_schannel_create(0);
+}
+
+void Hugo::initmusic() {
+	if (!glk_gestalt(gestalt_Sound, 0) || !glk_gestalt(gestalt_SoundMusic, 0))
+		return;
+	mchannel = glk_schannel_create(0);
+}
+
+int Hugo::hugo_playmusic(HUGO_FILE infile, long reslen, char loop_flag) {
+	int idVal;
+
+	if (!mchannel)
+		initmusic();
+	if (mchannel)
+	{
+		idVal = loadres(infile, reslen, SND);
+		if (idVal < 0)
+		{
+			hugo_fclose(infile);
+			return false;
+		}
+		glk_schannel_play_ext(mchannel, idVal, loop_flag ? -1 : 1, 0);
+	}
+
+	hugo_fclose(infile);
+	return true;
+}
+
+void Hugo::hugo_musicvolume(int vol) {
+	if (!mchannel) initmusic();
+	if (!mchannel) return;
+	glk_schannel_set_volume(mchannel, (vol * 0x10000) / 100);
+}
+
+void Hugo::hugo_stopmusic() {
+	if (!mchannel) initmusic();
+	if (!mchannel) return;
+	glk_schannel_stop(mchannel);
+}
+
+int Hugo::hugo_playsample(HUGO_FILE infile, long reslen, char loop_flag) {
+	int idVal;
+
+	if (schannel)
+	{
+		idVal = loadres(infile, reslen, SND);
+		if (idVal < 0)
+		{
+			hugo_fclose(infile);
+			return false;
+		}
+		glk_schannel_play_ext(schannel, idVal, loop_flag ? -1 : 1, 0);
+	}
+
+	hugo_fclose(infile);
+	return true;
+}
+
+void Hugo::hugo_samplevolume(int vol) {
+	if (!schannel) initsound();
+	if (!schannel) return;
+	glk_schannel_set_volume(schannel, (vol * 0x10000) / 100);
+}
+
+void Hugo::hugo_stopsample() {
+	if (!schannel) initsound();
+	if (!schannel) return;
+	glk_schannel_stop(schannel);
+}
+
+} // End of namespace Hugo
+} // End of namespace Glk