Login | Register
My pages Projects Community openCollabNet

Discussions > commits > svn commit: r47 - branches/0.6: WinApi net2

genelib
Discussion topic

Back to topic list

svn commit: r47 - branches/0.6: WinApi net2

Author lotec
Full name Jan Bogaerts
Date 2006-09-30 05:25:25 PDT
Message Author: LoTeC
Date: 2006-09-30 05:25:25-0700
New Revision: 47

Added:
   branches/0.6/WinApi/
   branches/0.6/WinApi/WWinMM.gen
   branches/0.6/WinApi/​WWinMM.gen.bak
   branches/0.6/WinApi/​WindowsCommon.gen
   branches/0.6/WinApi/​WindowsCommon.gen.ba​k
   branches/0.6/net2/
   branches/0.6/net2/Sy​stem_Component.gen
   branches/0.6/net2/Sy​stem_Component.gen.b​ak
   branches/0.6/net2/Sy​stem_Xml_Serialisati​on.gen
   branches/0.6/net2/Sy​stem_Xml_Serialisati​on.gen.bak

Log:


Added: branches/0.6/WinApi/WWinMM.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/branches/0.6​/WinApi/WWinMM.gen?v​iew=auto&rev=47
====================​====================​====================​==================
--- (empty file)
+++ branches/0.6/WinApi/WWinMM.gen 2006-09-30 05:25:25-0700
@@ -0,0 +1,166 @@
+//CopyRight Jan Bogaerts 2006
+
+namespace WINAPI;
+
+pragma unicode off;
+const MAXPNAMELEN = 32; //max product name length (including NULL)
+
+//midi structs
+struct MIDIINCAPS =
+ var wMid: word
+ wPid: word
+ vDriverVersion: dword
+ szPname: stringbuilder
+ dwSupport: dword
+;
+
+struct MIDIOUTCAPS =
+ var wMid: word
+ wPid: word
+ vDriverVersion: dword
+ szPname: tchar@MAXPNAMELEN
+ wTechnology: word
+ wVoices: word
+ wNotes: word
+ wChannelMask: word
+ dwSupport: dword
+;
+
+struct MIDIHDR =
+ var lpData: stringbuilder //pointer to locked data block
+ dwBufferLength: dword // length of data in data block
+ dwBytesRecorded: dword // used for input only
+ dwUser: dword // for client's use
+ dwFlags: dword // assorted flags (see defines)
+ lpNext: pointer // reserved for driver
+ reserved: dword // reserved for driver
+ dwOffset: dword // Callback offset into buffer
+ dwReserved1: dword // Reserved for MMSYSTEM
+ dwReserved2: dword // Reserved for MMSYSTEM
+ dwReserved3: dword // Reserved for MMSYSTEM
+ dwReserved4: dword // Reserved for MMSYSTEM
+ dwReserved5: dword // Reserved for MMSYSTEM
+ dwReserved6: dword // Reserved for MMSYSTEM
+ dwReserved7: dword // Reserved for MMSYSTEM
+ dwReserved8: dword // Reserved for MMSYSTEM
+;
+
+delegate dMidiOutProc(aHandle: THandle, aMsg: dword, aInstance: dword, aParam1: dword, aParam2: dword);
+delegate dMidiInProc(aHandle: THandle, aMsg: dword, aInstance: dword, aParam1: dword, aParam2: dword);
+
+
+//Timer structs
+
+struct TIMECAPS =
+ var wPeriodMin: dword
+ wPeriodMax: dword
+;
+
+delegate dTimeProc(aId: dword, aMsg: dword, aInstance: dword, aReserved1: dword, areserved2: dword);
+
+
+//-----------------​--------------------​--------------------​--------------------​------------------
+lib lWinMM =
+//midi exps
+ exp midiInClose(aHandle: tHandle): dword stdcall extern('midiInClose')
+ midiOutClose(aHandle: tHandle): dword stdcall extern('midiOutClose')
+ midiInGetDevCaps(aDeviceId: dword&, aCaps: MidiInCaps&, aSize: dword): dword stdcall extern('midiInGetDevCapsW')
+ midiOutGetDevCaps(aDeviceId: dword&, aCaps: MidiOutCaps&, aSize: dword): dword stdcall extern('midiOutGetDevCapsW')
+ midiInGetErrorText(aErrorNr: dword, aText: Stringbuilder, aLength: dword): dword stdcall extern('midiInGetErrorTextW')
+ midiOutGetErrorText(aErrorNr: dword, aText: Stringbuilder, aLength: dword): dword stdcall extern('midiOutGetErrorTextW')
+ midiInGetNumDevs: dword stdcall extern('midiInGetNumDevs')
+ midiOutGetNumDevs: dword stdcall extern('midiOutGetNumDevs')
+ midiInMessage(aDevice: THandle, aMsg: dword, aVal1: dword, aVal2: dword): dword stdcall extern('midiInMessage')
+ midiOutMessage(aDevice: THandle, aMsg: dword, aVal1: dword, aVal2: dword): dword stdcall extern('midiOutMessage')
+ midiOutLongMsg(aDeive: THandle, aHeader: MIDIHDR&, cbmh: dword): dword stdcall extern('midiOutLongMsg')
+ midiInOpen(aHandle: THandle&, aDeviceId: dword, acallBack: dMidiOutProc, aInstance: dword, aFlags: dword): dword stdcall extern('midiInOpen')
+ midiOutOpen(aHandle: THandle&, aDeviceId: dword, acallBack: dMidiInProc, aInstance: dword, aFlags: dword): dword stdcall extern('midiOutOpen')
+ midiInPrepareHeader(aHandle: THandle, aHeader: MidiHdr&, aSize: dword): dword stdcall extern('midiInPrepareHeader')
+ midiOutPrepareHeader(aHandle: THandle, aHeader: MidiHdr&, aSize: dword): dword stdcall extern('midiOutPrepareHeader')
+ midiInUnprepareHeader(aHandle: THandle, aHeader: MidiHdr&, aSize: dword): dword stdcall extern('midiInUnprepareHeader')
+ midiOutUnprepareHeader(aHandle: THandle, aHeader: MidiHdr&, aSize: dword): dword stdcall extern('midiOutUnpre​pareHeader')
+//Timer exps
+ exp timeBeginPeriod(aPeriod: dword): dword stdcall extern('timeBeginPeriod')
+ timeEndPeriod(aPeriod: dword): dword stdcall extern('timeEndPeriod')
+ timeGetDevCaps(aCaps: TIMECAPS&, aSize: dword): dword stdcall extern('timeGetDevCaps')
+ timeGetTime: dword stdcall extern('timeGetTime')
+ timeKillEvent(aID: dword): dword stdcall extern('timeKillEvent')
+ timeSetEvent(aDelay: dword, aResolution: dword, aTimeCallback: dTimeProc, aUser: dword, aEventType: dword): dword stdcall extern('timeSetEvent')
+
+;
+var WinMM: lWinMM;
+
+
+
+const
+// general error return values
+ MMSYSERR_BASE = 0
+ WAVERR_BASE = 32
+ MIDIERR_BASE = 64
+ TIMERR_BASE = 96
+ JOYERR_BASE = 160
+ MCIERR_BASE = 256
+ MIXERR_BASE = 1024
+ MCI_STRING_OFFSET = 512
+ MCI_VD_OFFSET = 1024
+ MCI_CD_OFFSET = 1088
+ MCI_WAVE_OFFSET = 1152
+ MCI_SEQ_OFFSET = 1216
+ MMSYSERR_NOERROR = 0
+ MMSYSERR_ERROR = (MMSYSERR_BASE + 1)
+ MMSYSERR_BADDEVICEID = (MMSYSERR_BASE + 2)
+ MMSYSERR_NOTENABLED = (MMSYSERR_BASE + 3)
+ MMSYSERR_ALLOCATED = (MMSYSERR_BASE + 4)
+ MMSYSERR_INVALHANDLE = (MMSYSERR_BASE + 5)
+ MMSYSERR_NODRIVER = (MMSYSERR_BASE + 6)
+ MMSYSERR_NOMEM = (MMSYSERR_BASE + 7)
+ MMSYSERR_NOTSUPPORTED = (MMSYSERR_BASE + 8)
+ MMSYSERR_BADERRNUM = (MMSYSERR_BASE + 9)
+ MMSYSERR_INVALFLAG = (MMSYSERR_BASE + 10)
+ MMSYSERR_INVALPARAM = (MMSYSERR_BASE + 11)
+ MMSYSERR_HANDLEBUSY = (MMSYSERR_BASE + 12)
+ MMSYSERR_INVALIDALIAS = (MMSYSERR_BASE + 13)
+ MMSYSERR_BADDB = (MMSYSERR_BASE + 14)
+ MMSYSERR_KEYNOTFOUND = (MMSYSERR_BASE + 15)
+ MMSYSERR_READERROR = (MMSYSERR_BASE + 16)
+ MMSYSERR_WRITEERROR = (MMSYSERR_BASE + 17)
+ MMSYSERR_DELETEERROR = (MMSYSERR_BASE + 18)
+ MMSYSERR_VALNOTFOUND = (MMSYSERR_BASE + 19)
+ MMSYSERR_NODRIVERCB = (MMSYSERR_BASE + 20)
+ MMSYSERR_MOREDATA = (MMSYSERR_BASE + 21)
+ MMSYSERR_LASTERROR = (MMSYSERR_BASE + 21)
+;
+
+const
+// MIDI error return values
+ MIDIERR_UNPREPARED = (MIDIERR_BASE + 0) // header not prepared
+ MIDIERR_STILLPLAYING = (MIDIERR_BASE + 1) // still something playing
+ MIDIERR_NOMAP = (MIDIERR_BASE + 2) // no configured instruments
+ MIDIERR_NOTREADY = (MIDIERR_BASE + 3) // hardware is still busy
+ MIDIERR_NODEVICE = (MIDIERR_BASE + 4) // port no longer connected
+ MIDIERR_INVALIDSETUP = (MIDIERR_BASE + 5) // invalid MIF
+ MIDIERR_BADOPENMODE = (MIDIERR_BASE + 6) // operation unsupported w/ open mode
+ MIDIERR_DONT_CONTINUE = (MIDIERR_BASE + 7) // thru device 'eating' a message
+ MIDIERR_LASTERROR = (MIDIERR_BASE + 7) // last error in range
+;
+
+const
+// flags for wTechnology field of MIDIOUTCAPS structure
+ MOD_MIDIPORT = 1
+ MOD_SYNTH = 2
+ MOD_SQSYNTH = 3
+ MOD_FMSYNTH = 4
+ MOD_MAPPER = 5
+ MOD_WAVETABLE = 6
+ MOD_SWSYNTH = 7
+;
+
+const
+ TIME_CALLBACK_FUNCTION = 0x0000 // callback is function
+ TIMERR_NOERROR = 0 // no error
+ TIME_ONESHOT = 0x0000 // program timer for single event
+ TIME_PERIODIC = 0x0001 // program for continuous periodic event
+;
+
+
+

