| blob | 52d96f26e76a070cc39c5f0f7558edc1e3e47db0 |
1 {Set tabsize to 4.}
2 {****************************************************************************
4 $Id$
6 DOSCALLS interface unit
7 FPC Pascal Runtime Library for OS/2
8 Copyright (c) 1999-2000 by Florian Klaempfl
9 Copyright (c) 1999-2000 by Daniel Mantione
11 The Free Pascal runtime library is distributed under the Library GNU Public
12 License v2. So is this unit. The Library GNU Public License requires you to
13 distribute the source code of this unit with any product that uses it.
14 Because the EMX library isn't under the LGPL, we grant you an exception to
15 this, and that is, when you compile a program with the Free Pascal Compiler,
16 you do not need to ship source code with that program, AS LONG AS YOU ARE
17 USING UNMODIFIED CODE! If you modify this code, you MUST change the next
18 line:
20 <This an official, unmodified Free Pascal source code file.>
22 Send us your modified files, we can work together if you want!
24 Free Pascal is distributed in the hope that it will be useful,
25 but WITHOUT ANY WARRANTY; without even the implied warranty of
26 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
27 Library GNU General Public License for more details.
29 You should have received a copy of the Library GNU General Public License
30 along with Free Pascal; see the file COPYING.LIB. If not, write to
31 the Free Software Foundation, 59 Temple Place - Suite 330,
32 Boston, MA 02111-1307, USA.
34 ****************************************************************************}
38 {This unit was called bsedos in the original OS/2 runtime library.
39 Changed, because it's an interface library to DOSCALLS.DLL.
41 The goal was to make this unit a real Pascal unit instead of a C unit in
42 Pascal clothes. Not that I want to make every translated statement look
43 exactly like other Pascal code, but in this case, it was too crazy.
44 Therefore typenames, constants etc. have names like the ones in IBM's
45 documentation (which is C oriented), but do not match exactly. In general
46 constants do now use the common two letter prefix, followed by the constant
47 description. Type names use a capital T in front of their name, handles do
48 not have separate types, longints are used, and whenever possible pointers
49 were replaced by var parameters. All constructions like 'type LONG=longint'
50 have been removed. Furthermore, most of the procedures also accept strings
51 instead of just a PChar, thanks to that cool feature of procedure
52 overloading.
54 Daniel Mantione,
55 June 1997
57 Please, note, that all calls of the original functions from DOSCALLS.DLL must
58 be declared using cdecl (C calling convention)! This doesn't apply to wrapped
59 around functions, of course (like equivalents of some functions with string
60 instead of PChar).
62 Changelog:
64 People:
65 KOMH - KO Myung-Hun ( komh@chollian.net )
67 Date: Description of change: Changed by:
69 Type of parameter is corrected, KOMH
70 'word' to 'longint'.
71 People:
73 DM - Daniel Mantione
74 TH - Tomas Hajny (XHajT03@mbox.vol.cz on Internet)
76 Date: Description of change: Changed by:
78 - First released version 0.1. DM
79 98/11/21 Mostly cosmetic changes - higher TH
80 level of compatibility with other
81 OS/2 compilers, some Dutch names of
82 parameters changed to English ones,
83 better readability of identifiers,
84 some mistypings corrected etc.
86 Coding style:
88 It may be well possible that coding style feels a bit strange to you.
89 Nevertheless I friendly ask you to try to make your changes not look all
90 too different. To make life easier, set your IDE to use tab characters,
91 turn optimal fill, autoindent and backspace unindents on and set a
92 tabsize of 4.}
94 {****************************************************************************
96 Preprocessor definitions
98 ****************************************************************************}
101 {$IFNDEF FVISION_PSTRING}
102 {$IFNDEF OWN_PSTRING}
104 {$ENDIF}
105 {$ENDIF}
107 {***************************************************************************}
108 interface
109 {***************************************************************************}
111 {$IFDEF OWN_PSTRING}
115 {$ELSE}
116 {$IFDEF FVISION_PSTRING}
118 {$ELSE}
119 {$ERROR PString source unknown.}
120 {$ENDIF}
121 {$ENDIF}
123 {$IFDEF FPC}
124 {$PACKRECORDS 1}
125 {$ENDIF FPC}
134 {****************************************************************************
136 Thread related routines.
138 ****************************************************************************}
145 started at once.}
147 operating system normally allocates more
148 memory to the stack if the stack grows with
149 the given stacksize as limit. This has the
150 restriction that you cannot create a stack
151 frame > 4 kb. at once. If you want to do
152 this, or for other reasons you can allocate
153 the complete stack at once with this flag.}
157 terminated.}
159 {Create a new thread.
160 TID = Thread ID of new thread is returned here.
161 Address = Thread entry point. The new thread starts executing here.
162 AParam = This one is passed to the thread entry procedure.
163 Flags = Flags. Either dtsuspended or dt_stackcommited.
164 StackSize = Size of the stack of the new thread.}
168 {Suspend a running thread.}
171 {Resume a suspended thread.}
174 {Terminate a specific thread.}
177 {Wait until a specific thread has ended.
178 TID = Thread to terminate. Can also be zero. In that case we
179 wait until the next thread terminates. Its thread ID is
180 returned back.
181 Option = Flags. Either dtWait or dtNoWait.}
184 {All other threads in the same process are suspended until a
185 DosExitCritSec.}
188 {Resume the other threads again.}
194 {Terminate the thread or the program. Never returns, so it's defined as
195 procedure.}
217 High byte of low word: thread class
218 1 = Idle
219 2 = Regular
220 3 = Time critical
221 4 = Server}
232 ??? Info wanted!}
236 processing.}
238 0: Full screen protected mode.
239 1: DOS emulation.
240 2: Windowable full screen protected
241 mode program.
242 3: Presentation manager program.
243 4: Detached mode process.}
247 {OS/2 keeps information about the current process and the current thread
248 is the datastructures Tprocessinfoblock and Tthreadinfoblock. All data
249 can both be read and be changed. Use DosGetInfoBlocks to get their
250 address. The service cannot fail, so it is defined as procedure.
251 The second version of the call might be useful if you only want address
252 of one of those datastructures, since you can supply nil for the other
253 parameter then.}
255 {procedure DosGetInfoBlocks(var ATIB:PThreadInfoBlock;
256 var APIB:PProcessInfoBlock); cdecl;}
260 {Wait a number of microseconds. Cannot fail, so it is defined as procedure.}
263 {Beep the speaker. You do not need to check for an error if you can
264 guarantee that the frequency is correct.}
267 {****************************************************************************
269 Process handling routines.
271 ****************************************************************************}
273 {You need a heavy manual if you want to know how this procedure works. Used
274 for writing debuggers.}
289 {Add/remove an exitprocedure to the exit list. Also used to terminate an
290 exit procedure. An exit procedure will be called on exiting of the program.
292 OrderCode = One of the EXLST_XXXX constants.
293 Proc = Address of the exit procedure.
295 An exit procedure is called with one of the TC_XXXX constants. When it is
296 done it must call DosExitList with ExLst_Exit.
298 Exit procedures are called in random order.}
304 check if process has been terminated. If
305 you use this, you must use DosWaitChild,
306 because OS/2 will not free memory that is
307 allocated for the result codes if you don't.}
310 session.}
316 1 = Critical error.
317 2 = Trapped. (GPE, etc.)
318 3 = Killed by DosKillProcess.}
322 {Execute a program.
324 ObjName = If a DLL cannot be found, its name will be returned here.
325 ObjLen = Size of your ObjName buffer.
326 ExecFlag = One of the deXXXX constants.
327 Res = See TResultcodes.
328 Args = Arguments. ASCIIZ strings. End of Args given by an empty
329 string (#0). First arg must be filename without path and
330 extension. nil is also allowed.
331 Env = Environment. ASCIIZ strings. A variable has the format
332 NAME=CONTENTS. End of Env given by an empty string (#0).
333 nil is also allowed.
334 FileName = Filename with full path and extension. Is not sensitive
335 for the PATH environment variable.}
343 {Wait until a child process terminated. Sometimes called DosCWait.
345 Action = 0 = Wait until child terminates.
346 1 = Wait until child and all its childs terminate.
347 Option = Flags. Either dtWait or dtNoWait.
348 Res = See TResultCodes.
349 TermPID = Process ID that has been terminated. Usefull when
350 terminating a random process.
351 PID = Process ID of process to terminate. Use a zero to
352 terminate a random process.}
365 {Set priority of a thread or all threads in another process.
367 Scope = 0 = Set for all threads of a process.
368 1 = Set for all threads of a process and its childs.
369 2 = Set for a thread of the current process.
370 TrClass = 0 = Do not change class.
371 1 = Change to idle time class.
372 2 = Change to regular class.
373 3 = Change to time-critical class.
374 Delta = Value to add to priority. Resulting priority must be in
375 the range 0..31.
376 PortID = Process ID when Scope=0 or 1, thread ID when Scope=2.}
379 {Terminate a process. If the process isn't a child process, it can refuse
380 to terminate.
382 Action = 0 = Terminate process and all its childs.
383 1 = Terminate process only.
384 PID = Process ID of process to terminate.}
401 {Get the application type of an executable file on disk.
402 FileName = Name of file to get type from.
403 Flags = Receives a bitfield using the AppTyp constants.}
413 support monochrome displays?}
415 {Get information about attached devices.
416 DevInfo = Receives requested information.
417 Item = One of the dixxxx constants.}
420 {****************************************************************************
422 File handling related routines.
424 ****************************************************************************}
435 {Lock or unlock an area of a file. Other processes may not access that part
436 of the file.
438 Unlock = Area to unlock. (0,0) = Do not unlock.
439 Lock = Area to lock. (0,0) = Do not lock.
440 Timeout = Number of miliseconds to wait if another process has locked
441 the file.
442 Flags = Bitfield:
443 Bit 0: 0 = Other processes are denied access.
444 1 = Other processes may still read from the area.
445 Bit 1: 0 = Normal locking mode.
446 1 = Atomic mode. Refer IBM's documentation.}
450 {Cancel a filelock area.
452 Handle = File handle.
453 Lock = Area that is locked now.}
457 {Data structures for extended attributes. Reading IBM's documentation is
458 highly recommended before experimenting with EAs.}
485 EA,
506 Flags,
546 {*******************End of extented attribute datastructures.***************}
548 {Usefull constanst for Action parameter.}
553 {Usefull constants for OpenFlags parameter.}
557 (*
558 fixed by KO M.H. on 1999.07.04
559 contents : Creation flags is 10 hex not 10 dec.
560 *)
563 {Usefull constants for openmode parameter.}
580 { Open a file.
582 FileName = Name of file.
583 Handle = Receives filehandle.
584 Action = Receives result of opening.
585 1 = Existing file opened.
586 2 = File did not exist. Created.
587 3 = File existed. Overwritten.
588 InitSize = Initial size of file when creating or overwriting.
589 Ignored when you do not. Must be zero when the file is
590 created or overwritten in read-only mode.
591 Attrib = Attributes when creating or overwriting files.
592 OpenFlags = Bitfield describing what to do when file exists or doesn't
593 exist.
594 OpenMode = Bitfield describing describing how to open a file.
595 EA = Extended attributes to give file when created. Use a nil
596 pointer if you don't want to give it extended attributes.
597 Use it only when creating or overwriting file. Use nil
598 when not. Only the FEA list will be used.
600 The bits in the openflags parameter have the following meanings:
602 Bit 0-3: Action to take when file exists. 0000 = Return with error.
603 0001 = Open it.
604 0010 = Overwrite it.
605 Bit 4-7: Action to take when file does not 0000 = Return with error.
606 exist. 0001 = Create it.
608 The bits in the filemode parameter have the following meanings:
610 Bit 0-2: Access mode: 000 = Read-only
611 001 = Write-only
612 010 = Read/Write
613 Bit 3: Reserved.
614 Bit 4-6: Sharing mode. 001 = Deny all
615 010 = Deny write
616 011 = Deny read
617 100 = Deny none
618 Bit 7: Inheritance. 0 = Handle will be inherited by childs.
619 1 = Handle will not be inherited.
620 Bit 8-11: Reserved.
621 Bit 12: Cache flag. 0 = Use caching.
622 1 = Disable both read and write caching.
623 Bit 13: Error handling. 0 = Use critical error handler.
624 1 = Return just an error code.
625 Bit 14: Write cache flag. 0 = Write operations may be cached.
626 1 = Write operations must be executed
627 before write operation functions return.
628 Bit 15: DASD flag. 0 = Open a file or device.
629 1 = Open a drive as file.
631 When the DASD flag is set, the whole drive is read as a single file. The
632 file starts with 512 bytes of bootsector, then 512 bytes of the second sector etc.
633 The filename must consist of the driveletter followed by a semicolon.}
637 {This variant of DosOpen always creates or overwrites a file.}
640 {This variant of DosOpen always opens an existing file.}
643 {There are also string variants.}
653 {Close a file.
654 Cannot fail if handle does exist.}
657 {Read from a file or other type of handle.
659 Handle = File handle.
660 Buffer = The read data is stored here.
661 Count = Number of bytes to read.
662 ActCount = Number of bytes actually read.}
666 {Write to a file or other type of handle.
668 Handle = File handle.
669 Buffer = The data to be written.
670 Count = Number of bytes to write.
671 ActCount = Number of bytes actually written.}
679 {Change the filepointer of a file.}
682 {This variant seeks always from begin of file and does not return the
683 actual position.}
685 {This variant returns the current filepointer.}
688 {Use DosQueryFileInfo or DosQueryPathInfo to get the size of a file.}
690 {Change the size of a file.}
693 {Flush update the changes to a file to disk.}
696 {Duplicate or redirect a handle.
697 To duplicate a handle: Fill handle with source handle and duplicate with -1.
698 Copy of handle will be returned in duplicate.
699 To redirect a handle: Fill handle with handle to which the handle to
700 redirect will be redirected. The handle that will be
701 redirected should be placed in duplicate.}
704 {Return information about a specific handle. See DosOpen for a
705 description of FileMode.}
708 {Set information about a specific handle. See DosOpen for a description
709 of FileMode.}
712 {Usefull constants for the handle type.}
718 {Determine if a handle belongs to a file, a device or a pipe.
719 Handle = Handle tp query info about.
720 HandType = Bits 0-1: 00 = File
721 01 = Device
722 02 = Pipe
723 Bit 15: 0 = Local.
724 1 = On network.}
728 {****************************************************************************
730 File management related routines.
732 ****************************************************************************}
735 {Edit a filename using wildcard.
737 Example editing CONFIG.SYS with *.BAK becomes CONFIG.BAK.
738 Usefull when parsing commands like 'copy config.sys *.bak'.
739 All filename characters are casemapped.'
741 MetaLevel = 0 Use modern semantics
742 MetaLevel = 1 Use OS/2 1.2 semantics
743 Source = string to edit
744 Edit = editstring
745 Target = destination buffer
746 TargetLen = size of the destination buffer}
752 {Move or rename a file.
753 OldFile = old name of file
754 NewFile = new name of file}
763 {Copy a file.
764 OldFile = source file
765 NewFile = destination file}
769 {Delete a file from disk.}
773 {Destroy a file on disk. DosForceDelete makes sure that the file cannot
774 be unerased anymore.}
778 {Create a new directory.
780 Name = Name of directory to create.
781 EA = Extented attributes to give the directory. Use nil if you
782 do not want do give it extented attributes. Only the FEA
783 list is used.}
786 {Variants without the EA parameter (nil is used).}
790 {Remove a directory.}
794 {Set the current drive. Cannot fail if the driveletter is correct.}
797 {Get the current drive. Because it cannot fail, it is declared as procedure.}
800 {Set the current directory.}
804 {Get the current directory.}
809 {Send/receive information to a device.
811 Handle = A file handle to a device, instead of a file.
812 Category = The category of functions the function is in.
813 Func = Function to call.
814 Params = Parameters for the function.
815 ParamLen = Size of the params buffer.
816 ParamSize = Size of the parametrs to send to the device
817 Receives size of the returned parameters.
818 Data = Data to send to device.
819 DataLen = Size of your data buffer.
820 DataSize = Size of the data to send to device.
821 Receives size of the data returned by the device.}
827 {****************************************************************************
829 File searching related routines.
831 ****************************************************************************}
845 {Format of date records:
847 Bit 0..4: day
848 Bit 5..8: month
849 Bit 9..15: year minus 1980
851 Format of time records:
853 Bit 0..4: seconds divided by 2
854 Bit 5..10: minutes
855 Bit 11..15: hours}
857 type
858 (*
859 added by KO Myung-Hun on 1999.07.04
860 for compatible with previous source code
861 *)
866 (*
867 modified TFileStatus to TFileStatus0 by KO M.H. on 1999.07.04
868 because TFileStatus3 included a new field, NextEntryOffset and
869 new TFileStatus3 needed compatibility with previous source code.
870 *)
880 occupies on disk.}
895 (*
896 fixed by KO Myung-Hun on 1999.07.04
898 contents : NextEntryOffset field is not included
899 *)
910 occupies on disk.}
923 The byte following the last string
924 character is always zero.}
931 The byte following the last string
932 character is always zero.}
938 The byte following the last string
939 character is always zero.}
945 The byte following the last string
946 character is always zero.}
950 {Find first file matching a filemask. In contradiction to DOS, a search
951 handle is returned which should be closed with FindClose when done.
952 FileMask = Filemask to search.
953 Handle = Search handle will be returned here, fill with -1 before
954 call.
955 Attrib = File attributes to search for.
956 AFileStatus = Return buffer.
957 FileStatusLen = Size of return buffer.
958 Count = Fill with maximum number of files to search for, the
959 actual number of matching files found is returned here.
960 InfoLevel = One of the ilXXXX constants. Consult IBM documentation
961 for exact meaning. For normal use: Use ilStandard and
962 use PFileFindBuf3 for AFileStatus.}
971 {Find next matching file.}
975 {Close a search handle. Cannot fail if handle does exist.}
978 {Get info about a file.
980 Handle = Handle of file.
981 InfoLevel = One of the ilXXXX constants. Consult IBM documentation
982 for exect meaning. For normal use: Use ilStandard and
983 PFileFindBuf3 for AFileStatus.
984 AFileStatus = An info return buffer.
985 FileStatusLen = Size of info buffer.}
989 {Set info about a file. File must be opened with write permissions. See
990 above fo the parameters.}
994 {Return info about a file. In contradiction to the above functions, the
995 file does not have to be open.}
1001 {Set information about a file.}
1006 {Get info about the names and lengths of the EA's for a file or directory.
1008 RefType = 0 = AFile is a pointer to a file-handle.
1009 1 = AFile is a pointer to an ASCIIZ string.
1010 AFile = Pointer file's name or handle.
1011 Entry = Number of EA to query inof about. (1 = first EA).
1012 Buf = Buffer where requested info is returned. For InfoLevel
1013 1, the buffer is a TfEA2 datastructure.
1014 BufLen = Size of buf in bytes.
1015 Count = Number of EA's to return info for. Number of EA's that
1016 actually fitted in buf is returned here.
1017 InfoLevel = Level of information to return. Only level 1 is
1018 currently allowed.}
1029 {Get an environment variable.
1030 Name = Name of environment variable to get.
1031 Value = Receives pointer to environment string.}
1033 {There is, of course a string variant.}
1037 in the directory list.)}
1039 directory list.}
1041 list, but an environment variable
1042 containing one.}
1045 {Search for a file in a given number of directories.
1046 Flags = A combination of the dsXXXX constants.
1047 DirList = Directory list or environment variable containing list
1048 to search in.
1049 FileName = Filename to search for. May contain wildcards.
1050 FullName = Receives filename found, including path.
1051 FullLen = Length of your fullname buffer.}
1057 {****************************************************************************
1059 File system related routines.
1061 ****************************************************************************}
1067 Sectors_Per_Cluster,
1068 Total_Clusters,
1072 see file searching realted
1073 routines.}
1077 as ASCIIZ, because the byte
1078 following the last character of
1079 the string is always zero.}
1090 {Handle of named pipe opened by spooler.}
1092 {Name of spooler object. Can also be used
1093 as ASCIIZ, because the bute following
1094 the last character is always zero.}
1117 {IBM DOCS: "DosFSAttach attaches or detaches a drive to or from a remote file
1118 system driver (FSD), or a pseudocharacter device name to or from a local or
1119 remote FSD."
1121 DevName = When flag is 0 or 1, the name of a drive or a pseudo-
1122 character device. When using a drivename use the drive-
1123 letter followed by a colon.
1124 When flag is 2 or 3, the name of a spooled device.
1125 FileSystem = Name of the driver that should be attached or detached
1126 to DevName. Use nil when flag is 2 or 3.
1127 Data = Should contain a number of ASCIIZ strings that will
1128 be passed to the filesystem driver when flag is 0 or 1.
1129 Should contain de pipehandle and spoolname when flag is
1130 2. Should be nil when flag is 3.
1131 DataLen = Number of bytes in data parameter.
1132 Flag = One of the dsXXXX constants. See above}
1138 {IBMDOCS: "DosQueryFSAttach obtains information about an attached file system
1139 (local or remote), or about a character device or pseudocharacter device
1140 attached to the file system."
1142 DevName = Name info drive or pseudo character device to query
1143 info about. Ignored for InfoLevels 2 and 3.
1144 Ordinal = Index into list of character/pseudo-character
1145 devices. Starts at 1. Ignored for infolevel 1.
1146 InfoLevel = 1 = Return information about a drive or device named
1147 by DevName.
1148 2 = Return information about a (pseudo) charachter
1149 device numbered by Ordinal.
1150 3 = Return information about a drive numbered by
1151 Ordinal.
1152 Buffer = Will be filled with infomation.
1153 BufLen = Size of your buffer in bytes. Number of bytes filled
1154 in your buffer is returned here.}
1166 {IBMDOCS: "DosFSCtl provides an extended standard interface between an
1167 application and a file-system driver (FSD).
1169 Consult IBM documentation about this function..}
1179 {Get information about a drive.
1180 InfoLevels:
1181 1 Get total/free space etc.
1182 2 Get volumelabel.}
1186 {Set information about a drive.}
1190 {Check if verify mode is enabled.}
1193 {Turn the verify mode on or off.}
1196 {Change the number of filehandles our program can open. (Default=50). It
1197 won't hurt if there are files open when you are calling this.}
1200 {Ask for more filehandles (or dump filehandles). It won't hurt if there are
1201 files open when you are calling this.
1202 ReqCount = Number of filehandles to ask for. (Negative to dump them.)
1203 CurMaxFH = Receives the total number of filehandles your program has
1204 access to.}
1208 file-system lock."}
1210 make system quiescent."}
1212 {Prepare the system for shutdown.}
1216 {Usefull constants fo DosQuerySysInfo.}
1228 10 for OS/2 1.0 and 1.1,
1229 20 for OS/2 2.0 .. OS/2 4.0.}
1231 OS/2 2.0: 00, 2.1: 10, 2.11: 11,
1232 3.0: 30, 4.0: 40.}
1234 OS/2 versions return 0.}
1237 1 January 1970 0:00:00, low dword.}
1239 1 January 1970 0:00:00, high dword.}
1241 in system.}
1243 in system.}
1245 memory.}
1247 process can request for its
1248 private use.}
1250 process can request for shared
1251 purposes.}
1253 millisecond.}
1255 pathname.}
1257 ground session. The presentation
1258 manager has ID 1.}
1260 current foreground process.}
1262 {Get one or more system parameters.
1263 First = First variable to get.
1264 Last = Last variable to get.
1265 Buf = Receives variables.
1266 BufSize - Size of the buffer/}
1270 {Return information about a partitionable disk.}
1274 {****************************************************************************
1276 Memory allocation related routines.
1278 ****************************************************************************}
1284 uncommitted memory and make the first
1285 page guarded. Once it is accessed it
1286 will be made committed, and the next
1287 uncommitted page will be made guarded.}
1291 which map the memory. (Makes 16<>32 bit
1292 pointer conversion possible.}
1302 address yourself.}
1304 allocating it. Ignore mfSub_Init.}
1308 {Get some memory.
1309 P = Pointer to memory will be returned here.
1310 Size = Number of bytes to get. The size is rounded up to a multiple
1311 of 4096. This is probably not the case on non-intel 386
1312 versions of OS/2.
1313 Flags = One or more of the mfXXXX constants.}
1316 {Free a memory block.}
1319 {Set settings for a block of memory.
1320 P = Pointer to the memory. Doesn't need to be the start of the
1321 memory block allocated with DosAllocMem, but must be a multiple
1322 of 4096.
1323 Size = Number of bytes to change settings for. Is rounded up to a
1324 multile of 4096.
1325 Flags = New flags for the memory.}
1328 {Give another process access to a shared memory block.
1330 P = Pointer to the shared memory object.
1331 PID = Process of destination process.
1332 Flag = Permissions the the destination process gets.}
1335 {Get access to a shared memory object.
1337 P = Pointer to shared memory object.
1338 Flag = Permissions to ask.}
1341 {Get access to a shared memory object that has a name.
1343 P = Pointer to shared memory object.
1344 Name = Name of the memory object. (Starting with '\SHAREMEM\'.
1345 Flag = Permissions to ask.}
1351 {Allocate memory so that it can later be shared with another program.
1352 P = Reveives pointer to memory.
1353 Name = Optional: name to give memory. Must start with '\SHAREMEM\'.
1354 Use nil for the PChar or '' for the string variant for no name.
1355 Size = Number of bytes to allocate.}
1361 {Get the size and flags of a block of memory.
1363 P = Pointer to the block of memory.
1364 Size = Receives block size.
1365 Flag = Receives the flags.}
1368 {Allocate a block of memory in a heap.
1369 Base = Pointer to the start of the heap.
1370 P = Receives pointer to the memory bock.
1371 Size = Number of bytes to allocate.}
1375 {Free a block of memory in a heap.
1376 Base = Pointer to the start of the heap.
1377 P = Pointer to memory block to free.
1378 Size = Number of bytes to free.}
1381 {Turn a block of memory into a heap.
1383 Base = Pointer to memory block to turn into a heap.
1384 Flag = One or more of the mfSub_XXXX flags.
1385 Size = Size of the requested heap.}
1388 {Destroy a heap. (Memory remains allocated).
1390 Base = Pointer to the heap to destroy.}
1393 {****************************************************************************
1395 Semaphore related routines
1397 ****************************************************************************}
1401 is cleared.}
1403 are cleared.}
1414 {Create an event semaphore.
1415 Name = Optional: Name of semaphore to create. Must start with '\SEM32\.
1416 Use nil for PChar or '' for string variant for noname. A
1417 unnamed semaphore is not shared unless the sm_Shared flag is
1418 set.
1419 Handle = Receives handle of semaphore.
1420 Attr = One or more of the smXXXX constants.
1421 State = Initial state: 0 = Reset (false), 1 = Posted (true).}
1427 {Open a semaphore created by another process or thread.
1429 Name = Name of semaphore.
1430 Handle = Receives handle of semaphore.}
1434 {Close an event semaphore.
1435 Handle = Handle of a semaphore to close.}
1438 {Reset an event semaphore: *** probeer *** operation.
1439 Handle = Handle of semaphore.
1440 PostCount = Number of times DosPostEventSem has been called since last
1441 reset.
1443 Note: Returns errorcode 300 if semaphore is already reset.}
1446 {Post an event semaphore: *** verhoog *** operation.
1447 Handle = Handle of semaphore.
1449 Note: Returns errorcode 299 if semaphore is already posted.}
1452 {Wait until an event semaphore is posted (wait until *** verhoog *** operation).
1453 Handle = Handle of semaphore.
1454 Timeout = Return with errorcode if timeout milliseconds have past and the
1455 semaphore is still reset. To return immediately use 0,
1456 to wait forever use -1.}
1459 {Check if an event semaphore is posted (if a *** verhoog *** operation has been done).
1460 Handle = Handle of semaphore.
1461 Posted = Receives number of times DosPostEventSem was called since
1462 the last reset.}
1465 {Create a Mutual Exclusion semaphore (mutex).
1466 Name = Optional: Name to give to semaphore. Must start with '\SEM32\'.
1467 Use nil for PChar or '' for string variant to use no name.
1468 If a name if used the semaphore is shared.
1469 Handle = Receives handle of semaphore.
1470 Attr = One or more of the smXXXX constants.
1471 State = Initial state: (0=Unowned, 1=Owned.)}
1477 {Open a shared mutex semaphore.
1478 Name = Name of semaphore to open, always starts with '\SEM32\'.
1479 Handle = Receives handle to semaphore.}
1483 {Close a mutex semaphore.
1484 handle = Handle of semaphore to close.}
1487 {Request ownership of a mutex semaphore. If the semaphore is already owned the
1488 process is halted until the semaphore is released.
1489 Handle = Handle of semaphore.
1490 Timeout = Return with errorcode if the semaphore is still owned after
1491 timeout milliseconds.}
1494 {Release the ownership of a mutex semaphore.
1495 Handle = Handle of semaphore to release.}
1498 {Query the PID and TIB of the owner of a mutex semaphore.
1499 Handle = Handle of semaphore.
1500 PID = Receives process ID of owner.
1501 TID = Receives thread ID of owner.
1502 Count = Number of threads (within and outside current process) waiting
1503 for ownership of semaphore.}
1507 {Create a Multiple Wait (MuxWait) semaphore.
1508 Name = Optional: Name to give semaphore. Must start with '\SEM32\'.
1509 Use nil for PChar or '' for string variant to use no name.
1510 If a name if used the semaphore is shared.
1511 Handle = Receives handle of semaphore.
1512 CSemRec = Number of semaphores to link muxwait semaphore with.
1513 SemArray = Array of semaphore records to link with muxwait semaphore.
1514 Attr = One or more of the smXXXX constants.}
1521 {Open a MuxWait semaphore.
1522 Name = Name of semaphore to open.
1523 Handle = Receives handle of semaphore.}
1527 {Close a MuxWait semaphore.}
1530 {Wait for the MuxWait semaphore to be cleared.
1531 Handle = Handle of semaphore.
1532 Timeout = Timeout. See above.
1533 User = Receives user value of the semaphore that caused the muxwait
1534 semaphore to be cleared.}
1538 {Add a semaphore to the MuxWait semaphore.
1540 Handle = Handle of semaphore.
1541 SemRec = The semaphore to add.}
1544 {Remove a semaphore from the MuxWait semaphore.
1545 Handle = Handle of muxwait semaphore.
1546 Sem = Handle of semaphore to remove.}
1549 {Query the semaphores from a MuxWait semaphore.
1550 Handle = Handle of semaphore.
1551 CSemRec = Input: Size of our array. Output: Number of items in array.
1552 SemRecs = Array where TSemRecords are stored.
1553 Attr = Flags used by creation of semaphore.}
1557 {****************************************************************************
1559 Timing related routines.
1561 ****************************************************************************}
1565 Hour,
1566 Minute,
1567 Second,
1568 Sec100,
1569 Day,
1578 {Get the date and time.}
1581 {Set the date and time.}
1584 {Start a one shot timer.
1585 MSec = Number of miliseconds the timer will run.
1586 HSem = Handle of event semaphore that is posted when time has expired.
1587 TimHandle = Receives timer handle.}
1591 {Start a cyclic timer.
1592 MSec = Number of miliseconds the timer will run.
1593 HSem = Handle of event semaphore that is posted when time has expired.
1594 TimHandle = Receives timer handle.}
1598 {Stop a timer and destroy its handle. There is no need to check for an
1599 error code if you know your timer handle is correct.}
1602 {Get the frequency of the high resolution timer.}
1605 {Get the current value of the high resolution timer.}
1608 {****************************************************************************
1610 DLL specific routines.
1612 ****************************************************************************}
1614 {Load a DLL in memory if it is not yet loaded.
1615 ObjName = When the DLL cannot be found, or one of the DLL's it needs
1616 cannot be found, the name of the DLL will be put here.
1617 ObjLen = Size of the ObjName result buffer.
1618 DLLName = Name of DLL to load. Do not give an extension or a path,
1619 just the name. OS/2 will automatically search through the
1620 LIBPATH for the DLL.
1621 Handle = Receives DLL handle.}
1627 {Let OS/2 know that we do not need a DLL anymore. If we were the only process
1628 using the DLL, it is unloaded.}
1631 {Get the address of a procedure.
1632 Handle = DLL handle,
1633 Ordinal = Procedure to get address for. 0=Use its name.
1634 ProcName = Name of the procedure to query address for. Must be nil
1635 for PChar or '' for string variant if Ordinal is nonzero.
1636 Address = Receives address of procedure.}
1642 {Get the handle of a loaded DLL or a loaded executable.
1643 DLLName = Name of DLL.
1644 Handle = Receives DLL handle if present.}
1648 {Get the pathname of a loaded DLL or a loaded executable.
1650 Handle = Handle of DLL.
1651 NameLen = Maximum length of char array.
1652 Name = PChar (or string) where name is returned.}
1654 {function DosQueryModuleName(Handle:longint;var Name:OpenString):longint;}
1659 {Return if a procedure is either 16 or 32 bit.
1660 Handle = Handle of DLL.
1661 Ordinal = DLL index number. 0 means use Name.
1662 Name = Must be nil for PChar or '' for string variant if Ordinal
1663 is zero. Otherwise it contains the procedure name.
1664 ProcType = One of the ptXXXX constants.}
1670 {****************************************************************************
1672 Resource related routines.
1674 ****************************************************************************}
1676 {Possible resource types:}
1700 {Get the address of a resource object.
1701 Handle = Handle of DLL (or executable) to get resource from.
1702 ResType = One of the rtXXXX constants.
1703 ResName = Number associated to resource object by resource compiler.}
1707 {Remove a resource object from memory.
1708 P = Pointer to resource.}
1711 {Get the size of a resource object.
1712 Handle = Handle to DLL (or executable).
1713 IDT = One of the rtXXXX constants.
1714 IDN = Number associated to resource object by resource compiler.
1715 Size = Receives resource size.}
1720 {****************************************************************************
1722 Country and codepage specific routines.
1724 ****************************************************************************}
1750 Bit 0: 0=indicator before value
1751 1=indicator after value
1752 Bit 1: 1=insert space after
1753 indicator.
1754 Bit 2: 1=Ignore bit 0&1, replace
1755 decimal separator with
1756 indicator.}
1758 currency indication.}
1768 {Thousands separator + #0}
1771 {Date separator + #0}
1773 {Time separator + #0}
1775 Bit 0: 0=indicator before value
1776 1=indicator after value
1777 Bit 1: 1=insert space after
1778 indicator.
1779 Bit 2: 1=Ignore bit 0&1, replace
1780 decimal separator with
1781 indicator}
1783 currency indication}
1787 {Data list separator + #0}
1802 {Get country specific information.
1803 Size = Size of our datastructure. (SizeOf(TCountryInfo))
1804 ActualSize = Size of OS/2's datastructure. ActualSize bytes of
1805 our TCountryInfo have been filled.}
1809 {Get info about a code page with a DBCS character set.}
1813 {Convert a string to uppercase.
1814 Size = Length of string.
1815 Country = Country and codepage for converting.
1816 AString = String to convert.}
1822 {Get a collate table (a table for comparing which character is smaller and
1823 which one is greater).
1824 Size = Length of the databuffer the program has.
1825 Country = Country to query table for. (0,0) is default country and
1826 codepage.
1827 Buf = Buffer to return table in. It's filled with the sort
1828 weights of the ascii code. For example the 128th byte
1829 contains the weight for ascii code 128.
1830 TableLen = Length of collating table.}
1834 {Get the current codepage. The PWordArray is filled with the current code
1835 page followed by alternative codepages.}
1839 {Change the codepage, but only for the current process.}
1842 {****************************************************************************
1844 Exception handling related functions
1846 ****************************************************************************}
1849 {Exception constants.}
1916 Exception_Num,
1928 Reg_GS,
1929 Reg_FS,
1930 Reg_ES,
1931 Reg_DS,
1932 Reg_EDI,
1933 Reg_ESI,
1934 Reg_EAX,
1935 Reg_EBX,
1936 Reg_ECX,
1937 Reg_EDX,
1938 Reg_EBP,
1939 Reg_EIP,
1940 Reg_CS,
1941 Flags,
1942 Reg_ESP,
1946 {Warning!!! Never use Presentation Manager functions from exception
1947 handlers!}
1949 {Install an exceptionhandler. The Prev_Structure field of RegRec should be
1950 nil, it will be filled in be OS/2. RegRec must be on the stack: It must be a
1951 local variable.}
1955 {Uninstall an exception handler.}
1959 {Trigger an exception.}
1962 {Send a signal to a process.}
1965 {Call and remove a set of exceptionhandlers}
1970 {Full screen applications can get Ctrl-C and Ctrl-Break focus. For all
1971 processes sharing one screen, only one can have Ctrl-C focus.
1972 Enable = 0 = Release focus, 1 = Get focus.
1973 Times = Number of times focus has been get minus number of times it
1974 has been released.}
1978 {Tell OS/2 that if an exception occurs, it must queue it up, until a
1979 DosExitMustComplete follows. Urgent exceptions still occur. The only
1980 possible error is that the nesting becomes too high, so error checking
1981 is only needed in seldom cases.
1982 Nesting = Number of DosEnterMustComplete calls minus number of
1983 DosExitMustComplete calls.}
1986 {Tell OS/2 that it can send exceptions again. See above}
1989 {Tell we want further signal exceptions.
1990 SignalNum = Signal nummer to acknowlegde.}
1994 {****************************************************************************
1996 Queue related routines.
1998 ****************************************************************************}
2006 {Useful constants for priority parameters.}
2013 {Close a queue. If the calling process has created the queue, it is
2014 destroyed. If you can guarantee the handle is correct, there is no need
2015 to check for error codes.}
2018 {Create a queue. The process that creates a queue, owns that queue, and is
2019 the only one who can read from that queue. Other processes can only write
2020 to that queue. The queuename must have the format '\QUEUES\name.ext' .
2022 Handle = Receives queue handle.
2023 Priority = 0 = Use FIFO system.
2024 1 = Use LIFO system.
2025 2 = Use priority system.
2026 Add 4 to convert addresses of data inserted by 16-bit
2027 processes to 32 bit pointers.
2028 Name = Name of queue to create.}
2034 {Open an existing queue. You cannot read from the queue unless you are the
2035 process that created it. The name must have the format '\QUEUES\name.ext'}
2041 {Read a record from a queue, but do not remove it from the queue.
2042 Handle = Handle of queue to read from.
2043 ReqBuffer = Receives information about read data.
2044 DataLen = Receives length of data read.
2045 DataPtr = Receives the address of the data.
2046 Element = 0 = Return first element in queue.
2047 1 = Return next element in queue. Can be repeated.
2048 Current element number is returned here, for use
2049 with DosReadQueue.
2050 Wait = 0 = Wait until there is a queue element available.
2051 1 = Return with an error when queue is empty.
2052 Priority = Receives priority of queue record (1..15).
2053 ASem = Use NIL if Wait=0, give a handle of a semaphore when
2054 Wait=1. The semaphore will be cleared when there is an
2055 element inserted it the queue.
2056 !! event queue}
2062 {Empty a queue. You must be the process the created the queue.}
2065 {Return the number of elements in the queue.}
2068 {Read a record from a queue, but do not remove it from the queue.
2069 Handle = Handle of queue to read from.
2070 ReqBuffer = Receives information about read data.
2071 DataLen = Receives length of data read.
2072 DataPtr = Receives the address of the data.
2073 Element = 0 = Return first element in queue.
2074 Otherwise: Return the element numbered with this.
2075 Wait = 0 = Wait until there is a queue element available.
2076 1 = Return with an error when queue is empty.
2077 Priority = Receives priority of queue record (1..15).
2078 ASem = Use NIL if Wait=0, give a handle of a semaphore when
2079 Wait=1. The semaphore will be cleared when there is an
2080 element inserted it the queue.
2081 !! event queue}
2087 {Write a data record to a queue.
2088 Handle = Handle of queue to write to.
2089 Request = Value that will be inserted in the RequestData field when
2090 element is read from queue.
2091 DataLen = Size of data to write.
2092 DataBuf = Data to write.
2093 Priority = Priority of data in buffer. Only relevant when queue is
2094 created with priority support.}
2099 do not give this switch.}
2101 do not give this switch.}
2103 {****************************************************************************
2105 Error handling related routines.
2107 ****************************************************************************}
2109 {Disable the end user notification of hardware errors and exceptions. Users
2110 can overide this in config.sys. By default, notification is enabled.
2111 There is no need for error checking if you can guarantee the parameter is
2112 correct.}
2115 {Get information about an error code.
2116 It cannot fail, so it is written as procedure.
2118 Code = Error code to get info about.
2119 _Class = Receives the error class.
2120 Action = Receives the recommended action you should take.
2121 Locus = Receives what could have caused the error.}
2125 {****************************************************************************
2127 Message file specific routines.
2129 ****************************************************************************}
2135 {Get a message from a messagefile.
2136 Table = Table of strings to insert.
2137 TableSize = Number of strings in table.
2138 Buf = Address of buffer to store message in.
2139 BufSize = Size of buffer to store message in.
2140 MsgNumber = Number of message to get.
2141 FileName = Name of file to get message from.
2142 MsgSize = The size of the message returned.}
2146 {And a variant using strings and open arrays.
2147 function DosGetMessage(const Table:array of PString;var Buf:string;
2148 BufSize,MsgNumber:longint;const FileName:PChar):longint;}
2150 {And a variant using strings, but with a PChar buffer, because of long
2151 messages, and open arrays.
2152 function DosGetMessage(const Table:array of PString;Buf:PChar;
2153 BufSize,MsgNumber:longint;const FileName:string;
2154 MsgSize:longint):longint;}
2156 {Insert textstrings into a message. The message must be loaded before with
2157 DosGetMessage. This function is used when the insert strings are not yet
2158 known when the message was loaded.
2159 Table = Table of strings to insert.
2160 TableSize = Number of struings to insert.
2161 Message = Message to insert strings into.
2162 SrcMessageSize = Size of message to insert strings into.
2163 Buf = Receives adjusted message.
2164 BufSize = Size of your buffer.
2165 DstMessageSize = Receives size of adjusted message.}
2170 {And a variant using strings and open arrays.
2171 function DosInsertMessage(Table:array of PString;
2172 const Message:string;
2173 var Buf:openstring):longint;}
2175 {And a variant using strings, but with a PChar buffer, because of long
2176 messages, and open arrays.
2177 function DosInsertMessage(Table:array of PString;
2178 Message:PChar;SrcMessageSize:longint;
2179 Buf:PChar;BufSize:longint;
2180 var DstMessageSize:longint):longint;}
2182 {Write a message to a file.
2183 Handle = Handle of file.
2184 Size = Size of message.
2185 Buf = Buffer where message is located.}
2189 {Get info about which codepages and languages a messagefile supports.
2190 Buf = Receives information.
2191 BufSize = Size of buffer.
2192 FileName = Filename of message file.
2193 InfoSize = Receives size in bytes of the returned info.}
2199 {****************************************************************************
2201 Session specific routines.
2203 ****************************************************************************}
2208 selected: Don't change/selectable/
2209 not selectable (0/1/2).}
2211 to the foreground when it is
2212 selected: Don't change/child to
2213 foreground when parent selected/
2214 parent to foreground when parent
2215 selected.}
2220 {Note: to omit some fields, use a length smaller than
2221 SizeOf(TStartData).}
2226 (0/1/2).}
2233 inherit environment from parent
2234 (0/1).}
2236 manager/full screen Dos/windowed Dos
2237 (0/1/2/3/4/5/6/7).}
2241 of windowed sessions.}
2246 name will be returned here.}
2252 {Start a new session.
2253 AStartData = A startdata record.
2254 SesID = Receives session ID of session created.
2255 PID = Receives process ID of process created.}
2259 {Set the status of a child session.
2260 SesID = ID of session.
2261 AStatus = Status to set.}
2264 {Bring a child session to the foreground.
2265 SesID = ID of session.}
2268 {Terminate (a) child session(s).
2269 Scope = 0 = Terminate specified session.
2270 1 = Terminate all child sessions.
2271 SesID = ID of session to terminate (ignored when terminating
2272 all).}
2275 {****************************************************************************
2277 Named/unnamed pipe specific routines.
2279 ****************************************************************************}
2292 you need a PChar to the name; the string is
2293 always followed by a zero.}
2303 {Create an unnamed pipe.
2304 ReadHandle = Receives handle for reading from pipe.
2305 WriteHandle = Receives handle to write to pipe.
2306 Size = Size of pipe to create. 0 means default size. If data is
2307 written into a pipe that is smaller than the sent data, the
2308 writing thread is suspended until the data has been read
2309 from the pipe, thus making room for more data to send.}
2318 child processes.}
2320 remote pipes.}
2321 {np_XXXX constants for pipemode.}
2324 stream instead of as a byte
2325 stream.}
2328 stream instead of as a byte
2329 stream.}
2333 wait is no data can be read or
2334 written; they return with an
2335 error message.}
2337 {Create a named pipe.
2338 Name = Name of pipe to create.
2339 Handle = Receives handle to pipe.
2340 OpenMode = A combination of np_XXXX constants for openmode.
2341 PipeMode = A combination of np_XXXX constants for pipemode,
2342 plus a number within [1..254] which determines the number
2343 of instances that can be created to the pipe, or,
2344 np_Unlimited_Instance for an unlimited number of
2345 instances.
2346 OutBufSize = The number of bytes to allocate for the output buffer.
2347 InBufSize = The number of bytes to allocate for the input buffer.
2348 MSec = The maximum time to wait for an available instance.}
2354 {Makes a procedure call to a duplex message pipe.
2355 Name = Name of pipe.
2356 Input = Buffer that contains data to be written to the pipe.
2357 InputSize = Size of the inputdata.
2358 Output = Buffer that contains data to be read from the pipe.
2359 OutputSize = Size of the outputbuffer.
2360 ReadBytes = Receives number of bytes actually read.
2361 MSec = The maximum time to wait for an available instance.}
2369 {Prepare a named pipe for a client process.
2370 Handle = Handle that was returned when pipe was created.}
2373 {Acknowledges that a client process has closed a named pipe.
2374 Handle = Handle that was returned when pipe was created.}
2382 {Preview data in a pipe: Read data without removing it.
2383 Handle = Handle to named pipe.
2384 Buffer = Buffer to receive data in.
2385 BufSize = Size of the buffer.
2386 ReadBytes = Receives number of bytes put in buffer.
2387 Avail = Receives size of available data.
2388 State = One of the np_xxxx constants for states.}
2393 {Get information about a named pipe handle.
2394 Handle = Handle to pipe.
2395 State = A combination of np_XXXX constants for (!!!) pipemode.}
2398 {Return information about a named pipe.
2399 Handle = Handle to pipe.
2400 InfoLevel = Level of information wanted (1 or 2 allowed).
2401 Buffer = TPipeInfo datastructure for level 1.
2402 Unique 4 byte identifier of the client for level 2. Only
2403 used for LAN based pipe servers.}
2407 {Return information of local named pipes that are attached to a semaphore.
2408 SemHandle = Handle to a shared event or MuxWait semaphore that is
2409 attached to a named pipe.
2410 SemArray = Array in which for each pipe attached to the semaphore.
2411 BufSize = Size of SemArray, in bytes.}
2415 {Resets the blocking mode and state of a named pipe.
2416 Handle = Handle to named pipe.
2417 State = One of the np_XXXX constants for pipemode.}
2420 {Attach a shared event semaphore to a local named pipe.
2421 PipeHandle = Handle to named pipe.
2422 SemHandle = Handle to semaphore.
2423 Key = A key that must be different for each named pipe that is
2424 attached to the semaphore.}
2427 {Write to a duplex named pipe; then read from it.
2428 Handle = Handle to named pipe.
2429 OutBuf = The data to write.
2430 OutSize = Size of the data to write.
2431 InBuf = Receives the read data.
2432 InSize = Size of the input buffer.
2433 ReadBytes = Number of bytes read from the pipe.}
2438 {Waits until an instance of a named pipe becomes available.
2439 Name = Name of named pipe (always starts with '\PIPE\').
2440 MSec = Return with an error code if this time has elapsed.}
2444 {****************************************************************************
2446 Virtual device driver related routines.
2448 ****************************************************************************}
2450 {Open a virtual device driver.
2451 Name = Name of virtual device driver.
2452 Handle = Receives handle to virtual device driver.}
2455 {Request to talk with a virtual device driver.
2456 Handle = Handle to virtual device driver.
2457 SGroup = Handle to the screen group of a DOS session (may be nil).
2458 Cmd = A number which indicates the service you call.
2459 InSize = Size of the data to send to the VDD.
2460 InBuffer = Buffer which contains the data to send to the VDD.
2461 OutSize = Size of the buffer in which the VDD will return data.
2462 OutBuffer = Receives the data that the VDD returns.}
2467 {Close a virtual device driver.}
2470 {****************************************************************************
2472 16 <=> 32 bit support related routines
2474 ****************************************************************************}
2476 {Convert a 16 bit far pointer to a 32 bit near pointer.
2477 This procedure needs to be called from assembler.
2478 This procedure works by mapping an area in your flat address space onto the
2479 same physical memory address as the selector of the 16 bit far pointer.
2481 In:
2482 eax Pointer to convert in selector:offset format.
2484 Out:
2485 eax Returned 32 bit near pointer.}
2488 type
2495 {Convert a 32 bit near pointer to a 16 bit far pointer.
2496 This procedure needs to be called from assembler.
2497 This procedure works by allocating a selector at the same physical address
2498 as the pointer you pass points to.
2500 In:
2501 eax Pointer to convert in 32 bit near format.
2503 Out:
2504 eax Returned 16 bit far pointer in selector:offset format.}
2507 {typecast result to TFarPtr}
2510 {***************************************************************************}
2511 implementation
2512 {***************************************************************************}
2514 {$L code2.oo2}
2515 {$L code3.oo2}
2551 {procedure DosGetInfoBlocks(var ATIB:PThreadInfoBlock;
2552 var APIB:PProcessInfoBlock); cdecl;}
2587 begin
2635 begin
2644 begin
2654 begin
2665 begin
2676 begin
2704 begin
2710 begin
2749 begin
2764 begin
2778 begin
2792 begin
2805 begin
2816 begin
2824 begin
2833 begin
2846 begin
2867 begin
2882 begin
2907 begin
2942 begin
2945 FileStatusLen);
2963 begin
2965 InfoLevel);
2974 begin
2977 InfoLevel);
2989 begin
3005 begin
3022 begin
3038 begin
3057 begin
3133 begin
3148 begin
3150 begin
3153 end
3154 else
3189 begin
3191 begin
3194 end
3195 else
3207 begin
3242 begin
3244 begin
3247 end
3248 else
3260 begin
3293 begin
3295 begin
3299 end
3300 else
3302 Attr);
3313 begin
3380 begin
3400 begin
3402 begin
3405 end
3406 else
3418 begin
3427 {function DosQueryModuleName(Handle:longint;var Name:openstring):longint;
3429 var T1:array[0..255] of char;
3431 begin
3432 DosQueryModuleName:=DosQueryModuleName(Handle,High(Name),@T1);
3433 Name:=StrPas(@T1);
3434 end;}
3446 begin
3448 begin
3451 end
3452 else
3489 begin
3564 begin
3579 begin
3632 (*function DosGetMessage(const Table:array of PString;var Buf:openstring;
3633 MsgNumber:longint;const FileName:string):longint;
3635 {Hmm. This takes too much stackspace. Let's use the
3636 heap instead.}
3638 type TTableBuffer=record
3639 IT:TinsertTable;
3640 Strings:TByteArray;
3641 end;
3642 PTableBuffer=^TTableBuffer;
3644 var Buffer:PTableBuffer;
3645 I,S:word;
3646 BufPtr:pointer;
3647 T1,T2:array[0..255] of char;
3649 begin
3650 {Check if there are more than nine items in the table.}
3651 if High(Table)>8 then
3652 DosGetMessage:=87
3653 else
3654 begin
3655 {Step 1: Calculate the space we need on the heap.}
3656 S:=SizeOf(TInsertTable);
3657 for I:=Low(Table) to High(Table) do
3658 S:=S+Length(Table[I])+1;
3660 {Step 2: Allocate the buffer.}
3661 GetMem(Buffer,S);
3663 {Step 3: Fill the buffer.}
3664 BufPtr:=@(S^.Strings);
3665 for I:=Low(Table) to High(Table) do
3666 begin
3667 S^.IT[I+1]:=bufptr;
3668 StrPCopy(BufPtr,Table[I]);
3669 Inc(longint(BufPtr),Length(Table[I])+1);
3670 end;
3672 {Step 4: Convert the filename.}
3673 StrPCopy(@T2,FileName);
3675 {Step 5: Get the message.}
3676 DosGetMessage:=DosGetMessage(@(S^.IT),High(Table)+1,@T1,
3677 High(Buf),MsgNumber,@T2,I);
3679 {Step 6: Convert the returned message.}
3680 Buf[0]:=Char(I);
3681 Move(T1,Buf[1],I);
3683 {Step 7: Free the memory.}
3684 FreeMem(Buffer,S);
3685 end;
3686 end;*)
3688 {function DosGetMessage(const Table:array of PString;Buf:PChar;
3689 BufSize,MsgNumber:longint;const FileName:string;
3690 MsgSize:longint):longint;}
3699 {function DosInsertMessage(Table:array of PString;
3700 const Message:string;
3701 var Buf:openstring):longint;
3703 function DosInsertMessage(Table:array of PString;
3704 Message:PChar;SrcMessageSize:longint;
3705 Buf:PChar;BufSize:longint;
3706 var DstMessageSize:longint):longint;}
3714 begin
3733 begin
3770 begin
3788 begin
3844 begin
3871 {$ASMMODE INTEL}
3873 asm
3875 call DosSelToFlat
3876 end;
3879 asm
3881 call DosFlatToSel
3882 end;
3884 (* Todo:
3886 function DosRawReadNPipe ...; cdecl;
3888 external 'DOSCALLS' index 246;
3890 function DosRawWriteNPipe ...; cdecl;
3892 external 'DOSCALLS' index 247;
3894 function DosSetCP ...; cdecl;
3896 external 'DOSCALLS' index 288;
3898 function DosDynamicTrace ...; cdecl;
3900 external 'DOSCALLS' index 316;
3902 function DosRegisterPerfCtrs ...; cdecl;
3904 external 'DOSCALLS' index 367;
3906 function DosQueryDOSProperty ...; cdecl;
3908 external 'DOSCALLS' index 373;
3910 function DosSetDOSProperty ...; cdecl;
3912 external 'DOSCALLS' index 374;
3914 function DosProfile ...; cdecl;
3916 external 'DOSCALLS' index 377;
3918 function DosReplaceModule ...; cdecl;
3920 external 'DOSCALLS' index 417;
3922 function DosTIB ...; cdecl;
3924 external 'DOSCALLS' index 419;
3926 function DosOpenChangeNotify ...; cdecl;
3928 external 'DOSCALLS' index 440;
3930 function DosResetChangeNotify ...; cdecl;
3932 external 'DOSCALLS' index 441;
3934 function DosCloseChangeNotify ...; cdecl;
3936 external 'DOSCALLS' index 442;
3938 function DosInitializePorthole ...; cdecl;
3940 external 'DOSCALLS' index 580;
3942 function DosQueryHeaderInfo ...; cdecl;
3944 external 'DOSCALLS' index 582;
3946 *)
3950 {
3951 $Log$
3952 Revision 1.1 2002/02/19 08:25:52 sasu
3953 Initial revision
3955 Revision 1.1.2.4 2000/12/21 21:14:59 hajny
3956 * TThreadEntry corrected (needed for FCL)
3958 Revision 1.1.2.3 2000/10/26 20:00:30 hajny
3959 * DosDevIOCtl prototype fixed, cdecl removed in DosSetFilePtr helper declaration
3961 Revision 1.1.2.2 2000/10/08 18:41:45 hajny
3962 * wrong index for DosSelToFlat, DosFlatToSel
3964 Revision 1.1.2.1 2000/09/28 19:52:23 hajny
3965 * SelToFlat correction (still not OK probably)
3967 Revision 1.1 2000/07/13 06:31:04 michael
3968 + Initial import
3970 Revision 1.13 2000/05/09 17:29:52 hajny
3971 * DosGetInfoBlocks updated again
3973 Revision 1.12 2000/04/01 10:46:07 hajny
3974 * DosGetInfoBloBlocks updated
3976 Revision 1.11 2000/01/09 20:51:03 hajny
3977 * FPK changed to FPC
3979 Revision 1.10 2000/01/07 16:41:46 daniel
3980 * copyright 2000
3982 Revision 1.9 2000/01/07 16:32:30 daniel
3983 * copyright 2000 added
3985 Revision 1.8 1999/12/26 19:30:18 hajny
3986 * cdecl modifications
3988 Revision 1.7 1999/12/18 18:32:38 hajny
3989 + Starting cdecl additions
3991 Revision 1.6 1999/08/10 14:18:40 hajny
3992 * corrected characters >127 broken by DBCS editor
3994 }