← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to rtl/netware/nwsys.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/netware/nwsys.inc
1
1
{
2
 
    $Id: nwsys.inc,v 1.9 2003/03/25 18:17:54 armin Exp $
 
2
    $Id: nwsys.inc,v 1.14 2005/02/14 17:13:30 peter Exp $
3
3
    This file is part of the Free Pascal run time library.
4
 
    Copyright (c) 1999-2000 by the Free Pascal development team
5
 
    Copyright (c) 2001 Armin Diehl
 
4
    Copyright (c) 1999-2004 by the Free Pascal development team
 
5
    Copyright (c) 2001-2004 Armin Diehl
6
6
 
7
7
    Interface to netware clib
8
8
 
15
15
 
16
16
 **********************************************************************}
17
17
 
18
 
{ 2000/08/27 armin: first version
19
 
  2001/03/08 armin: additional functions
20
 
  2001/04/14 armin: additional functions for crt-unit
21
 
}
22
18
 
23
19
CONST Clib       = 'clib';
24
 
 
 
20
      ThreadsNlm = 'threads';
25
21
 
26
22
TYPE
27
23
  dev_t         = LONGINT;
74
70
FUNCTION _GetThreadDataAreaPtr : POINTER; CDecl; EXTERNAL CLib NAME 'GetThreadDataAreaPtr';
75
71
PROCEDURE _SaveThreadDataAreaPtr (P : POINTER); CDecl; EXTERNAL CLib NAME 'SaveThreadDataAreaPtr';
76
72
PROCEDURE _exit (ExitCode : LONGINT); CDecl; EXTERNAL CLib;
77
 
 
 
73
function _SuspendThread(threadID:longint):longint; cdecl;external ThreadsNlm name 'SuspendThread';
 
74
function _GetThreadID:longint; cdecl;external ThreadsNlm name 'GetThreadID';
 
75
procedure _ThreadSwitchWithDelay; cdecl;external ThreadsNlm name 'ThreadSwitchWithDelay';
 
76
function _GetThreadName(threadID:longint; var tName):longint; cdecl;external ThreadsNlm name 'GetThreadName';
 
77
function GetNLMHandle:dword;  cdecl;external ThreadsNlm name 'GetNLMHandle';
 
78
(*
78
79
PROCEDURE ConsolePrintf (FormatStr : PCHAR; Param : LONGINT); CDecl; EXTERNAL CLib Name 'ConsolePrintf';
79
 
PROCEDURE ConsolePrintf3 (FormatStr : PCHAR; P1,P2,P3 : LONGINT); CDecl; EXTERNAL CLib Name 'ConsolePrintf';
 
80
PROCEDURE ConsolePrintf (FormatStr : PCHAR; Param : pchar); CDecl; EXTERNAL CLib Name 'ConsolePrintf';
 
81
PROCEDURE ConsolePrintf (FormatStr : PCHAR; P1,P2 : LONGINT); CDecl; EXTERNAL CLib Name 'ConsolePrintf';
 
82
PROCEDURE ConsolePrintf (FormatStr : PCHAR; P1,P2,P3 : LONGINT); CDecl; EXTERNAL CLib Name 'ConsolePrintf';
 
83
PROCEDURE ConsolePrintf (FormatStr : PCHAR; P1,P2,P3,P4 : LONGINT); CDecl; EXTERNAL CLib Name 'ConsolePrintf';
80
84
PROCEDURE ConsolePrintf (FormatStr : PCHAR); CDecl; EXTERNAL CLib Name 'ConsolePrintf';
 
85
*)
81
86
// this gives internal compiler error 1234124 ??
82
87
//PROCEDURE ConsolePrintf (FormatStr : PCHAR; Param : array of const); CDecl; EXTERNAL CLib;
83
88
 
106
111
FUNCTION _write  (FileNo : LONGINT; BufP : POINTER; Len : LONGINT) : LONGINT; CDECL; EXTERNAL CLib NAME 'write';
107
112
FUNCTION _read   (FileNo : LONGINT; BufP : POINTER; Len : LONGINT) : LONGINT; CDECL; EXTERNAL CLib NAME 'read';
108
113
FUNCTION _filelength (filedes : LONGINT) : LONGINT; CDECL; EXTERNAL CLib NAME 'filelength';
 
114
FUNCTION _lock (filedes : LONGINT; Offset, Length : Cardinal) : LONGINT; CDECL; EXTERNAL Clib NAME 'lock';
 
115
FUNCTION _unlock (filedes : LONGINT; Offset, Length : Cardinal) : LONGINT; CDECL; EXTERNAL Clib NAME 'unlock';
109
116
 