Added: branches/0.6/WinApi/​WWinMM.gen.bak
Url: http://genelib.tigri​s.org/source/browse/​genelib/branches/0.6​/WinApi/WWinMM.gen.b​ak?view=auto&rev​=47
====================​====================​====================​==================
--- (empty file)
+++ branches/0.6/WinApi/​WWinMM.gen.bak 2006-09-30 05:25:25-0700
@@ -0,0 +1,154 @@
+//CopyRight Jan Bogaerts 2006
+
+namespace WINAPI;
+
+pragma unicode off;
+const MAXPNAMELEN = 32; //max product name length (including NULL)
+
+//midi structs
+struct MIDIINCAPS =
+ var wMid: word
+ wPid: word
+ vDriverVersion: dword
+ szPname: stringbuilder
+ dwSupport: dword
+;
+
+struct MIDIOUTCAPS =
+ var wMid: word
+ wPid: word
+ vDriverVersion: dword
+ szPname: tchar@MAXPNAMELEN
+ wTechnology: word
+ wVoices: word
+ wNotes: word
+ wChannelMask: word
+ dwSupport: dword
+;
+
+struct MIDIHDR =
+ var lpData: stringbuilder //pointer to locked data block
+ dwBufferLength: dword // length of data in data block
+ dwBytesRecorded: dword // used for input only
+ dwUser: dword // for client's use
+ dwFlags: dword // assorted flags (see defines)
+ lpNext: pointer // reserved for driver
+ reserved: dword // reserved for driver
+ dwOffset: dword // Callback offset into buffer
+ dwReserved1: dword // Reserved for MMSYSTEM
+ dwReserved2: dword // Reserved for MMSYSTEM
+ dwReserved3: dword // Reserved for MMSYSTEM
+ dwReserved4: dword // Reserved for MMSYSTEM
+ dwReserved5: dword // Reserved for MMSYSTEM
+ dwReserved6: dword // Reserved for MMSYSTEM
+ dwReserved7: dword // Reserved for MMSYSTEM
+ dwReserved8: dword // Reserved for MMSYSTEM
+;
+
+delegate dMidiOutProc(aHandle: THandle, aMsg: dword, aInstance: dword, aParam1: dword, aParam2: dword);
+delegate dMidiInProc(aHandle: THandle, aMsg: dword, aInstance: dword, aParam1: dword, aParam2: dword);
+
+
+//Timer structs
+
+struct TIMECAPS =
+ var wPeriodMin: dword
+ wPeriodMax: dword
+;
+
+delegate dTimeProc(aId: dword, aMsg: dword, aInstance: dword, aReserved1: dword, areserved2: dword);
+
+
+//-----------------​--------------------​--------------------​--------------------​------------------
+lib lWinMM =
+//midi exps
+ exp midiInClose(aHandle: tHandle): dword stdcall extern('midiInClose')
+ midiOutClose(aHandle: tHandle): dword stdcall extern('midiOutClose')
+ midiInGetDevCaps(aDeviceId: dword&, aCaps: MidiInCaps&, aSize: dword): dword stdcall extern('midiInGetDevCapsW')
+ midiOutGetDevCaps(aDeviceId: dword&, aCaps: MidiOutCaps&, aSize: dword): dword stdcall extern('midiOutGetDevCapsW')
+ midiInGetErrorText(aErrorNr: dword, aText: Stringbuilder, aLength: dword): dword stdcall extern('midiInGetErrorTextW')
+ midiOutGetErrorText(aErrorNr: dword, aText: Stringbuilder, aLength: dword): dword stdcall extern('midiOutGetErrorTextW')
+ midiInGetNumDevs: dword stdcall extern('midiInGetNumDevs')
+ midiOutGetNumDevs: dword stdcall extern('midiOutGetNumDevs')
+ midiInMessage(aDevice: THandle, aMsg: dword, aVal1: dword, aVal2: dword): dword stdcall extern('midiInMessage')
+ midiOutMessage(aDevice: THandle, aMsg: dword, aVal1: dword, aVal2: dword): dword stdcall extern('midiOutMessage')
+ midiOutLongMsg(aDeive: THandle, aHeader: MIDIHDR&, cbmh: dword): dword stdcall extern('midiOutLongMsg')
+ midiInOpen(aHandle: THandle&, aDeviceId: dword, acallBack: dMidiOutProc, aInstance: dword, aFlags: dword): dword stdcall extern('midiInOpen')
+ midiOutOpen(aHandle: THandle&, aDeviceId: dword, acallBack: dMidiInProc, aInstance: dword, aFlags: dword): dword stdcall extern('midiOutOpen')
+ midiInPrepareHeader(aHandle: THandle, aHeader: MidiHdr&, aSize: dword): dword stdcall extern('midiInPrepareHeader')
+ midiOutPrepareHeader(aHandle: THandle, aHeader: MidiHdr&, aSize: dword): dword stdcall extern('midiOutPrepareHeader')
+ midiInUnprepareHeader(aHandle: THandle, aHeader: MidiHdr&, aSize: dword): dword stdcall extern('midiInUnprepareHeader')
+ midiOutUnprepareHeader(aHandle: THandle, aHeader: MidiHdr&, aSize: dword): dword stdcall extern('midiOutUnpre​pareHeader')
+//Timer exps
+ exp timeBeginPeriod(aPeriod: dword): dword stdcall extern('timeBeginPeriod')
+ timeEndPeriod(aPeriod: dword): dword stdcall extern('timeEndPeriod')
+ timeGetDevCaps(aCaps: TIMECAPS&, aSize: dword): dword stdcall extern('timeGetDevCaps')
+ timeGetTime: dword stdcall extern('timeGetTime')
+ timeKillEvent(aID: dword): dword stdcall extern('timeKillEvent')
+ timeSetEvent(aDelay: dword, aResolution: dword, aTimeCallback: dTimeProc, aUser: dword, aEventType: dword): dword stdcall extern('timeSetEvent')
+
+;
+var WinMM: lWinMM;
+
+
+
+const
+// general error return values
+ MMSYSERR_NOERROR = 0
+ MMSYSERR_ERROR = (MMSYSERR_BASE + 1)
+ MMSYSERR_BADDEVICEID = (MMSYSERR_BASE + 2)
+ MMSYSERR_NOTENABLED = (MMSYSERR_BASE + 3)
+ MMSYSERR_ALLOCATED = (MMSYSERR_BASE + 4)
+ MMSYSERR_INVALHANDLE = (MMSYSERR_BASE + 5)
+ MMSYSERR_NODRIVER = (MMSYSERR_BASE + 6)
+ MMSYSERR_NOMEM = (MMSYSERR_BASE + 7)
+ MMSYSERR_NOTSUPPORTED = (MMSYSERR_BASE + 8)
+ MMSYSERR_BADERRNUM = (MMSYSERR_BASE + 9)
+ MMSYSERR_INVALFLAG = (MMSYSERR_BASE + 10)
+ MMSYSERR_INVALPARAM = (MMSYSERR_BASE + 11)
+ MMSYSERR_HANDLEBUSY = (MMSYSERR_BASE + 12)
+ MMSYSERR_INVALIDALIAS = (MMSYSERR_BASE + 13)
+ MMSYSERR_BADDB = (MMSYSERR_BASE + 14)
+ MMSYSERR_KEYNOTFOUND = (MMSYSERR_BASE + 15)
+ MMSYSERR_READERROR = (MMSYSERR_BASE + 16)
+ MMSYSERR_WRITEERROR = (MMSYSERR_BASE + 17)
+ MMSYSERR_DELETEERROR = (MMSYSERR_BASE + 18)
+ MMSYSERR_VALNOTFOUND = (MMSYSERR_BASE + 19)
+ MMSYSERR_NODRIVERCB = (MMSYSERR_BASE + 20)
+ MMSYSERR_MOREDATA = (MMSYSERR_BASE + 21)
+ MMSYSERR_LASTERROR = (MMSYSERR_BASE + 21)
+;
+
+const
+// MIDI error return values
+ MIDIERR_UNPREPARED = (MIDIERR_BASE + 0) // header not prepared
+ MIDIERR_STILLPLAYING = (MIDIERR_BASE + 1) // still something playing
+ MIDIERR_NOMAP = (MIDIERR_BASE + 2) // no configured instruments
+ MIDIERR_NOTREADY = (MIDIERR_BASE + 3) // hardware is still busy
+ MIDIERR_NODEVICE = (MIDIERR_BASE + 4) // port no longer connected
+ MIDIERR_INVALIDSETUP = (MIDIERR_BASE + 5) // invalid MIF
+ MIDIERR_BADOPENMODE = (MIDIERR_BASE + 6) // operation unsupported w/ open mode
+ MIDIERR_DONT_CONTINUE = (MIDIERR_BASE + 7) // thru device 'eating' a message
+ MIDIERR_LASTERROR = (MIDIERR_BASE + 7) // last error in range
+;
+
+const
+// flags for wTechnology field of MIDIOUTCAPS structure
+ MOD_MIDIPORT = 1
+ MOD_SYNTH = 2
+ MOD_SQSYNTH = 3
+ MOD_FMSYNTH = 4
+ MOD_MAPPER = 5
+ MOD_WAVETABLE = 6
+ MOD_SWSYNTH = 7
+;
+
+const
+ TIME_CALLBACK_FUNCTION = 0x0000 // callback is function
+ TIMERR_NOERROR = 0 // no error
+ TIME_ONESHOT = 0x0000 // program timer for single event
+ TIME_PERIODIC = 0x0001 // program for continuous periodic event
+;
+
+
+

