/* 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 .
*
*/
#include "common/system.h"
#include "director/director.h"
#include "director/lingo/lingo.h"
#include "director/lingo/lingo-object.h"
#include "director/lingo/lingo-utils.h"
#include "director/lingo/xtras/xsound.h"
/**************************************************
*
* USED IN:
* I Spy
*
**************************************************/
/*
-- xtra xsound
new object me, int bufferSize
forget object me
-- Sound Xtra(tm) version 3.0.1
-- Engineered by Scott Kildall, redeye@igc.org
-- Entire program code (c) 1995-97 by Red Eye Software
-- Sound Xtra is a registered trademark of g/matter, inc
-- All rights reserved.
--
-- For more information on Sound Xtra, see our website:
-- http://www.gmatter.com
--
-- For technical support and sales, please email:
--
--
--
-- Online help is available under the Xtras menu.
--
-- For information about other Red Eye Software products, visit
-- the Red Eye Software website at http://www.halcyon.com/redeye
--
+ Register object xtraRef, string serialNumber -- Registers the Sound Xtra. THIS MUST BE CALLED FOR YOUR RUNTIME (PROJECTOR) FILES
GetError object me -- returns the last error number
GetInfo object me, int identifier -- returns specific information
SetInfo object me, int identifier, int setting -- sets specific information
Status object me -- returns the status of a sound
ConnectInputDevice object me -- connects to the sound recorder
DisconnectInputDevice object me -- disconnects from the sound recorder
SetSoundType object me, string type, string name, string action -- specifies a file for sound recording or playback
ClearSoundType object me -- clears information about the sound file
Play object me -- plays a sound
Record object me -- records a sound
Stop object me -- stops a sound
Pause object me -- pauses a sound
Resume object me -- resumes a paused sound
GetCurrentTime object me -- returns the playback time of a sound
IsASound object me, string type, string name -- indicates if this sound exists
DeleteSound object me, string type, string name -- deletes a sound
SetPlaySegment object me, int start, int end -- sets the start and end points of a playback sound
ClearPlaySegment object me -- resets the start and end points
SetSampleRate object me, int rate -- sets the sample rate of a sound
SetSampleDepth object me, int depth -- sets the sample depth of a sound
SetCompression object me, int compressor -- sets a compressor for the sound
GetInputLevel object me -- returns the input level of the microphone
FreeRecordingTime object me -- returns the free recording time
*/
namespace Director {
const char *XsoundXtra::xlibName = "Xsound";
const XlibFileDesc XsoundXtra::fileNames[] = {
{ "xsound", nullptr },
{ nullptr, nullptr },
};
static MethodProto xlibMethods[] = {
{ "new", XsoundXtra::m_new, 1, 0, 500 },
{ "forget", XsoundXtra::m_forget, 0, 0, 500 },
{ "Register", XsoundXtra::m_Register, 1, 1, 500 },
{ "GetError", XsoundXtra::m_GetError, 0, 0, 500 },
{ "GetInfo", XsoundXtra::m_GetInfo, 1, 0, 500 },
{ "SetInfo", XsoundXtra::m_SetInfo, 2, 0, 500 },
{ "Status", XsoundXtra::m_Status, 0, 0, 500 },
{ "ConnectInputDevice", XsoundXtra::m_ConnectInputDevice, 0, 0, 500 },
{ "DisconnectInputDevice", XsoundXtra::m_DisconnectInputDevice, 0, 0, 500 },
{ "SetSoundType", XsoundXtra::m_SetSoundType, 3, 0, 500 },
{ "ClearSoundType", XsoundXtra::m_ClearSoundType, 0, 0, 500 },
{ "Play", XsoundXtra::m_Play, 0, 0, 500 },
{ "Record", XsoundXtra::m_Record, 0, 0, 500 },
{ "Stop", XsoundXtra::m_Stop, 0, 0, 500 },
{ "Pause", XsoundXtra::m_Pause, 0, 0, 500 },
{ "Resume", XsoundXtra::m_Resume, 0, 0, 500 },
{ "GetCurrentTime", XsoundXtra::m_GetCurrentTime, 0, 0, 500 },
{ "IsASound", XsoundXtra::m_IsASound, 2, 0, 500 },
{ "DeleteSound", XsoundXtra::m_DeleteSound, 2, 0, 500 },
{ "SetPlaySegment", XsoundXtra::m_SetPlaySegment, 2, 0, 500 },
{ "ClearPlaySegment", XsoundXtra::m_ClearPlaySegment, 0, 0, 500 },
{ "SetSampleRate", XsoundXtra::m_SetSampleRate, 1, 0, 500 },
{ "SetSampleDepth", XsoundXtra::m_SetSampleDepth, 1, 0, 500 },
{ "SetCompression", XsoundXtra::m_SetCompression, 1, 0, 500 },
{ "GetInputLevel", XsoundXtra::m_GetInputLevel, 0, 0, 500 },
{ "FreeRecordingTime", XsoundXtra::m_FreeRecordingTime, 0, 0, 500 },
{ nullptr, nullptr, 0, 0, 0 }
};
static BuiltinProto xlibBuiltins[] = {
{ nullptr, nullptr, 0, 0, 0, VOIDSYM }
};
XsoundXtraObject::XsoundXtraObject(ObjectType ObjectType) :Object("Xsound") {
_objType = ObjectType;
}
bool XsoundXtraObject::hasProp(const Common::String &propName) {
return (propName == "name");
}
Datum XsoundXtraObject::getProp(const Common::String &propName) {
if (propName == "name")
return Datum(XsoundXtra::xlibName);
warning("XsoundXtra::getProp: unknown property '%s'", propName.c_str());
return Datum();
}
void XsoundXtra::open(ObjectType type, const Common::Path &path) {
XsoundXtraObject::initMethods(xlibMethods);
XsoundXtraObject *xobj = new XsoundXtraObject(type);
if (type == kXtraObj) {
g_lingo->_openXtras.push_back(xlibName);
g_lingo->_openXtraObjects.push_back(xobj);
}
g_lingo->exposeXObject(xlibName, xobj);
g_lingo->initBuiltIns(xlibBuiltins);
}
void XsoundXtra::close(ObjectType type) {
XsoundXtraObject::cleanupMethods();
g_lingo->_globalvars[xlibName] = Datum();
}
void XsoundXtra::m_new(int nargs) {
g_lingo->printSTUBWithArglist("XsoundXtra::m_new", nargs);
g_lingo->dropStack(nargs);
g_lingo->push(g_lingo->_state->me);
}
XOBJSTUB(XsoundXtra::m_forget, 0)
void XsoundXtra::m_Register(int nargs) {
Common::String serialNumber = g_lingo->pop().asString();
debugC(1, kDebugXObj, "XsoundXtra::m_register: Registered with serial \"%s\"", serialNumber.c_str());
g_lingo->push(Datum(0));
}
XOBJSTUB(XsoundXtra::m_GetError, 0)
XOBJSTUB(XsoundXtra::m_GetInfo, 0)
XOBJSTUB(XsoundXtra::m_SetInfo, 0)
XOBJSTUB(XsoundXtra::m_Status, 0)
XOBJSTUB(XsoundXtra::m_ConnectInputDevice, 0)
XOBJSTUB(XsoundXtra::m_DisconnectInputDevice, 0)
XOBJSTUB(XsoundXtra::m_SetSoundType, 0)
XOBJSTUB(XsoundXtra::m_ClearSoundType, 0)
XOBJSTUB(XsoundXtra::m_Play, 0)
XOBJSTUB(XsoundXtra::m_Record, 0)
XOBJSTUB(XsoundXtra::m_Stop, 0)
XOBJSTUB(XsoundXtra::m_Pause, 0)
XOBJSTUB(XsoundXtra::m_Resume, 0)
XOBJSTUB(XsoundXtra::m_GetCurrentTime, 0)
XOBJSTUB(XsoundXtra::m_IsASound, 0)
XOBJSTUB(XsoundXtra::m_DeleteSound, 0)
XOBJSTUB(XsoundXtra::m_SetPlaySegment, 0)
XOBJSTUB(XsoundXtra::m_ClearPlaySegment, 0)
XOBJSTUB(XsoundXtra::m_SetSampleRate, 0)
XOBJSTUB(XsoundXtra::m_SetSampleDepth, 0)
XOBJSTUB(XsoundXtra::m_SetCompression, 0)
XOBJSTUB(XsoundXtra::m_GetInputLevel, 0)
XOBJSTUB(XsoundXtra::m_FreeRecordingTime, 0)
}