' ************************************************* ' * g_file.bi * ' * declarations for g_file.inc * ' ************************************************* #INCLUDE THIS ONCE #IF NOT %DEF(%g_file_inc) DECLARE FUNCTION InitFileIOdll LIB "g_file.dll" (BYREF Task() AS Taak, BYREF TaskEX() AS ExtraInfo,_ BYREF gh AS GMT_HANDLES, BYREF App AS ApplicationType) AS DWORD '22.11.2001 DECLARE FUNCTION ReadAppDataFromFile LIB "g_file.dll" (f AS STRING) AS LONG DECLARE FUNCTION ReadAudioDataFromFile LIB "g_file.dll" (f AS STRING, AudioFader() AS AudioFaderType) AS LONG DECLARE FUNCTION ReadCockpitControlDataFromFile LIB "g_file.dll" (f AS STRING) AS LONG DECLARE FUNCTION ReadDiapasonFromFile LIB "g_file.dll" (f AS STRING) AS SINGLE DECLARE SUB ReadFaderParams LIB "g_file.dll" (filenaam$, BYREF AudioFader() AS AudioFaderType) DECLARE FUNCTION ReadFlagDataFromFile LIB "g_file.dll" (f AS STRING) AS LONG DECLARE FUNCTION ReadHurdyTuningFromFile LIB "g_file.dll" (f AS STRING, Hurdy AS musician) AS WORD ' 20.10.2004 DECLARE FUNCTION ReadHY1ConfigFromFile LIB "g_file.dll" (f AS STRING) AS WORD ' 09.10.2007 DECLARE FUNCTION ReadAX3ConfigFromFile LIB "g_file.dll" (f AS STRING) AS WORD ' 22.10.2007 DECLARE FUNCTION ReadPIR2ConfigFromFile LIB "g_file.dll" (f AS STRING) AS WORD ' 17.11.2007 DECLARE FUNCTION ReadHandyConfigFromFile LIB "g_file.dll" (f AS STRING) AS WORD ' 30.12.2007 DECLARE FUNCTION ReadKeyFromFile LIB "g_file.dll" (f AS STRING, keyword AS STRING) AS WORD DECLARE FUNCTION ReadKompilfileFromFile LIB "g_file.dll" (f AS STRING) AS STRING ' 19.07.2002 DECLARE FUNCTION ReadPijFile LIB "g_file.dll" (f AS STRING, BYREF P() AS BYTE) AS LONG ' 03.02.2009 DECLARE SUB GetDefaultCockpitLabels LIB "g_file.dll" (CockpitLayo AS CockpitLabels) ' 11.10.2003 DECLARE SUB ReadCockpitLabelsFromFile LIB "g_file.dll" (Filenaam AS STRING, CockpitLayo AS CockpitLabels) DECLARE FUNCTION Read_Duration_From_File LIB "g_file.dll" (f AS STRING, title AS STRING) AS DWORD ' 15.10.2003 DECLARE FUNCTION CheckForNetworkSupport LIB "g_file.dll" (f AS STRING) AS DWORD ' 25.11.2002 DECLARE FUNCTION ReadNetworkDataFromFile LIB "g_file.dll" (f AS STRING, BYREF g_net AS g_net_type, BYVAL cfg AS STRING) AS DWORD ' 23.11.2002 DECLARE FUNCTION ReadNetworkConfigsFromFile LIB "g_file.dll" (f AS STRING, BYREF netcfg() AS STRING) AS DWORD DECLARE SUB ReadPatternSequencesFromFile LIB "g_file.dll" (f AS STRING, BYREF PatternSeq() AS PatternSequenceType) '13.03.2000 DECLARE SUB ReadSynthConfigFile LIB "g_file.dll" (filenaam$, BYREF Meq() AS midiequipment) DECLARE FUNCTION ReadTaskDataFromFile LIB "g_file.dll" (f AS STRING) AS LONG '25.09.1999 DECLARE SUB ReadWaveFileListFromFile LIB "g_file.dll" (f AS STRING, SampleList() AS ASCIIZ * 50) '13.03.2000 ' moved from gmt_ins code: DECLARE SUB GetInstrumentParams LIB "g_file.dll" (Ins AS Musician, BYVAL konstant AS DWORD) DECLARE SUB WriteDaqParams2file LIB "g_file.dll" (f AS STRING, BYREF DAQparams AS DataAcquisitionParameters) ' for debugging DECLARE SUB SelectMidiEquipment LIB "g_file.dll" (f AS STRING, BYREF Meq() AS MidiEquipment) ' 12.06.2002 DECLARE FUNCTION SetRobotPort LIB "g_file.dll" (robot AS musician, inf AS STRING, hMidiO() AS DWORD) AS DWORD '14.06.2002 DECLARE FUNCTION SetPitch2MidiPorts LIB "g_file.dll" (pm AS Pitch2MidiType, inf AS STRING, hMidiO() AS DWORD,hMidiI() AS DWORD) AS DWORD '17.11.2002 ' zit dit wel in deze lib??? removed 22.11.2015 'DECLARE FUNCTION Klung_ParseSeqFile LIB "g_file.dll" _ ' (BYREF notetimings() AS DWORD, BYREF shaketimings() AS DWORD, BYREF allofftimings() AS DWORD _ ' , BYREF note() AS BYTE, BYREF velo()AS BYTE, BYREF shakenote() AS BYTE _ ' , BYREF shakevalue() AS SINGLE, BYVAL pklung AS klungtype PTR) AS LONG 'DECLARE FUNCTION AutoSax_ParseSeqFile LIB "g_file.dll" _ ' (BYREF notetimings() AS DWORD, BYREF progtimings() AS DWORD, BYREF allofftimings() AS DWORD, _ ' BYREF Voltimings() AS DWORD, BYREF BendTimings() AS DWORD, BYREF FBTimings() AS DWORD, BYREF note() AS BYTE,_ ' BYREF velo() AS BYTE, BYREF prog() AS BYTE, BYREF Vol() AS BYTE, BYREF bend() AS INTEGER, _ ' BYVAL pautosax AS autosaxtype PTR, fn AS STRING) AS LONG DECLARE FUNCTION Read_Theme_File LIB "g_file.dll" (f AS STRING, BYREF Stem() AS TemaType) AS DWORD ' 04.11.2004 DECLARE FUNCTION WriteSetup LIB "g_file.dll" AS LONG DECLARE FUNCTION ReadSetup _ (OPT BYVAL fn AS STRING) LIB "g_file.dll" AS LONG DECLARE FUNCTION ParseMidiFile LIB "g_file.dll" _ (BYVAL fn AS STRING, BYREF sq() AS ParsedMidiType, BYREF info AS STRING, BYREF trackinfo AS STRING) AS LONG DECLARE FUNCTION MidiLogFile LIB "g_file.dll" (text$, OPT BYVAL filenam$) AS LONG DECLARE FUNCTION FindMMFiles LIB "g_file.dll" (OPT BYVAL basepath$, OPT BYVAL instrumfilter$, OPT BYVAL minnrinstruments AS LONG,_ OPT BYVAL maxnrinstruments AS LONG, OPT BYVAL ccom$) AS STRING '15.02.2005 DECLARE FUNCTION MidiPlayer_GetFilename LIB "g_file.dll" (OPT BYVAL rpath$) AS STRING DECLARE FUNCTION MidiPlayer_FileOpenName LIB "g_file.dll" (OPT BYVAL rpath$) AS STRING DECLARE FUNCTION FileDate LIB "g_file.dll" (iFile AS STRING) AS STRING DECLARE FUNCTION FileDateandTime LIB "g_file.dll" (FileSpec AS STRING) AS STRING DECLARE FUNCTION GetVaccaMapping LIB "g_file.dll" (BYREF vaccanotes() AS kloktype) AS LONG DECLARE FUNCTION GetVitelloMapping LIB "g_file.dll" (BYREF VitelloNotes() AS kloktype) AS LONG DECLARE FUNCTION GetBellyMapping LIB "g_file.dll" (BYREF BellyNotes() AS KlokType) AS LONG DECLARE FUNCTION GetLlorMapping LIB "g_file.dll" (BYREF LlorNotes() AS kloktype) AS LONG 'DECLARE FUNCTION GetKlungParams LIB "g_file.dll" AS DWORD removed 22.11.2015 DECLARE FUNCTION ReadVoiceFromMidiFile LIB "g_file.dll" (BYVAL fn AS STRING, BYVAL tracknr AS WORD, BYREF tema() AS TemaType) AS LONG DECLARE FUNCTION ReadTrackFromMidiFile LIB "g_file.dll" (BYVAL fn AS STRING, BYVAL tracknr AS WORD, BYREF Ht() AS HarTimeType) AS LONG DECLARE FUNCTION Chi_SetFreq LIB "g_file.dll" (BYVAL frequency AS DWORD, BYREF msb AS BYTE, BYREF lsb AS BYTE) AS BYTE DECLARE FUNCTION Chi_GetFreq LIB "g_file.dll" (BYVAL cc31 AS BYTE, BYVAL msb AS BYTE, BYVAL lsb AS BYTE) AS WORD DECLARE FUNCTION Tinti_SetFreq LIB "g_file.dll" (BYVAL frequency AS DWORD, BYREF msb AS BYTE, BYREF lsb AS BYTE) AS BYTE DECLARE FUNCTION Tinti_GetFreq LIB "g_file.dll" (BYVAL cc31 AS BYTE, BYVAL msb AS BYTE, BYVAL lsb AS BYTE) AS WORD #ELSE ' internal declares DECLARE FUNCTION InitFileIOdll (BYREF Task() AS Taak, BYREF TaskEX() AS ExtraInfo,_ BYREF gh AS GMT_HANDLES, BYREF App AS ApplicationType) AS DWORD '22.11.2001 DECLARE FUNCTION ReadAppDataFromFile (f AS STRING) AS LONG DECLARE FUNCTION ReadAudioDataFromFile (f AS STRING, AudioFader() AS AudioFaderType) AS LONG DECLARE FUNCTION ReadCockpitControlDataFromFile (f AS STRING) AS LONG DECLARE FUNCTION ReadDiapasonFromFile (f AS STRING) AS SINGLE DECLARE SUB ReadFaderParams (filenaam$, BYREF AudioFader() AS AudioFaderType) DECLARE FUNCTION ReadFlagDataFromFile (f AS STRING) AS LONG DECLARE FUNCTION ReadHurdyTuningFromFile (f AS STRING, Hurdy AS musician) AS WORD ' 20.10.2004 DECLARE FUNCTION ReadHY1ConfigFromFile (f AS STRING) AS WORD ' 09.10.2007 DECLARE FUNCTION ReadAX3ConfigFromFile (f AS STRING) AS WORD ' 22.10.2007 DECLARE FUNCTION ReadHandyConfigFromFile (f AS STRING) AS WORD ' 30.12.2007 DECLARE FUNCTION ReadKeyFromFile (f AS STRING, keyword AS STRING) AS WORD DECLARE FUNCTION ReadKompilfileFromFile (f AS STRING) AS STRING ' 19.07.2002 DECLARE FUNCTION ReadPijFile (f AS STRING, BYREF P() AS BYTE) AS LONG ' 03.02.2009 DECLARE SUB GetDefaultCockpitLabels (CockpitLayo AS CockpitLabels) ' 11.10.2003 DECLARE SUB ReadCockpitLabelsFromFile (Filenaam AS STRING, CockpitLayo AS CockpitLabels) DECLARE FUNCTION Read_Duration_From_File (f AS STRING, title AS STRING) AS DWORD ' 15.10.2003 DECLARE FUNCTION CheckForNetworkSupport (f AS STRING) AS DWORD ' 25.11.2002 DECLARE FUNCTION ReadNetworkDataFromFile (f AS STRING, BYREF g_net AS g_net_type, BYVAL cfg AS STRING) AS DWORD ' 23.11.2002 DECLARE FUNCTION ReadNetworkConfigsFromFile (f AS STRING, BYREF netcfg() AS STRING) AS DWORD DECLARE SUB ReadPatternSequencesFromFile (f AS STRING, BYREF PatternSeq() AS PatternSequenceType) '13.03.2000 DECLARE SUB ReadSynthConfigFile (filenaam$, BYREF Meq() AS midiequipment) DECLARE FUNCTION ReadTaskDataFromFile (f AS STRING) AS LONG '25.09.1999 DECLARE SUB ReadWaveFileListFromFile (f AS STRING, SampleList() AS ASCIIZ * 50) '13.03.2000 ' moved from gmt_ins code: DECLARE SUB GetInstrumentParams (Ins AS Musician, BYVAL konstant AS DWORD) DECLARE SUB WriteDaqParams2file (f AS STRING, BYREF DAQparams AS DataAcquisitionParameters) ' for debugging DECLARE SUB SelectMidiEquipment (f AS STRING, BYREF Meq() AS MidiEquipment) ' 12.06.2002 DECLARE FUNCTION SetRobotPort (robot AS musician, inf AS STRING, hMidiO() AS DWORD) AS DWORD '14.06.2002 DECLARE FUNCTION SetPitch2MidiPorts (pm AS Pitch2MidiType, inf AS STRING, hMidiO() AS DWORD,hMidiI() AS DWORD) AS DWORD '17.11.2002 ' zit dit wel nog in deze lib??? 'DECLARE FUNCTION Klung_ParseSeqFile _ ' (BYREF notetimings() AS DWORD, BYREF shaketimings() AS DWORD, BYREF allofftimings() AS DWORD _ ' , BYREF note() AS BYTE, BYREF velo()AS BYTE, BYREF shakenote() AS BYTE _ ' , BYREF shakevalue() AS SINGLE, BYVAL pklung AS klungtype PTR) AS LONG 'DECLARE FUNCTION AutoSax_ParseSeqFile _ ' (BYREF notetimings() AS DWORD, BYREF progtimings() AS DWORD, BYREF allofftimings() AS DWORD, _ ' BYREF Voltimings() AS DWORD, BYREF BendTimings() AS DWORD, BYREF FBTimings() AS DWORD, BYREF note() AS BYTE,_ ' BYREF velo() AS BYTE, BYREF prog() AS BYTE, BYREF Vol() AS BYTE, BYREF bend() AS INTEGER, _ ' BYVAL pautosax AS autosaxtype PTR, fn AS STRING) AS LONG DECLARE FUNCTION Read_Theme_File (f AS STRING, BYREF Stem() AS TemaType) AS DWORD ' 04.11.2004 DECLARE FUNCTION WriteSetup AS LONG DECLARE FUNCTION ReadSetup _ (OPT BYVAL fn AS STRING) AS LONG DECLARE FUNCTION ParseMidiFile _ (BYVAL fn AS STRING, BYREF sq() AS ParsedMidiType, BYREF info AS STRING, BYREF trackinfo AS STRING) AS LONG DECLARE FUNCTION MidiLogFile (text$, OPT BYVAL filenam$) AS LONG DECLARE FUNCTION FindMMFiles (OPT BYVAL basepath$, OPT BYVAL instrumfilter$, OPT BYVAL minnrinstruments AS LONG,_ OPT BYVAL maxnrinstruments AS LONG, OPT BYVAL ccom$) AS STRING '15.02.2005 DECLARE FUNCTION MidiPlayer_GetFilename (OPT BYVAL rpath$) AS STRING DECLARE FUNCTION MidiPlayer_FileOpenName (OPT BYVAL rpath$) AS STRING DECLARE FUNCTION FileDate (iFile AS STRING) AS STRING DECLARE FUNCTION FileDateandTime (FileSpec AS STRING) AS STRING DECLARE FUNCTION GetVaccaMapping (BYREF vaccanotes() AS kloktype) AS LONG DECLARE FUNCTION GetVitelloMapping (BYREF VitelloNotes() AS kloktype) AS LONG DECLARE FUNCTION GetBellyMapping (BYREF BellyNotes() AS KlokType) AS LONG DECLARE FUNCTION GetLlorMapping (BYREF LlorNotes() AS kloktype) AS LONG 'DECLARE FUNCTION GetKlungParams AS DWORD DECLARE FUNCTION ReadVoiceFromMidiFile (BYVAL fn AS STRING, BYVAL tracknr AS WORD, BYREF tema() AS TemaType) AS LONG DECLARE FUNCTION ReadTrackFromMidiFile (BYVAL fn AS STRING, BYVAL tracknr AS WORD, BYREF Ht() AS HarTimeType) AS LONG DECLARE FUNCTION Chi_SetFreq (BYVAL frequency AS DWORD, BYREF msb AS BYTE, BYREF lsb AS BYTE) AS BYTE ' 04.04.2016 DECLARE FUNCTION Chi_GetFreq (BYVAL cc31 AS BYTE, BYVAL msb AS BYTE, BYVAL lsb AS BYTE) AS WORD ' 05.04.2016 DECLARE FUNCTION Tinti_SetFreq (BYVAL frequency AS DWORD, BYREF msb AS BYTE, BYREF lsb AS BYTE) AS BYTE ' 05.04.2016 DECLARE FUNCTION Tinti_GetFreq (BYVAL cc31 AS BYTE, BYVAL msb AS BYTE, BYVAL lsb AS BYTE) AS WORD ' 05.04.2016 #ENDIF