Added: branches/0.6/WinApi/​WindowsCommon.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/branches/0.6​/WinApi/WindowsCommo​n.gen?view=auto&​rev=47
====================​====================​====================​==================
--- (empty file)
+++ branches/0.6/WinApi/​WindowsCommon.gen 2006-09-30 05:25:25-0700
@@ -0,0 +1,86 @@
+//copyright LoTeC (Jan Bogaerts) 2004-2005
+
+//This unit is part of the Gene standarad library
+
+//This program is free software; you can redistribute it and/or modify
+//it under the terms of the Lesser GNU General Public License as published by
+//the Free Software Foundation; either version 2.1 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
+//Lesser GNU General Public License for more details.
+
+//You should have received a copy of the Lesser GNU General Public License
+//along with this program; if not, write to the Free Software
+//Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
+namespace WINAPI;
+
+rename THandle = pointer;
+rename HWND = THandle;
+rename HInst = THandle;
+rename HModule = HInst;
+rename HHook = THandle;
+rename HEvent = THandle;
+rename HKey = THandle;
+rename HBitmap = THandle;
+rename HBrush = THandle;
+rename HColorSpace = THandle;
+rename HDc = THandle;
+rename HGlrc = THandle;
+rename HDesk = THandle;
+rename HEnhMetaFile = THandle;
+rename HFont = THandle;
+rename HIcon = THandle;
+rename HMenu = THandle;
+rename HMetaFile = THandle;
+rename HPalette = THandle;
+rename HPen = THandle;
+rename HRgn = THandle;
+rename HRsrc = THandle;
+rename HStr = THandle;
+rename HTask = THandle;
+rename HWInsta = THandle;
+rename HKl = THandle;
+rename HMonitor = THandle;
+rename HWinEventHook = THandle;
+rename HCursor = THandle;
+rename HRESULt = int;
+
+rename FarProc = pointer;
+rename widechar = word;
+rename ATOM = word;
+rename COLORREF = dword;
+const INVALID_HANDLE_VALUE = -1;
+
+rename LPARAM = dword;
+
+//a struct that contains all the global macros
+
+struct sWinCommon =
+ exp MAKEWORD(a: dword, b: dword): word inline static = return(word( (byte(a) & 0xff) | ((byte(b) & 0xff) shl 8) ));
+ MAKELONG(a: dword, b: dword): int inline static = return(int( (word(a) & 0xffff) | ((word(b) & 0xffff) shl 16) ));
+ LOWORD(l: dword): word inline static = return(word(l & 0xffff) );
+ HIWORD(l: dword): word inline static = return(word(l shr 16) );
+ LOBYTE(l: dword): byte inline static = return(byte(l & 0xff) );
+ HIBYTE(l: dword): byte inline static = return(byte(l shr 8) );
+ GET_X_LPARAM(lp: int): int static inline = return(int(LOWORD(dword(lp))));
+ GET_Y_LPARAM(lp: int): int static inline = return(int(HIWORD(dword(lp))));
+;
+
+struct sSIZE =
+ var cx: int
+ cy: int
+;
+
+//const for paths and stuff
+const
+ _MAX_PATH = 260
+ _MAX_DRIVE = 3
+ _MAX_DIR = 256
+ _MAX_FNAME = 256
+ _MAX_EXT = 256
+ MAX_PATH = _MAX_PATH
+;
\ No newline at end of file