110
117
TYPE
111
118
  NWModifyStructure =
184
191
FUNCTION _malloc (size : LONGINT) : POINTER; CDECL; EXTERNAL CLib NAME 'malloc';
185
192
FUNCTION _realloc (p : POINTER; size : LONGINT) : POINTER; CDECL; EXTERNAL CLib NAME 'realloc';
186
193
PROCEDURE _free (what : POINTER); CDECL; EXTERNAL CLib NAME 'free';
187
 
FUNCTION _stackavail : LONGINT; CDECL; EXTERNAL CLib NAME 'stackavail';
 
194
FUNCTION _stackavail : CARDINAL; CDECL; EXTERNAL CLib NAME 'stackavail';
188
195
 
189
196
// Debug
190
197
PROCEDURE _EnterDebugger; CDECL; EXTERNAL Clib NAME 'EnterDebugger';
332
339
 
333
340
PROCEDURE _Signal (Sig : longint; SigFunc : pointer);  CDECL; EXTERNAL Clib NAME 'signal';
334
341
 
 
342
FUNCTION _SetCurrentNameSpace (newNameSpace : BYTE) : BYTE;  CDECL; EXTERNAL Clib NAME 'SetCurrentNameSpace';
 
343
FUNCTION _SetTargetNameSpace  (newNameSpace : BYTE) : BYTE;  CDECL; EXTERNAL Clib NAME 'SetTargetNameSpace';
 
344
 
 
345
CONST
 
346
  NW_NS_DOS     = 0;
 
347
  NW_NS_MAC     = 1;
 
348
  NW_NS_NFS     = 2;
 
349
  NW_NS_FTAM    = 3;
 
350
  NW_NS_LONG    = 4;
 
351
 
 
352
function _NWAddSearchPathAtEnd (searchPath : pchar; var number : longint) : longint; cdecl; external Clib name 'NWAddSearchPathAtEnd';
 
353
function _NWDeleteSearchPath (searchPathNumber : longint) : longint; cdecl; external Clib name 'NWDeleteSearchPath';
 
354
function _NWInsertSearchPath (searchPathNumber : longint; path : pchar) : longint; cdecl; external Clib name 'NWInsertSearchPath';
 
355
function _NWGetSearchPathElement (searchPathNumber : longint; var isDOSSearchPath : longint; searchPath : pchar) : longint; cdecl; external Clib name 'NWGetSearchPathElement';
 
356
 
 
357
 
 
358
// values for __mode used with spawnxx()
 
359
CONST
 
360
   P_WAIT                    = 0;
 
361
   P_NOWAIT                  = 1;
 
362
   P_OVERLAY                 = 2;
 
363
   P_NOWAITO                 = 4;
 
364
   P_SPAWN_IN_CURRENT_DOMAIN = 8;
 
365
 
 
366
 
 
367
//function spawnlp(mode:longint; path:Pchar; arg0:Pchar; args:array of const):longint;cdecl;external CLib name 'spawnlp';
 
368
function spawnlp(mode:longint; path:Pchar; arg0:Pchar):longint;cdecl;external Clib name 'spawnlp';
 
369
function spawnvp(mode:longint; path:Pchar; argv:PPchar):longint;cdecl;external Clib name 'spawnvp';
 
370
 
335
371
 
336
372
{
337
373
  $Log: nwsys.inc,v $
338
 
  Revision 1.9  2003/03/25 18:17:54  armin
339
 
  * support for fcl, support for linking without debug info
340
 
  * renamed winsock2 to winsock for win32 compatinility
341
 
  * new sockets unit for netware
342
 
  * changes for compiler warnings
343
 
 
344
 
  Revision 1.8  2003/02/16 17:46:11  armin
345
 
  * typo fixed
346
 
 
347
 
  Revision 1.7  2002/09/07 16:01:20  peter
348
 
    * old logs removed and tabs fixed
349
 
 
350
 
  Revision 1.6  2002/04/01 15:20:08  armin
351
 
  + unload module no longer shows: Module did not release...
352
 
  + check-function will no longer be removed when smartlink is on
353
 
 
354
 
  Revision 1.5  2002/03/30 09:09:47  armin
355
 
  + support check-function for netware
356
 
 
357
 
  Revision 1.4  2002/03/08 19:06:47  armin
358
 
        * Additional routines needed for MT
 
374
  Revision 1.14  2005/02/14 17:13:30  peter
 
375
    * truncate log
359
376
 
360
377
}
 
378