Added: branches/0.6/WinApi/​WindowsCommon.gen.ba​k
Url: http://genelib.tigri​s.org/source/browse/​genelib/branches/0.6​/WinApi/WindowsCommo​n.gen.bak?view=auto​&rev=47
====================​====================​====================​==================
--- (empty file)
+++ branches/0.6/WinApi/​WindowsCommon.gen.ba​k 2006-09-30 05:25:25-0700
@@ -0,0 +1,87 @@
+//copyright LoTeC (Jan Bogaerts) 2004-2005
+
+//This unit is part of the Gene standarad library
+
+//This program is free software; you can redistribute it and/or modify
+//it under the terms of the Lesser GNU General Public License as published by
+//the Free Software Foundation; either version 2.1 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
+//Lesser GNU General Public License for more details.
+
+//You should have received a copy of the Lesser GNU General Public License
+//along with this program; if not, write to the Free Software
+//Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
+namespace WINAPI;
+namespace push WindowsCommon;
+
+rename THandle = pointer;
+rename HWND = THandle;
+rename HInst = THandle;
+rename HModule = HInst;
+rename HHook = THandle;
+rename HEvent = THandle;
+rename HKey = THandle;
+rename HBitmap = THandle;
+rename HBrush = THandle;
+rename HColorSpace = THandle;
+rename HDc = THandle;
+rename HGlrc = THandle;
+rename HDesk = THandle;
+rename HEnhMetaFile = THandle;
+rename HFont = THandle;
+rename HIcon = THandle;
+rename HMenu = THandle;
+rename HMetaFile = THandle;
+rename HPalette = THandle;
+rename HPen = THandle;
+rename HRgn = THandle;
+rename HRsrc = THandle;
+rename HStr = THandle;
+rename HTask = THandle;
+rename HWInsta = THandle;
+rename HKl = THandle;
+rename HMonitor = THandle;
+rename HWinEventHook = THandle;
+rename HCursor = THandle;
+rename HRESULt = int;
+
+rename FarProc = pointer;
+rename widechar = word;
+rename ATOM = word;
+rename COLORREF = dword;
+const INVALID_HANDLE_VALUE = -1;
+
+rename LPARAM = dword;
+
+//a struct that contains all the global macros
+
+struct sWinCommon =
+ exp MAKEWORD(a: dword, b: dword): word inline static = return(word( (byte(a) & 0xff) | ((byte(b) & 0xff) shl 8) ));
+ MAKELONG(a: dword, b: dword): int inline static = return(int( (word(a) & 0xffff) | ((word(b) & 0xffff) shl 16) ));
+ LOWORD(l: dword): word inline static = return(word(l & 0xffff) );
+ HIWORD(l: dword): word inline static = return(word(l shr 16) );
+ LOBYTE(l: dword): byte inline static = return(byte(l & 0xff) );
+ HIBYTE(l: dword): byte inline static = return(byte(l shr 8) );
+ GET_X_LPARAM(lp: int): int static inline = return(int(LOWORD(dword(lp))));
+ GET_Y_LPARAM(lp: int): int static inline = return(int(HIWORD(dword(lp))));
+;
+
+struct sSIZE =
+ var cx: int
+ cy: int
+;
+
+//const for paths and stuff
+const
+ _MAX_PATH = 260
+ _MAX_DRIVE = 3
+ _MAX_DIR = 256
+ _MAX_FNAME = 256
+ _MAX_EXT = 256
+ MAX_PATH = _MAX_PATH
+;
\ No newline at end of file

Added: branches/0.6/net2/Sy​stem_Component.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/branches/0.6​/net2/System_Compone​nt.gen?view=auto​&rev=47
====================​====================​====================​==================
--- (empty file)
+++ branches/0.6/net2/Sy​stem_Component.gen 2006-09-30 05:25:25-0700
@@ -0,0 +1,8 @@
+//CopyRight Jan Bogaerts 2006
+
+namespace System('System', '2:0:0:0', 'B7 7A 5C 56 19 34 E0 89 ') extern('System');
+
+namespace push ComponentModel extern('ComponentModel');
+
+space sBindingList<T> extern('BindingList')=
+;
\ No newline at end of file

Added: branches/0.6/net2/Sy​stem_Component.gen.b​ak
Url: http://genelib.tigri​s.org/source/browse/​genelib/branches/0.6​/net2/System_Compone​nt.gen.bak?view=auto​&rev=47
====================​====================​====================​==================
--- (empty file)
+++ branches/0.6/net2/Sy​stem_Component.gen.b​ak 2006-09-30 05:25:25-0700
@@ -0,0 +1,6 @@
+namespace System('System', '2:0:0:0', 'B7 7A 5C 56 19 34 E0 89 ') extern('System');
+
+namespace push ComponentModel extern('ComponentModel');
+
+space sBindingList<T> extern('BindingList')=
+;
\ No newline at end of file

Added: branches/0.6/net2/Sy​stem_Xml_Serialisati​on.gen
Url: http://genelib.tigri​s.org/source/browse/​genelib/branches/0.6​/net2/System_Xml_Ser​ialisation.gen?view=​auto&rev=47
====================​====================​====================​==================
--- (empty file)
+++ branches/0.6/net2/Sy​stem_Xml_Serialisati​on.gen 2006-09-30 05:25:25-0700
@@ -0,0 +1,8 @@
+namespace System('System', '2:0:0:0', 'B7 7A 5C 56 19 34 E0 89 ') extern('System');
+
+namespace push Xml extern('Xml');
+namespace push Serialization extern('Serialization');
+
+space sXmlIncludeAttribute​(sAttribute) extern('XmlIncludeAttribute') =
+ constructor Create(atype: typeId) extern('.ctor')
+;

Added: branches/0.6/net2/Sy​stem_Xml_Serialisati​on.gen.bak
Url: http://genelib.tigri​s.org/source/browse/​genelib/branches/0.6​/net2/System_Xml_Ser​ialisation.gen.bak?v​iew=auto&rev=47
====================​====================​====================​==================
--- (empty file)
+++ branches/0.6/net2/Sy​stem_Xml_Serialisati​on.gen.bak 2006-09-30 05:25:25-0700
@@ -0,0 +1,8 @@
+namespace System('System', '2:0:0:0', 'B7 7A 5C 56 19 34 E0 89 ') extern('System');
+
+namespace push Xml extern('Xml');
+namespace push Serialization extern('Serialization');
+
+space sXmlIncludeAttribute​(sAttribute) extern('XmlIncludeAttribute') =
+ constructor Create(atype: typeId) extern('ctor')
+;

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

svn commit: r47 - branches/0.6: WinApi net2 lotec Jan Bogaerts 2006-09-30 05:25:25 PDT
Messages per page: