nwserv.pp 225 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902
  1. { $Id$
  2. Netware Server Imports for FreePascal, contains definition from the
  3. following header files:
  4. string.h dirent.h errno.h fcntl.h limits.h locale.h nwaudnlm.h
  5. nwbitops.h nwcntask.h nwconio.h nwconn.h nwdebug.h nwdfs.h nwdos.h
  6. nwerrno.h nwfattr.h nwfileio.h nwfileng.h nwfinfo.h nwfshook.h
  7. nwipx.h nwlib.h nwlocale.h nwmalloc.h nwncpx.h nwnspace.h nwproc.h
  8. nwsemaph.h nwserv.h nwsignal.h nwstring.h nwtoolib.h stdio.h stdlib.h
  9. unistd.h time.h utime.h nwthread.h nwmediam.h ioctl.h
  10. sys/socket.h sys/time.h sys/filio.h syys/ioctl.h sys/stat.h
  11. sys/time.h sys/timeval.h sys/uio.h sys/utsname.h
  12. Initial Version 2002/02/22 Armin ([email protected])
  13. The C-NDK and Documentation can be found here:
  14. http://developer.novell.com
  15. This program is distributed in the hope that it will be useful,but WITHOUT
  16. ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  17. FITNESS FOR A PARTICULAR PURPOSE.
  18. Do not blame Novell if there are errors in this file, instead
  19. contact me and i will se what i can do.
  20. }
  21. unit nwserv;
  22. interface
  23. {$mode objfpc}
  24. const NULL = 0;
  25. ThreadsNlm = 'threads';
  26. Lib0Nlm = 'lib0';
  27. NlmLibNlm = 'nlmlib';
  28. FIONREAD = 1; // get count of bytes to read (readable)
  29. FIONBIO = 2; // set/clear nonblocking I/O
  30. FIOGETNBIO = 3; // get nonblocking I/O status
  31. type
  32. Psize_t = ^Tsize_t;
  33. Tsize_t = dword;
  34. PPChar = ^PChar;
  35. PPPChar= ^PPChar;
  36. Tsigset_t = longint;
  37. {-time.h-----------------------------------------------------------------------}
  38. {$PACKRECORDS C}
  39. const
  40. CLOCKS_PER_SEC = 100;
  41. type
  42. Pclock_t = ^Tclock_t;
  43. Tclock_t = dword;
  44. Ptime_t = ^Ttime_t;
  45. Ttime_t = dword;
  46. { seconds after the minute--range [0, 59] }
  47. { minutes after the hour--range [0, 59] }
  48. { hours since midnight--range [0, 23] }
  49. { days of the month--range [1, 31] }
  50. { months since January--range [0, 11] }
  51. { years since 1900--range [0, 99] }
  52. { days since Sunday--range [0, 6] }
  53. { days since first of January--range [0, 365] }
  54. { Daylight Savings Time flag--set [-, 0, +]: }
  55. Ptm = ^Ttm;
  56. Ttm = record
  57. tm_sec : longint;
  58. tm_min : longint;
  59. tm_hour : longint;
  60. tm_mday : longint;
  61. tm_mon : longint;
  62. tm_year : longint;
  63. tm_wday : longint;
  64. tm_yday : longint;
  65. tm_isdst : longint;
  66. end;
  67. { ISO/ANSI C functions... }
  68. function asctime(para1:Ptm):Pchar;cdecl;external 'clib' name 'asctime';
  69. function clock:Tclock_t;cdecl;external 'clib' name 'clock';
  70. function ctime(para1:Ptime_t):Pchar;cdecl;external 'clib' name 'ctime';
  71. function difftime(para1:Ttime_t; para2:Ttime_t):double;cdecl;external 'clib' name 'difftime';
  72. function gmtime(para1:Ptime_t):Ptm;cdecl;external 'clib' name 'gmtime';
  73. function localtime(para1:Ptime_t):Ptm;cdecl;external 'clib' name 'localtime';
  74. function mktime(para1:Ptm):Ttime_t;cdecl;external 'clib' name 'mktime';
  75. function strftime(para1:Pchar; para2:Tsize_t; para3:Pchar; para4:Ptm):Tsize_t;cdecl;external 'clib' name 'strftime';
  76. function time(para1:Ptime_t):Ttime_t;cdecl;external 'clib' name 'time';
  77. { POSIX data and functions... }
  78. { For extern char tzname[2], see macro below }
  79. procedure tzset;cdecl;external 'clib' name 'tzset';
  80. function __get_CLK_TCK:Tclock_t;cdecl;external 'clib' name '__get_CLK_TCK';
  81. function __get_tzname:pPchar;cdecl;external 'clib' name '__get_tzname';
  82. { POSIX-defined additions ... }
  83. function asctime_r(para1:Ptm; para2:Pchar):Pchar;cdecl;external 'clib' name 'asctime_r';
  84. function ctime_r(para1:Ptime_t; para2:Pchar):Pchar;cdecl;external 'clib' name 'ctime_r';
  85. function gmtime_r(para1:Ptime_t; para2:Ptm):Ptm;cdecl;external 'clib' name 'gmtime_r';
  86. function localtime_r(para1:Ptime_t; para2:Ptm):Ptm;cdecl;external 'clib' name 'localtime_r';
  87. function CLK_TCK : longint;
  88. function tzname : pchar;
  89. {-utime.h----------------------------------------------------------------------}
  90. type
  91. Putimbuf = ^Tutimbuf;
  92. Tutimbuf = record
  93. actime : Ttime_t; // access time
  94. modtime : Ttime_t; // modification time
  95. end;
  96. function utime(path:Pchar; times:Putimbuf):longint;cdecl;external 'clib' name 'utime';
  97. function utime(path:Pchar; var times:Tutimbuf):longint;cdecl;external 'clib' name 'utime';
  98. {-string.h---------------------------------------------------------------------}
  99. function memchr(para1:pointer; para2:longint; para3:Tsize_t):pointer;cdecl;external 'clib' name 'memchr';
  100. function memcmp(para1:pointer; para2:pointer; para3:Tsize_t):longint;cdecl;external 'clib' name 'memcmp';
  101. function memcpy(para1:pointer; para2:pointer; para3:Tsize_t):pointer;cdecl;external 'clib' name 'memcpy';
  102. function memmove(para1:pointer; para2:pointer; para3:Tsize_t):pointer;cdecl;external 'clib' name 'memmove';
  103. function memset(para1:pointer; para2:longint; para3:Tsize_t):pointer;cdecl;external 'clib' name 'memset';
  104. function strcpy(para1:Pchar; para2:Pchar):Pchar;cdecl;external 'clib' name 'strcpy';
  105. function strcat(para1:Pchar; para2:Pchar):Pchar;cdecl;external 'clib' name 'strcat';
  106. function strchr(para1:Pchar; para2:longint):Pchar;cdecl;external 'clib' name 'strchr';
  107. function strcmp(para1:Pchar; para2:Pchar):longint;cdecl;external 'clib' name 'strcmp';
  108. function strcoll(para1:Pchar; para2:Pchar):longint;cdecl;external 'clib' name 'strcoll';
  109. function strcspn(para1:Pchar; para2:Pchar):Tsize_t;cdecl;external 'clib' name 'strcspn';
  110. function strerror(para1:longint):Pchar;cdecl;external 'clib' name 'strerror';
  111. function strlen(para1:Pchar):Tsize_t;cdecl;external 'clib' name 'strlen';
  112. function strncat(para1:Pchar; para2:Pchar; para3:Tsize_t):Pchar;cdecl;external 'clib' name 'strncat';
  113. function strncmp(para1:Pchar; para2:Pchar; para3:Tsize_t):longint;cdecl;external 'clib' name 'strncmp';
  114. function strncpy(para1:Pchar; para2:Pchar; para3:Tsize_t):Pchar;cdecl;external 'clib' name 'strncpy';
  115. function strpbrk(para1:Pchar; para2:Pchar):Pchar;cdecl;external 'clib' name 'strpbrk';
  116. function strrchr(para1:Pchar; para2:longint):Pchar;cdecl;external 'clib' name 'strrchr';
  117. function strspn(para1:Pchar; para2:Pchar):Tsize_t;cdecl;external 'clib' name 'strspn';
  118. function strstr(para1:Pchar; para2:Pchar):Pchar;cdecl;external 'clib' name 'strstr';
  119. function strtok(para1:Pchar; para2:Pchar):Pchar;cdecl;external 'clib' name 'strtok';
  120. function strxfrm(para1:Pchar; para2:Pchar; para3:Tsize_t):Tsize_t;cdecl;external 'clib' name 'strxfrm';
  121. function strtok_r(para1:Pchar; para2:Pchar; para3:PPchar):Pchar;cdecl;external 'clib' name 'strtok_r';
  122. function memicmp(para1:pointer; para2:pointer; para3:Tsize_t):longint;cdecl;external 'clib' name 'memicmp';
  123. function strcmpi(para1:Pchar; para2:Pchar):longint;cdecl;external 'clib' name 'strcmpi';
  124. function stricmp(para1:Pchar; para2:Pchar):longint;cdecl;external 'clib' name 'stricmp';
  125. function strdup(para1:Pchar):Pchar;cdecl;external 'clib' name 'strdup';
  126. function strlist(para1,para2:Pchar; args:array of const):Pchar;cdecl;external 'clib' name 'strlist';
  127. function strlist(para1,para2:Pchar):Pchar;cdecl;external 'clib' name 'strlist';
  128. function strlwr(para1:Pchar):Pchar;cdecl;external 'clib' name 'strlwr';
  129. function strnicmp(para1,para2:Pchar; para3:Tsize_t):longint;cdecl;external 'clib' name 'strnicmp';
  130. function strnset(para1:Pchar; para2:longint; para3:Tsize_t):Pchar;cdecl;external 'clib' name 'strnset';
  131. function strrev(para1:Pchar):Pchar;cdecl;external 'clib' name 'strrev';
  132. function strset(para1:Pchar; para2:longint):Pchar;cdecl;external 'clib' name 'strset';
  133. function strupr(para1:Pchar):Pchar;cdecl;external 'clib' name 'strupr';
  134. procedure swab(para1:pointer; para2:pointer; para3:Tsize_t);cdecl;external 'clib' name 'swab';
  135. procedure swaw(para1:pointer; para2:pointer; para3:Tsize_t);cdecl;external 'clib' name 'swaw';
  136. {-dirent.h---------------------------------------------------------------------}
  137. {$I npackon.inc}
  138. type
  139. Pino_t = ^Tino_t;
  140. Tino_t = longint;
  141. Pdev_t = ^Tdev_t;
  142. Tdev_t = longint;
  143. Pdirent = ^Tdirent;
  144. Tdirent =
  145. record
  146. d_attr : dword;
  147. d_time : word;
  148. d_date : word;
  149. d_size : longint;
  150. d_ino : Tino_t;
  151. d_dev : Tdev_t;
  152. d_cdatetime : dword;
  153. d_adatetime : dword;
  154. d_bdatetime : dword;
  155. d_uid : longint;
  156. d_archivedID : dword;
  157. d_updatedID : dword;
  158. d_nameDOS : array[0..12] of char;
  159. d_inheritedRightsMask : word;
  160. d_originatingNameSpace : byte;
  161. d_ddatetime : dword;
  162. d_deletedID : dword;
  163. d_name : array[0..255] of char;
  164. end;
  165. TDIR = Tdirent;
  166. PDIR = ^TDIR;
  167. {$I npackoff.inc}
  168. function closedir_old (dirp:PDIR):longint; cdecl; external 'clib' name 'closedir';
  169. function closedir (dirp:PDIR):longint; cdecl; external 'clib' name 'closedir_510';
  170. function opendir_old (pathName:Pchar):PDIR; cdecl; external 'clib' name 'opendir';
  171. function opendir (pathName:Pchar):PDIR; cdecl; external 'clib' name 'opendir_411';
  172. function readdir_old (dirp:PDIR):PDIR; cdecl; external 'clib' name 'readdir';
  173. function readdir (dirp:PDIR):PDIR; cdecl; external 'clib' name 'readdir_411';
  174. procedure rewinddir (dirp:PDIR); cdecl; external 'clib' name 'rewinddir';
  175. function SetReaddirAttribute(dirp:PDIR; newAttribute:dword):longint; cdecl; external 'clib' name 'SetReaddirAttribute';
  176. {-errno.h----------------------------------------------------------------------}
  177. const
  178. ENOENT = 1;
  179. E2BIG = 2;
  180. ENOEXEC = 3;
  181. EBADF = 4;
  182. ENOMEM = 5;
  183. EACCES = 6;
  184. EEXIST = 7;
  185. EXDEV = 8;
  186. EINVAL = 9;
  187. ENFILE = 10;
  188. EMFILE = 11;
  189. ENOSPC = 12;
  190. EDOM = 13;
  191. ERANGE = 14;
  192. EDEADLK = 15;
  193. EINUSE = 16;
  194. ESERVER = 17;
  195. ENOSERVR = 18;
  196. EWRNGKND = 19;
  197. ETRNREST = 20;
  198. ERESOURCE= 21;
  199. EBADHNDL = 22;
  200. ENO_SCRNS= 23;
  201. EAGAIN = 24;
  202. ENXIO = 25;
  203. EBADMSG = 26;
  204. EFAULT = 27;
  205. EIO = 28;
  206. ENODATA = 29;
  207. ENOSTRMS = 30;
  208. EPROTO = 31;
  209. EPIPE = 32;
  210. ESPIPE = 33;
  211. ETIME = 34;
  212. EWOULDBLOCK = 35;
  213. EINPROGRESS = 36;
  214. EALREADY = 37;
  215. ENOTSOCK = 38;
  216. EDESTADDRREQ = 39;
  217. EMSGSIZE = 40;
  218. EPROTOTYPE = 41;
  219. ENOPROTOOPT = 42;
  220. EPROTONOSUPPORT = 43;
  221. ESOCKTNOSUPPORT = 44;
  222. EOPNOTSUPP = 45;
  223. EPFNOSUPPORT = 46;
  224. EAFNOSUPPORT = 47;
  225. EADDRINUSE = 48;
  226. EADDRNOTAVAIL = 49;
  227. ENETDOWN = 50;
  228. ENETUNREACH = 51;
  229. ENETRESET = 52;
  230. ECONNABORTED = 53;
  231. ECONNRESET = 54;
  232. ENOBUFS = 55;
  233. EISCONN = 56;
  234. ENOTCONN = 57;
  235. ESHUTDOWN = 58;
  236. ETOOMANYREFS = 59;
  237. ETIMEDOUT = 60;
  238. ECONNREFUSED = 61;
  239. EBUSY = 62;
  240. EINTR = 63;
  241. EISDIR = 64;
  242. ENAMETOOLONG = 65;
  243. ENOSYS = 66;
  244. ENOTDIR = 67;
  245. ENOTEMPTY = 68;
  246. EPERM = 69;
  247. ECHILD = 70;
  248. EFBIG = 71;
  249. EMLINK = 72;
  250. ENODEV = 73;
  251. ENOLCK = 74;
  252. ENOTTY = 75;
  253. EFTYPE = ENOTTY;
  254. EROFS = 76;
  255. ESRCH = 77;
  256. ECANCELED = 78;
  257. ENOTSUP = 79;
  258. // CLib-implementation-specific constants
  259. ECANCELLED = ECANCELED;
  260. ENLMDATA = 100;
  261. EILSEQ = 101;
  262. EINCONSIS = 102;
  263. EDOSTEXTEOL = 103;
  264. ENONEXTANT = 104;
  265. ENOCONTEXT = 105;
  266. ELASTERR = ENOCONTEXT;
  267. {-nwerrno.h--------------------------------------------------------------------}
  268. { Multi purpose return values.}
  269. const
  270. ESUCCESS = 0;
  271. EFAILURE = -(1);
  272. ERR_TTS_NOT_AVAILABLE = $00;
  273. ERR_RECORD_NOT_LOCKED = $01;
  274. ERR_INSUFFICIENT_SPACE = $01;
  275. ERR_STRING_EXCEEDS_LENGTH = $01;
  276. ERR_TTS_AVAILABLE = $01;
  277. ERR_NOT_AVAILABLE_PROTECTED = $64;
  278. ERR_NOT_AVAILABLE_ON_3X = $65;
  279. ERR_BAD_THREAD_ID = $66;
  280. ERR_BAD_PRTY_CLASS = $67;
  281. ERR_BAD_PRTY_SCOPE = $68;
  282. ERR_NOT_A_POPUP_SCREEN = $69;
  283. ERR_OPEN_SCREEN = $6A;
  284. ERR_BAD_SHFLAG = $6B;
  285. ERR_BAD_ACCESS = $6C;
  286. ERR_BAD_ORIGIN = $6D;
  287. ERR_BAD_ACTION_CODE = $6E;
  288. ERR_OUT_OF_TASKS = $6F;
  289. ERR_BAD_QUERY_TYPE = $70;
  290. ERR_BAD_LIBRARY_HANDLE = $71;
  291. ERR_STREAMS = $72;
  292. ERR_BAD_FILE_SERVER_ID = $73;
  293. ERR_BAD_CONNECTION_ID = $73;
  294. ERR_BAD_FLAGS = $74;
  295. ERR_STRUCT_NOT_FOUND = $C8;
  296. ERR_NO_ITEMS_FOUND = $79;
  297. ERR_NCPEXT_TRANSPORT_PROTOCOL_VIOLATION = $7E;
  298. ERR_FILE_IN_USE = $80;
  299. ERR_LOCK_FAIL = $80;
  300. ERR_MAPPED_TO_A_LOCAL_DRIVE = $80;
  301. ERR_NO_MORE_FILE_HANDLES = $81;
  302. ERR_NO_OPEN_PRIVILEGE = $82;
  303. ERR_NETWORK_DISK_IO = $83;
  304. ERR_NO_CREATE_PRIVILEGE = $84;
  305. ERR_NO_CREATE_DELETE_PRIVILEGE = $85;
  306. ERR_R_O_CREATE_FILE = $86;
  307. ERR_CREATE_FILE_INVALID_NAME = $87;
  308. ERR_INVALID_FILE_HANDLE = $88;
  309. ERR_NO_SEARCH_PRIVILEGE = $89;
  310. ERR_NO_DELETE_PRIVILEGE = $8A;
  311. ERR_NO_RENAME_PRIVILEGE = $8B;
  312. ERR_NO_MODIFY_PRIVILEGE = $8C;
  313. ERR_NO_SET_PRIVILEGE = $8C;
  314. ERR_SOME_FILES_IN_USE = $8D;
  315. ERR_ALL_FILES_IN_USE = $8E;
  316. ERR_SOME_READ_ONLY = $8F;
  317. ERR_ALL_READ_ONLY = $90;
  318. ERR_SOME_NAMES_EXIST = $91;
  319. ERR_ALL_NAMES_EXIST = $92;
  320. ERR_NO_READ_PRIVILEGE = $93;
  321. ERR_NO_WRITE_PRIVILEGE_OR_READONLY = $94;
  322. ERR_FILE_DETACHED = $95;
  323. ERR_NO_ALLOC_SPACE = $96;
  324. ERR_SERVER_OUT_OF_MEMORY = $96;
  325. ERR_TARGET_NOT_A_SUBDIRECTORY = $96;
  326. ERR_NO_SPOOL_SPACE = $97;
  327. ERR_INVALID_VOLUME = $98;
  328. ERR_VOLUME_DOES_NOT_EXIST = $98;
  329. ERR_DIRECTORY_FULL = $99;
  330. ERR_RENAME_ACROSS_VOLUME = $9A;
  331. ERR_BAD_DIR_HANDLE = $9B;
  332. ERR_HOLE_FOUND = $9C;
  333. ERR_INVALID_PATH = $9C;
  334. ERR_NO_SUCH_EXTENSION = $9C;
  335. ERR_NO_DIR_HANDLES = $9D;
  336. ERR_BAD_FILE_NAME = $9E;
  337. ERR_DIRECTORY_ACTIVE = $9F;
  338. ERR_DIRECTORY_IN_USE = $9F;
  339. ERR_DIRECTORY_NOT_EMPTY = $A0;
  340. ERR_DIRECTORY_IO_ERROR = $A1;
  341. ERR_IO_LOCKED = $A2;
  342. ERR_TRANSACTION_RESTARTED = $A3;
  343. ERR_RENAME_DIR_INVALID = $A4;
  344. ERR_INVALID_OPENCREATE_MODE = $A5;
  345. ERR_ALREADY_IN_USE = $A6;
  346. ERR_SEARCH_DRIVE_VECTOR_FULL = $B0;
  347. ERR_DRIVE_DOES_NOT_EXIST = $B1;
  348. ERR_DRIVE_IS_NOT_MAPPED = $B1;
  349. ERR_CANT_MAP_LOCAL_DRIVE = $B2;
  350. ERR_INVALID_MAP_TYPE = $B3;
  351. ERR_INVALID_DRIVE_LETTER = $B4;
  352. ERR_NO_DRIVE_AVAILABLE = $B5;
  353. ERR_WORKSTATION_OUT_OF_MEMORY = $B6;
  354. ERR_NO_SUCH_SEARCH_DRIVE = $B7;
  355. ERR_INVALID_ENVIRON_VARIABLE = $B8;
  356. ERR_DOES_NOT_RUN_ON_IOENGINE = $B9;
  357. ERR_PACKET_SIGNATURES_REQURIED = $BC;
  358. ERR_PACKET_SIGNATURES_REQUIRED = $BC;
  359. ERR_INVALID_DATA_STREAM = $BE;
  360. ERR_INVALID_NAME_SPACE = $BF;
  361. ERR_NO_ACCOUNT_PRIVILEGES = $C0;
  362. ERR_NO_ACCOUNTING_PRIVILEGES = $C0;
  363. ERR_NO_ACCOUNT_BALANCE = $C1;
  364. ERR_CREDIT_LIMIT_EXCEEDED = $C2;
  365. ERR_LOGIN_DENIED_NO_CREDIT = $C2;
  366. ERR_TOO_MANY_HOLDS = $C3;
  367. ERR_ACCOUNTING_DISABLED = $C4;
  368. ERR_LOGIN_LOCKOUT = $C5;
  369. ERR_NO_CONSOLE_OPERATOR_RIGHTS = $C6;
  370. ERR_MISSING_EA_KEY = $C8;
  371. ERR_EA_NOT_FOUND = $C9;
  372. ERR_INVALID_EA_HANDLE_TYPE = $CA;
  373. ERR_EA_NO_KEY_NO_DATA = $CB;
  374. ERR_EA_NUMBER_MISMATCH = $CC;
  375. ERR_EXTENT_NUMBER_OUT_OF_RANGE = $CD;
  376. ERR_EA_BAD_DIR_NUM = $CE;
  377. ERR_INVALID_EA_HANDLE = $CF;
  378. ERR_EA_POSITION_OUT_OF_RANGE = $D0;
  379. ERR_Q_IO_FAILURE = $D0;
  380. ERR_EA_ACCESS_DENIED = $D1;
  381. ERR_NO_QUEUE = $D1;
  382. ERR_DATA_PAGE_ODD_SIZE = $D2;
  383. ERR_NO_Q_SERVER = $D2;
  384. ERR_EA_VOLUME_NOT_MOUNTED = $D3;
  385. ERR_NO_Q_RIGHTS = $D3;
  386. ERR_BAD_PAGE_BOUNDARY = $D4;
  387. ERR_Q_FULL = $D4;
  388. ERR_INSPECT_FAILURE = $D5;
  389. ERR_NO_Q_JOB = $D5;
  390. ERR_EA_ALREADY_CLAIMED = $D6;
  391. ERR_NO_Q_JOB_RIGHTS = $D6;
  392. ERR_UNENCRYPTED_NOT_ALLOWED = $D6;
  393. ERR_ODD_BUFFER_SIZE = $D7;
  394. ERR_DUPLICATE_PASSWORD = $D7;
  395. ERR_Q_IN_SERVICE = $D7;
  396. ERR_NO_SCORECARDS = $D8;
  397. ERR_PASSWORD_TOO_SHORT = $D8;
  398. ERR_Q_NOT_ACTIVE = $D8;
  399. ERR_BAD_EDS_SIGNATURE = $D9;
  400. ERR_MAXIMUM_LOGINS_EXCEEDED = $D9;
  401. ERR_LOGIN_DENIED_NO_CONNECTION = $D9;
  402. ERR_Q_STN_NOT_SERVER = $D9;
  403. ERR_EA_SPACE_LIMIT = $DA;
  404. ERR_BAD_LOGIN_TIME = $DA;
  405. ERR_Q_HALTED = $DA;
  406. ERR_EA_KEY_CORRUPT = $DB;
  407. ERR_NODE_ADDRESS_VIOLATION = $DB;
  408. ERR_Q_MAX_SERVERS = $DB;
  409. ERR_EA_KEY_LIMIT = $DC;
  410. ERR_LOG_ACCOUNT_EXPIRED = $DC;
  411. ERR_TALLY_CORRUPT = $DD;
  412. ERR_BAD_PASSWORD = $DE;
  413. ERR_PASSWORD_EXPIRED_NO_GRACE = $DE;
  414. ERR_PASSWORD_EXPIRED = $DF;
  415. ERR_NOT_ITEM_PROPERTY = $E8;
  416. ERR_WRITE_TO_GROUP_PROPERTY = $E8;
  417. ERR_MEMBER_ALREADY_EXISTS = $E9;
  418. ERR_NO_SUCH_MEMBER = $EA;
  419. ERR_PROPERTY_NOT_GROUP = $EB;
  420. ERR_NOT_GROUP_PROPERTY = $EB;
  421. ERR_NO_SUCH_SEGMENT = $EC;
  422. ERR_NO_SUCH_VALUE_SET = $EC;
  423. ERR_SPX_CONNECTION_TERMINATED = $EC;
  424. ERR_TERMINATED_BY_REMOTE_PARTNER = $EC;
  425. ERR_PROPERTY_ALREADY_EXISTS = $ED;
  426. ERR_SPX_CONNECTION_FAILED = $ED;
  427. ERR_SPX_TERMINATED_POORLY = $ED;
  428. ERR_SPX_NO_ANSWER_FROM_TARGET = $ED;
  429. ERR_OBJECT_ALREADY_EXISTS = $EE;
  430. ERR_SPX_INVALID_CONNECTION = $EE;
  431. ERR_INVALID_NAME = $EF;
  432. ERR_SPX_CONNECTION_TABLE_FULL = $EF;
  433. ERR_IPX_NOT_INSTALLED = $F0;
  434. ERR_ILLEGAL_WILDCARD = $F0;
  435. ERR_WILDCARD_NOT_ALLOWED = $F0;
  436. ERR_SOCKET_NOT_OPEN = $F0;
  437. ERR_BINDERY_SECURITY = $F1;
  438. ERR_INVALID_BINDERY_SECURITY = $F1;
  439. ERR_SOCKET_ALREADY_OPEN = $F1;
  440. ERR_NO_OBJECT_READ_PRIVILEGE = $F2;
  441. ERR_NO_OBJECT_READ_RIGHTS = $F2;
  442. ERR_NO_OBJECT_RENAME_PRIVILEGE = $F3;
  443. ERR_NO_OBJECT_RENAME_RIGHTS = $F3;
  444. ERR_NO_OBJECT_DELETE_PRIVILEGE = $F4;
  445. ERR_NO_OBJECT_DELETE_RIGHTS = $F4;
  446. ERR_NO_OBJECT_CREATE_PRIVILEGE = $F5;
  447. ERR_NO_OBJECT_CREATE_RIGHTS = $F5;
  448. ERR_NO_PROPERTY_DELETE_PRIVILEGE = $F6;
  449. ERR_NO_PROPERTY_DELETE_RIGHTS = $F6;
  450. ERR_NO_PROPERTY_CREATE_PRIVILEGE = $F7;
  451. ERR_NO_PROPERTY_CREATE_RIGHTS = $F7;
  452. ERR_ALREADY_ATTACHED_TO_SERVER = $F8;
  453. ERR_NO_PROPERTY_WRITE_PRIVILEGE = $F8;
  454. ERR_NO_PROPERTY_WRITE_RIGHTS = $F8;
  455. ERR_NOT_ATTACHED_TO_SERVER = $F8;
  456. ERR_ECB_CANNOT_BE_CANCELLED = $F9;
  457. ERR_NO_FREE_CONNECTION_SLOTS = $F9;
  458. ERR_NO_PROPERTY_READ_PRIVILEGE = $F9;
  459. ERR_NO_PROPERTY_READ_RIGHTS = $F9;
  460. ERR_NO_LOCAL_TARGET_IDENTIFIED = $FA;
  461. ERR_NO_MORE_SERVER_SLOTS = $FA;
  462. ERR_TEMP_REMAP = $FA;
  463. ERR_NO_KNOWN_ROUTE_TO_DESTINATION = $FA;
  464. ERR_INVALID_PARAMETERS = $FB;
  465. ERR_NO_SUCH_PROPERTY = $FB;
  466. ERR_UNKNOWN_REQUEST = $FB;
  467. ERR_EVENT_CANCELLED = $FC;
  468. ERR_INTERNET_PACKET_REQT_CANCELED = $FC;
  469. ERR_MESSAGE_QUEUE_FULL = $FC;
  470. ERR_NO_SUCH_BINDERY_OBJECT = $FC;
  471. ERR_NO_SUCH_OBJECT = $FC;
  472. ERR_REQUEST_CANCELLED = $FC;
  473. ERR_SPX_COMMAND_CANCELLED = $FC;
  474. ERR_SPX_SOCKET_CLOSED = $FC;
  475. ERR_UNKNOWN_FILE_SERVER = $FC;
  476. ERR_TARGET_ALREADY_HAS_MESSAGE = $FC;
  477. ERR_NCPEXT_SERVICE_PROTOCOL_VIOLATION = $FC;
  478. ERR_BAD_SERIAL_NUMBER = $FD;
  479. ERR_INVALID_PACKET_LENGTH = $FD;
  480. ERR_PACKET_OVERFLOW = $FD;
  481. ERR_TTS_DISABLED = $FD;
  482. ERR_FIELD_ALREADY_LOCKED = $FD;
  483. ERR_FSCOPY_DIFFERENT_NETWORKS = $FD;
  484. ERR_BAD_STATION_NUMBER = $FD;
  485. ERR_BAD_PACKET = $FE;
  486. ERR_SPX_MALFORMED_PACKET = $FE;
  487. ERR_BINDERY_LOCKED = $FE;
  488. ERR_DOS_ACCESS_DENIED = $FE;
  489. ERR_DOS_NO_SEARCH_RIGHTS = $FE;
  490. ERR_IMPLICIT_TRANSACTION_ACTIVE = $FE;
  491. ERR_INCORRECT_ACCESS_PRIVILEGES = $FE;
  492. ERR_INVALID_NAME_LENGTH = $FE;
  493. ERR_INVALID_SEMAPHORE_NAME_LENGTH = $FE;
  494. ERR_IO_FAILURE = $FE;
  495. ERR_PACKET_NOT_DELIVERABLE = $FE;
  496. ERR_SPOOL_DIRECTORY_ERROR = $FE;
  497. ERR_SUPERVISOR_HAS_DISABLED_LOGIN = $FE;
  498. ERR_TRANSACTION_ENDS_RECORDS_LOCKED = $FE;
  499. ERR_SERVER_BINDERY_LOCKED = $FE;
  500. ERR_TIMEOUT_FAILURE = $FE;
  501. ERR_TRUSTEE_NOT_FOUND = $FE;
  502. ERR_SOCKET_TABLE_FULL = $FE;
  503. ERR_NCPEXT_NO_HANDLER = $FE;
  504. ERR_BAD_PARAMETER = $FF;
  505. ERR_BAD_SPOOL_PRINTER = $FF;
  506. ERR_RECORD_ALREADY_LOCKED = $FF;
  507. ERR_BAD_RECORD_OFFSET = $FF;
  508. ERR_BINDERY_FAILURE = $FF;
  509. ERR_ECB_NOT_IN_USE = $FF;
  510. ERR_FAILURE = $FF;
  511. ERR_FILE_EXTENSION_ERROR = $FF;
  512. ERR_HARD_FAILURE = $FF;
  513. ERR_INVALID_INITIAL_SEMAPHORE_VALUE = $FF;
  514. ERR_INVALID_SEMAPHORE_HANDLE = $FF;
  515. ERR_DOS_FILE_NOT_FOUND = $FF;
  516. ERR_EXPLICIT_TRANSACTION_ACTIVE = $FF;
  517. ERR_FILE_NOT_OPEN = $FF;
  518. ERR_NO_EXPLICIT_TRANSACTION_ACTIVE = $FF;
  519. ERR_NO_FILES_FOUND = $FF;
  520. ERR_NO_RECORD_FOUND = $FF;
  521. ERR_NO_RESPONSE_FROM_SERVER = $FF;
  522. ERR_NO_SPOOL_FILE = $FF;
  523. ERR_NO_SUCH_OBJECT_OR_BAD_PASSWORD = $FF;
  524. ERR_OPEN_FILES = $FF;
  525. ERR_PATH_ALREADY_EXISTS = $FF;
  526. ERR_PATH_NOT_LOCATABLE = $FF;
  527. ERR_QUEUE_FULL = $FF;
  528. ERR_REQUEST_NOT_OUTSTANDING = $FF;
  529. ERR_SOCKET_CLOSED = $FF;
  530. ERR_SPX_IS_INSTALLED = $FF;
  531. ERR_SPX_SOCKET_NOT_OPENED = $FF;
  532. ERR_TARGET_NOT_LOGGED_IN = $FF;
  533. ERR_TARGET_NOT_ACCEPTING_MESSAGES = $FF;
  534. ERR_TRANSACTION_NOT_YET_WRITTEN = $FF;
  535. ERR_NO_TRUSTEE_CHANGE_PRIVILEGE = $FF;
  536. ERR_CHECKSUMS_REQUIRED = $FF;
  537. ERR_SERVICE_NOT_LOADED = $101;
  538. ERR_NO_LIBRARY_CONTEXT = $400;
  539. {-----------------------------------------------------------------------------
  540. Important Note:
  541. Additional NetWareErrno values that don't employ a ERR_ prefix have been
  542. moved from this position into obsolete header niterror.h. Many of these had
  543. been included for compatibility with the now-obsolete NIT API for DOS
  544. clients and many conflict with current cross-platform headers.
  545. -----------------------------------------------------------------------------}
  546. { NetWare Core Protocol (NCP) error codes. }
  547. DISKFULL = 1;
  548. BADNET = 2;
  549. LISTENERROR = 2;
  550. BADLADDRESS = 3;
  551. INVALIDSESSION = 3;
  552. NOSLOTS = 4;
  553. SLOTALLOCERR = 4;
  554. BROADCASTERROR = 5;
  555. BADSERVERNAME = 6;
  556. BADUSERNAME = 7;
  557. BADPASSWORD = 8;
  558. MEMERROR = 9;
  559. INVALIDCONNECTION = 10;
  560. INVALIDHANDLE = 11;
  561. INVALIDREQUEST = 12;
  562. SOCKETERROR = 13;
  563. ALLOCTAGERR = 14;
  564. CONNECTIONABORTED = 15;
  565. TIMEOUTERR = 16;
  566. { frame type: Ethernet 802.3 }
  567. CHECKSUMS_NOT_SUPPORTED = 17;
  568. CHECKSUM_FAILURE = 18;
  569. NO_FRAGMENT_LIST = 19;
  570. { Values for 'NetWareErrno' as set by spawnlp() and spawnvp().}
  571. LOAD_COULD_NOT_FIND_FILE = 1;
  572. LOAD_ERROR_READING_FILE = 2;
  573. LOAD_NOT_NLM_FILE_FORMAT = 3;
  574. LOAD_WRONG_NLM_FILE_VERSION = 4;
  575. LOAD_REENTRANT_INITIALIZE_FAILURE = 5;
  576. LOAD_CAN_NOT_LOAD_MULTIPLE_COPIES = 6;
  577. LOAD_ALREADY_IN_PROGRESS = 7;
  578. LOAD_NOT_ENOUGH_MEMORY = 8;
  579. LOAD_INITIALIZE_FAILURE = 9;
  580. LOAD_INCONSISTENT_FILE_FORMAT = 10;
  581. LOAD_CAN_NOT_LOAD_AT_STARTUP = 11;
  582. LOAD_AUTO_LOAD_MODULES_NOT_LOADED = 12;
  583. LOAD_UNRESOLVED_EXTERNAL = 13;
  584. LOAD_PUBLIC_ALREADY_DEFINED = 14;
  585. { Values for _msize() error return and NWMemorySizeAddressable(). }
  586. ERR_HEAP_BAD_PTR = $FFFFFFFF;
  587. ERR_HEAP_BLOCK_ALREADY_FREE = $FFFFFFFE;
  588. ERR_INVALID_ADDRESS = $FFFFFFFD;
  589. { Values for NetWare Virtual Memory (NVM) APIs as returned by GetVMErrno().
  590. These values should be examined after calling a Win32 VM API without a
  591. satisfactorily-lucid error in 'errno' or from (Win32) GetLastError(). }
  592. ERROR_INSUFFICIENT_CONTIGUOUS_MEMORY = $1000;
  593. ERROR_INSUFFICIENT_DISK_SWAP_SPACE = $1001;
  594. ERROR_INSUFFICIENT_MEMORY = $1002;
  595. ERROR_INSUFFICIENT_RESOURCES_TO_COMMIT_MEMORY = $1003;
  596. ERROR_INVALID_ATTRIBUTE_FLAGS = $1004;
  597. ERROR_INVALID_ADDRESS = $1005;
  598. ERROR_INVALID_LOCK_FLAGS = $1006;
  599. ERROR_INVALID_PAGE_COUNT = $1007;
  600. ERROR_INVALID_PROTECTION_FLAGS = $1008;
  601. ERROR_NON_SHARED_MEMORY_ADDRESS = $1009;
  602. ERROR_SHARED_MEMORY_ADDRESS = $100A;
  603. function GetVMErrno:longint;cdecl;external 'clib' name 'GetVMErrno';
  604. procedure SetVMErrno(para1:longint);cdecl;external 'clib' name 'SetVMErrno';
  605. function __get_NWErrno:longint;cdecl;external 'clib' name '__get_NWErrno';
  606. function __get_NWErrno_ptr:Plongint;cdecl;external 'clib' name '__get_NWErrno_ptr';
  607. function NetWareErrno : longint;
  608. {-fcntl.h----------------------------------------------------------------------}
  609. const
  610. F_GETFL = 1;
  611. F_SETFL = 2;
  612. F_DUPFD = 3;
  613. F_GETFD = 4;
  614. F_SETFD = 5;
  615. F_SETLK = 6;
  616. F_GETLK = 7;
  617. F_SETLKW = 8;
  618. F_RDLCK = 9;
  619. F_UNLCK = 10;
  620. F_WRLCK = 11;
  621. F_CLOEXEC = 12;
  622. O_RDONLY = $0000;
  623. O_WRONLY = $0001;
  624. O_RDWR = $0002;
  625. O_ACCMODE = $0003;
  626. O_APPEND = $0010;
  627. O_CREAT = $0020;
  628. O_TRUNC = $0040;
  629. O_EXCL = $0080;
  630. O_TEXT = $0100;
  631. O_BINARY = $0200;
  632. O_NDELAY = $0400;
  633. O_NOCTTY = $0800;
  634. O_NONBLOCK = O_NDELAY;
  635. FNDELAY = $0004;
  636. type
  637. Poff_t = ^Toff_t;
  638. Toff_t = longint;
  639. Ppid_t = ^Tpid_t;
  640. Tpid_t = longint;
  641. Pssize_t = ^Tssize_t;
  642. Tssize_t = longint;
  643. Pmode_t = ^Tmode_t;
  644. Tmode_t = dword;
  645. Pflock = ^Tflock;
  646. Tflock = record
  647. l_type : smallint;
  648. l_whence : smallint;
  649. l_start : Toff_t;
  650. l_len : Toff_t;
  651. l_pid : Tpid_t;
  652. end;
  653. function creat (path:Pchar; mode:Tmode_t):longint; cdecl;external 'clib' name 'creat';
  654. function _fcntl (fildes:longint; cmd:longint;
  655. args:array of const):longint; cdecl;external 'clib' name 'fcntl';
  656. function _fcntl (fildes:longint; cmd:longint):longint; cdecl;external 'clib' name 'fcntl';
  657. function open (path:Pchar; oflag:longint;
  658. args:array of const):longint; cdecl;external 'clib' name 'open';
  659. function open (path:Pchar; oflag:longint):longint; cdecl;external 'clib' name 'open';
  660. function sopen (path:Pchar; oflag, shflag:longint;
  661. args:array of const):longint; cdecl;external 'clib' name 'sopen';
  662. function sopen (path:Pchar; oflag,shflag:longint):longint; cdecl;external 'clib' name 'sopen';
  663. {-limits.h---------------------------------------------------------------------}
  664. const
  665. PAGESIZE = 4096;
  666. CHAR_BIT = 8;
  667. SCHAR_MIN = -(128);
  668. SCHAR_MAX = 127;
  669. UCHAR_MAX = 255;
  670. CHAR_MIN = SCHAR_MIN;
  671. CHAR_MAX = SCHAR_MAX;
  672. MB_LEN_MAX = 5;
  673. SHRT_MIN = -(32768);
  674. SHRT_MAX = 32767;
  675. USHRT_MAX = 65535;
  676. LONG_MIN = (-(2147483647)) - 1;
  677. LONG_MAX = 2147483647;
  678. ULONG_MAX = 4294967295;
  679. INT_MIN = LONG_MIN;
  680. INT_MAX = LONG_MAX;
  681. UINT_MAX = ULONG_MAX;
  682. SSIZE_MAX = INT_MAX;
  683. TZNAME_MAX = 8;
  684. PIPE_BUF = 512;
  685. {-locale.h---------------------------------------------------------------------}
  686. {$PACKRECORDS C}
  687. const
  688. LC_CTYPE = 0;
  689. LC_NUMERIC = 1;
  690. LC_TIME = 2;
  691. LC_COLLATE = 3;
  692. LC_MONETARY = 4;
  693. LC_MESSAGES = 5;
  694. LC_ALL = 6;
  695. type
  696. Plconv = ^Tlconv;
  697. Tlconv =
  698. record
  699. decimal_point : array [0..3] of char;
  700. thousands_sep : array [0..3] of char;
  701. grouping : array [0..3] of char;
  702. int_curr_symbol : array [0..7] of char;
  703. currency_symbol : array [0..3] of char;
  704. mon_decimal_point : array [0..3] of char;
  705. mon_thousands_sep : array [0..3] of char;
  706. mon_grouping : array [0..7] of char;
  707. positive_sign : array [0..3] of char;
  708. negative_sign : array [0..3] of char;
  709. int_frac_digits : char;
  710. frac_digits : char;
  711. p_cs_precedes : char;
  712. p_sep_by_space : char;
  713. n_cs_precedes : char;
  714. n_sep_by_space : char;
  715. p_sign_posn : char;
  716. n_sign_posn : char;
  717. code_page : word;
  718. country_id : word;
  719. data_list_separator : array[0..1] of char;
  720. date_separator : array[0..1] of char;
  721. time_separator : array[0..1] of char;
  722. time_format : char;
  723. date_format : word;
  724. reserved : array[0..49] of char;
  725. end;
  726. // ???? struct lconv *localeconv( void );
  727. function setlocale_old (p1:longint; p2:Pchar):Pchar; cdecl; external 'clib' name 'setlocale';
  728. function setlocale (p1:longint; p2:Pchar):Pchar; cdecl; external 'clib' name 'setlocale_411';
  729. {-nwlocale.h-------------------------------------------------------------------}
  730. {$PACKRECORDS C}
  731. type
  732. TNUMBER_TYPE = double;
  733. TUCHAR = byte;
  734. const
  735. MERIDLEN = 5;
  736. L_MB_LEN_MAX = 2; // multibyte character length maximum is 2
  737. NWSINGLE_BYTE = 1; // returned from NWCharType()...
  738. NWDOUBLE_BYTE = 2;
  739. { country/language ID definitions (field 'country_id' in struct Llconv)... }
  740. ARABIC = 785;
  741. AUSTRALIA = 61;
  742. BELGIUM = 32;
  743. CANADA_ENG = 1;
  744. CANADA_FR = 2;
  745. DENMARK = 45;
  746. FINLAND = 358;
  747. FRANCE = 33;
  748. GERMANY = 49;
  749. HEBREW = 972;
  750. ITALY = 39;
  751. LATIN_AMERICA = 003;
  752. NETHERLANDS = 31;
  753. NORWAY = 47;
  754. PORTUGAL = 351;
  755. SPAIN = 34;
  756. SWEDEN = 46;
  757. SWITZERLAND = 41;
  758. UK = 44;
  759. USA = 1;
  760. JAPAN = 81;
  761. KOREA = 82;
  762. PRC = 86;
  763. TAIWAN = 88;
  764. ASIAN_ENGLISH = 99;
  765. type
  766. PVECTOR = ^TVECTOR;
  767. TVECTOR = record
  768. lowValue : char;
  769. highValue : char;
  770. end;
  771. { extern double-byte table data... }
  772. //?? var _DBCSVector : array[0..4] of TVECTOR;cvar;external;
  773. { prototypes... }
  774. function NWCharType(ch:dword):longint;cdecl;external 'locnlm32' name 'NWCharType';
  775. function NWCharVal(_string:Pchar):longint;cdecl;external 'locnlm32' name 'NWCharVal';
  776. function NWCharUpr(chr:longint):longint;cdecl;external 'locnlm32' name 'NWCharUpr';
  777. function NWcprintf(format:Pchar; args:array of const):longint;cdecl;external 'locnlm32' name 'NWcprintf';
  778. function NWcprintf(format:Pchar):longint;cdecl;external 'locnlm32' name 'NWcprintf';
  779. function NWIncrement(_string:Pchar; numChars:Tsize_t):Pchar;cdecl;external 'locnlm32' name 'NWIncrement';
  780. {
  781. NWatoi, NWisalnum, NWisalpha, and NWisdigit are preferred over NWLatoi,
  782. NWisalnum, NWLisalpha, and NWLisdigit respectively.
  783. }
  784. function NWatoi(_string:Pchar):longint;cdecl;external 'locnlm32' name 'NWatoi';
  785. function NWisalnum(ch:dword):longint;cdecl;external 'locnlm32' name 'NWisalnum';
  786. function NWisalpha(ch:dword):longint;cdecl;external 'locnlm32' name 'NWisalpha';
  787. function NWisdigit(ch:dword):longint;cdecl;external 'locnlm32' name 'NWisdigit';
  788. function NWisxdigit(ch:dword):longint;cdecl;external 'locnlm32' name 'NWisxdigit';
  789. function NWitoa(value:longint; _string:Pchar; radix:longint):longint;cdecl;external 'locnlm32' name 'NWitoa';
  790. function NWutoa(value:dword; _string:Pchar; radix:longint):longint;cdecl;external 'locnlm32' name 'NWutoa';
  791. function NWltoa(value:longint; _string:Pchar; radix:longint):longint;cdecl;external 'locnlm32' name 'NWltoa';
  792. function NWultoa(value:dword; _string:Pchar; radix:longint):longint;cdecl;external 'locnlm32' name 'NWultoa';
  793. (* Const before type ignored *)
  794. function NWLatoi(_string:Pchar):longint;cdecl;external 'locnlm32' name 'NWLatoi';
  795. function NWLisalnum(ch:dword):longint;cdecl;external 'locnlm32' name 'NWLisalnum';
  796. function NWLisalpha(ch:dword):longint;cdecl;external 'locnlm32' name 'NWLisalpha';
  797. function NWLisdigit(ch:dword):longint;cdecl;external 'locnlm32' name 'NWLisdigit';
  798. function NWLlocaleconv(lconvPtr:PLCONV):PLCONV;cdecl;external 'locnlm32' name 'NWLlocaleconv';
  799. function NWLmblen(_string:Pchar; maxBytes:Tsize_t):longint;cdecl;external 'locnlm32' name 'NWLmblen';
  800. function NWLmbslen(_string:Pchar):longint;cdecl;external 'locnlm32' name 'NWLmbslen';
  801. function NWLsetlocale(category:longint; locale:Pchar):Pchar;cdecl;external 'locnlm32' name 'NWLsetlocale';
  802. function NWLsetlocale_411(category:longint; locale:Pchar):Pchar;cdecl;external 'locnlm32' name 'NWLsetlocale_411';
  803. function NWLstrbcpy(dest:Pchar; src:Pchar; maxlen:Tsize_t):Pchar;cdecl;external 'locnlm32' name 'NWLstrbcpy';
  804. function NWLstrchr(_string:Pchar; find:longint):Pchar;cdecl;external 'locnlm32' name 'NWLstrchr';
  805. function NWLstrcoll(string1:Pchar; string2:Pchar):longint;cdecl;external 'locnlm32' name 'NWLstrcoll';
  806. function NWLstrcspn(string1:Pchar; string2:Pchar):Tsize_t;cdecl;external 'locnlm32' name 'NWLstrcspn';
  807. function NWLstrftime(_string:Pchar; maxSize:Tsize_t; format:Pchar; timePtr:Ptm):Tsize_t;cdecl;external 'locnlm32' name 'NWLstrftime';
  808. function NWLstricmp(str1:Pchar; str2:Pchar):longint;cdecl;external 'locnlm32' name 'NWLstricmp';
  809. function NWLstrlwr(_string:Pchar):Pchar;cdecl;external 'locnlm32' name 'NWLstrlwr';
  810. function NWLstrpbrk(string1:Pchar; string2:Pchar):Pchar;cdecl;external 'locnlm32' name 'NWLstrpbrk';
  811. function NWLstrrchr(_string:Pchar; find:longint):Pchar;cdecl;external 'locnlm32' name 'NWLstrrchr';
  812. function NWLstrrev(string1:Pchar; string2:Pchar):Pchar;cdecl;external 'locnlm32' name 'NWLstrrev';
  813. function NWLstrspn(string1:Pchar; string2:Pchar):Tsize_t;cdecl;external 'locnlm32' name 'NWLstrspn';
  814. function NWLstrstr(_string:Pchar; searchString:Pchar):Pchar;cdecl;external 'locnlm32' name 'NWLstrstr';
  815. function NWLstrupr(_string:Pchar):Pchar;cdecl;external 'locnlm32' name 'NWLstrupr';
  816. function NWLstrxfrm(string1:Pchar; string2:Pchar; numChars:Tsize_t):Tsize_t;cdecl;external 'locnlm32' name 'NWLstrxfrm';
  817. function NWPrevChar(_string:Pchar; position:Pchar):Pchar;cdecl;external 'locnlm32' name 'NWPrevChar';
  818. function NWprintf(format:Pchar; args:array of const):longint;cdecl;external 'locnlm32' name 'NWprintf';
  819. function NWprintf(format:Pchar):longint;cdecl;external 'locnlm32' name 'NWprintf';
  820. function NWsprintf(s:Pchar; format:Pchar; args:array of const):longint;cdecl;external 'locnlm32' name 'NWsprintf';
  821. function NWsprintf(s:Pchar; format:Pchar):longint;cdecl;external 'locnlm32' name 'NWsprintf';
  822. function NWstrImoney(buffer:Pchar; Value:TNUMBER_TYPE):Pchar;cdecl;external 'locnlm32' name 'NWstrImoney';
  823. function NWstrmoney(buffer:Pchar; Value:TNUMBER_TYPE):Pchar;cdecl;external 'locnlm32' name 'NWstrmoney';
  824. function NWstrncoll(string1:Pchar; string2:Pchar; maxChars:Tsize_t):longint;cdecl;external 'locnlm32' name 'NWstrncoll';
  825. function NWstrncpy(target_string:Pchar; source_string:Pchar; numChars:longint):Pchar;cdecl;external 'locnlm32' name 'NWstrncpy';
  826. function NWstrnum(buffer:Pchar; Value:TNUMBER_TYPE):Pchar;cdecl;external 'locnlm32' name 'NWstrnum';
  827. //function NWvcprintf(format:Pchar; arg:Tva_list):longint;cdecl;external 'locnlm32' name 'NWvcprintf';
  828. //function NWvprintf(format:Pchar; arg:Tva_list):longint;cdecl;external 'locnlm32' name 'NWvprintf';
  829. //function NWvsprintf(s:Pchar; format:Pchar; arg:Tva_list):longint;cdecl;external 'locnlm32' name 'NWvsprintf';
  830. {-nwaudnlm.h-------------------------------------------------------------------}
  831. { defined network address types: }
  832. const
  833. ASCIIZ_STRING_NET_ADDRESS_TYPE = 0;
  834. IPX_NET_ADDRESS_TYPE = 1;
  835. // special value network address type:
  836. NO_IDENTITY_HAS_BEEN_SET = $FF;
  837. function NWAddRecordToAuditingFile
  838. (volumeNumber,
  839. recordType,
  840. stationNumber,
  841. statusCode : longint;
  842. data : pointer;
  843. dataSize : longint):longint;cdecl;external 'clib' name 'NWAddRecordToAuditingFile';
  844. function NWAddRecordToAuditingFile
  845. (volumeNumber,
  846. recordType,
  847. stationNumber,
  848. statusCode : longint;
  849. var data;
  850. dataSize : longint):longint;cdecl;external 'clib' name 'NWAddRecordToAuditingFile';
  851. function NWGetAuditingIdentity
  852. (addressType : Plongint;
  853. networkAddress : pointer;
  854. identityName : Pchar):longint;cdecl;external 'clib' name 'NWGetAuditingIdentity';
  855. function NWGetAuditingIdentity
  856. (var addressType : longint;
  857. var networkAddress;
  858. identityName : Pchar):longint;cdecl;external 'clib' name 'NWGetAuditingIdentity';
  859. function NWSetAuditingIdentity
  860. (addressType:longint;
  861. networkAddress:pointer;
  862. identityName:Pchar):longint;cdecl;external 'clib' name 'NWSetAuditingIdentity';
  863. function NWSetAuditingIdentity
  864. (addressType:longint;
  865. var networkAddress;
  866. identityName:Pchar):longint;cdecl;external 'clib' name 'NWSetAuditingIdentity';
  867. {-nwbitops.h-------------------------------------------------------------------}
  868. procedure BitClear (bitArray:pointer; bitNumber:longint);cdecl;external 'clib' name 'BitClear';
  869. procedure BitSet (bitArray:pointer; bitNumber:longint);cdecl;external 'clib' name 'BitSet';
  870. function BitTest (bitArray:pointer; bitNumber:longint):longint;cdecl;external 'clib' name 'BitTest';
  871. function BitTestAndClear (bitArray:pointer; bitNumber:longint):longint;cdecl;external 'clib' name 'BitTestAndClear';
  872. function BitTestAndSet (bitArray:pointer; bitNumber:longint):longint;cdecl;external 'clib' name 'BitTestAndSet';
  873. function ScanBits (bitArray:pointer; startingBitNumber,totalBitCount:longint):longint;cdecl;external 'clib' name 'ScanBits';
  874. function ScanClearedBits (bitArray:pointer; startingBitNumber,totalBitCount:longint):longint;cdecl;external 'clib' name 'ScanClearedBits';
  875. procedure BitClear (var bitArray; bitNumber:longint);cdecl;external 'clib' name 'BitClear';
  876. procedure BitSet (var bitArray; bitNumber:longint);cdecl;external 'clib' name 'BitSet';
  877. function BitTest (var bitArray; bitNumber:longint):longint;cdecl;external 'clib' name 'BitTest';
  878. function BitTestAndClear (var bitArray; bitNumber:longint):longint;cdecl;external 'clib' name 'BitTestAndClear';
  879. function BitTestAndSet (var bitArray; bitNumber:longint):longint;cdecl;external 'clib' name 'BitTestAndSet';
  880. function ScanBits (var bitArray; startingBitNumber,totalBitCount:longint):longint;cdecl;external 'clib' name 'ScanBits';
  881. function ScanClearedBits (var bitArray; startingBitNumber,totalBitCount:longint):longint;cdecl;external 'clib' name 'ScanClearedBits';
  882. {-nwcntask.h-------------------------------------------------------------------}
  883. {#define LOGIN_WITHOUT_PASSWORD ((char *) N_TRUE) }
  884. function AllocateBlockOfTasks(numberWanted:longint):longint;cdecl;external 'clib' name 'AllocateBlockOfTasks';
  885. function CheckIfConnectionActive(connection:longint):byte;cdecl;external 'clib' name 'CheckIfConnectionActive';
  886. function DisableConnection(connection:longint):longint;cdecl;external 'clib' name 'DisableConnection';
  887. function EnableConnection(connection:longint):longint;cdecl;external 'clib' name 'EnableConnection';
  888. function GetCurrentConnection:longint;cdecl;external 'clib' name 'GetCurrentConnection';
  889. function GetCurrentFileServerID:word;cdecl;external 'clib' name 'GetCurrentFileServerID';
  890. function GetCurrentTask:longint;cdecl;external 'clib' name 'GetCurrentTask';
  891. function LoginObject(connection:longint; objectName:Pchar; objectType:word; password:Pchar):longint;cdecl;external 'clib' name 'LoginObject';
  892. function LogoutObject(connection:longint):longint;cdecl;external 'clib' name 'LogoutObject';
  893. function ReturnBlockOfTasks(startingTask,numberOfTasks:longint):longint;cdecl;external 'clib' name 'ReturnBlockOfTasks';
  894. function ReturnConnection(connection:longint):longint;cdecl;external 'clib' name 'ReturnConnection';
  895. function ReturnLocalConnection(connection:longint):longint;cdecl;external 'clib' name 'ReturnLocalConnection';
  896. function SetCurrentConnection(connectionNumber:longint):longint;cdecl;external 'clib' name 'SetCurrentConnection';
  897. function SetCurrentFileServerID(connectionID:word):word;cdecl;external 'clib' name 'SetCurrentFileServerID';
  898. function SetCurrentTask(taskNumber:longint):longint;cdecl;external 'clib' name 'SetCurrentTask';
  899. {-nwconio.h--------------------------------------------------------------------}
  900. const
  901. DONT_AUTO_ACTIVATE = $01; // avoids autoactivation when screens are
  902. // created, but no other screens exist
  903. DONT_SWITCH_SCREEN = $02; // avoids screen being switched
  904. DONT_CHECK_CTRL_CHARS = $10; // turns off ^C and ^S processing
  905. AUTO_DESTROY_SCREEN = $20; // avoids "Press any key to close screen
  906. POP_UP_SCREEN = $40;
  907. UNCOUPLED_CURSORS = $80; // for distinct input & output cursors
  908. { more screen attribute values returned by GetScreenInfo() }
  909. HAS_A_CLIB_HANDLE = $00000100;
  910. _KEYBOARD_INPUT_ACTIVE = $00010000;
  911. _PROCESS_BLOCKED_ON_KEYBOARD = $00020000;
  912. _PROCESS_BLOCKED_ON_SCREEN = $00040000;
  913. _INPUT_CURSOR_DISABLED = $00080000;
  914. _SCREEN_HAS_TITLE_BAR = $00400000;
  915. _NON_SWITCHABLE_SCREEN = $01000000;
  916. { key types... }
  917. NORMAL_KEY = $00;
  918. FUNCTION_KEY = $01;
  919. ENTER_KEY = $02;
  920. ESCAPE_KEY = $03;
  921. BACKSPACE_KEY = $04;
  922. DELETE_KEY = $05;
  923. INSERT_KEY = $06;
  924. CURSOR_UP_KEY = $07;
  925. CURSOR_DOWN_KEY = $08;
  926. CURSOR_RIGHT_KEY = $09;
  927. CURSOR_LEFT_KEY = $0A;
  928. CURSOR_HOME_KEY = $0B;
  929. CURSOR_END_KEY = $0C;
  930. CURSOR_PUP_KEY = $0D;
  931. CURSOR_PDOWN_KEY = $0E;
  932. { some name equivalents... }
  933. ENTER = $0D;
  934. ESCAPE = $1B;
  935. BACKSPACE = $08;
  936. { modifier code constituents... }
  937. SHIFT_KEY_HELD = $01;
  938. CTRL_KEY_HELD = $04;
  939. ALT_KEY_HELD = $08;
  940. CAPS_LOCK_IS_ON = $40;
  941. NUM_LOCK_IS_ON = $20;
  942. SCROLL_LOCK_IS_ON = $10;
  943. { cursor types... }
  944. CURSOR_NORMAL = $0C0B;
  945. CURSOR_THICK = $0C09;
  946. CURSOR_BLOCK = $0C00;
  947. CURSOR_TOP = $0400;
  948. type // libc compatible
  949. Pscr_t = ^scr_t;
  950. scr_t = pointer;
  951. TScr = scr_t;
  952. PScr = Pscr_t;
  953. function getch:longint; cdecl; external 'clib' name 'getch';
  954. function getche:longint; cdecl; external 'clib' name 'getche';
  955. function kbhit:longint; cdecl; external 'clib' name 'kbhit';
  956. function putch(c:longint):longint; cdecl; external 'clib' name 'putch';
  957. function ungetch(c:longint):longint; cdecl; external 'clib' name 'ungetch';
  958. function cgets(buf:Pchar):Pchar; cdecl; external 'clib' name 'cgets';
  959. function CheckIfScreenDisplayed(screenHandle,waitFlag:longint):longint; cdecl; external 'clib' name 'CheckIfScreenDisplayed';
  960. function CheckIfScreenDisplayed(screenHandle:TScr;waitFlag:longint):longint; cdecl; external 'clib' name 'CheckIfScreenDisplayed';
  961. procedure clrscr; cdecl; external 'clib' name 'clrscr';
  962. procedure ConsolePrintf(format:Pchar; args:array of const); cdecl; external 'clib' name 'ConsolePrintf';
  963. procedure ConsolePrintf(format:Pchar); cdecl; external 'clib' name 'ConsolePrintf';
  964. procedure CopyToScreenMemory(height,width:word; Rect:PBYTE; beg_x,beg_y:word); cdecl; external 'clib' name 'CopyToScreenMemory';
  965. procedure CopyToScreenMemory(height,width:word; var Data; beg_x,beg_y:word); cdecl; external 'clib' name 'CopyToScreenMemory';
  966. procedure CopyFromScreenMemory(height,width:word; Rect:PBYTE; beg_x,beg_y:word); cdecl; external 'clib' name 'CopyFromScreenMemory';
  967. procedure CopyFromScreenMemory(height,width:word; var Data; beg_x,beg_y:word); cdecl; external 'clib' name 'CopyFromScreenMemory';
  968. function CoupleInputOutputCursors:longint; cdecl; external 'clib' name 'CoupleInputOutputCursors';
  969. function cputs(buf:Pchar):longint; cdecl; external 'clib' name 'cputs';
  970. function cprintf(fmt:Pchar; args:array of const):longint; cdecl; external 'clib' name 'cprintf';
  971. function cprintf(fmt:Pchar):longint; cdecl; external 'clib' name 'cprintf';
  972. //function CreateScreen(screenName:Pchar; attr:byte):longint; cdecl; external 'clib' name 'CreateScreen';
  973. function CreateScreen(screenName:Pchar; attr:byte):TScr; cdecl; external 'clib' name 'CreateScreen';
  974. function cscanf(fmt:Pchar; args:array of const):longint; cdecl; external 'clib' name 'cscanf';
  975. function cscanf(fmt:Pchar):longint; cdecl; external 'clib' name 'cscanf';
  976. function DecoupleInputOutputCursors:longint; cdecl; external 'clib' name 'DecoupleInputOutputCursors';
  977. function DestroyScreen(screenHandle:longint):longint; cdecl; external 'clib' name 'DestroyScreen';
  978. function DestroyScreen(screenHandle:TScr):longint; cdecl; external 'clib' name 'DestroyScreen';
  979. function DisplayInputCursor:longint; cdecl; external 'clib' name 'DisplayInputCursor';
  980. function DisplayScreen(screenHandle:longint):longint; cdecl; external 'clib' name 'DisplayScreen';
  981. function DisplayScreen(screenHandle:TScr):longint; cdecl; external 'clib' name 'DisplayScreen';
  982. function DropPopUpScreen(screenHandle:longint):longint; cdecl; external 'clib' name 'DropPopUpScreen';
  983. function DropPopUpScreen(screenHandle:TScr):longint; cdecl; external 'clib' name 'DropPopUpScreen';
  984. //function GetCurrentScreen:longint; cdecl; external 'clib' name 'GetCurrentScreen';
  985. function GetCurrentScreen:TScr; cdecl; external 'clib' name 'GetCurrentScreen';
  986. function GetCursorCouplingMode:byte; cdecl; external 'clib' name 'GetCursorCouplingMode';
  987. function GetCursorShape(startline,endline:PBYTE):word; cdecl; external 'clib' name 'GetCursorShape';
  988. function GetCursorShape(var startline,endline:byte):word; cdecl; external 'clib' name 'GetCursorShape';
  989. function GetCursorSize(firstline,lastline:PBYTE):word; cdecl; external 'clib' name 'GetCursorSize';
  990. function GetCursorSize(var firstline,lastline:byte):word; cdecl; external 'clib' name 'GetCursorSize';
  991. function GetPositionOfOutputCursor(rowP,columnP:PWORD):longint; cdecl; external 'clib' name 'GetPositionOfOutputCursor';
  992. function GetPositionOfOutputCursor(var row,col:word):longint; cdecl; external 'clib' name 'GetPositionOfOutputCursor';
  993. function __GetScreenID(screenHandle:longint):longint; cdecl; external 'clib' name '__GetScreenID';
  994. function __GetScreenID(screenHandle:TScr):longint; cdecl; external 'clib' name '__GetScreenID';
  995. function GetScreenInfo(handle:longint; name:Pchar; attr:plongint):longint; cdecl; external 'clib' name 'GetScreenInfo';
  996. function GetScreenInfo(handle:longint; name:Pchar; var attr:longint):longint; cdecl; external 'clib' name 'GetScreenInfo';
  997. function GetSizeOfScreen(heightP,widthP:PWORD):longint; cdecl; external 'clib' name 'GetSizeOfScreen';
  998. function GetSizeOfScreen(var heightP,widthP:word):longint; cdecl; external 'clib' name 'GetSizeOfScreen';
  999. procedure gotoxy(col,row:word); cdecl; external 'clib' name 'gotoxy';
  1000. function HideInputCursor:longint; cdecl; external 'clib' name 'HideInputCursor';
  1001. function IsColorMonitor:longint; cdecl; external 'clib' name 'IsColorMonitor';
  1002. function PressAnyKeyToContinue:longint; cdecl; external 'clib' name 'PressAnyKeyToContinue';
  1003. function PressAnyKey:longint; cdecl; external 'clib' name 'PressAnyKeyToContinue';
  1004. function PressEscapeToQuit:longint; cdecl; external 'clib' name 'PressEscapeToQuit';
  1005. function PressEscape:longint; cdecl; external 'clib' name 'PressEscapeToQuit';
  1006. procedure RingTheBell; cdecl; external 'clib' name 'RingTheBell';
  1007. procedure RingBell; cdecl; external 'clib' name 'RingTheBell';
  1008. function ScanScreens(LastScreenID:longint; name:Pchar; attr:plongint):longint; cdecl; external 'clib' name 'ScanScreens';
  1009. function ScanScreens(LastScreenID:longint; name:Pchar; var attr:longint):longint; cdecl; external 'clib' name 'ScanScreens';
  1010. function ScanScreens(LastScreenID:TScr; name:Pchar; attr:plongint):TScr; cdecl; external 'clib' name 'ScanScreens';
  1011. function ScanScreens(LastScreenID:TScr; name:Pchar; var attr:longint):TScr; cdecl; external 'clib' name 'ScanScreens';
  1012. function ScrollScreenRegionDown(firstLine,numLines:longint):longint; cdecl; external 'clib' name 'ScrollScreenRegionDown';
  1013. function ScrollScreenRegionUp(firstLine,numLines:longint):longint; cdecl; external 'clib' name 'ScrollScreenRegionUp';
  1014. function SetAutoScreenDestructionMode(newMode:byte):byte; cdecl; external 'clib' name 'SetAutoScreenDestructionMode';
  1015. function SetCtrlCharCheckMode(newMode:byte):byte; cdecl; external 'clib' name 'SetCtrlCharCheckMode';
  1016. function SetCursorCouplingMode(newMode:byte):byte; cdecl; external 'clib' name 'SetCursorCouplingMode';
  1017. function SetCursorShape(startline,endline:byte):word; cdecl; external 'clib' name 'SetCursorShape';
  1018. function SetCurrentScreen(screenHandle:longint):longint; cdecl; external 'clib' name 'SetCurrentScreen';
  1019. function SetCurrentScreen(screenHandle:TScr):longint; cdecl; external 'clib' name 'SetCurrentScreen';
  1020. function SetInputAtOutputCursorPosition:longint; cdecl; external 'clib' name 'SetInputAtOutputCursorPosition';
  1021. function SetOutputAtInputCursorPosition:longint; cdecl; external 'clib' name 'SetOutputAtInputCursorPosition';
  1022. function SetPositionOfInputCursor(row,col:word):longint; cdecl; external 'clib' name 'SetPositionOfInputCursor';
  1023. function SetScreenAreaAttribute(line,col:longint; numLines:longint; numColumns:longint; attr:longint):longint; cdecl; external 'clib' name 'SetScreenAreaAttribute';
  1024. function SetScreenAttributes(mask,attr:longint):longint; cdecl; external 'clib' name 'SetScreenAttributes';
  1025. function SetScreenCharacterAttribute(line,column,attr:longint):longint; cdecl; external 'clib' name 'SetScreenCharacterAttribute';
  1026. function SetScreenRegionAttribute(firstLine,numLines:longint; attr:byte):longint; cdecl; external 'clib' name 'SetScreenRegionAttribute';
  1027. function wherex:word; cdecl; external 'clib' name 'wherex';
  1028. function wherey:word; cdecl; external 'clib' name 'wherey';
  1029. procedure GetKey(scrID:TScr; _type,value,status,scancode:Pbyte;linesToProtect:Longint);cdecl;external 'clib' name 'GetKey';
  1030. procedure GetKey(scrID:TScr; var _type,value,status,scancode:byte;linesToProtect:Longint);cdecl;external 'clib' name 'GetKey';
  1031. procedure GetKey(scrID:Longint; _type,value,status,scancode:Pbyte;linesToProtect:Longint);cdecl;external 'clib' name 'GetKey';
  1032. procedure GetKey(scrID:Longint; var _type,value,status,scancode:byte;linesToProtect:Longint);cdecl;external 'clib' name 'GetKey';
  1033. function UngetKey(scrID:TScr; _type,value,status,scancode:byte):longint;cdecl;external 'clib' name 'UngetKey';
  1034. function UngetKey(scrID:Longint; _type,value,status,scancode:byte):longint;cdecl;external 'clib' name 'UngetKey';
  1035. {-nwconn.h---------------------------------------------------------------------}
  1036. { Structures and typedefs for connection services }
  1037. const
  1038. IPX_TRANSPORT_ADDRESS = 1;
  1039. IPX_TRANSPORT_LENGTH = 12;
  1040. UDP_TRANSPORT_ADDRESS = 8;
  1041. UDP_TRANSPORT_LENGTH = 4;
  1042. TCP_TRANSPORT_ADDRESS = 9;
  1043. TCP_TRANSPORT_LENGTH = 4;
  1044. {$include npackon.inc}
  1045. type
  1046. PUserNameStruct = ^TUserNameStruct;
  1047. TUserNameStruct = record
  1048. UserName : array[0..47] of char;
  1049. ObjectID : longint;
  1050. end;
  1051. TConnectionCriticalErrorHandler =
  1052. function (fileServerID,connection,err:longint):longint; cdecl;
  1053. {$include npackoff.inc}
  1054. function AttachByAddress(transType:byte; transLen:longint; transBuf:pointer; fileServerID:PWORD):longint;cdecl;external 'clib' name 'AttachByAddress';
  1055. function AttachByAddress(transType:byte; transLen:longint; var transBuf; var fileServerID:word):longint;cdecl;external 'clib' name 'AttachByAddress';
  1056. function AttachToFileServer(fileServerName:Pchar; fileServerID:PWORD):longint;cdecl;external 'clib' name 'AttachToFileServer';
  1057. function AttachToFileServer(fileServerName:Pchar; var fileServerID:word):longint;cdecl;external 'clib' name 'AttachToFileServer';
  1058. function GetConnectionFromID(fileServerID:PWORD):longint;cdecl;external 'clib' name 'GetConnectionFromID';
  1059. function GetConnectionFromID(var fileServerID:word):longint;cdecl;external 'clib' name 'GetConnectionFromID';
  1060. function GetConnectionInformation (connectionNumber:word;
  1061. objectName :Pchar;
  1062. objectType :PWORD;
  1063. objectID :Plongint;
  1064. loginTime :PBYTE):longint;cdecl;external 'clib' name 'GetConnectionInformation';
  1065. function GetConnectionInformation (connectionNumber:word;
  1066. objectName :Pchar;
  1067. var objectType :word;
  1068. var objectID :longint;
  1069. var loginTime :byte):longint;cdecl;external 'clib' name 'GetConnectionInformation';
  1070. function GetConnectionList(objectID,lastConnection:longint;
  1071. numberOfConnections:Plongint;
  1072. connectionList:pointer;
  1073. connectionSize:longint):longint;cdecl;external 'clib' name 'GetConnectionList';
  1074. function GetConnectionList(objectID,lastConnection:longint;
  1075. var numberOfConnections:longint;
  1076. var connectionList; {array of longint}
  1077. connectionSize:longint):longint;cdecl;external 'clib' name 'GetConnectionList';
  1078. function GetConnectionNumber:word;cdecl;external 'clib' name 'GetConnectionNumber';
  1079. function GetDefaultConnectionID:longint;cdecl;external 'clib' name 'GetDefaultConnectionID';
  1080. function GetDefaultFileServerID:longint;cdecl;external 'clib' name 'GetDefaultFileServerID';
  1081. function GetFileServerID(fileServerName:Pchar; fileServerID:PWORD):longint;cdecl;external 'clib' name 'GetFileServerID';
  1082. function GetFileServerID(fileServerName:Pchar; var fileServerID:word):longint;cdecl;external 'clib' name 'GetFileServerID';
  1083. function GetInternetAddress(connectionNumber:word;
  1084. networkNumber:pointer;
  1085. physicalNodeAddress:pointer):longint;cdecl;external 'clib' name 'GetInternetAddress';
  1086. function GetInternetAddress(connectionNumber:word;
  1087. var networkNumber; {4 bytes}
  1088. var physicalNodeAddress {6 bytes}):longint;cdecl;external 'clib' name 'GetInternetAddress';
  1089. function GetLANAddress (boardNumber:longint;
  1090. nodeAddress:pointer):longint;cdecl;external 'clib' name 'GetLANAddress';
  1091. function GetLANAddress (boardNumber:longint;
  1092. var nodeAddress{6 bytes}):longint;cdecl;external 'clib' name 'GetLANAddress';
  1093. function GetMaximumNumberOfStations:longint;cdecl;external 'clib' name 'GetMaximumNumberOfStations';
  1094. function GetNetNumber(boardNumber:longint):longint;cdecl;external 'clib' name 'GetNetNumber';
  1095. function GetObjectConnectionNumbers (objectName:Pchar;
  1096. objectType:word;
  1097. numberOfConnections:PWORD;
  1098. connectionList:PWORD;
  1099. maxConnections:word):longint;cdecl;external 'clib' name 'GetObjectConnectionNumbers';
  1100. function GetObjectConnectionNumbers (objectName:Pchar;
  1101. objectType:word;
  1102. var numberOfConnections:word;
  1103. var connectionList; {array of WORD}
  1104. maxConnections:word):longint;cdecl;external 'clib' name 'GetObjectConnectionNumbers';
  1105. procedure GetStationAddress(physicalNodeAddress:pointer);cdecl;external 'clib' name 'GetStationAddress';
  1106. procedure GetStationAddress(var physicalNodeAddress {6 bytes});cdecl;external 'clib' name 'GetStationAddress';
  1107. function GetUserNameFromNetAddress (internetAddress:PBYTE;
  1108. sequenceNumber:longint;
  1109. userNameP:PUserNameStruct):longint;cdecl;external 'clib' name 'GetUserNameFromNetAddress';
  1110. function GetUserNameFromNetAddress (var internetAddress; {10 bytes}
  1111. sequenceNumber:longint;
  1112. var userName:TUserNameStruct):longint;cdecl;external 'clib' name 'GetUserNameFromNetAddress';
  1113. function LoginToFileServer (objectName:Pchar;
  1114. objectType:word;
  1115. objectPassword:Pchar):longint;cdecl;external 'clib' name 'LoginToFileServer';
  1116. procedure Logout;cdecl;external 'clib' name 'Logout';
  1117. procedure LogoutFromFileServer(fileServerID:word);cdecl;external 'clib' name 'LogoutFromFileServer';
  1118. function NWDSGetCurrentUser:longint;cdecl;external 'clib' name 'NWDSGetCurrentUser';
  1119. function NWDSSetCurrentUser(userHandle:longint):longint;cdecl;external 'clib' name 'NWDSSetCurrentUser';
  1120. function NWDSSetPreferredDSTree (len:longint; treeName:Pchar):longint;cdecl;external 'clib' name 'NWDSSetPreferredDSTree';
  1121. function NWGetPacketBurstBufferCount:longint;cdecl;external 'clib' name 'NWGetPacketBurstBufferCount';
  1122. function NWGetSecurityLevel:longint;cdecl;external 'clib' name 'NWGetSecurityLevel';
  1123. function NWNCPSend (functionCode:byte;
  1124. sendPacket:pointer; sendLen :word;
  1125. replyBuf :pointer; replyLen:word):longint;cdecl;external 'clib' name 'NWNCPSend';
  1126. function NWNCPSend (functionCode:byte;
  1127. var sendPacket; sendLen :word;
  1128. var replyBuf; replyLen:word):longint;cdecl;external 'clib' name 'NWNCPSend';
  1129. function NWSetPacketBurstBufferCount(numberOfBuffers:longint):longint;cdecl;external 'clib' name 'NWSetPacketBurstBufferCount';
  1130. function NWSetSecurityLevel(SecurityLevel:longint):longint;cdecl;external 'clib' name 'NWSetSecurityLevel';
  1131. function SetConnectionCriticalErrorHandler(func:TConnectionCriticalErrorHandler):longint;cdecl;external 'clib' name 'SetConnectionCriticalErrorHandler';
  1132. {-nwdebug.h--------------------------------------------------------------------}
  1133. { library-debug flags }
  1134. const
  1135. CLIB_CONTEXT_CHECK = $002; { CLib Context }
  1136. CLIB_MEMCHECK = $004; { Memory Overwrites }
  1137. CLIB_RESOURCECHECK = $020; { Resource Check }
  1138. CLIB_THREAD_CHECK = $200; { Thread Check }
  1139. CLIB_SEMCHECK = $080; { Semaphore Checking }
  1140. CLIB_RING_BELL = $040;
  1141. { dynamic setting and clearing of breakpoints }
  1142. EXECUTION_BREAKPOINT = 0;
  1143. WRITE_BREAKPOINT = 1;
  1144. READ_WRITE_BREAKPOINT = 3;
  1145. // most of the functions are in the kernel (system), we define clib here to
  1146. // avoid linker errors
  1147. procedure NWClearBreakpoint(breakpoint:longint);cdecl;external 'clib' name 'NWClearBreakpoint';
  1148. function NWSetBreakpoint(address,breakType:longint):longint;cdecl;external 'clib' name 'NWSetBreakpoint';
  1149. function NWDebugPrintf(format:Pchar; args:array of const):longint;cdecl;external 'clib' name 'NWDebugPrintf';
  1150. function NWDebugPrintf(format:Pchar):longint;cdecl;external 'clib' name 'NWDebugPrintf';
  1151. function NWValidateDebugProfile:longint;cdecl;external 'clib' name 'NWValidateDebugProfile';
  1152. procedure NWBumpFunctionCount(name:Pchar);cdecl;external 'clib' name 'NWBumpFunctionCount';
  1153. procedure NWDisplayBinaryAtAddr(addr:pointer);cdecl;external 'clib' name 'NWDisplayBinaryAtAddr';
  1154. procedure NWDisplayDoubleAtAddr(addr:pointer);cdecl;external 'clib' name 'NWDisplayDoubleAtAddr';
  1155. procedure NWDisplayLConvAtAddr(lc:pointer);cdecl;external 'clib' name 'NWDisplayLConvAtAddr';
  1156. procedure NWDisplayStringAtAddr(s:Pchar; len:longint);cdecl;external 'clib' name 'NWDisplayStringAtAddr';
  1157. procedure NWDisplayTMAtAddr(t:pointer);cdecl;external 'clib' name 'NWDisplayTMAtAddr';
  1158. procedure NWDisplayUnicodeAtAddr(s:pointer; len:longint);cdecl;external 'clib' name 'NWDisplayUnicodeAtAddr';
  1159. procedure NWEnableDebugProfile(flag:longint);cdecl;external 'clib' name 'NWEnableDebugProfile';
  1160. procedure EnterDebugger;cdecl;external 'clib' name 'EnterDebugger';
  1161. function GetDebugSettings:longint;cdecl;external 'clib' name 'GetDebugSettings';
  1162. procedure SetDebugSettings(Settings:longint);cdecl;external 'clib' name 'SetDebugSettings';
  1163. function GetNLMIDFromNLMName(NLMName:PChar):longint;cdecl;external 'clib' name 'GetNLMIDFromNLMName';
  1164. function GetDebugErrorMessage:PChar;cdecl;external 'clib' name 'GetDebugErrorMessage';
  1165. function GetMemoryUsage(NLMID:longint):longint;cdecl;external 'clib' name 'GetMemoryUsage';
  1166. {-nwdfs.h----------------------------------------------------------------------}
  1167. // completion codes
  1168. const
  1169. DFSFailedCompletion = -1;
  1170. DFSNormalCompletion = 0;
  1171. DFSInsufficientSpace = 1;
  1172. DFSVolumeSegmentDeactivated = 4;
  1173. DFSTruncationFailure = 16;
  1174. DFSHoleInFileError = 17;
  1175. DFSParameterError = 18;
  1176. DFSOverlapError = 19;
  1177. DFSSegmentError = 20;
  1178. DFSBoundryError = 21;
  1179. DFSInsufficientLimboFileSpace = 22;
  1180. DFSNotInDirectFileMode = 23;
  1181. DFSOperationBeyondEndOfFile = 24;
  1182. DFSOutOfHandles = 129;
  1183. DFSHardIOError = 131;
  1184. DFSInvalidFileHandle = 136;
  1185. DFSNoReadPrivilege = 147;
  1186. DFSNoWritePrivilege = 148;
  1187. DFSFileDetached = 149;
  1188. DFSInsufficientMemory = 150;
  1189. DFSInvalidVolume = 152;
  1190. DFSIOLockError = 162;
  1191. {$PACKRECORDS C}
  1192. type
  1193. PFileMapStructure = ^TFileMapStructure;
  1194. TFileMapStructure = record
  1195. fileBlock : longint;
  1196. volumeBlock : longint;
  1197. numberOfBlocks : longint;
  1198. end;
  1199. PVolumeInformationStructure = ^TVolumeInformationStructure;
  1200. TVolumeInformationStructure = record
  1201. VolumeAllocationUnitSizeInBytes : longint;
  1202. VolumeSizeInAllocationUnits : longint;
  1203. VolumeSectorSize : longint;
  1204. AllocationUnitsUsed : longint;
  1205. AllocationUnitsFreelyAvailable : longint;
  1206. AllocationUnitsInDeletedFilesNotAvailable : longint;
  1207. AllocationUnitsInAvailableDeletedFiles : longint;
  1208. NumberOfPhysicalSegmentsInVolume : longint;
  1209. PhysicalSegmentSizeInAllocationUnits : array[0..63] of longint;
  1210. end;
  1211. PDFSCallBackParameters = ^TDFSCallBackParameters;
  1212. TDFSCallBackParameters = record
  1213. localSemaphoreHandle : longint;
  1214. completionCode : longint;
  1215. end;
  1216. {-------------------------------------------------------------------------
  1217. Definition of setSizeFlags
  1218. ------------------------------------------------------------------------- }
  1219. const
  1220. SETSIZE_NON_SPARSE_FILE = $00000001; // Alloc blocks to extend the file
  1221. SETSIZE_NO_ZERO_FILL = $00000002; // Do not zero fill the newly allocated blocks
  1222. SETSIZE_UNDO_ON_ERR = $00000004; // In non sparse cases truncate back to original eof if an error occurs
  1223. SETSIZE_PHYSICAL_ONLY = $00000008; // Change the physical EOF only, dont change logical EOF. This means non sparse for the expand case
  1224. SETSIZE_LOGICAL_ONLY = $00000010; // Change only the logical EOF expand will always be sparse and truncate won't free physical blocks
  1225. function DFSclose(fileHandle:longint):longint;cdecl;external 'clib' name 'DFSclose';
  1226. function DFScreat(fileName:Pchar; permission,flagBits:longint):longint;cdecl;external 'clib' name 'DFScreat';
  1227. function DFSExpandFile(fileHandle,fileBlockNumber,
  1228. numberOfBlocks,volumeBlockNumber,segmentNumber:longint):longint;cdecl;external 'clib' name 'DFSExpandFile';
  1229. function DFSFreeLimboVolumeSpace(volumeNumber,numberOfBlocks:longint):longint;cdecl;external 'clib' name 'DFSFreeLimboVolumeSpace';
  1230. function DFSsopen(fileName:PChar; access,share,permission,flagBits,dataStream:longint):longint;cdecl;external 'clib' name 'DFSsopen';
  1231. function DFSRead(fileHandle,startingSector,sectorCount:longint; buffer:pointer):longint;cdecl;external 'clib' name 'DFSRead';
  1232. function DFSRead(fileHandle,startingSector,sectorCount:longint; var buffer):longint;cdecl;external 'clib' name 'DFSRead';
  1233. function DFSReadNoWait(fileHandle,startingSector,sectorCount:longint; buffer:pointer; callBackNode:PDFSCallBackParameters):longint;cdecl;external 'clib' name 'DFSReadNoWait';
  1234. function DFSReadNoWait(fileHandle,startingSector,sectorCount:longint; var buffer; var callBackNode:TDFSCallBackParameters):longint;cdecl;external 'clib' name 'DFSReadNoWait';
  1235. function DFSReturnFileMappingInformation(fileHandle,startingBlockNumber:longint; numberOfEntries:Plongint; tableSize:longint; table:PFileMapStructure):longint;cdecl;external 'clib' name 'DFSReturnFileMappingInformation';
  1236. function DFSReturnFileMappingInformation(fileHandle,startingBlockNumber:longint; var numberOfEntries:longint; tableSize:longint; var table:TFileMapStructure):longint;cdecl;external 'clib' name 'DFSReturnFileMappingInformation';
  1237. function DFSReturnVolumeBlockInformation(volumeNumber,startingBlockNumber,numberOfBlocks:longint; buffer:Pointer):longint;cdecl;external 'clib' name 'DFSReturnVolumeBlockInformation';
  1238. function DFSReturnVolumeBlockInformation(volumeNumber,startingBlockNumber,numberOfBlocks:longint; var buffer):longint;cdecl;external 'clib' name 'DFSReturnVolumeBlockInformation';
  1239. function DFSReturnVolumeMappingInformation(volumeNumber:longint; volumeInformation:PVolumeInformationStructure):longint;cdecl;external 'clib' name 'DFSReturnVolumeMappingInformation';
  1240. function DFSSetDataSize (handle:longint; newFileSize:int64; setSizeFlags:longint):longint; cdecl;external 'clib' name 'DFSSetDataSize';
  1241. function DFSSetEndOfFile(handle,newFileSize,returnTruncatedBlocksFlag:longint):longint;cdecl;external 'clib' name 'DFSSetEndOfFile';
  1242. function DFSWrite(fileHandle,startingSector,sectorCount:longint; buffer:pointer):longint;cdecl;external 'clib' name 'DFSWrite';
  1243. function DFSWrite(fileHandle,startingSector,sectorCount:longint; var buffer):longint;cdecl;external 'clib' name 'DFSWrite';
  1244. function DFSWriteNoWait(fileHandle,startingSector,sectorCount:longint; buffer:pointer; callBackNode:PDFSCallBackParameters):longint;cdecl;external 'clib' name 'DFSWriteNoWait';
  1245. function DFSWriteNoWait(fileHandle,startingSector,sectorCount:longint; var buffer; var callBackNode:TDFSCallBackParameters):longint;cdecl;external 'clib' name 'DFSWriteNoWait';
  1246. {-nwdos.h----------------------------------------------------------------------}
  1247. {$include npackon.inc}
  1248. type
  1249. Pfind_t = ^Tfind_t;
  1250. Tfind_t = record
  1251. reserved : array[0..20] of char;
  1252. attrib : char;
  1253. wr_time : word;
  1254. wr_date : word;
  1255. size : longint;
  1256. name : array[0..12] of char;
  1257. end;
  1258. {$include npackoff.inc}
  1259. function DOSChangeFileMode(name:Pchar; attributes:Plongint; _function:longint; newAttributes:longint):longint;cdecl;external 'clib' name 'DOSChangeFileMode';
  1260. function DOSClose(handle:longint):longint;cdecl;external 'clib' name 'DOSClose';
  1261. function DOSCopy(NetWareFileName,DOSFileName:Pchar):longint;cdecl;external 'clib' name 'DOSCopy';
  1262. function DOSCreate(fileName:Pchar; handle:Plongint):longint;cdecl;external 'clib' name 'DOSCreate';
  1263. function DOSCreate(fileName:Pchar; var handle:longint):longint;cdecl;external 'clib' name 'DOSCreate';
  1264. function DOSsopen(filename:Pchar; access,share,permission:longint):longint;cdecl;external 'clib' name 'DOSsopen';
  1265. function DOSFindFirstFile(fileName:Pchar; searchAttributes:word; diskTransferAddress:Pfind_t):longint;cdecl;external 'clib' name 'DOSFindFirstFile';
  1266. function DOSFindNextFile(diskTransferAddress:Pfind_t):longint;cdecl;external 'clib' name 'DOSFindNextFile';
  1267. function DOSMkdir(__dirName:Pchar):longint;cdecl;external 'clib' name 'DOSMkdir';
  1268. function DOSOpen(fileName:Pchar; handle:Plongint):longint;cdecl;external 'clib' name 'DOSOpen';
  1269. function DOSOpen(fileName:Pchar; var handle:longint):longint;cdecl;external 'clib' name 'DOSOpen';
  1270. function DOSPresent:longint;cdecl;external 'clib' name 'DOSPresent';
  1271. function DOSRead(handle,fileOffset:longint; buffer:pointer; numberOfBytesToRead:longint; numberOfBytesRead:Plongint):longint;cdecl;external 'clib' name 'DOSRead';
  1272. function DOSRead(handle,fileOffset:longint; var buffer; numberOfBytesToRead:longint; var numberOfBytesRead:longint):longint;cdecl;external 'clib' name 'DOSRead';
  1273. function DOSRemove(name:Pchar):longint;cdecl;external 'clib' name 'DOSRemove';
  1274. function DOSRename(srcName,dstName:Pchar):longint;cdecl;external 'clib' name 'DOSRename';
  1275. function DOSRmdir(Name:Pchar):longint;cdecl;external 'clib' name 'DOSRmdir';
  1276. function DOSSetDateAndTime(handle,date,time:longint):longint;cdecl;external 'clib' name 'DOSSetDateAndTime';
  1277. procedure DOSShutOffFloppyDrive;cdecl;external 'clib' name 'DOSShutOffFloppyDrive';
  1278. function DOSUnlink(Name:Pchar):longint;cdecl;external 'clib' name 'DOSUnlink';
  1279. function DOSWrite(handle,fileOffset:longint; buffer:pointer; numberOfBytesToWrite:longint; numberOfBytesWritten:Plongint):longint;cdecl;external 'clib' name 'DOSWrite';
  1280. function DOSWrite(handle,fileOffset:longint; var buffer; numberOfBytesToWrite:longint; var numberOfBytesWritten:longint):longint;cdecl;external 'clib' name 'DOSWrite';
  1281. {-nwfattr.h--------------------------------------------------------------------}
  1282. const
  1283. NWSH_PRE_401D_COMPAT = $80000000; // for multiple thread use, see documentation for sopen()...
  1284. { Attribute values for use with existing files }
  1285. { Normal (read/write) file }
  1286. _A_NORMAL = $00000000;
  1287. _A_RDONLY = $00000001;
  1288. _A_HIDDEN = $00000002;
  1289. _A_SYSTEM = $00000004;
  1290. _A_EXECUTE = $00000008;
  1291. _A_VOLID = $00000008; // Volume ID entry
  1292. _A_SUBDIR = $00000010;
  1293. _A_ARCH = $00000020;
  1294. _A_SHARE = $00000080;
  1295. _A_NO_SUBALLOC = $00000800; // Don't sub alloc. this file
  1296. _A_TRANS = $00001000; // Transactional file (TTS usable)
  1297. _A_READAUD = $00004000; // Read audit
  1298. _A_WRITAUD = $00008000; // Write audit
  1299. _A_IMMPURG = $00010000; // Immediate purge
  1300. _A_NORENAM = $00020000; // Rename inhibit
  1301. _A_NODELET = $00040000; // Delete inhibit
  1302. _A_NOCOPY = $00080000; // Copy inhibit
  1303. _A_FILE_MIGRATED = $00400000; // File has been migrated
  1304. _A_DONT_MIGRATE = $00800000; // Don't migrate this file
  1305. _A_IMMEDIATE_COMPRESS = $02000000; // Compress this file immediately
  1306. _A_FILE_COMPRESSED = $04000000; // File is compressed
  1307. _A_DONT_COMPRESS = $08000000; // Don't compress this file
  1308. _A_CANT_COMPRESS = $20000000; // Can't compress this file
  1309. _A_ATTR_ARCHIVE = $40000000; // Entry has had an EA modified
  1310. // an ownerID changed, or trustee
  1311. // info changed, etc.
  1312. // Attribute values usable during file creation
  1313. // Use: OR value with the file mode value to initialize the mode parameter
  1314. FA_NORMAL = _A_NORMAL shl 16;
  1315. FA_RDONLY = _A_RDONLY shl 16;
  1316. FA_HIDDEN = _A_HIDDEN shl 16;
  1317. FA_SYSTEM = _A_SYSTEM shl 16;
  1318. FA_EXECUTE = _A_EXECUTE shl 16;
  1319. FA_SUBDIR = _A_SUBDIR shl 16;
  1320. FA_ARCHIVE = _A_ARCH shl 16;
  1321. FA_SHARE = _A_SHARE shl 16;
  1322. { Extended file attributes values }
  1323. FA_TRANSAC = _A_TRANS shl 12;
  1324. FA_READAUD = _A_READAUD shl 12;
  1325. FA_WRITEAUD= _A_WRITAUD shl 12;
  1326. FA_IMMPURG = _A_IMMPURG shl 12;
  1327. FA_NORENAM = _A_NORENAM shl 12;
  1328. FA_NODELET = _A_NODELET shl 12;
  1329. FA_NOCOPY = _A_NOCOPY shl 12;
  1330. { Sharing values for sharable open functions }
  1331. { compatibility mode }
  1332. SH_COMPAT = $00;
  1333. { deny read/write mode }
  1334. SH_DENYRW = $10;
  1335. { deny write mode }
  1336. SH_DENYWR = $20;
  1337. { deny read mode }
  1338. SH_DENYRD = $30;
  1339. { deny none mode }
  1340. SH_DENYNO = $40;
  1341. { FEcreat/FEsopen flagBits parameter values used when creating a file }
  1342. DELETE_FILE_ON_CREATE_BIT = $0001;
  1343. NO_RIGHTS_CHECK_ON_CREATE_BIT = $0002;
  1344. { FEsopen flagBits parameter values used when opening a file }
  1345. FILE_WRITE_THROUGH_BIT = $00000040;
  1346. ENABLE_IO_ON_COMPRESSED_DATA_BIT = $00000100;
  1347. LEAVE_FILE_COMPRESSED_DATA_BIT = $00000200;
  1348. DELETE_FILE_ON_CLOSE_BIT = $00000400;
  1349. NO_RIGHTS_CHECK_ON_OPEN_BIT = $00010000;
  1350. OK_TO_OPEN_DOS_FILE = $80000000;
  1351. { Volume Flags used with NWGetVolumeFlags and NWSetVolumeFlags }
  1352. SUB_ALLOCATION_FLAG = $02; // if set sub allocation units valid on this volume
  1353. FILE_COMPRESSION_FLAG = $04; // if set file compression enabled on this volume
  1354. DATA_MIGRATION_FLAG = $08; // if set data migration is allowed on this volume
  1355. VOLUME_IMMEDIATE_PURGE_FLAG = $40; // if set volume is marked as immediate purge
  1356. { Name space values }
  1357. DOSNameSpace = 0;
  1358. MACNameSpace = 1;
  1359. NFSNameSpace = 2;
  1360. FTAMNameSpace = 3;
  1361. OS2NameSpace = 4;
  1362. LONGNameSpace = 4;
  1363. NTNameSpace = 5;
  1364. MAX_NAMESPACES = 6;
  1365. NWDOS_NAME_SPACE = DOSNameSpace;
  1366. NWMAC_NAME_SPACE = MACNameSpace;
  1367. NWNFS_NAME_SPACE = NFSNameSpace;
  1368. NWFTAM_NAME_SPACE = FTAMNameSpace;
  1369. NWOS2_NAME_SPACE = OS2NameSpace;
  1370. NWLONG_NAME_SPACE = LONGNameSpace;
  1371. NWNT_NAME_SPACE = NTNameSpace;
  1372. { Data stream values }
  1373. PrimaryDataStream = 0;
  1374. MACResourceForkDataStream = 1;
  1375. FTAMStructuringDataStream = 2;
  1376. { File path length values }
  1377. _MAX_PATH = 255; // maximum length of full pathname
  1378. _MAX_SERVER = 48; // maximum length of server name
  1379. _MAX_VOLUME = 16; // maximum length of volume component
  1380. _MAX_DRIVE = 3; // maximum length of drive component
  1381. _MAX_DIR = 255; // maximum length of path component
  1382. _MAX_FNAME = 9; // maximum length of file name component
  1383. _MAX_EXT = 5; // maximum length of extension component
  1384. _MAX_NAME = 13; // maximum length of file name
  1385. NAME_MAX = 12; // maximum length of file name (alternate view)
  1386. { Modify structure mask values }
  1387. MModifyNameBit = $0001;
  1388. MFileAttributesBit = $0002;
  1389. MCreateDateBit = $0004;
  1390. MCreateTimeBit = $0008;
  1391. MOwnerIDBit = $0010;
  1392. MLastArchivedDateBit = $0020;
  1393. MLastArchivedTimeBit = $0040;
  1394. MLastArchivedIDBit = $0080;
  1395. MLastUpdatedDateBit = $0100;
  1396. MLastUpdatedTimeBit = $0200;
  1397. MLastUpdatedIDBit = $0400;
  1398. MLastAccessedDateBit = $0800;
  1399. MInheritanceRestrictionMaskBit = $1000;
  1400. MMaximumSpaceBit = $2000;
  1401. MLastUpdatedInSecondsBit = $4000;
  1402. {$include npackon.inc}
  1403. type
  1404. PModifyStructure = ^TModifyStructure;
  1405. TModifyStructure = record
  1406. MModifyName : PBYTE;
  1407. MFileAttributes : longint;
  1408. MFileAttributesMask : longint;
  1409. MCreateDate : word;
  1410. MCreateTime : word;
  1411. MOwnerID : longint;
  1412. MLastArchivedDate : word;
  1413. MLastArchivedTime : word;
  1414. MLastArchivedID : longint;
  1415. MLastUpdatedDate : word;
  1416. MLastUpdatedTime : word;
  1417. MLastUpdatedID : longint;
  1418. MLastAccessedDate : word;
  1419. MInheritanceGrantMask : word;
  1420. MInheritanceRevokeMask : word;
  1421. MMaximumSpace : longint;
  1422. MLastUpdatedInSeconds : longint;
  1423. end;
  1424. {$include npackoff.inc}
  1425. {-nwadv.h----------------------------------------------------------------------}
  1426. {$include npackon.inc}
  1427. { Resource tag signatures for AllocateResourceTag }
  1428. const
  1429. AllocSignature = $54524C41;
  1430. AESProcessSignature = $50534541;
  1431. CacheNonMovableMemorySignature = $544D4E43;
  1432. ConsoleCommandSignature = $4D4F4343;
  1433. HardwareInterruptSignature = $50544E49;
  1434. InterruptTimeCallBackSignature = $524D4954;
  1435. SemiPermMemorySignature = $454D5053;
  1436. DebuggerSignature = $47554244;
  1437. BreakpointSignature = $54504B42;
  1438. { Data structure for RegisterConsoleCommand }
  1439. { set by RegisterConsoleCommand }
  1440. { parsing routing (user defined) }
  1441. { set to resource tag }
  1442. type
  1443. PcommandParserStructure = ^TcommandParserStructure;
  1444. TcommandParserStructure = record
  1445. Link : PcommandParserStructure;
  1446. parseRoutine : function (screenID:longint; commandLine:PBYTE):longint;cdecl;
  1447. RTag : longint;
  1448. end;
  1449. {
  1450. Structures and constants for RegisterForEvent function. Unless otherwise
  1451. noted an event does NOT call a Warn routine.
  1452. }
  1453. const
  1454. EVENT_VOL_SYS_MOUNT = 0;
  1455. { parameter is undefined. Report Routine will be called immediately
  1456. after vol SYS has been mounted.
  1457. }
  1458. EVENT_VOL_SYS_DISMOUNT = 1;
  1459. { parameter is undefined. Warn Routine and Report Routine will be
  1460. called before vol SYS is dismounted.
  1461. }
  1462. EVENT_ANY_VOL_MOUNT = 2;
  1463. { parameter is volume number. Report Routine will be called immediately
  1464. after any volume is mounted.
  1465. }
  1466. EVENT_ANY_VOL_DISMOUNT = 3;
  1467. { parameter is volume number. Warn Routine and Report Routine will be
  1468. called before any volume is dismounted.
  1469. }
  1470. EVENT_DOWN_SERVER = 4;
  1471. { parameter is undefined. Warn Routine and Report Routine will be
  1472. called before the server is shut down.
  1473. }
  1474. EVENT_EXIT_TO_DOS = 7;
  1475. { parameter is undefined. The Report Routine will be called before the
  1476. server exits to DOS.
  1477. }
  1478. EVENT_MODULE_UNLOAD = 8;
  1479. { parameter is module handle. Warn Routine and Report Routine will be
  1480. called when a module is unloaded from the console command line. Only
  1481. the Report Routine will be called when a module unloads itself.
  1482. }
  1483. EVENT_CLEAR_CONNECTION = 9;
  1484. { parameter is connection number. Report Routine is called before the
  1485. connection is cleared.
  1486. }
  1487. EVENT_LOGIN_USER = 10;
  1488. { parameter is connection number. Report Routine is called after the
  1489. connection has been allocated.
  1490. }
  1491. EVENT_CREATE_BINDERY_OBJ = 11;
  1492. { parameter is object ID. Report Routine is called after the object is
  1493. created and entered in the bindery.
  1494. }
  1495. EVENT_DELETE_BINDERY_OBJ = 12;
  1496. { parameter is object ID. Report Routine is called before the object is
  1497. removed from the bindery.
  1498. }
  1499. EVENT_CHANGE_SECURITY = 13;
  1500. { parameter is a pointer a structure of type EventSecurityChangeStruct.
  1501. Report Routine is called after a security
  1502. equivalence change has occurred.
  1503. }
  1504. EVENT_ACTIVATE_SCREEN = 14;
  1505. { Parameter is screen ID. Report routine is called after the
  1506. screen becomes the active screen.
  1507. }
  1508. EVENT_UPDATE_SCREEN = 15;
  1509. { Parameter is screen ID. Report routine is called after a change is
  1510. made to the screen image.
  1511. }
  1512. EVENT_UPDATE_CURSOR = 16;
  1513. { Parameter is screen ID. Report routine is called after a change to
  1514. the cursor position or state occurs.
  1515. }
  1516. EVENT_KEY_WAS_PRESSED = 17;
  1517. { Parameter is undefined. Report routine is called whenever a
  1518. key on the keyboard is pressed (including shift/alt/control).
  1519. This routine is called at interrupt time.
  1520. }
  1521. EVENT_DEACTIVATE_SCREEN = 18;
  1522. { Parameter is screen ID. Report routine is called when the
  1523. screen becomes inactive.
  1524. }
  1525. EVENT_TRUSTEE_CHANGE = 19;
  1526. { Parameter is a pointer to type struct EventTrusteeChangeStruct. The
  1527. report routine is called everytime there is a change to a trustee in
  1528. the file system. Shouldn't sleep.
  1529. }
  1530. EVENT_OPEN_SCREEN = 20;
  1531. { Parameter is the screen ID for the newly created screen. The report
  1532. routine will be called after the screen is created.
  1533. }
  1534. EVENT_CLOSE_SCREEN = 21;
  1535. { Parameter is the screen ID for the screen that will be closed. The
  1536. report routine will be called before the screen is closed.
  1537. }
  1538. EVENT_MODIFY_DIR_ENTRY = 22;
  1539. { Parameter is a pointer to a structure of type EventModifyDirEntryStruct
  1540. which contains the modify information. The report routine will be
  1541. called right after the entry is changed but before the directory
  1542. entry is unlocked. The report routine must not go to sleep.
  1543. }
  1544. EVENT_NO_RELINQUISH_CONTROL = 23;
  1545. { Parameter is the running process. This will be called when the
  1546. timer detects that a process is hogging the processor. The report
  1547. routine must not sleep.
  1548. }
  1549. EVENT_THREAD_SWITCH = 25;
  1550. { Parameter is the threadID of the thread that was executing when the
  1551. thread switch occurred. The report routine will be called when the
  1552. new thread begins executing. The report routine must not go to sleep.
  1553. }
  1554. EVENT_MODULE_LOAD = 27;
  1555. { parameter is module handle. The report routine will be called
  1556. after a module has loaded.
  1557. }
  1558. EVENT_CREATE_PROCESS = 28;
  1559. { parameter is the PID of the process being created. It is called
  1560. after the process is created. The report routine may not sleep.
  1561. }
  1562. EVENT_DESTROY_PROCESS = 29;
  1563. { parameter is the PID of the process being destroyed. It is called
  1564. before the process is actually destroyed. The report routine may not
  1565. sleep.
  1566. }
  1567. EVENT_NEW_PUBLIC = 32;
  1568. { Parameter is a pointer to a length preceded string which is the name
  1569. of the new public entry point. This event may not sleep.
  1570. }
  1571. EVENT_PROTOCOL_BIND = 33;
  1572. { Parameter is a pointer to a structure of type EventProtocolBindStruct.
  1573. This event is generated every time a board is bound to a protocol.
  1574. This event may sleep.
  1575. }
  1576. EVENT_PROTOCOL_UNBIND = 34;
  1577. { Parameter is a pointer to a structure of type EventProtocolBindStruct.
  1578. This event is generated every time a board is unbound from a protocol.
  1579. This event may sleep.
  1580. }
  1581. EVENT_ALLOCATE_CONNECTION = 37;
  1582. { parameter is connection number. Report Routine is called after the
  1583. connection is allocated.
  1584. }
  1585. EVENT_LOGOUT_CONNECTION = 38;
  1586. { parameter is connection number. Report Routine is called before the
  1587. connection is logged out. The event handler may sleep.
  1588. }
  1589. EVENT_MLID_REGISTER = 39;
  1590. { parameter is board number. Report Routine is called after the MLID
  1591. is registered.
  1592. }
  1593. EVENT_MLID_DEREGISTER = 40;
  1594. { parameter is board number. Report Routine is called before the MLID
  1595. is deregistered.
  1596. }
  1597. EVENT_DATA_MIGRATION = 41;
  1598. { Parameter is a pointer to a structure of type EventDateMigrationInfo.
  1599. This event is generated when a file's data has been migrated.
  1600. }
  1601. EVENT_DATA_DEMIGRATION = 42;
  1602. { Parameter is a pointer to a structure of type EventDateMigrationInfo.
  1603. This event is generated when a file's data has been de-migrated.
  1604. }
  1605. EVENT_QUEUE_ACTION = 43;
  1606. { Parameter is a pointer to a structure of type EventQueueNote.
  1607. This event is generated when a queue is activated, deactivated,
  1608. created, or deleted.
  1609. }
  1610. EVENT_NETWARE_ALERT = 44;
  1611. { Parameter is a pointer to a structure of type EventNetwareAlertStruct.
  1612. This event is generated anytime the following alert calls are
  1613. made:
  1614. NetWareAlert NW 4.X
  1615. The report routine may sleep.
  1616. }
  1617. EVENT_CREATE_OBJECT = 46;
  1618. { Parameter is a pointer to a structure of type EventBinderyObject
  1619. or EventDSObject
  1620. }
  1621. EVENT_DELETE_OBJECT = 47;
  1622. { Parameter is a pointer to a structure of type EventBinderyObject
  1623. or EventDSObject
  1624. }
  1625. EVENT_RENAME_OBJECT = 48;
  1626. { Parameter is a pointer to a structure of type EventBinderyObject
  1627. or EventDSObject
  1628. }
  1629. EVENT_VALUE_CHANGE = 49;
  1630. { Parameter is a pointer to a structure of type EventBinderyObject
  1631. or EventDSObject
  1632. }
  1633. EVENT_CLOSE_FILE = 50;
  1634. { Parameter is a pointer to a structure of type EventCloseFileInfo. }
  1635. EVENT_CHANGE_TIME = 51;
  1636. { This event is given when the time is changed or when Time
  1637. Synchronization schedules a nonuniform adjustment. The parameter is
  1638. the UTC time (in seconds) before the time change. The current time
  1639. is available from the OS. Since you have no way of knowing the
  1640. magnitudue of the time change, nor whether it has taken place or is
  1641. scheduled for the next clock interrupt, you must detect the time
  1642. change on your own. In general, if current time is less than old
  1643. time, or at least two seconds ahead of old time, then the time change
  1644. has been applied. You must wait for one of those conditions to be
  1645. sure that the time change has "settled down" before you can assume
  1646. that the event has "happened."
  1647. }
  1648. EVENT_MOVE_OBJECT = 52;
  1649. { Parameter is a pointer to a structure of type EventBinderyObject
  1650. or EventDSObject
  1651. }
  1652. EVENT_VALUE_ADD = 53;
  1653. { Parameter is a pointer to a structure of type EventBinderyObject
  1654. or EventDSObject
  1655. }
  1656. EVENT_VALUE_DEL = 54;
  1657. { Parameter is a pointer to a structure of type EventBinderyObject
  1658. or EventDSObject
  1659. }
  1660. EVENT_DM_KEY_MODIFIED = 55;
  1661. { Parameter is a pointer to a structure of type EventDMKeyModified
  1662. }
  1663. EVENT_MODULE_UNLOADED = 56;
  1664. { Parameter is module handle. Report Routine will be called after the
  1665. NLM's exit routine has been called, after his resources have been
  1666. returned to the OS, and after he has been unlinked from the OS's lists.
  1667. The only thing left of this NLM is the memory for his load definition
  1668. structure, data image, and code image.
  1669. }
  1670. EVENT_REMOVE_PUBLIC = 57;
  1671. { Parameter is the address of the public entry point. This only happens
  1672. on module unload.
  1673. }
  1674. EVENT_DS_EVENT = 58;
  1675. { Parameter is the address of a DS defined event structure }
  1676. EVENT_UNICODE = 59;
  1677. { Parameter is the address of a UNICODE defined event structure }
  1678. EVENT_SFT3_SERVER_STATE = 60;
  1679. { Parameter is the ServerState Number
  1680. (Refer to messtype.h, server state codes)
  1681. IOEngineState 0
  1682. PrimaryNoSecondaryState 1
  1683. PrimarySyncingWithSecondaryState 2
  1684. PrimaryTransferingMemoryImageState 3
  1685. PrimaryWithSecondaryState 4
  1686. SecondaryTransferingMemoryImageState 5
  1687. SecondaryMirroredState 6
  1688. }
  1689. EVENT_SFT3_IMAGE_STATE = 61;
  1690. { Parameter is memory mirror state }
  1691. { 0 = Not mirrored }
  1692. { 1 = Mirrored }
  1693. EVENT_SFT3_PRESYNC_STATE = 62;
  1694. { called when the primary is about ready to synchronize }
  1695. { with the secondary }
  1696. { Parameter is unsed for now. }
  1697. { This event report is allowed to sleep }
  1698. EVENT_ALTERNATE_MOUNT_VOLUME = 63;
  1699. { called when NetWare is not aware of the volume name to be mounted, }
  1700. { Parameter is used to pass a event structure EventAlternateMountVolume. }
  1701. { This event report is allowed to sleep, also the return code is in the }
  1702. { structre, after it has been processed. }
  1703. EVENT_CONSOLE_CONFIG_COMMAND = 64;
  1704. { called when the console command CONFIG is typed on the server command }
  1705. { line. The event report is allowed to sleep. The console screen handle }
  1706. { pointer is passed as the only parameter }
  1707. EVENT_CONSOLE_VERSION_COMMAND = 65;
  1708. { called when the console command VERSION is typed on the server command }
  1709. { line. The event report is allowed to sleep. A pointer to the structure }
  1710. { struct EventConfigVersionCmdInfo to help in the displaying to the screen }
  1711. EVENT_PRE_LOAD_NLM = 66;
  1712. { called while an NLM is being loaded but before most of the work is
  1713. done. The data and code segments have not been allocated yet. The
  1714. event report is allowed to sleep. The parameter is a pointer to an
  1715. NLM Load File Header structure.
  1716. }
  1717. EVENT_LOW_MEMORY = 67;
  1718. { called when the cache memory allocator tries to allocate a cache block
  1719. and fails; only one event per minute will be generated. It happens
  1720. in conjunction with the netware alert. The event report can block.
  1721. The parameter is a zero. This event is mainly for OS2 based NetWare
  1722. so it can try to borrow memory back from OS2.
  1723. }
  1724. {-----------------------------------------------------------
  1725. Flags for the trustee change event (EVENT_TRUSTEE_CHANGE)
  1726. ----------------------------------------------------------- }
  1727. EVENT_NEW_TRUSTEE = 1;
  1728. EVENT_REMOVE_TRUSTEE = 2;
  1729. {-------------------------------------------------------------
  1730. Flags for the change security event (EVENT_CHANGE_SECURITY)
  1731. ------------------------------------------------------------- }
  1732. EVENT_ADD_EQUIVALENCE = 1;
  1733. EVENT_REMOVE_EQUIVALENCE = 2;
  1734. {----------------------------------------------
  1735. Structure returned for EVENT_TRUSTEE_CHANGE
  1736. ---------------------------------------------- }
  1737. { flags are EVENT_NEW_TRUSTEE and EVENT_REMOVE_TRUSTEE }
  1738. type
  1739. PEventTrusteeChangeStruct = ^TEventTrusteeChangeStruct;
  1740. TEventTrusteeChangeStruct = record
  1741. objectID : longint;
  1742. entryID : longint;
  1743. volumeNumber : longint;
  1744. changeFlags : longint;
  1745. newRights : longint;
  1746. end;
  1747. {-----------------------------------------------
  1748. Structure returned for EVENT_CHANGE_SECURITY
  1749. ----------------------------------------------- }
  1750. { EVENT_ADD_EQUIVALENCE and EVENT_REMOVE_EQUIVALENCE }
  1751. PEventSecurityChangeStruct = ^TEventSecurityChangeStruct;
  1752. TEventSecurityChangeStruct = record
  1753. objectID : longint;
  1754. equivalentID : longint;
  1755. changeFlags : longint;
  1756. end;
  1757. {------------------------------------------------
  1758. Structure returned for EVENT_MODIFY_DIR_ENTRY
  1759. ------------------------------------------------ }
  1760. PEventModifyDirEntryStruct = ^TEventModifyDirEntryStruct;
  1761. TEventModifyDirEntryStruct = record
  1762. primaryDirectoryEntry : longint;
  1763. nameSpace : longint;
  1764. modifyBits : longint;
  1765. modifyVector : PModifyStructure;
  1766. volumeNumber : longint;
  1767. directoryEntry : longint;
  1768. end;
  1769. {----------------------------------------------------
  1770. Structure returned for EVENT_PROTOCOL_BIND & UNBIND
  1771. ---------------------------------------------------- }
  1772. PEventProtocolBindStruct = ^TEventProtocolBindStruct;
  1773. TEventProtocolBindStruct = record
  1774. boardNumber : longint;
  1775. protocolNumber : longint;
  1776. end;
  1777. {----------------------------------------------------------
  1778. Structure returned for EVENT_DATA_MIGRATION & DEMIGRATION
  1779. ---------------------------------------------------------- }
  1780. { 255 + 1 len byte }
  1781. PEventDateMigrationInfo = ^TEventDateMigrationInfo;
  1782. TEventDateMigrationInfo = record
  1783. FileSystemTypeID : longint;
  1784. Volume : longint;
  1785. DOSDirEntry : longint;
  1786. OwnerDirEntry : longint;
  1787. OwnerNameSpace : longint;
  1788. OwnerFileName : array[0..255] of byte;
  1789. end;
  1790. {------------------------------------------------
  1791. Structure returned for EVENT_QUEUE_ACTION
  1792. ------------------------------------------------ }
  1793. { 0=created, 1=deleted, 2 = activated, 3 = deactivated }
  1794. PEventQueueNote = ^TEventQueueNote;
  1795. TEventQueueNote = record
  1796. QAction : longint;
  1797. QID : longint;
  1798. QName : array[0..49] of byte;
  1799. end;
  1800. {------------------------------------------------
  1801. Structure returned for EVENT_NETWARE_ALERT
  1802. ------------------------------------------------ }
  1803. PEventNetwareAlertStruct = ^TEventNetwareAlertStruct;
  1804. TEventNetwareAlertStruct = record
  1805. alertFlags : longint;
  1806. alertId : longint;
  1807. alertLocus : longint;
  1808. alertClass : longint;
  1809. alertSeverity : longint;
  1810. targetStationCount : longint;
  1811. targetStationList : array[0..31] of longint;
  1812. targetNotificationBits : longint;
  1813. alertParmCount : longint;
  1814. alertDataPtr : pointer;
  1815. NetWorkManagementAttributePointer : pointer;
  1816. alertUnused : array[0..1] of longint;
  1817. alertControlStringMessageNumber : longint;
  1818. alertControlString : array[0..255] of byte;
  1819. alertParameters : array[0..(256 + 256)-1] of byte;
  1820. alertModuleName : array[0..35] of byte;
  1821. alertModuleMajorVersion : longint;
  1822. alertModuleMinorVersion : longint;
  1823. alertModuleRevision : longint;
  1824. end;
  1825. { set to 'BIND' for bindery }
  1826. PEventBinderyObject = ^TEventBinderyObject;
  1827. TEventBinderyObject = record
  1828. EventObjectType : longint;
  1829. ObjectID : longint;
  1830. ObjectType : longint;
  1831. end;
  1832. { 'DNIB' }
  1833. const
  1834. EventBinderySignature = $444e4942;
  1835. { 'CVSD' }
  1836. EventDSSignature = $43565344;
  1837. { set to 'DSVC' for directory services }
  1838. { add, delete, etc. }
  1839. { DS defined entry structure }
  1840. type
  1841. PEventDSObject = ^TEventDSObject;
  1842. TEventDSObject = record
  1843. EventObjectType : longint;
  1844. EventType : longint;
  1845. entry : pointer;
  1846. end;
  1847. PEventCloseFileInfo = ^TEventCloseFileInfo;
  1848. TEventCloseFileInfo = record
  1849. fileHandle : longint;
  1850. station : longint;
  1851. task : longint;
  1852. fileHandleFlags : longint;
  1853. completionCode : longint;
  1854. end;
  1855. TreportProcedure = procedure (parameter:longint; userParameter:longint); cdecl;
  1856. TOutputRoutine = procedure (controlString:pointer; args:array of const); cdecl;
  1857. TWarnProcedure = function (OutputRoutine:TOutputRoutine; parameter,userParameter:longint):longint; cdecl;
  1858. { struct EventCloseFileInfo's fileHandleFlags }
  1859. const
  1860. ECNotReadableBit = $00000001;
  1861. ECNotWriteableBit = $00000002;
  1862. ECWrittenBit = $00000004;
  1863. ECDetachedBit = $00000008;
  1864. ECDirectFileSystemBit = $00000020;
  1865. ECFileWriteThroughBit = $00000040;
  1866. {$include npackoff.inc}
  1867. function AllocateResourceTag (NLMHandle:longint;
  1868. descriptionString:PChar;
  1869. resourceType:longint):longint;cdecl;external 'clib' name 'AllocateResourceTag';
  1870. function DSAllocateEventTag (DSEventSignature:longint):pointer;cdecl;external 'clib' name 'DSAllocateEventTag';
  1871. function GetCurrentOSLanguageID:longint;cdecl;external 'clib' name 'GetCurrentOSLanguageID';
  1872. function GetFileHoleMap (handle:longint;
  1873. startingPosition:longint;
  1874. numberOfBlocks:longint;
  1875. replyBitMapP:PBYTE;
  1876. allocationUnitSizeP:Plongint):longint;cdecl;external 'clib' name 'GetFileHoleMap';
  1877. function GetFileHoleMap (handle:longint;
  1878. startingPosition:longint;
  1879. numberOfBlocks:longint;
  1880. var replyBitMapP;
  1881. var allocationUnitSizeP:longint):longint;cdecl;external 'clib' name 'GetFileHoleMap';
  1882. function GetSetableParameterValue (connectionNumber:longint;
  1883. setableParameterString:PChar;
  1884. returnValue:pointer):longint;cdecl;external 'clib' name 'GetSetableParameterValue';
  1885. function GetSettableParameterValue (connectionNumber:longint;
  1886. setableParameterString:PBYTE;
  1887. returnValue:pointer):longint;cdecl;external 'clib' name 'GetSetableParameterValue'; // use this define if the misspelling is too annoying
  1888. function GetThreadDataAreaPtr:pointer;cdecl;external 'clib' name 'GetThreadDataAreaPtr';
  1889. function ImportSymbol(NLMHandle:longint; symbolName:Pchar):pointer;cdecl;external 'clib' name 'ImportSymbol';
  1890. function LoadLanguageMessageTable(messageTable:PPPchar; messageCount:Plongint; languageID:Plongint):longint;cdecl;external 'clib' name 'LoadLanguageMessageTable';
  1891. function LoadLanguageMessageTable(var messageTable; var messageCount:longint; languageID:Plongint):longint;cdecl;external 'clib' name 'LoadLanguageMessageTable';
  1892. function NWAddSearchPathAtEnd(searchPath:PChar; number:Plongint):longint;cdecl;external 'clib' name 'NWAddSearchPathAtEnd';
  1893. function NWAddSearchPathAtEnd(searchPath:PChar; var number:longint):longint;cdecl;external 'clib' name 'NWAddSearchPathAtEnd';
  1894. function NWDeleteSearchPath(searchPathNumber:longint):longint;cdecl;external 'clib' name 'NWDeleteSearchPath';
  1895. function NWGetSearchPathElement (searchPathNumber:longint;
  1896. isDOSSearchPath:Plongint;
  1897. searchPath:PChar):longint;cdecl;external 'clib' name 'NWGetSearchPathElement';
  1898. function NWGetSearchPathElement (searchPathNumber:longint;
  1899. var isDOSSearchPath:boolean;
  1900. searchPath:PChar):longint;cdecl;external 'clib' name 'NWGetSearchPathElement';
  1901. function NWInsertSearchPath(searchPathNumber:longint; path:PChar):longint;cdecl;external 'clib' name 'NWInsertSearchPath';
  1902. function RegisterConsoleCommand(newCommandParser:PcommandParserStructure):longint;cdecl;external 'clib' name 'RegisterConsoleCommand';
  1903. function RegisterForEvent (eventType:longint;
  1904. reportProcedure:TreportProcedure;
  1905. warnProcedure:TwarnProcedure):longint;cdecl;external 'clib' name 'RegisterForEvent';
  1906. function RenameLanguage (languageID:longint;
  1907. newLanguageName:PChar;
  1908. showErrorsToConsole:longint):longint;cdecl;external 'clib' name 'RenameLanguage';
  1909. function ReturnLanguageName(languageID:longint; languageName:PChar):longint;cdecl;external 'clib' name 'ReturnLanguageName';
  1910. procedure SaveThreadDataAreaPtr(threadDataAreaPtr:pointer);cdecl;external 'clib' name 'SaveThreadDataAreaPtr';
  1911. { -1 for all, COMMUNICATIONS, MEMORY, etc }
  1912. { 0 for first time }
  1913. { 0 = number, 1 = boolean, 2 = time ticks., etc }
  1914. { STARTUP, HIDE, etc }
  1915. { COMMUNICATIONS, MEMORY, etc }
  1916. { description string }
  1917. function ScanSetableParameters (scanCategory:longint;
  1918. scanSequence:Plongint;
  1919. rParameterName:PBYTE;
  1920. rType:Plongint;
  1921. rFlags:Plongint;
  1922. rCategory:Plongint;
  1923. rParameterDescription:pointer;
  1924. rCurrentValue:pointer;
  1925. rLowerLimit:Plongint;
  1926. rUpperLimit:Plongint):longint;cdecl;external 'clib' name 'ScanSetableParameters';
  1927. function SetCurrentOSLanguageID(newLanguageID:longint):longint;cdecl;external 'clib' name 'SetCurrentOSLanguageID';
  1928. function SetSetableParameterValue (connectionNumber:longint;
  1929. setableParameterString:PBYTE;
  1930. newValue:pointer):longint;cdecl;external 'clib' name 'SetSetableParameterValue';
  1931. procedure SynchronizeStart;cdecl;external 'clib' name 'SynchronizeStart';
  1932. function UnimportSymbol (NLMHandle:longint;
  1933. symbolName:Pchar):longint;cdecl;external 'clib' name 'UnimportSymbol';
  1934. function UnRegisterConsoleCommand (commandParserToDelete:PcommandParserStructure):longint;cdecl;external 'clib' name 'UnRegisterConsoleCommand';
  1935. function UnregisterForEvent (eventHandle:longint):longint;cdecl;external 'clib' name 'UnregisterForEvent';
  1936. {-nwfileio.h-------------------------------------------------------------------}
  1937. type
  1938. PcacheBufferStructure = ^TcacheBufferStructure;
  1939. TcacheBufferStructure = record
  1940. cacheBufferPointer : Pchar;
  1941. cacheBufferLength : longint;
  1942. completionCode : longint;
  1943. end;
  1944. TT_cacheBufferStructure = TcacheBufferStructure;
  1945. PT_cacheBufferStructure = ^TT_cacheBufferStructure;
  1946. PmwriteBufferStructure = ^TmwriteBufferStructure;
  1947. TmwriteBufferStructure = record
  1948. mwriteBufferPointer : Pchar;
  1949. mwriteBufferLength : longint;
  1950. reserved : longint;
  1951. end;
  1952. TT_mwriteBufferStructure = TmwriteBufferStructure;
  1953. PT_mwriteBufferStructure = ^TT_mwriteBufferStructure;
  1954. { NetWare additions to POSIX... }
  1955. function filelength(fildes:longint):longint;cdecl;external 'clib' name 'filelength';
  1956. function gwrite(fildes:longint; bufferP:PT_mwriteBufferStructure; numberBufs:longint; numberBufsWritten:plongint):longint;cdecl;external 'clib' name 'gwrite';
  1957. function gwrite(fildes:longint; var buffer:TT_mwriteBufferStructure; numberBufs:longint; var numberBufsWritten:longint):longint;cdecl;external 'clib' name 'gwrite';
  1958. function lock(fildes,offset,nbytes:longint):longint;cdecl;external 'clib' name 'lock';
  1959. function qread(fildes:longint; buffer:pointer; len,position:longint):longint;cdecl;external 'clib' name 'qread';
  1960. function qread(fildes:longint; var buffer; len,position:longint):longint;cdecl;external 'clib' name 'qread';
  1961. function qwrite(fildes:longint; buffer:pointer; len,position:longint):longint;cdecl;external 'clib' name 'qwrite';
  1962. function qwrite(fildes:longint; var buffer; len,position:longint):longint;cdecl;external 'clib' name 'qwrite';
  1963. function setmode(fildes,mode:longint):longint;cdecl;external 'clib' name 'setmode';
  1964. // sopen already in fcntl
  1965. //function sopen(path:Pchar; oflag,shflag:longint; args:array of const):longint;cdecl;external 'clib' name 'sopen';
  1966. //function sopen(path:Pchar; oflag,shflag:longint):longint;cdecl;external 'clib' name 'sopen';
  1967. function tell(fildes:longint):longint;cdecl;external 'clib' name 'tell';
  1968. function unlock(fildes,offset,nbytes:longint):longint;cdecl;external 'clib' name 'unlock';
  1969. { other NetWare file I/O utilities... }
  1970. function AsyncRead(handle:longint;
  1971. startingOffset:longint;
  1972. numberBytesToRead:longint;
  1973. numberBytesRead:plongint;
  1974. localSemaHandle:longint;
  1975. cacheBufferInfo:PT_cacheBufferStructure;
  1976. numOfCacheBufs:plongint):longint;cdecl;external 'clib' name 'AsyncRead';
  1977. function AsyncRead(handle:longint;
  1978. startingOffset:longint;
  1979. numberBytesToRead:longint;
  1980. var numberBytesRead:longint;
  1981. localSemaHandle:longint;
  1982. var cacheBufferInfo:TT_cacheBufferStructure;
  1983. var numOfCacheBufs:longint):longint;cdecl;external 'clib' name 'AsyncRead';
  1984. procedure AsyncRelease(cacheBufferInfo:PT_cacheBufferStructure);cdecl;external 'clib' name 'AsyncRelease';
  1985. procedure AsyncRelease(var cacheBufferInfo:TT_cacheBufferStructure);cdecl;external 'clib' name 'AsyncRelease';
  1986. function CountComponents(pathString:PChar; len:longint):longint;cdecl;external 'clib' name 'CountComponents';
  1987. function GetExtendedFileAttributes(pathName:Pchar; extFileAttrs:PBYTE):longint;cdecl;external 'clib' name 'GetExtendedFileAttributes';
  1988. function GetExtendedFileAttributes(pathName:Pchar; var extFileAttrs):longint;cdecl;external 'clib' name 'GetExtendedFileAttributes';
  1989. procedure _makepath(path,drive,dir,fname,ext:Pchar);cdecl;external 'clib' name '_makepath';
  1990. function NWGetVolumeFlags(volume:longint; flags:plongint):longint;cdecl;external 'clib' name 'NWGetVolumeFlags';
  1991. function NWGetVolumeFlags(volume:longint; var flags:longint):longint;cdecl;external 'clib' name 'NWGetVolumeFlags';
  1992. function NWSetVolumeFlags(volume,flags:longint):longint;cdecl;external 'clib' name 'NWSetVolumeFlags';
  1993. function ParsePath(path,server,volume,directories:Pchar):longint;cdecl;external 'clib' name 'ParsePath';
  1994. // SetReaddirAttribute already defined in dirent
  1995. //function SetReaddirAttribute(dirP:PDIR; newAttribute:dword):longint;cdecl;external 'clib' name 'SetReaddirAttribute';
  1996. procedure _splitpath(path,drive,dir,fname,ext:Pchar);cdecl;external 'clib' name '_splitpath';
  1997. procedure UseAccurateCaseForPaths(yesno:longint);cdecl;external 'clib' name 'UseAccurateCaseForPaths';
  1998. procedure UnAugmentAsterisk(yesno:longint);cdecl;external 'clib' name 'UnAugmentAsterisk';
  1999. {-nwfileeng.h------------------------------------------------------------------}
  2000. { values for flags parameter in FEGetOpenFileInfo()... }
  2001. const
  2002. _NotReadableBit = $00000001;
  2003. _NotWriteableBit = $00000002;
  2004. _WrittenBit = $00000004;
  2005. _DetachedBit = $00000008;
  2006. _SwitchingToDirectFileSystemModeBit = $00000010;
  2007. _DirectFileSystemModeBit = $00000020;
  2008. _FileWriteThroughBit = $00000040;
  2009. { extra flags }
  2010. _DiskBlockReturnedBit = $00010000;
  2011. _IAmOnTheOpenFileListBit = $00020000;
  2012. _FileReadAuditBit = $00040000;
  2013. _FileWriteAuditBit = $00080000;
  2014. _FileCloseAuditBit = $00100000;
  2015. _DontFileWriteSystemAlertBit = $00200000;
  2016. _ReadAheadHintBit = $00400000;
  2017. _NotifyCompressionOnCloseBit = $00800000;
  2018. { extra extra flags }
  2019. _IsWritingCompressedBit = $01000000;
  2020. _HasTimeDateBit = $02000000;
  2021. _DoingDeCompressionBit = $04000000;
  2022. _NoSubAllocBit = $08000000;
  2023. _IsATransactionFileBit = $10000000;
  2024. _HasFileWritePrivilegeBit = $20000000;
  2025. _TTSReadAuditBit = $40000000;
  2026. _TTSWriteAuditBit = $80000000;
  2027. type
  2028. TT_PathParseFunc = function (inputPath:Pchar;
  2029. var connectionIDp:word;
  2030. var volumeNumber:longint;
  2031. var directoryNumber:longint;
  2032. outPathStringP:PChar;
  2033. var outPathCount:longint):longint;cdecl;
  2034. function FEConvertDirectoryNumber(sourceNameSpace:longint;
  2035. volumeNumber:longint;
  2036. sourceDirectoryNumber:longint;
  2037. destinationNameSpace:longint;
  2038. destinationDirectoryNumberP:Plongint):longint;cdecl;external 'clib' name 'FEConvertDirectoryNumber';
  2039. function FEConvertDirectoryNumber(sourceNameSpace:longint;
  2040. volumeNumber:longint;
  2041. sourceDirectoryNumber:longint;
  2042. destinationNameSpace:longint;
  2043. var destinationDirectoryNumber:longint):longint;cdecl;external 'clib' name 'FEConvertDirectoryNumber';
  2044. function FEcreat(name:Pchar; permission,flagBits:longint):longint;cdecl;external 'clib' name 'FEcreat';
  2045. function FEFlushWrite(handle:longint):longint;cdecl;external 'clib' name 'FEFlushWrite';
  2046. function FEGetCWDnum:longint;cdecl;external 'clib' name 'FEGetCWDnum';
  2047. function FEGetCWVnum:longint;cdecl;external 'clib' name 'FEGetCWVnum';
  2048. function FEGetDirectoryEntry(volumeNumber,directoryNumber:longint; pathString:PChar;
  2049. pathCount,desiredNameSpace:longint;
  2050. namespaceDirectoryStructPp:Ppointer;
  2051. DOSdirectoryStructPp:Ppointer):longint;cdecl;external 'clib' name 'FEGetDirectoryEntry';
  2052. function FEGetDirectoryEntry(volumeNumber,directoryNumber:longint; pathString:PChar;
  2053. pathCount,desiredNameSpace:longint;
  2054. var namespaceDirectoryStructP:Pointer;
  2055. var DOSdirectoryStructP:Pointer):longint;cdecl;external 'clib' name 'FEGetDirectoryEntry';
  2056. function FEGetEntryVersion(volumeNumber,directoryNumber:longint; pathString:PChar; pathCount:longint; version:PWORD):longint;cdecl;external 'clib' name 'FEGetEntryVersion';
  2057. function FEGetEntryVersion(volumeNumber,directoryNumber:longint; pathString:PChar; pathCount:longint; var version:word):longint;cdecl;external 'clib' name 'FEGetEntryVersion';
  2058. function FEGetOpenFileInfo (connection:longint;
  2059. handle:longint;
  2060. volume:Plongint;
  2061. directoryNumber:Plongint;
  2062. dataStream:Plongint;
  2063. flags:Plongint):longint;cdecl;external 'clib' name 'FEGetOpenFileInfo';
  2064. function FEGetOpenFileInfo (connection:longint;
  2065. handle:longint;
  2066. var volume,directoryNumber,dataStream,flags:longint):longint;cdecl;external 'clib' name 'FEGetOpenFileInfo';
  2067. function FEGetOpenFileInfoForNS (connection, handle:longint;
  2068. volume,DOSdirectoryNumber,directoryNumber:Plongint;
  2069. nameSpace,dataStream,flags:Plongint):longint;cdecl;external 'clib' name 'FEGetOpenFileInfoForNS';
  2070. function FEGetOpenFileInfoForNS (connection, handle:longint;
  2071. var volume,DOSdirectoryNumber,directoryNumber:longint;
  2072. var nameSpace,dataStream,flags:longint):longint;cdecl;external 'clib' name 'FEGetOpenFileInfoForNS';
  2073. function FEGetOriginatingNameSpace(volumeNumber,directoryNumber:longint):longint;cdecl;external 'clib' name 'FEGetOriginatingNameSpace';
  2074. function FEMapConnsHandleToVolAndDir(connection,handle:longint; volumeNumberP,directoryNumberP:Plongint):longint;cdecl;external 'clib' name 'FEMapConnsHandleToVolAndDir';
  2075. function FEMapConnsHandleToVolAndDir(connection,handle:longint; var volumeNumber,directoryNumber:longint):longint;cdecl;external 'clib' name 'FEMapConnsHandleToVolAndDir';
  2076. function FEMapHandleToVolumeAndDirectory(handle:longint; volumeNumberP,directoryNumberP:PLongint):longint;cdecl;external 'clib' name 'FEMapHandleToVolumeAndDirectory';
  2077. function FEMapHandleToVolumeAndDirectory(handle:longint; var volumeNumberP,directoryNumberP:Longint):longint;cdecl;external 'clib' name 'FEMapHandleToVolumeAndDirectory';
  2078. function FEMapPathVolumeDirToVolumeDir(pathName:Pchar; volumeNumber,directoryNumber:longint; newVolumeNumberP,newDirectoryNumberP:Plongint):longint;cdecl;external 'clib' name 'FEMapPathVolumeDirToVolumeDir';
  2079. function FEMapPathVolumeDirToVolumeDir(pathName:Pchar; volumeNumber,directoryNumber:longint; var newVolumeNumberP,newDirectoryNumberP:longint):longint;cdecl;external 'clib' name 'FEMapPathVolumeDirToVolumeDir';
  2080. function FEMapVolumeAndDirectoryToPath(volumeNumber,directoryNumber:longint; pathString:PChar; pathCount:Plongint):longint;cdecl;external 'clib' name 'FEMapVolumeAndDirectoryToPath';
  2081. function FEMapVolumeAndDirectoryToPath(volumeNumber,directoryNumber:longint; pathString:PChar; var pathCount:longint):longint;cdecl;external 'clib' name 'FEMapVolumeAndDirectoryToPath';
  2082. function FEMapVolumeAndDirectoryToPathForNS(volumeNumber,directoryNumber:longint; nameSpace:longint; pathString:PBYTE; pathCount:Plongint):longint;cdecl;external 'clib' name 'FEMapVolumeAndDirectoryToPathForNS';
  2083. function FEMapVolumeNumberToName(volumeNumber:longint; volumeName:PChar):longint;cdecl;external 'clib' name 'FEMapVolumeNumberToName';
  2084. function FEQuickClose(connection,task,fileHandle:longint):longint;cdecl;external 'clib' name 'FEQuickClose';
  2085. function FEQuickFileLength(connection,handle:longint; fileSize:Plongint):longint;cdecl;external 'clib' name 'FEQuickFileLength';
  2086. function FEQuickFileLength(connection,handle:longint; var fileSize:longint):longint;cdecl;external 'clib' name 'FEQuickFileLength';
  2087. function FEQuickOpen (connection,task,volumeNumber,directoryNumber:longint;
  2088. pathString:PChar;
  2089. pathCount,nameSpace,attributeMatchBits,requestedAccessRights,dataStreamNumber:longint;
  2090. fileHandle:Plongint):longint;cdecl;external 'clib' name 'FEQuickOpen';
  2091. function FEQuickOpen (connection,task,volumeNumber,directoryNumber:longint;
  2092. pathString:PChar;
  2093. pathCount,nameSpace,attributeMatchBits,requestedAccessRights,dataStreamNumber:longint;
  2094. var fileHandle:longint):longint;cdecl;external 'clib' name 'FEQuickOpen';
  2095. function FEQuickRead (connection,handle,postition,bytesToRead:longint;
  2096. bytesRead:Plongint;
  2097. buffer:pointer):longint;cdecl;external 'clib' name 'FEQuickRead';
  2098. function FEQuickRead (connection,handle,postition,bytesToRead:longint;
  2099. var bytesRead:longint;
  2100. var buffer):longint;cdecl;external 'clib' name 'FEQuickRead';
  2101. function FEQuickWrite(connection,handle,position,bytesToWrite:longint; buffer:pointer):longint;cdecl;external 'clib' name 'FEQuickWrite';
  2102. function FEQuickWrite(connection,handle,position,bytesToWrite:longint; var buffer):longint;cdecl;external 'clib' name 'FEQuickWrite';
  2103. function FERegisterNSPathParser(normalFunc:TT_PathParseFunc):longint;cdecl;external 'clib' name 'FERegisterNSPathParser';
  2104. function FESetCWDnum(CWDnum:longint):longint;cdecl;external 'clib' name 'FESetCWDnum';
  2105. function FESetCWVandCWDnums(CWVnum:longint; CWDnum:longint):longint;cdecl;external 'clib' name 'FESetCWVandCWDnums';
  2106. function FESetCWVnum(CWVnum:longint):longint;cdecl;external 'clib' name 'FESetCWVnum';
  2107. function FESetOriginatingNameSpace(volumeNumber,directoryNumber,currentNameSpace,newNameSpace:longint):longint;cdecl;external 'clib' name 'FESetOriginatingNameSpace';
  2108. function FEsopen(name:Pchar; access,share,permission,flagBits:longint;
  2109. dataStream:byte):longint;cdecl;external 'clib' name 'FEsopen';
  2110. function NWGetDirBaseFromPath(path:Pchar; nameSpace:byte; volNum,NSDirBase,DOSDirBase:Plongint):longint;cdecl;external 'clib' name 'NWGetDirBaseFromPath';
  2111. function NWGetDirBaseFromPath(path:Pchar; nameSpace:byte; var volNum,NSDirBase,DOSDirBase:longint):longint;cdecl;external 'clib' name 'NWGetDirBaseFromPath';
  2112. {-nwfinfo.h--------------------------------------------------------------------}
  2113. function FileServerFileCopy (sourceFileHandle,destinationFileHandle:longint;
  2114. sourceFileOffset,destinationFileOffset,numberOfBytesToCopy:longint;
  2115. numberOfBytesCopied:Plongint):longint;cdecl;external 'clib' name 'FileServerFileCopy';
  2116. function FileServerFileCopy (sourceFileHandle,destinationFileHandle:longint;
  2117. sourceFileOffset,destinationFileOffset,numberOfBytesToCopy:longint;
  2118. var numberOfBytesCopied:longint):longint;cdecl;external 'clib' name 'FileServerFileCopy';
  2119. function NWGetCompressedFileLengths (handle:longint;
  2120. uncompressedLength,
  2121. compressedLength:Plongint):longint;cdecl;external 'clib' name 'NWGetCompressedFileLengths';
  2122. function NWGetCompressedFileLengths (handle:longint;
  2123. var uncompressedLength,
  2124. compressedLength:longint):longint;cdecl;external 'clib' name 'NWGetCompressedFileLengths';
  2125. function NWGetDiskIOsPending:longint;cdecl;external 'clib' name 'NWGetDiskIOsPending';
  2126. function NWSetCompressedFileLengths (handle,
  2127. uncompressedLength,
  2128. compressedLengt:longint):longint;cdecl;external 'clib' name 'NWSetCompressedFileLengths';
  2129. function PurgeErasedFile(pathName:Pchar; sequenceNumber:longint):longint;cdecl;external 'clib' name 'PurgeErasedFile';
  2130. function SalvageErasedFile(pathName:Pchar; sequenceNumber:longint; newFileName:Pchar):longint;cdecl;external 'clib' name 'SalvageErasedFile';
  2131. function ScanErasedFiles_411 (path : PChar;
  2132. nextEntryNumber: Plongint;
  2133. deletedFileInfo: PDIR):longint; cdecl;external 'clib' name 'ScanErasedFiles_411';
  2134. function ScanErasedFiles_411 (path : PChar;
  2135. var nextEntryNumber: longint;
  2136. var deletedFileInfo: TDIR):longint; cdecl;external 'clib' name 'ScanErasedFiles_411';
  2137. function SetExtendedFileAttributes(pathName:Pchar; extendedFileAttributes:byte):longint;cdecl;external 'clib' name 'SetExtendedFileAttributes';
  2138. function SetFileInfo(pathName:Pchar; searchAttributes:byte; fileAttributes:longint; creationDate:Pchar; lastAccessDate:Pchar;
  2139. lastUpdateDateAndTime:Pchar; lastArchiveDateAndTime:Pchar; fileOwnerID:longint):longint;cdecl;external 'clib' name 'SetFileInfo';
  2140. {-nwfshook.h-------------------------------------------------------------------}
  2141. { ------------ File System Monitor Hook Call Back Numbers ------------
  2142. The defined constants below that have _GEN_ in the name represent call back
  2143. numbers that will hook Generic versions of the respective OS routines.
  2144. Namely, routines that support Name Spaces other than DOS.
  2145. --------------------------------------------------------------------- }
  2146. const
  2147. FSHOOK_PRE_ERASEFILE = 0;
  2148. FSHOOK_PRE_OPENFILE = 1;
  2149. FSHOOK_PRE_CREATEFILE = 2;
  2150. FSHOOK_PRE_CREATE_OPENFILE = 3;
  2151. FSHOOK_PRE_RENAME_OR_MOVE = 4;
  2152. FSHOOK_PRE_CLOSEFILE = 5;
  2153. FSHOOK_PRE_CREATEDIR = 6;
  2154. FSHOOK_PRE_DELETEDIR = 7;
  2155. FSHOOK_PRE_MODIFY_DIRENTRY = 8;
  2156. FSHOOK_PRE_SALVAGE_DELETED = 9;
  2157. FSHOOK_PRE_PURGE_DELETED = 10;
  2158. FSHOOK_PRE_RENAME_NS_ENTRY = 11;
  2159. FSHOOK_PRE_GEN_SALVAGE_DELETED = 12;
  2160. FSHOOK_PRE_GEN_PURGE_DELETED = 13;
  2161. FSHOOK_PRE_GEN_OPEN_CREATE = 14;
  2162. FSHOOK_PRE_GEN_RENAME = 15;
  2163. FSHOOK_PRE_GEN_ERASEFILE = 16;
  2164. FSHOOK_PRE_GEN_MODIFY_DOS_INFO = 17;
  2165. FSHOOK_PRE_GEN_MODIFY_NS_INFO = 18;
  2166. FSHOOK_POST_ERASEFILE = $80000000;
  2167. FSHOOK_POST_OPENFILE = $80000001;
  2168. FSHOOK_POST_CREATEFILE = $80000002;
  2169. FSHOOK_POST_CREATE_OPENFILE = $80000003;
  2170. FSHOOK_POST_RENAME_OR_MOVE = $80000004;
  2171. FSHOOK_POST_CLOSEFILE = $80000005;
  2172. FSHOOK_POST_CREATEDIR = $80000006;
  2173. FSHOOK_POST_DELETEDIR = $80000007;
  2174. FSHOOK_POST_MODIFY_DIRENTRY = $80000008;
  2175. FSHOOK_POST_SALVAGE_DELETED = $80000009;
  2176. FSHOOK_POST_PURGE_DELETED = $8000000A;
  2177. FSHOOK_POST_RENAME_NS_ENTRY = $8000000B;
  2178. FSHOOK_POST_GEN_SALVAGE_DELETED = $8000000C;
  2179. FSHOOK_POST_GEN_PURGE_DELETED = $8000000D;
  2180. FSHOOK_POST_GEN_OPEN_CREATE = $8000000E;
  2181. FSHOOK_POST_GEN_RENAME = $8000000F;
  2182. FSHOOK_POST_GEN_ERASEFILE = $80000010;
  2183. FSHOOK_POST_GEN_MODIFY_DOS_INFO = $80000011;
  2184. FSHOOK_POST_GEN_MODIFY_NS_INFO = $80000012;
  2185. {--------------------------------------------------------------------
  2186. Structure returned for
  2187. FSHOOK_PRE_ERASEFILE and FSHOOK_POST_ERASEFILE
  2188. -------------------------------------------------------------------- }
  2189. type
  2190. PEraseFileCallBackStruct = ^TEraseFileCallBackStruct;
  2191. TEraseFileCallBackStruct = record
  2192. connection,
  2193. task,
  2194. volume,
  2195. dirBase : Longint;
  2196. pathString : Pchar;
  2197. pathComponentCount,
  2198. nameSpace,
  2199. attributeMatchBits : Longint;
  2200. end;
  2201. {--------------------------------------------------------------------
  2202. Structure returned for
  2203. FSHOOK_PRE_OPENFILE and FSHOOK_POST_OPENFILE
  2204. -------------------------------------------------------------------- }
  2205. POpenFileCallBackStruct = ^TOpenFileCallBackStruct;
  2206. TOpenFileCallBackStruct = record
  2207. connection,
  2208. task,
  2209. volume,
  2210. dirBase : Longint;
  2211. pathString : Pchar;
  2212. pathComponentCount,
  2213. nameSpace,
  2214. attributeMatchBits,
  2215. requestedAccessRights,
  2216. dataStreamNumber : Longint;
  2217. fileHandle : PLongint;
  2218. end;
  2219. {--------------------------------------------------------------------
  2220. Structure returned for
  2221. FSHOOK_PRE_CREATEFILE and FSHOOK_POST_CREATEFILE
  2222. -------------------------------------------------------------------- }
  2223. PCreateFileCallBackStruct = ^TCreateFileCallBackStruct;
  2224. TCreateFileCallBackStruct = record
  2225. connection,
  2226. task,
  2227. volume,
  2228. dirBase : Longint;
  2229. pathString : Pchar;
  2230. pathComponentCount,
  2231. nameSpace,
  2232. createAttributeBits,
  2233. createFlagBits,
  2234. dataStreamNumber : Longint;
  2235. fileHandle : PLongint;
  2236. end;
  2237. {--------------------------------------------------------------------
  2238. Structure returned for
  2239. FSHOOK_PRE_CREATE_OPENFILE and FSHOOK_POST_CREATE_OPENFILE
  2240. -------------------------------------------------------------------- }
  2241. PCreateAndOpenCallBackStruct = ^TCreateAndOpenCallBackStruct;
  2242. TCreateAndOpenCallBackStruct = record
  2243. connection,
  2244. task,
  2245. volume,
  2246. dirBase : Longint;
  2247. pathString : Pchar;
  2248. pathComponentCount,
  2249. nameSpace,
  2250. createAttributeBits,
  2251. requestedAccessRights,
  2252. createFlagBits,
  2253. dataStreamNumber : Longint;
  2254. fileHandle : PLongint;
  2255. end;
  2256. {--------------------------------------------------------------------
  2257. Structure returned for
  2258. FSHOOK_PRE_RENAME_OR_MOVE and FSHOOK_POST_RENAME_OR_MOVE
  2259. -------------------------------------------------------------------- }
  2260. PRenameMoveEntryCallBackStruct = ^TRenameMoveEntryCallBackStruct;
  2261. TRenameMoveEntryCallBackStruct = record
  2262. connection,
  2263. task,
  2264. volume,
  2265. dirBase : Longint;
  2266. pathString : Pchar;
  2267. pathComponentCount,
  2268. nameSpace,
  2269. attributeMatchBits,
  2270. subDirsOnlyFlag,
  2271. newDirBase : Longint;
  2272. newPathString : Pchar;
  2273. originalNewCount,
  2274. compatibilityFlag,
  2275. allowRenamesToMyselfFlag: Longint;
  2276. end;
  2277. {--------------------------------------------------------------------
  2278. Structure returned for
  2279. FSHOOK_PRE_CLOSEFILE and FSHOOK_POST_CLOSEFILE
  2280. -------------------------------------------------------------------- }
  2281. PCloseFileCallBackStruct = ^TCloseFileCallBackStruct;
  2282. TCloseFileCallBackStruct = record
  2283. connection,
  2284. task,
  2285. fileHandle : Longint;
  2286. end;
  2287. {--------------------------------------------------------------------
  2288. Structure returned for
  2289. FSHOOK_PRE_CREATEDIR and FSHOOK_POST_CREATEDIR
  2290. -------------------------------------------------------------------- }
  2291. PCreateDirCallBackStruct = ^TCreateDirCallBackStruct;
  2292. TCreateDirCallBackStruct = record
  2293. connection,
  2294. volume,
  2295. dirBase : Longint;
  2296. pathString : Pchar;
  2297. pathComponentCount,
  2298. nameSpace,
  2299. directoryAccessMask : Longint;
  2300. end;
  2301. {--------------------------------------------------------------------
  2302. Structure returned for
  2303. FSHOOK_PRE_DELETEDIR and FSHOOK_POST_DELETEDIR
  2304. -------------------------------------------------------------------- }
  2305. PDeleteDirCallBackStruct = ^TDeleteDirCallBackStruct;
  2306. TDeleteDirCallBackStruct = record
  2307. connection,
  2308. volume,
  2309. dirBase : Longint;
  2310. pathString : PChar;
  2311. pathComponentCount,
  2312. nameSpace : Longint;
  2313. end;
  2314. {--------------------------------------------------------------------
  2315. Structure returned for
  2316. FSHOOK_PRE_MODIFYDIRENTRY and FSHOOK_POST_MODIFYDIRENTRY
  2317. -------------------------------------------------------------------- }
  2318. PModifyDirEntryCallBackStruct = ^TModifyDirEntryCallBackStruct;
  2319. TModifyDirEntryCallBackStruct = record
  2320. connection,
  2321. task,
  2322. volume,
  2323. dirBase : Longint;
  2324. pathString : PChar;
  2325. pathComponentCount,
  2326. nameSpace,
  2327. attributeMatchBits,
  2328. targetNameSpace : Longint;
  2329. modifyVector : PModifyStructure;
  2330. modifyBits,
  2331. allowWildCardsFlag : Longint;
  2332. end;
  2333. {--------------------------------------------------------------------
  2334. Structure returned for
  2335. FSHOOK_PRE_SALVAGE_DELETED and FSHOOK_POST_SALVAGE_DELETED
  2336. -------------------------------------------------------------------- }
  2337. PSalvageDeletedCallBackStruct = ^TSalvageDeletedCallBackStruct;
  2338. TSalvageDeletedCallBackStruct = record
  2339. connection,
  2340. volume,
  2341. dirBase,
  2342. toBeSalvagedDirBase,
  2343. nameSpace : Longint;
  2344. newName : PChar;
  2345. end;
  2346. {--------------------------------------------------------------------
  2347. Structure returned for
  2348. FSHOOK_PRE_PURGE_DELETED and FSHOOK_POST_PURGE_DELETED
  2349. -------------------------------------------------------------------- }
  2350. PPurgeDeletedCallBackStruct = ^TPurgeDeletedCallBackStruct;
  2351. TPurgeDeletedCallBackStruct = record
  2352. connection,
  2353. volume,
  2354. dirBase,
  2355. toBePurgedDirBase,
  2356. nameSpace : Longint;
  2357. end;
  2358. {--------------------------------------------------------------------
  2359. Structure returned for
  2360. FSHOOK_PRE_RENAME_NS_ENTRY and FSHOOK_POST_RENAME_NS_ENTRY
  2361. -------------------------------------------------------------------- }
  2362. PRenameNSEntryCallBackStruct = ^TRenameNSEntryCallBackStruct;
  2363. TRenameNSEntryCallBackStruct = record
  2364. connection,
  2365. task,
  2366. volume,
  2367. dirBase : Longint;
  2368. pathString : PChar;
  2369. pathComponentCount,
  2370. nameSpace,
  2371. matchBits : Longint;
  2372. newName : PChar;
  2373. end;
  2374. {--------------------------------------------------------------------
  2375. Structure returned for
  2376. FSHOOK_PRE_GEN_SALVAGE_DELETED and FSHOOK_POST_GEN_SALVAGE_DELETED
  2377. -------------------------------------------------------------------- }
  2378. PGenericSalvageDeletedCBStruct = ^TGenericSalvageDeletedCBStruct;
  2379. TGenericSalvageDeletedCBStruct = record
  2380. connection,
  2381. nameSpace,
  2382. sequence,
  2383. volume,
  2384. dirBase : Longint;
  2385. newName : PChar;
  2386. end;
  2387. {--------------------------------------------------------------------
  2388. Structure returned for
  2389. FSHOOK_PRE_GEN_PURGE_DELETED and FSHOOK_POST_GEN_PURGE_DELETED
  2390. -------------------------------------------------------------------- }
  2391. PGenericPurgeDeletedCBStruct = ^TGenericPurgeDeletedCBStruct;
  2392. TGenericPurgeDeletedCBStruct = record
  2393. connection,
  2394. nameSpace,
  2395. sequence,
  2396. volume,
  2397. dirBase : Longint;
  2398. end;
  2399. {--------------------------------------------------------------------
  2400. Structure returned for
  2401. FSHOOK_PRE_GEN_OPEN_CREATE and FSHOOK_POST_GEN_OPEN_CREATE
  2402. -------------------------------------------------------------------- }
  2403. PGenericOpenCreateCBStruct = ^TGenericOpenCreateCBStruct;
  2404. TGenericOpenCreateCBStruct = record
  2405. connection,
  2406. task,
  2407. volume,
  2408. pathComponentCount,
  2409. dirBase : Longint;
  2410. pathString : Pchar;
  2411. nameSpace,
  2412. dataStreamNumber,
  2413. openCreateFlags,
  2414. searchAttributes,
  2415. createAttributes,
  2416. requestedAccessRights,
  2417. returnInfoMask : Longint;
  2418. fileHandle : PLongint;
  2419. openCreateAction : Pointer;
  2420. end;
  2421. {--------------------------------------------------------------------
  2422. Structure returned for
  2423. FSHOOK_PRE_GEN_RENAME and FSHOOK_POST_GEN_RENAME
  2424. -------------------------------------------------------------------- }
  2425. PGenericRenameCBStruct = ^TGenericRenameCBStruct;
  2426. TGenericRenameCBStruct = record
  2427. connection,
  2428. task,
  2429. nameSpace,
  2430. renameFlag,
  2431. searchAttributes,
  2432. srcVolume,
  2433. srcPathComponentCount,
  2434. srcDirBase : Longint;
  2435. srcPathString : Pchar;
  2436. dstVolume,
  2437. dstPathComponentCount,
  2438. dstDirBase : Longint;
  2439. dstPathString : Pchar;
  2440. end;
  2441. {--------------------------------------------------------------------
  2442. Structure returned for
  2443. FSHOOK_PRE_GEN_ERASEFILE and FSHOOK_POST_GEN_ERASEFILE
  2444. -------------------------------------------------------------------- }
  2445. PGenericEraseFileCBStruct = ^TGenericEraseFileCBStruct;
  2446. TGenericEraseFileCBStruct = record
  2447. connection,
  2448. task,
  2449. volume,
  2450. pathComponentCount,
  2451. dirBase : Longint;
  2452. pathString : Pchar;
  2453. nameSpace,
  2454. searchAttributes : Longint;
  2455. end;
  2456. {--------------------------------------------------------------------
  2457. Structure returned for
  2458. FSHOOK_PRE_GEN_MODIFY_DOS_INFO and FSHOOK_POST_GEN_MODIFY_DOS_INFO
  2459. -------------------------------------------------------------------- }
  2460. PGenericModifyDOSInfoCBStruct = ^TGenericModifyDOSInfoCBStruct;
  2461. TGenericModifyDOSInfoCBStruct = record
  2462. connection,
  2463. task,
  2464. volume,
  2465. pathComponentCount,
  2466. dirBase : Longint;
  2467. pathString : Pchar;
  2468. nameSpace : Longint;
  2469. searchAttributes : Longint;
  2470. modifyMask : Longint;
  2471. modifyInfo : pointer;
  2472. end;
  2473. {--------------------------------------------------------------------
  2474. Structure returned for
  2475. FSHOOK_PRE_GEN_MODIFY_NS_INFO and FSHOOK_POST_GEN_MODIFY_NS_INFO
  2476. -------------------------------------------------------------------- }
  2477. PGenericModifyNSInfoCBStruct = ^TGenericModifyNSInfoCBStruct;
  2478. TGenericModifyNSInfoCBStruct = record
  2479. connection,
  2480. task,
  2481. dataLength,
  2482. srcNameSpace,
  2483. dstNameSpace,
  2484. volume,
  2485. dirBase,
  2486. modifyMask : Longint;
  2487. modifyInfo : pointer;
  2488. end;
  2489. function NWAddFSMonitorHook (callBackNumber:Longint;
  2490. callBackFunc:pointer;
  2491. callBackHandle:PLongint):Longint;cdecl;external 'clib' name 'NWAddFSMonitorHook';
  2492. function NWAddFSMonitorHook (callBackNumber:Longint;
  2493. callBackFunc:pointer;
  2494. var callBackHandle:Longint):Longint;cdecl;external 'clib' name 'NWAddFSMonitorHook';
  2495. function NWRemoveFSMonitorHook (callBackNumber,callBackHandle:Longint):Longint;cdecl;external 'clib' name 'NWRemoveFSMonitorHook';
  2496. {-nwipx.h----------------------------------------------------------------------}
  2497. {$include npackon.inc}
  2498. { ECB status field completion codes }
  2499. const
  2500. STS_SPX_CONNECTION_TERMINATED = $FFEC;
  2501. STS_SPX_TERMINATED_POORLY = $FFED;
  2502. STS_SPX_INVALID_CONNECTION = $FFEE;
  2503. STS_SPX_CONNECTION_TABLE_FULL = $FFEF;
  2504. STS_SPX_SOCKET_NOT_OPEN = $FFF0;
  2505. STS_SPX_SOCKET_ALREADY_OPEN = $FFF1;
  2506. STS_SPX_ECB_CANNOT_BE_CANCELLED = $FFF9;
  2507. STS_SPX_NO_KNOWN_ROUTE_TO_DESTINATION = $FFFA;
  2508. STS_SPX_EVENT_CANCELLED = $FFFC;
  2509. STS_SPX_PACKET_OVERFLOW = $FFFD;
  2510. STS_SPX_MALFORMED_PACKET = $FFFE;
  2511. STS_SPX_TRANSMIT_FAILURE = $FFFF;
  2512. SPX_SSTATUS_ABORTED = $00;
  2513. SPX_SSTATUS_WAITING = $01;
  2514. SPX_SSTATUS_STARTING = $02;
  2515. SPX_SSTATUS_ESTABLISHED = $03;
  2516. SPX_SSTATUS_TERMINATING = $04;
  2517. {
  2518. This define is for the Queued IPX/SPX Calls. The return code passed in will
  2519. be set to this value until the packet is actually sent to IPX/SPX.
  2520. }
  2521. PACKET_IN_QUEUE = $0001;
  2522. {---------------------------------------------------------------------------
  2523. IPX_ECB status field busy (in-process) codes:
  2524. 0x11 - AES (asynchronous event service) waiting
  2525. 0x12 - Holding
  2526. 0x13 - Session listen
  2527. 0x14 - Processing
  2528. 0x15 - Receiving
  2529. 0x16 - Sending
  2530. 0x17 - Waiting
  2531. -------------------------------------------------------------------------- }
  2532. {---------------------------------------------------------------------------
  2533. The comment characters in the IPX_ECB structure have the
  2534. following meanings
  2535. s - this field must be filled in prior to a send
  2536. r - this field must be filled in prior to a receive
  2537. R - this field is reserved
  2538. A - this field may be used when the ECB is not in use by IPX/SPX
  2539. q - the application may read this field
  2540. -------------------------------------------------------------------------- }
  2541. { Packet type codes }
  2542. UNKNOWN_PACKET_TYPE = 0;
  2543. ROUTING_INFORMATION_PACKET = 1;
  2544. ECHO_PACKET = 2;
  2545. ERROR_PACKET = 3;
  2546. PACKET_EXCHANGE_PACKET = 4;
  2547. SEQUENCED_PACKET_PROTOCOL_PACKET = 5;
  2548. SPX_END_OF_MESSAGE = $10;
  2549. ENABLE_WATCHDOG = $ff;
  2550. { various SAP definitions }
  2551. SAP_SOCKET = $0452;
  2552. GENERAL_SERVICE_QUERY = 1;
  2553. GENERAL_SERVICE_RESPONSE = 2;
  2554. NEAREST_SERVICE_QUERY = 3;
  2555. NEAREST_SERVICE_RESPONSE = 4;
  2556. PERIODIC_ID_PACKET = 2;
  2557. NOT_SUPPORTED = 1;
  2558. INVALID_QUERY_TYPE = 2;
  2559. SAP_RESPONSES_PER_PACKET = 8;
  2560. { 'ELRS' }
  2561. QUERY_LIST_SIGNATURE = $454C5253;
  2562. { type definitions }
  2563. type
  2564. TMisalignedLONG = longint;
  2565. TMisalignedWORD = word;
  2566. PtagECBFrag = ^TtagECBFrag;
  2567. TtagECBFrag = record
  2568. fragAddress : pointer;
  2569. fragSize : longint;
  2570. end;
  2571. TECBFrag = TtagECBFrag;
  2572. PECBFrag = ^TECBFrag;
  2573. PIPX_ECBStruct = ^TIPX_ECBStruct;
  2574. TIPX_ECBStruct = record
  2575. semHandleSave : longint;
  2576. queueHead : ^PIPX_ECBStruct;
  2577. next : PIPX_ECBStruct;
  2578. prev : PIPX_ECBStruct;
  2579. status : word;
  2580. semHandle : longint;
  2581. lProtID : word;
  2582. protID : array[0..5] of byte;
  2583. boardNumber : longint;
  2584. immediateAddress : array[0..5] of byte;
  2585. driverWS : array[0..3] of byte;
  2586. ESREBXValue : longint;
  2587. socket : word;
  2588. protocolWorkspace : word;
  2589. dataLen : longint;
  2590. fragCount : longint;
  2591. fragList : array[0..1] of TECBFrag;
  2592. end;
  2593. TIPX_ECB = TIPX_ECBStruct;
  2594. PIPX_ECB = ^TIPX_ECB;
  2595. PPIPX_ECB = ^PIPX_ECB;
  2596. TSPX_ECB = TIPX_ECBStruct;
  2597. PSPX_ECB = PIPX_ECBStruct;
  2598. PtagInternetAddress = ^TtagInternetAddress;
  2599. TtagInternetAddress = record
  2600. network : TMisalignedLONG;
  2601. node : array[0..5] of byte;
  2602. socket : TMisalignedWORD;
  2603. end;
  2604. TInternetAddress = TtagInternetAddress;
  2605. PInternetAddress = ^TInternetAddress;
  2606. PtagIPX_HEADER = ^TtagIPX_HEADER;
  2607. TtagIPX_HEADER = record
  2608. checksum : word;
  2609. packetLen : word;
  2610. transportCtl: byte;
  2611. packetType : byte;
  2612. destNet : TMisalignedLONG;
  2613. destNode : array[0..5] of byte;
  2614. destSocket : word;
  2615. sourceNet : TMisalignedLONG;
  2616. sourceNode : array[0..5] of byte;
  2617. sourceSocket: word;
  2618. end;
  2619. TIPX_HEADER = TtagIPX_HEADER;
  2620. PIPX_HEADER = ^TIPX_HEADER;
  2621. { included only for compatibility }
  2622. PtagIPX_STATS = ^TtagIPX_STATS;
  2623. TtagIPX_STATS = record
  2624. dummy : char;
  2625. end;
  2626. TIPX_STATS = TtagIPX_STATS;
  2627. PIPX_STATS = ^TIPX_STATS;
  2628. PtagSPX_HEADER = ^TtagSPX_HEADER;
  2629. TtagSPX_HEADER = record
  2630. checksum : word;
  2631. packetLen : word;
  2632. transportCtl : byte;
  2633. packetType : byte;
  2634. destNet : TMisalignedLONG;
  2635. destNode : array[0..5] of byte;
  2636. destSocket : word;
  2637. sourceNet : TMisalignedLONG;
  2638. sourceNode : array[0..5] of byte;
  2639. sourceSocket : word;
  2640. connectionCtl : byte;
  2641. dataStreamType : byte;
  2642. sourceConnectID : word;
  2643. destConnectID : word;
  2644. sequenceNumber : word;
  2645. ackNumber : word;
  2646. allocNumber : word;
  2647. end;
  2648. TSPX_HEADER = TtagSPX_HEADER;
  2649. PSPX_HEADER = ^TSPX_HEADER;
  2650. PSPX_ConnStruct = ^TSPX_ConnStruct;
  2651. TSPX_ConnStruct = record
  2652. sStatus : byte;
  2653. sFlags : byte;
  2654. sSourceConnectID : word;
  2655. sDestConnectID : word;
  2656. sSequenceNumber : word;
  2657. sAckNumber : word;
  2658. sAllocNumber : word;
  2659. sRemoteAckNumber : word;
  2660. sRemoteAllocNumber : word;
  2661. sLocalSocket : word;
  2662. sImmediateAddress : array[0..5] of byte;
  2663. sRemoteNet : longint;
  2664. sRemoteNode : array[0..5] of byte;
  2665. sRemoteSocket : word;
  2666. sRetransmitCount : byte;
  2667. sRetransmitMax : byte;
  2668. sRoundTripTimer : word;
  2669. sRetransmittedPackets : word;
  2670. sSuppressedPackets : word;
  2671. sLastReceiveTime : word;
  2672. sLastSendTime : word;
  2673. sRoundTripMax : word;
  2674. sWatchdogTimeout : word;
  2675. sSessionXmitQHead : array[0..3] of byte;
  2676. sSessionXmitECBp : array[0..3] of byte;
  2677. end;
  2678. TSPX_SESSION = TSPX_ConnStruct;
  2679. PSPX_SESSION = ^TSPX_SESSION;
  2680. type
  2681. PT_SAP_ID_PACKET = ^TT_SAP_ID_PACKET;
  2682. TT_SAP_ID_PACKET = record
  2683. SAPPacketType : word; // 2 or 4
  2684. serverType : word; // assigned by novell
  2685. serverName : array[0..47] of byte; // Service name
  2686. serverAddress : TInternetAddress;
  2687. interveningNetworks : word; // # of networks packets must pass
  2688. end;
  2689. PSERVICE_QUERY_PACKET = ^TSERVICE_QUERY_PACKET;
  2690. TSERVICE_QUERY_PACKET = record
  2691. queryType, // 1 or 3
  2692. serverType : word; // assigned by novell
  2693. end;
  2694. PSAPResponse = ^TSAPResponse;
  2695. TSAPResponse = record
  2696. SAPPacketType : word; // 2 or 4
  2697. responses : array[0..(SAP_RESPONSES_PER_PACKET)-1] of record
  2698. serverType : word;
  2699. serverName : array[0..47] of byte;
  2700. serverAddress : TInternetAddress;
  2701. interveningNetworks : word;
  2702. end;
  2703. next : PSAPResponse;
  2704. signature : longint;
  2705. count : longint;
  2706. end;
  2707. TSAP_RESPONSE_LIST_ENTRY = TSAPResponse;
  2708. PSAP_RESPONSE_LIST_ENTRY = ^TSAP_RESPONSE_LIST_ENTRY;
  2709. {$include npackoff.inc}
  2710. { IPX function prototypes... }
  2711. function IpxCheckSocket(socket:word):longint;cdecl;external 'clib' name 'IpxCheckSocket';
  2712. function IpxCancelEvent(ECBp:PIPX_ECB):longint;cdecl;external 'clib' name 'IpxCancelEvent';
  2713. function IpxCloseSocket(socket:word):longint;cdecl;external 'clib' name 'IpxCloseSocket';
  2714. function IpxConnect(ECBp:PIPX_ECB):longint;cdecl;external 'clib' name 'IpxConnect';
  2715. function IpxDisconnect(ECBp:PIPX_ECB):longint;cdecl;external 'clib' name 'IpxDisconnect';
  2716. function IpxGetAndClearQ(replyQptr:PPIPX_ECB):PIPX_ECB;cdecl;external 'clib' name 'IpxGetAndClearQ';
  2717. function IpxGetInternetworkAddress(address:PBYTE):longint;cdecl;external 'clib' name 'IpxGetInternetworkAddress';
  2718. function IpxGetLocalTarget(address:PBYTE; ECBp:PIPX_ECB; timeToNet:Plongint):longint;cdecl;external 'clib' name 'IpxGetLocalTarget';
  2719. function IpxGetStatistics(ipxStats:PIPX_STATS):longint;cdecl;external 'clib' name 'IpxGetStatistics';
  2720. function IpxGetVersion(majorVersion:PBYTE; minorVersion:PBYTE; revision:PWORD):longint;cdecl;external 'clib' name 'IpxGetVersion';
  2721. function IpxGetVersion(var majorVersion,minorVersion:byte; var revision:word):longint;cdecl;external 'clib' name 'IpxGetVersion';
  2722. function IpxOpenSocket(socketP:PWORD):longint;cdecl;external 'clib' name 'IpxOpenSocket';
  2723. function IpxOpenSocket(var socket:word):longint;cdecl;external 'clib' name 'IpxOpenSocket';
  2724. function IpxQueuedSend(socket:word; ECBp:PIPX_ECB; rcode:Plongint):longint;cdecl;external 'clib' name 'IpxQueuedSend';
  2725. function IpxQueuedSend(socket:word; ECBp:PIPX_ECB; var rcode:longint):longint;cdecl;external 'clib' name 'IpxQueuedSend';
  2726. function IpxQueuedReceive(socket:word; ECBp:PIPX_ECB; rcode:Plongint):longint;cdecl;external 'clib' name 'IpxQueuedReceive';
  2727. function IpxQueuedReceive(socket:word; ECBp:PIPX_ECB; var rcode:longint):longint;cdecl;external 'clib' name 'IpxQueuedReceive';
  2728. function IpxReceive(socket:word; ECBp:PIPX_ECB):longint;cdecl;external 'clib' name 'IpxReceive';
  2729. function IpxResetStatistics:longint;cdecl;external 'clib' name 'IpxResetStatistics';
  2730. function IpxSend(socket:word; ECBp:PIPX_ECB):longint;cdecl;external 'clib' name 'IpxSend';
  2731. { SPX function prototypes... }
  2732. function SpxAbortConnection(connection:word):longint;cdecl;external 'clib' name 'SpxAbortConnection';
  2733. function SpxCancelEvent(ecb:PSPX_ECB):longint;cdecl;external 'clib' name 'SpxCancelEvent';
  2734. function SpxCheckSocket(socket:word):longint;cdecl;external 'clib' name 'SpxCheckSocket';
  2735. function SpxCloseSocket(socket:word):longint;cdecl;external 'clib' name 'SpxCloseSocket';
  2736. function SpxEstablishConnection(socket:word; ecb:PSPX_ECB; retryCount:byte; watchDogFlag:byte; connection:PWORD):longint;cdecl;external 'clib' name 'SpxEstablishConnection';
  2737. function SpxEstablishConnection(socket:word; ecb:PSPX_ECB; retryCount:byte; watchDogFlag:byte; var connection:word):longint;cdecl;external 'clib' name 'SpxEstablishConnection';
  2738. function SpxGetConfiguration(maxConn,availConn:Plongint):longint;cdecl;external 'clib' name 'SpxGetConfiguration';
  2739. function SpxGetConfiguration(var maxConn,availConn:longint):longint;cdecl;external 'clib' name 'SpxGetConfiguration';
  2740. function SpxGetConnectionStatus(connection:word; buffer:PSPX_SESSION):longint;cdecl;external 'clib' name 'SpxGetConnectionStatus';
  2741. { (56 bytes) }
  2742. function SpxGetTime(marker:Plongint):longint;cdecl;external 'clib' name 'SpxGetTime';
  2743. function SpxGetTime(var marker:longint):longint;cdecl;external 'clib' name 'SpxGetTime';
  2744. function SpxGetVersion(major,minor:PBYTE; revision:PWORD; revDate:Plongint):longint;cdecl;external 'clib' name 'SpxGetVersion';
  2745. function SpxGetVersion(var major,minor:byte; var revision:word; var revDate:longint):longint;cdecl;external 'clib' name 'SpxGetVersion';
  2746. function SpxListenForConnection(socket:word; ecb:PSPX_ECB; retryCount:byte; watchDogFlag:byte; connection:PWORD):longint;cdecl;external 'clib' name 'SpxListenForConnection';
  2747. function SpxListenForConnection(socket:word; ecb:PSPX_ECB; retryCount:byte; watchDogFlag:byte; var connection:word):longint;cdecl;external 'clib' name 'SpxListenForConnection';
  2748. function SpxListenForConnectedPacket(socket:word; ecb:PSPX_ECB; connection:word):longint;cdecl;external 'clib' name 'SpxListenForConnectedPacket';
  2749. function SpxListenForSequencedPacket(socket:word; ecb:PSPX_ECB):longint;cdecl;external 'clib' name 'SpxListenForSequencedPacket';
  2750. function SpxOpenSocket(socket:PWORD):longint;cdecl;external 'clib' name 'SpxOpenSocket';
  2751. function SpxOpenSocket(var socket:word):longint;cdecl;external 'clib' name 'SpxOpenSocket';
  2752. function SpxQueuedListenForSequencedPacket(socket:word; ecb:PSPX_ECB; rcode:Plongint):longint;cdecl;external 'clib' name 'SpxQueuedListenForSequencedPacket';
  2753. function SpxQueuedListenForSequencedPacket(socket:word; ecb:PSPX_ECB; var rcode:longint):longint;cdecl;external 'clib' name 'SpxQueuedListenForSequencedPacket';
  2754. function SpxQueuedSendSequencedPacket(connection:word; ecb:PSPX_ECB; rcode:Plongint):longint;cdecl;external 'clib' name 'SpxQueuedSendSequencedPacket';
  2755. function SpxQueuedSendSequencedPacket(connection:word; ecb:PSPX_ECB; var rcode:longint):longint;cdecl;external 'clib' name 'SpxQueuedSendSequencedPacket';
  2756. function SpxSendSequencedPacket(connection:word; ecb:PSPX_ECB):longint;cdecl;external 'clib' name 'SpxSendSequencedPacket';
  2757. function SpxTerminateConnection(connection:word; ecb:PSPX_ECB):longint;cdecl;external 'clib' name 'SpxTerminateConnection';
  2758. { SAP function prototypes... }
  2759. function AdvertiseService(serviceType:word; serviceName:Pchar; serviceSocket:word):longint;cdecl;external 'clib' name 'AdvertiseService';
  2760. function FreeQueryServicesList(listP:PSAP_RESPONSE_LIST_ENTRY):longint;cdecl;external 'clib' name 'FreeQueryServicesList';
  2761. function QueryServices(queryType,serviceType:word):PSAP_RESPONSE_LIST_ENTRY;cdecl;external 'clib' name 'QueryServices';
  2762. function ShutdownAdvertising(advertisingHandle:longint):longint;cdecl;external 'clib' name 'ShutdownAdvertising';
  2763. {-nwlib.h----------------------------------------------------------------------}
  2764. type
  2765. TLibraryCleanupFunc = function (dataAreaPtr:pointer):longint; cdecl;
  2766. function __get_thread_data_area_ptr:Plongint;cdecl;external 'clib' name '__get_thread_data_area_ptr';
  2767. function GetDataAreaPtr(libraryHandle:longint):pointer;cdecl;external 'clib' name 'GetDataAreaPtr';
  2768. function DeregisterLibrary(libraryHandle:longint):longint;cdecl;external 'clib' name 'DeregisterLibrary';
  2769. function RegisterLibrary(cleanupFunc:TLibraryCleanupFunc):longint;cdecl;external 'clib' name 'RegisterLibrary';
  2770. function SaveDataAreaPtr(libraryHandle:longint; dataAreaPtr:pointer):longint;cdecl;external 'clib' name 'SaveDataAreaPtr';
  2771. // function Thread_Data_Area : pointer; Thread_Data_Area (*__get_thread_data_area_ptr())
  2772. {-nwmalloc.h-------------------------------------------------------------------}
  2773. procedure NWGarbageCollect (NLMHandle:longint); cdecl; external 'clib' name 'NWGarbageCollect';
  2774. function NWGetAllocPageOverhead (pageCount:longint):longint;cdecl; external 'clib' name 'NWGetAllocPageOverhead';
  2775. function NWGetAvailableMemory : longint; cdecl; external 'clib' name 'NWGetAvailableMemory';
  2776. function NWGetPageSize : longint; cdecl; external 'clib' name 'NWGetPageSize';
  2777. function NWMemorySizeAddressable (addr:pointer; size:longint):longint;cdecl; external 'clib' name 'NWMemorySizeAddressable';
  2778. function alloca (size:longint):pointer; cdecl; external 'clib' name 'alloca';
  2779. function _msize (buffer:pointer):longint; cdecl; external 'clib' name '_msize';
  2780. function __qcalloc (num,siz:longint):pointer; cdecl; external 'clib' name '__qcalloc';
  2781. function __qmalloc (siz:longint):pointer; cdecl; external 'clib' name '__qmalloc';
  2782. function __qrealloc (old:pointer; siz:longint):pointer;cdecl; external 'clib' name '__qrealloc';
  2783. function stackavail:longint; cdecl; external 'clib' name 'stackavail';
  2784. function calloc (num,siz:longint):pointer; cdecl; external 'clib' name 'calloc';
  2785. procedure free (p:pointer); cdecl; external 'clib' name 'free';
  2786. function malloc (siz:longint):pointer; cdecl; external 'clib' name 'malloc';
  2787. function realloc (oldMemP:pointer;
  2788. newsize:longint):pointer; cdecl; external 'clib' name 'realloc';
  2789. {-nwncpx.h---------------------------------------------------------------------}
  2790. const
  2791. MAX_NCP_EXTENSION_NAME_BYTES = 33;
  2792. BEGIN_SCAN_NCP_EXTENSIONS = $FFFFFFFF;
  2793. REPLY_BUFFER_IS_FRAGGED = $FFFFFFFF;
  2794. CONNECTION_BEING_RESTARTED = $01101001;
  2795. CONNECTION_BEING_KILLED = $02202002;
  2796. CONNECTION_BEING_LOGGED_OUT = $03303003;
  2797. CONNECTION_BEING_FREED = $04404004;
  2798. type
  2799. PNCPExtensionClient = ^TNCPExtensionClient;
  2800. TNCPExtensionClient = record
  2801. connection : longint;
  2802. task : longint;
  2803. end;
  2804. PFragElement = ^TFragElement;
  2805. TFragElement = record
  2806. ptr : pointer;
  2807. size : longint;
  2808. end;
  2809. PNCPExtensionMessageFrag = ^TNCPExtensionMessageFrag;
  2810. TNCPExtensionMessageFrag = record
  2811. totalMessageSize : longint;
  2812. fragCount : longint;
  2813. fragList : array[0..3] of TFragElement;
  2814. end;
  2815. TNCPExtensionHandlerFunc =
  2816. function (NCPExtensionClient:PNCPExtensionClient;
  2817. requestData:pointer;
  2818. requestDataLen:longint;
  2819. replyData:pointer;
  2820. replyDataLen:Plongint):byte; cdecl;
  2821. TConnectionEventHandlerProc =
  2822. procedure (connection:longint; eventType:longint); cdecl;
  2823. TReplyBufferManagerProc =
  2824. procedure (NCPExtensionClient:PNCPExtensionClient; replyBuffer:pointer); cdecl;
  2825. function NWDeRegisterNCPExtension(queryData:pointer):longint;cdecl;external name 'NWDeRegisterNCPExtension';
  2826. function NWGetNCPExtensionInfo(NCPExtensionName:Pchar; NCPExtensionID:Plongint; majorVersion:PBYTE; minorVersion:PBYTE; revision:PBYTE;
  2827. queryData:pointer):longint;cdecl;external name 'NWGetNCPExtensionInfo';
  2828. function NWGetNCPExtensionInfoByID(NCPExtensionID:longint; NCPExtensionName:Pchar; majorVersion:PBYTE; minorVersion:PBYTE; revision:PBYTE;
  2829. queryData:pointer):longint;cdecl;external name 'NWGetNCPExtensionInfoByID';
  2830. function NWRegisterNCPExtension(NCPExtensionName:Pchar;
  2831. NCPExtensionHandler:TNCPExtensionHandlerFunc;
  2832. ConnectionEventHandler:TConnectionEventHandlerProc;
  2833. ReplyBufferManager:TReplyBufferManagerProc;
  2834. majorVersion,minorVersion,revision:byte;
  2835. queryData:Ppointer):longint;cdecl;external name 'NWRegisterNCPExtension';
  2836. function NWRegisterNCPExtensionByID(NCPExtensionID:longint;
  2837. NCPExtensionName:Pchar;
  2838. NCPExtensionHandler:TNCPExtensionHandlerFunc;
  2839. ConnectionEventHandler:TConnectionEventHandlerProc;
  2840. ReplyBufferManager:TReplyBufferManagerProc;
  2841. majorVersion,minorVersion,revision:byte; queryData:Ppointer):longint;cdecl;external name 'NWRegisterNCPExtensionByID';
  2842. function NWScanNCPExtensions(NCPExtensionID:Plongint; NCPExtensionName:Pchar; majorVersion:PBYTE; minorVersion:PBYTE; revision:PBYTE;
  2843. queryData:pointer):longint;cdecl;external name 'NWScanNCPExtensions';
  2844. function NWSendNCPExtensionFraggedRequest(NCPExtensionID:longint; requestFrag:PNCPExtensionMessageFrag; replyFrag:PNCPExtensionMessageFrag):longint;cdecl;external name 'NWSendNCPExtensionFraggedRequest';
  2845. function NWSendNCPExtensionRequest(NCPExtensionID:longint; requestData:pointer; requestDataLen:longint; replyData:pointer; replyDataLen:Plongint):longint;cdecl;external name 'NWSendNCPExtensionRequest';
  2846. {-nwnspace.h-------------------------------------------------------------------}
  2847. {$include npackon.inc}
  2848. type
  2849. PNWNSINFO = ^TNWNSINFO;
  2850. TNWNSINFO = record
  2851. nsInfoBitMask,
  2852. fixedBitMask,
  2853. reservedBitMask,
  2854. extendedBitMask : longint;
  2855. fixedBitsDefined,
  2856. reservedBitsDefined,
  2857. extendedBitsDefined : word;
  2858. fieldsLenTable : array[0..31] of longint;
  2859. hugeStateInfo : array[0..15] of byte;
  2860. hugeDataLength : longint;
  2861. end;
  2862. TNW_NS_INFO = TNWNSINFO;
  2863. PNW_NS_INFO = ^TNW_NS_INFO;
  2864. {$include npackoff.inc}
  2865. function GetDataStreamName(volume:longint; dataStream:byte; name:Pchar; numberOfDataStreams:Plongint):longint;cdecl;external 'clib' name 'GetDataStreamName';
  2866. function GetDataStreamName(volume:longint; dataStream:byte; name:Pchar; var numberOfDataStreams:longint):longint;cdecl;external 'clib' name 'GetDataStreamName';
  2867. function GetNameSpaceName(volume:longint; nameSpace:longint; name:Pchar; numberOfNameSpaces:Plongint):longint;cdecl;external 'clib' name 'GetNameSpaceName';
  2868. function GetNameSpaceName(volume:longint; nameSpace:longint; name:Pchar; var numberOfNameSpaces:longint):longint;cdecl;external 'clib' name 'GetNameSpaceName';
  2869. function NWGetHugeNSInfo(volNum,nameSpace:byte; dirBase,hugeInfoMask:longint;
  2870. hugeStateInfo:PBYTE;
  2871. hugeData:PBYTE;
  2872. hugeDataLen:PLongint;
  2873. nextHugeStateInfo:PBYTE):longint;cdecl;external 'clib' name 'NWGetHugeNSInfo';
  2874. function NWGetHugeNSInfo(volNum,nameSpace:byte; dirBase,hugeInfoMask:longint;
  2875. var hugeStateInfo;
  2876. var hugeData;
  2877. var hugeDataLen:longint;
  2878. var nextHugeStateInfo):longint;cdecl;external 'clib' name 'NWGetHugeNSInfo';
  2879. function NWGetNameSpaceEntryName(path:PBYTE; nameSpace:longint; maxNameBufferLength:longint; nameSpaceEntryName:PChar):longint;cdecl;external 'clib' name 'NWGetNameSpaceEntryName';
  2880. function NWGetNameSpaceEntryName(var path:byte; nameSpace:longint; maxNameBufferLength:longint; nameSpaceEntryName:PChar):longint;cdecl;external 'clib' name 'NWGetNameSpaceEntryName';
  2881. function NWGetNSInfo(volNum:byte; srcNameSpace:byte; dstNameSpace:byte; dirBase:longint; nsInfoMask:longint;
  2882. nsSpecificInfo:PBYTE):longint;cdecl;external 'clib' name 'NWGetNSInfo';
  2883. function NWGetNSLoadedList(volNum:byte; loadListSize:word; NSLoadedList:PBYTE; returnListSize:PWORD):longint;cdecl;external 'clib' name 'NWGetNSLoadedList';
  2884. function NWQueryNSInfoFormat(nameSpace,volNum:byte; nsInfo:PNW_NS_INFO):longint;cdecl;external 'clib' name 'NWQueryNSInfoFormat';
  2885. function NWQueryNSInfoFormat(nameSpace,volNum:byte; var nsInfo:TNW_NS_INFO):longint;cdecl;external 'clib' name 'NWQueryNSInfoFormat';
  2886. function NWSetHugeNSInfo(volNum,nameSpace:byte; dirBase:longint;
  2887. hugeInfoMask:longint; hugeStateInfo:PBYTE;
  2888. hugeDataLen:longint;
  2889. hugeData:PBYTE;
  2890. nextHugeStateInfo:PBYTE;
  2891. hugeDataUsed:PLongint):longint;cdecl;external 'clib' name 'NWSetHugeNSInfo';
  2892. function NWSetHugeNSInfo(volNum,nameSpace:byte; dirBase:longint;
  2893. hugeInfoMask:longint; var hugeStateInfo;
  2894. hugeDataLen:longint;
  2895. var hugeData;
  2896. var nextHugeStateInfo;
  2897. var hugeDataUsed:longint):longint;cdecl;external 'clib' name 'NWSetHugeNSInfo';
  2898. function NWSetNameSpaceEntryName(path:PChar; nameSpace:longint; nameSpaceEntryName:PChar):longint;cdecl;external 'clib' name 'NWSetNameSpaceEntryName';
  2899. function NWSetNSInfo(volNum,srcNameSpace,dstNameSpace:byte; dirBase:longint;
  2900. nsInfoMask:longint;
  2901. nsSpecificInfoLen:longint;
  2902. nsSpecificInfo:Pointer):longint;cdecl;external 'clib' name 'NWSetNSInfo';
  2903. function NWSetNSInfo(volNum,srcNameSpace,dstNameSpace:byte; dirBase:longint;
  2904. nsInfoMask:longint;
  2905. nsSpecificInfoLen:longint;
  2906. var nsSpecificInfo):longint;cdecl;external 'clib' name 'NWSetNSInfo';
  2907. function SetCurrentNameSpace(newNameSpace:byte):byte;cdecl;external 'clib' name 'SetCurrentNameSpace';
  2908. function SetTargetNameSpace(newNameSpace:byte):byte;cdecl;external 'clib' name 'SetTargetNameSpace';
  2909. {-nwproc.h---------------------------------------------------------------------}
  2910. type TStdfds = array[0..2] of longint;
  2911. function CreateChildProcess (func:pointer;
  2912. threadName:PChar;
  2913. cmdLine:PChar;
  2914. arg:PChar;
  2915. stack:pointer;
  2916. stackSize:longint;
  2917. stdfds:TStdfds;
  2918. clearenv:longint;
  2919. procName:PChar;
  2920. enableApp:longint):Tpid_t;cdecl;external 'clib' name 'CreateChildProcess';
  2921. function KillChildProcess(pid:Tpid_t):longint;cdecl;external 'clib' name 'KillChildProcess';
  2922. function WaitOnChildProcess(pid:Tpid_t; statloc:Plongint; options:longint):longint;cdecl;external 'clib' name 'WaitOnChildProcess';
  2923. function WaitOnChildProcess(pid:Tpid_t; var statloc:longint; options:longint):longint;cdecl;external 'clib' name 'WaitOnChildProcess';
  2924. {-nwsemaph.h-------------------------------------------------------------------}
  2925. function CloseLocalSemaphore (semaHandle : longint) : longint; cdecl; external 'clib' name 'CloseLocalSemaphore';
  2926. function ExamineLocalSemaphore (semaHandle : longint) : longint; cdecl; external 'clib' name 'ExamineLocalSemaphore';
  2927. function OpenLocalSemaphore (initValue : longint) : longint; cdecl; external 'clib' name 'OpenLocalSemaphore';
  2928. function SignalLocalSemaphore (semaHandle : longint) : longint; cdecl; external 'clib' name 'SignalLocalSemaphore';
  2929. function TimedWaitOnLocalSemaphore (semaHandle,Timeout:longint) : longint; cdecl; external 'clib' name 'TimedWaitOnLocalSemaphore';
  2930. function WaitOnLocalSemaphore (semaHandle : longint) : longint; cdecl; external 'clib' name 'WaitOnLocalSemaphore';
  2931. {-signal.h---------------------------------------------------------------------}
  2932. { #define SIG_IGN (void (*)(int)) 1 }
  2933. { #define SIG_DFL (void (*)(int)) 2 }
  2934. { #define SIG_ERR (void (*)(int)) 3 }
  2935. const
  2936. SIGABRT = 1;
  2937. SIGFPE = 2;
  2938. SIGILL = 3;
  2939. SIGINT = 4;
  2940. SIGSEGV = 5;
  2941. SIGTERM = 6;
  2942. SIGPOLL = 7;
  2943. { currently unimplemented POSIX-mandated signals }
  2944. SIGKILL = 101;
  2945. SA_NOCLDSTOP = 102;
  2946. SIGALRM = 103;
  2947. SIGCHILD = 104;
  2948. SIGCONT = 105;
  2949. SIGHUP = 106;
  2950. SIGPIPE = 107;
  2951. SIGQUIT = 108;
  2952. SIGSTOP = 109;
  2953. SIGTSTP = 110;
  2954. SIGTTIN = 111;
  2955. SIGTTOU = 112;
  2956. SIGUSR1 = 113;
  2957. SIGUSR2 = 114;
  2958. SIG_BLOCK = 115;
  2959. SIG_SETMASK = 116;
  2960. SIG_UNBLOCK = 117;
  2961. { Novell-defined signals }
  2962. SIG_FINI = 500;
  2963. SIG_IPBIND = 501;
  2964. SIG_IPUNBIND = 502;
  2965. SIG_IPXBIND = 503;
  2966. SIG_IPXUNBIND = 504;
  2967. SIG_IPREGISTER = 505;
  2968. SIG_IPUNREGISTER = 506;
  2969. SIG_IPXREGISTER = 507;
  2970. SIG_IPXUNREGISTER = 508;
  2971. SIG_LOCALECHANGE = 510;
  2972. type
  2973. Psig_atomic_t = ^Tsig_atomic_t;
  2974. Tsig_atomic_t = longint;
  2975. TSigHandlerProc = procedure (Sig:longint); cdecl;
  2976. function _raise(para1:longint):longint;cdecl;external 'clib' name 'raise';
  2977. function signal(sig:longint; func:TSigHandlerProc):longint;cdecl;external 'clib' name 'signal';
  2978. function nw_raise(para1:longint):longint;cdecl;external 'clib' name 'raise';
  2979. function nw_signal(sig:longint; func:TSigHandlerProc):longint;cdecl;external 'clib' name 'signal';
  2980. {-nwstring.h-------------------------------------------------------------------}
  2981. function ASCIIZToLenStr (lenString,ASCIIZstring:Pchar) : longint; cdecl;external 'clib' name 'ASCIIZToLenStr';
  2982. function ASCIIZToMaxLenStr (lenString,ASCIIZstring:Pchar; maximumLength:longint):longint; cdecl;external 'clib' name 'ASCIIZToMaxLenStr';
  2983. function IntSwap (w:word):word; cdecl;external 'clib' name 'IntSwap';
  2984. function LenStrCat (destStr,srcStr:Pchar):Pchar; cdecl;external 'clib' name 'LenStrCat';
  2985. function LenStrCmp (s1,s2:Pchar):longint; cdecl;external 'clib' name 'LenStrCmp';
  2986. function LenStrCpy (dest,src:Pchar):Pchar; cdecl;external 'clib' name 'LenStrCpy';
  2987. function LenToASCIIZStr (ASCIIZstring,lenString:Pchar) : longint; cdecl;external 'clib' name 'LenToASCIIZStr';
  2988. function LongSwap (l:longint) : longint; cdecl;external 'clib' name 'LongSwap';
  2989. {-nwtoolib.h-------------------------------------------------------------------}
  2990. type
  2991. TreadFunc = function :longint; cdecl;
  2992. TNLMBeginFunc = procedure (NLMID:longint; commandLine:Pchar); cdecl;
  2993. TNLMPreEndFunc = procedure (NLMID:longint); cdecl;
  2994. TNLMPostEndFunc = procedure (NLMID:longint); cdecl;
  2995. TNLMEndNoContextFunc= procedure (NLMID:longint); cdecl;
  2996. TthreadGroupBeginFunc=function (threadGroupID:longint; argc:longint; const argv:array of Pchar):longint; cdecl;
  2997. TthreadGroupEndFunc = procedure (threadGroupID:longint); cdecl;
  2998. TthreadBeginFunc = function (threadID:longint):longint; cdecl;
  2999. TthreadEndFunc = procedure (threadID:longint); cdecl;
  3000. TthreadReleaseFileResourcesFunc = procedure (threadID:longint); cdecl;
  3001. function _NWGetErrno:longint;cdecl;external 'clib' name '_NWGetErrno';
  3002. function _NWGetNWErrno:longint;cdecl;external 'clib' name '_NWGetNWErrno';
  3003. function _NWGetNLMLevelLibDataPtr(NLMID:longint):pointer;cdecl;external 'clib' name '_NWGetNLMLevelLibDataPtr';
  3004. function _NWGetThreadGroupLevelLibDataPtr(threadGroupID:longint):pointer;cdecl;external 'clib' name '_NWGetThreadGroupLevelLibDataPtr';
  3005. function _NWGetThreadLevelLibDataPtr(threadID:longint):pointer;cdecl;external 'clib' name '_NWGetThreadLevelLibDataPtr';
  3006. function _NWLoadNLMMessageTable(NLMHandle:longint; messageTable:PPPchar; messageCount:Plongint; languageID:Plongint):longint;cdecl;external 'clib' name '_NWLoadNLMMessageTable';
  3007. function _NWRegisterNLMLibrary (NLMHandle:longint;
  3008. NLMFileHandle:longint;
  3009. readFunc:TReadFunc;
  3010. NLMBegin:TNLMBeginFunc;
  3011. NLMPreEnd:TNLMPreEndFunc;
  3012. NLMPostEnd:TNLMPostEndFunc;
  3013. NLMEndNoContext:TNLMEndNoContextFunc;
  3014. threadGroupBegin:TthreadGroupBeginFunc;
  3015. threadGroupEnd:TthreadGroupEndFunc;
  3016. threadBegin:TthreadBeginFunc;
  3017. threadEnd:TthreadEndFunc;
  3018. threadReleaseFileResources:TthreadReleaseFileResourcesFunc ):longint;cdecl;external 'clib' name '_NWRegisterNLMLibrary';
  3019. procedure _NWSetErrno (errnoValue : longint);cdecl;external 'clib' name '_NWSetErrno';
  3020. procedure _NWSetNWErrno (NWErrnoValue : longint);cdecl;external 'clib' name '_NWSetNWErrno';
  3021. procedure _NWSetNLMLevelLibDataPtr (NLMID : longint; dataPtr : pointer);cdecl;external 'clib' name '_NWSetNLMLevelLibDataPtr';
  3022. procedure _NWSetThreadGroupLevelLibDataPtr (threadGroupID : longint; dataPtr : pointer);cdecl;external 'clib' name '_NWSetThreadGroupLevelLibDataPtr';
  3023. procedure _NWSetThreadLevelLibDataPtr (threadID : longint; dataPtr : pointer);cdecl;external 'clib' name '_NWSetThreadLevelLibDataPtr';
  3024. {-stdio.h----------------------------------------------------------------------}
  3025. type
  3026. Tva_list = pointer; // dont know what this is
  3027. Pfpos_t = ^Tfpos_t;
  3028. Tfpos_t = longint;
  3029. Pwchar_t = ^Twchar_t;
  3030. Twchar_t = word;
  3031. Pwint_t = ^Twint_t;
  3032. Twint_t = longint;
  3033. { values for fseek()' whence argument }
  3034. { add 'offset' to beginning of file }
  3035. const
  3036. SEEK_SET = 0;
  3037. { add 'offset' to current position in file }
  3038. SEEK_CUR = 1;
  3039. { add 'offset' to end of file }
  3040. SEEK_END = 2;
  3041. { miscellaneous definitions }
  3042. { at least this many FILEs available }
  3043. FOPEN_MAX = 20;
  3044. { (extreme) default buffer size }
  3045. BUFSIZ = 1024;
  3046. { max number of characters in a path name }
  3047. FILENAME_MAX = 1024;
  3048. { definitions for tmpnam() and tmpfil() }
  3049. { "_T-00000.TMP" to "_T-99999.TMP" }
  3050. TMP_MAX = 100000;
  3051. { 8 + 1 + 3 + 1 (always DOS namespace) }
  3052. L_tmpnam = 13;
  3053. { values for field '_flag' in FILE below }
  3054. { currently reading }
  3055. _IOREAD = $0001;
  3056. { currently writing }
  3057. _IOWRT = $0002;
  3058. { opened for reading and writing }
  3059. _IORW = $0004;
  3060. { binary file (O_BINARY) }
  3061. _IOBIN = $0008;
  3062. { unbuffered (e.g.: stdout and stderr) }
  3063. _IONBF = $0010;
  3064. { line buffered (e.g.: stdin) }
  3065. _IOLBF = $0020;
  3066. { fully buffered (most files) }
  3067. _IOFBF = $0040;
  3068. { EOF reached on read }
  3069. _IOEOF = $0080;
  3070. { I/O error from system }
  3071. _IOERR = $0100;
  3072. { stdio code malloc()'d this buffer }
  3073. _IOBUF = $0200;
  3074. { was a temporary file by tmpfile() }
  3075. _IOTMP = $0400;
  3076. { file stream structure }
  3077. type
  3078. Piobuf = ^Tiobuf;
  3079. Tiobuf = record
  3080. _signature : dword; { identifies this structure }
  3081. _avail : longint; { available (unused/unread) room in buffer }
  3082. _ptr : Pbyte; { next character from/to here in buffer }
  3083. _base : Pbyte; { the buffer (not really) }
  3084. _oflag : dword; { pre-CLib.NLM v4.11 compatibility }
  3085. _file : dword; { file descriptor }
  3086. _flag : dword; { state of stream }
  3087. _buf : array[0..3] of
  3088. byte; { fake, micro buffer as a fall-back }
  3089. _env : dword; { Macintosh or UNIX text file signature }
  3090. end;
  3091. TFILE = Tiobuf;
  3092. PFILE = ^TFILE;
  3093. PPFILE = ^PFILE;
  3094. { ISO/ANSI C defined functions... }
  3095. procedure clearerr(para1:PFILE);cdecl;external 'clib' name 'clearerr';
  3096. procedure clearerr(var para1:TFILE);cdecl;external 'clib' name 'clearerr';
  3097. function fclose(para1:PFILE):longint;cdecl;external 'clib' name 'fclose';
  3098. function fclose(var para1:TFILE):longint;cdecl;external 'clib' name 'fclose';
  3099. function feof(para1:PFILE):longint;cdecl;external 'clib' name 'feof';
  3100. function feof(var para1:TFILE):longint;cdecl;external 'clib' name 'feof';
  3101. function ferror(para1:PFILE):longint;cdecl;external 'clib' name 'ferror';
  3102. function ferror(var para1:TFILE):longint;cdecl;external 'clib' name 'ferror';
  3103. function fflush(para1:PFILE):longint;cdecl;external 'clib' name 'fflush';
  3104. function fflush(var para1:TFILE):longint;cdecl;external 'clib' name 'fflush';
  3105. function fgetc(para1:PFILE):char;cdecl;external 'clib' name 'fgetc';
  3106. function fgetc(var para1:TFILE):char;cdecl;external 'clib' name 'fgetc';
  3107. function fgetpos(para1:PFILE; para2:Pfpos_t):longint;cdecl;external 'clib' name 'fgetpos';
  3108. function fgetpos(var para1:TFILE; var para2:Tfpos_t):longint;cdecl;external 'clib' name 'fgetpos';
  3109. function fgets(para1:Pchar; para2:longint; para3:PFILE):Pchar;cdecl;external 'clib' name 'fgets';
  3110. function fgets(para1:Pchar; para2:longint; var para3:TFILE):Pchar;cdecl;external 'clib' name 'fgets';
  3111. function fopen(para1,para2:Pchar):PFILE;cdecl;external 'clib' name 'fopen';
  3112. function fprintf(para1:PFILE; para2:Pchar; args:array of const):longint;cdecl;external 'clib' name 'fprintf';
  3113. function fprintf(var para1:TFILE; para2:Pchar; args:array of const):longint;cdecl;external 'clib' name 'fprintf';
  3114. function fprintf(para1:PFILE; para2:Pchar):longint;cdecl;external 'clib' name 'fprintf';
  3115. function fprintf(var para1:TFILE; para2:Pchar):longint;cdecl;external 'clib' name 'fprintf';
  3116. function fputc(para1:longint; para2:PFILE):longint;cdecl;external 'clib' name 'fputc';
  3117. function fputs(para1:Pchar; para2:PFILE):longint;cdecl;external 'clib' name 'fputs';
  3118. function fread(para1:pointer; para2:Tsize_t; para3:Tsize_t; para4:PFILE):Tsize_t;cdecl;external 'clib' name 'fread';
  3119. function freopen(para1:Pchar; para2:Pchar; para3:PFILE):PFILE;cdecl;external 'clib' name 'freopen';
  3120. function fscanf(para1:PFILE; para2:Pchar; args:array of const):longint;cdecl;external 'clib' name 'fscanf';
  3121. function fscanf(var para1:TFILE; para2:Pchar; args:array of const):longint;cdecl;external 'clib' name 'fscanf';
  3122. function fscanf(para1:PFILE; para2:Pchar):longint;cdecl;external 'clib' name 'fscanf';
  3123. function fscanf(var para1:TFILE; para2:Pchar):longint;cdecl;external 'clib' name 'fscanf';
  3124. function fseek(fp:PFILE; offset:longint; whence:longint):longint;cdecl;external 'clib' name 'fseek';
  3125. function fseek(var fp:TFILE; offset:longint; whence:longint):longint;cdecl;external 'clib' name 'fseek';
  3126. (* Const before type ignored *)
  3127. function fsetpos(para1:PFILE; para2:Pfpos_t):longint;cdecl;external 'clib' name 'fsetpos';
  3128. function fsetpos(var para1:TFILE; para2:Pfpos_t):longint;cdecl;external 'clib' name 'fsetpos';
  3129. function ftell(para1:PFILE):longint;cdecl;external 'clib' name 'ftell';
  3130. function ftell(var para1:TFILE):longint;cdecl;external 'clib' name 'ftell';
  3131. function fwrite(para1:pointer; para2:Tsize_t; para3:Tsize_t; para4:PFILE):Tsize_t;cdecl;external 'clib' name 'fwrite';
  3132. function getc(para1:PFILE):char;cdecl;external 'clib' name 'getc';
  3133. function getc(var para1:TFILE):char;cdecl;external 'clib' name 'getc';
  3134. function getchar:char;cdecl;external 'clib' name 'getchar';
  3135. function gets(para1:Pchar):Pchar;cdecl;external 'clib' name 'gets';
  3136. procedure perror(para1:Pchar);cdecl;external 'clib' name 'perror';
  3137. function printf(para1:Pchar; args:array of const):longint;cdecl;external 'clib' name 'printf';
  3138. function printf(para1:Pchar):longint;cdecl;external 'clib' name 'printf';
  3139. function putc(para1:char; para2:PFILE):longint;cdecl;external 'clib' name 'putc';
  3140. function putc(para1:char; var para2:TFILE):longint;cdecl;external 'clib' name 'putc';
  3141. function putchar(para1:char):longint;cdecl;external 'clib' name 'putchar';
  3142. function puts(para1:Pchar):longint;cdecl;external 'clib' name 'puts';
  3143. function remove(para1:Pchar):longint;cdecl;external 'clib' name 'remove';
  3144. function rename(para1, para2:Pchar):longint;cdecl;external 'clib' name 'rename';
  3145. procedure rewind(para1:PFILE);cdecl;external 'clib' name 'rewind';
  3146. procedure rewind(var para1:TFILE);cdecl;external 'clib' name 'rewind';
  3147. function scanf(para1:Pchar; args:array of const):longint;cdecl;external 'clib' name 'scanf';
  3148. function scanf(para1:Pchar):longint;cdecl;external 'clib' name 'scanf';
  3149. procedure setbuf(para1:PFILE; para2:Pchar);cdecl;external 'clib' name 'setbuf';
  3150. procedure setbuf(var para1:TFILE; para2:Pchar);cdecl;external 'clib' name 'setbuf';
  3151. function setvbuf(para1:PFILE; para2:Pchar; para3:longint; para4:Tsize_t):longint;cdecl;external 'clib' name 'setvbuf';
  3152. function setvbuf(para1:TFILE; para2:Pchar; para3:longint; para4:Tsize_t):longint;cdecl;external 'clib' name 'setvbuf';
  3153. function sprintf(para1,para2:Pchar; args:array of const):longint;cdecl;external 'clib' name 'sprintf';
  3154. function sprintf(para1,para2:Pchar):longint;cdecl;external 'clib' name 'sprintf';
  3155. function sscanf(para1, para2:Pchar; args:array of const):longint;cdecl;external 'clib' name 'sscanf';
  3156. function sscanf(para1, para2:Pchar):longint;cdecl;external 'clib' name 'sscanf';
  3157. function tmpfile:PFILE;cdecl;external 'clib' name 'tmpfile';
  3158. function tmpnam(para1:Pchar):Pchar;cdecl;external 'clib' name 'tmpnam';
  3159. function ungetc(para1:longint; para2:PFILE):longint;cdecl;external 'clib' name 'ungetc';
  3160. function ungetc(para1:longint; var para2:TFILE):longint;cdecl;external 'clib' name 'ungetc';
  3161. function vfprintf(para1:PFILE; para2:Pchar; para3:Tva_list):longint;cdecl;external 'clib' name 'vfprintf';
  3162. function vfprintf(var para1:TFILE; para2:Pchar; para3:Tva_list):longint;cdecl;external 'clib' name 'vfprintf';
  3163. function vfscanf(para1:PFILE; para2:Pchar; para3:Tva_list):longint;cdecl;external 'clib' name 'vfscanf';
  3164. function vfscanf(var para1:TFILE; para2:Pchar; para3:Tva_list):longint;cdecl;external 'clib' name 'vfscanf';
  3165. function vprintf(para1:Pchar; para2:Tva_list):longint;cdecl;external 'clib' name 'vprintf';
  3166. function vscanf(para1:Pchar; para2:Tva_list):longint;cdecl;external 'clib' name 'vscanf';
  3167. function vsprintf(para1,para2:Pchar; para3:Tva_list):longint;cdecl;external 'clib' name 'vsprintf';
  3168. function vsscanf(para1, para2:Pchar; para3:Tva_list):longint;cdecl;external 'clib' name 'vsscanf';
  3169. { POSIX-defined additions... }
  3170. function fdopen(para1:longint; para2:Pchar):PFILE;cdecl;external 'clib' name 'fdopen';
  3171. function fileno(fp:PFILE):longint;cdecl;external 'clib' name 'fileno';
  3172. function fileno(var f:TFILE):longint;cdecl;external 'clib' name 'fileno';
  3173. //function cgets(para1:Pchar):Pchar;cdecl;external 'clib' name 'cgets';
  3174. //function cprintf(para1:Pchar; args:array of const):longint;cdecl;external 'clib' name 'cprintf';
  3175. //function cprintf(para1:Pchar):longint;cdecl;external 'clib' name 'cprintf';
  3176. //function cputs(para1:Pchar):longint;cdecl;external 'clib' name 'cputs';
  3177. //function cscanf(para1:Pchar; args:array of const):longint;cdecl;external 'clib' name 'cscanf';
  3178. //function cscanf(para1:Pchar):longint;cdecl;external 'clib' name 'cscanf';
  3179. function fcloseall:longint;cdecl;external 'clib' name 'fcloseall';
  3180. function fgetchar:longint;cdecl;external 'clib' name 'fgetchar';
  3181. function flushall:longint;cdecl;external 'clib' name 'flushall';
  3182. function fputchar(para1:longint):longint;cdecl;external 'clib' name 'fputchar';
  3183. function vcprintf(para1:Pchar; para2:Tva_list):longint;cdecl;external 'clib' name 'vcprintf';
  3184. function vcscanf(para1:Pchar; para2:Tva_list):longint;cdecl;external 'clib' name 'vcscanf';
  3185. function NWfprintf(var para1:TFILE; para2:Pchar; args:array of const):longint;cdecl;external 'clib' name 'NWfprintf';
  3186. function NWfprintf(var para1:TFILE; para2:Pchar):longint;cdecl;external 'clib' name 'NWfprintf';
  3187. function NWvcprintf(para1:Pchar; para2:Tva_list):longint;cdecl;external 'clib' name 'NWvcprintf';
  3188. function NWvfprintf(para1:PFILE; para2:Pchar; para3:Tva_list):longint;cdecl;external 'clib' name 'NWvfprintf';
  3189. function NWvprintf(para1:Pchar; para2:Tva_list):longint;cdecl;external 'clib' name 'NWvprintf';
  3190. function NWvsprintf(para1:Pchar; para2:Pchar; para3:Tva_list):longint;cdecl;external 'clib' name 'NWvsprintf';
  3191. {
  3192. For the following support, open the file without 'b' in the mode. Additions
  3193. for transparent Macintosh text file support ('\r' on lines) and additions
  3194. for transparent UNIX text file support ('\n' on lines).
  3195. }
  3196. function IsMacintoshTextFile(para1:PFILE):longint;cdecl;external 'clib' name 'IsMacintoshTextFile';
  3197. function SetMacintoshTextMode(para1:PFILE):longint;cdecl;external 'clib' name 'SetMacintoshTextMode';
  3198. function UnsetMacintoshTextMode(para1:PFILE):longint;cdecl;external 'clib' name 'UnsetMacintoshTextMode';
  3199. function IsMacintoshTextFile(var para1:TFILE):longint;cdecl;external 'clib' name 'IsMacintoshTextFile';
  3200. function SetMacintoshTextMode(var para1:TFILE):longint;cdecl;external 'clib' name 'SetMacintoshTextMode';
  3201. function UnsetMacintoshTextMode(var para1:TFILE):longint;cdecl;external 'clib' name 'UnsetMacintoshTextMode';
  3202. { back to '\r\n' }
  3203. function is_unix_text_file(para1:PFILE):longint;cdecl;external 'clib' name 'is_unix_text_file';
  3204. function set_unix_text_mode(para1:PFILE):longint;cdecl;external 'clib' name 'set_unix_text_mode';
  3205. function unset_unix_text_mode(para1:PFILE):longint;cdecl;external 'clib' name 'unset_unix_text_mode';
  3206. function is_unix_text_file(var para1:TFILE):longint;cdecl;external 'clib' name 'is_unix_text_file';
  3207. function set_unix_text_mode(var para1:TFILE):longint;cdecl;external 'clib' name 'set_unix_text_mode';
  3208. function unset_unix_text_mode(var para1:TFILE):longint;cdecl;external 'clib' name 'unset_unix_text_mode';
  3209. { back to '\r\n' }
  3210. { functions underlying macro support... }
  3211. function __get_stdin:PPFILE;cdecl;external 'clib' name '__get_stdin';
  3212. function __get_stdout:PPFILE;cdecl;external 'clib' name '__get_stdout';
  3213. function __get_stderr:PPFILE;cdecl;external 'clib' name '__get_stderr';
  3214. function __stdin : PFILE;
  3215. function __stdout : PFILE;
  3216. function __stderr : PFILE;
  3217. {-stdlib.h---------------------------------------------------------------------}
  3218. {$PACKRECORDS C}
  3219. const
  3220. EXIT_FAILURE = -(1);
  3221. EXIT_SUCCESS = 0;
  3222. RAND_MAX = 32767;
  3223. type
  3224. Pdiv_t = ^Tdiv_t;
  3225. Tdiv_t = record
  3226. quot : longint;
  3227. rem : longint;
  3228. end;
  3229. Pldiv_t = ^Tldiv_t;
  3230. Tldiv_t = record
  3231. quot : longint;
  3232. rem : longint;
  3233. end;
  3234. TCdeclProcedure = procedure; cdecl;
  3235. TBSearchFunc = function (para1:pointer; para2:pointer):longint; cdecl;
  3236. TQSortFunc = function (para1:pointer; para2:pointer):longint; cdecl;
  3237. //?? var __ctype : array of byte;cvar;external;
  3238. procedure abort;cdecl;external 'clib' name 'abort';
  3239. function abs(para1:longint):longint;cdecl;external 'clib' name 'abs';
  3240. function atexit(proc:TCdeclProcedure):longint;cdecl;external 'clib' name 'atexit';
  3241. function atof(para1:Pchar):double;cdecl;external 'clib' name 'atof';
  3242. function atoi(para1:Pchar):longint;cdecl;external 'clib' name 'atoi';
  3243. function atol(para1:Pchar):longint;cdecl;external 'clib' name 'atol';
  3244. function bsearch(para1,para2:pointer; para3,para4:Tsize_t; para5:TBsearchFunc):pointer;cdecl;external 'clib' name 'bsearch';
  3245. function calloc(para1:Tsize_t; para2:Tsize_t):pointer;cdecl;external 'clib' name 'calloc';
  3246. function _div(para1,para2:longint):Tdiv_t;cdecl;external 'clib' name 'div';
  3247. //procedure exit(para1:longint);cdecl;external 'clib' name 'exit';
  3248. procedure _exit(para1:longint);cdecl;external 'clib' name '_exit';
  3249. function getenv(para1:Pchar):Pchar;cdecl;external 'clib' name 'getenv';
  3250. function labs(para1:longint):longint;cdecl;external 'clib' name 'labs';
  3251. function ldiv(para1:longint; para2:longint):Tldiv_t;cdecl;external 'clib' name 'ldiv';
  3252. function malloc(para1:Tsize_t):pointer;cdecl;external 'clib' name 'malloc';
  3253. function mblen(para1:Pchar; para2:Tsize_t):longint;cdecl;external 'clib' name 'mblen';
  3254. function mbstowcs(para1:Pwchar_t; para2:Pchar; para3:Tsize_t):Tsize_t;cdecl;external 'clib' name 'mbstowcs';
  3255. function mbtowc(para1:Pwchar_t; para2:Pchar; para3:Tsize_t):longint;cdecl;external 'clib' name 'mbtowc';
  3256. procedure qsort(para1:pointer; para2,para3:Tsize_t; para4:TQSortFunc);cdecl;external 'clib' name 'qsort';
  3257. function rand:longint;cdecl;external 'clib' name 'rand';
  3258. function realloc(para1:pointer; para2:Tsize_t):pointer;cdecl;external 'clib' name 'realloc';
  3259. procedure srand(para1:dword);cdecl;external 'clib' name 'srand';
  3260. function strtod(para1:Pchar; para2:PPchar):double;cdecl;external 'clib' name 'strtod';
  3261. function strtol(para1:Pchar; para2:PPchar; para3:longint):longint;cdecl;external 'clib' name 'strtol';
  3262. function strtoul(para1:Pchar; para2:PPchar; para3:longint):dword;cdecl;external 'clib' name 'strtoul';
  3263. function _system(para1:Pchar):longint;cdecl;external 'clib' name 'system';
  3264. function wcstombs(para1:Pchar; para2:Pwchar_t; para3:Tsize_t):Tsize_t;cdecl;external 'clib' name 'wcstombs';
  3265. function wctomb(para1:Pchar; para2:Twchar_t):longint;cdecl;external 'clib' name 'wctomb';
  3266. function clearenv:longint;cdecl;external 'clib' name 'clearenv';
  3267. function ecvt(para1:double; para2:longint; para3:Plongint; para4:Plongint):Pchar;cdecl;external 'clib' name 'ecvt';
  3268. function fcvt(para1:double; para2:longint; para3:Plongint; para4:Plongint):Pchar;cdecl;external 'clib' name 'fcvt';
  3269. function gcvt(para1:double; para2:longint; para3:Pchar):Pchar;cdecl;external 'clib' name 'gcvt';
  3270. function htol(para1:Pchar):dword;cdecl;external 'clib' name 'htol';
  3271. function itoa(para1:longint; para2:Pchar; para3:longint):Pchar;cdecl;external 'clib' name 'itoa';
  3272. function itoab(para1:dword; para2:Pchar):Pchar;cdecl;external 'clib' name 'itoab';
  3273. function ltoa(para1:longint; para2:Pchar; para3:longint):Pchar;cdecl;external 'clib' name 'ltoa';
  3274. function max(para1:longint; para2:longint):longint;cdecl;external 'clib' name 'max';
  3275. function min(para1:longint; para2:longint):longint;cdecl;external 'clib' name 'min';
  3276. function putenv(name:Pchar):longint;cdecl;external 'clib' name 'putenv';
  3277. function rand_r(seed:Pdword; result:Plongint):longint;cdecl;external 'clib' name 'rand_r';
  3278. function _rotl(para1:dword; para2:dword):dword;cdecl;external 'clib' name '_rotl';
  3279. function _rotr(para1:dword; para2:dword):dword;cdecl;external 'clib' name '_rotr';
  3280. function scanenv(sequence:Plongint; variable:Pchar; length:Psize_t; value:Pchar):longint;cdecl;external 'clib' name 'scanenv';
  3281. function setenv(name:Pchar; value:Pchar; overwrite:longint):longint;cdecl;external 'clib' name 'setenv';
  3282. // double strtod_ld( const char *, char **, long double *);
  3283. function strtoi(para1:Pchar; para2:longint):longint;cdecl;external 'clib' name 'strtoi';
  3284. function ultoa(para1:dword; para2:Pchar; para3:longint):Pchar;cdecl;external 'clib' name 'ultoa';
  3285. function unsetenv(name:Pchar):longint;cdecl;external 'clib' name 'unsetenv';
  3286. function utoa(para1:dword; para2:Pchar; para3:longint):Pchar;cdecl;external 'clib' name 'utoa';
  3287. function _lrotl(para1:dword; para2:dword):dword;cdecl;external 'clib' name '_lrotl';
  3288. function _lrotr(para1:dword; para2:dword):dword;cdecl;external 'clib' name '_lrotr';
  3289. {-unistd.h---------------------------------------------------------------------}
  3290. const
  3291. F_OK = 0;
  3292. R_OK = 4;
  3293. W_OK = 2;
  3294. X_OK = 1;
  3295. { test using effective ids }
  3296. EFF_ONLY_OK = 8;
  3297. STDIN_FILENO = 0;
  3298. STDOUT_FILENO = 1;
  3299. STDERR_FILENO = 2;
  3300. type TPipeFiledes = array [0..1] of longint;
  3301. function access(path:Pchar; mode:longint):longint;cdecl;external 'clib' name 'access';
  3302. function _chdir(path:Pchar):longint;cdecl;external 'clib' name 'chdir';
  3303. function Fpchdir(path:Pchar):longint;cdecl;external 'clib' name 'chdir';
  3304. function chsize(fildes:longint; size:dword):longint;cdecl;external 'clib' name 'chsize';
  3305. function _close(fildes:longint):longint;cdecl;external 'clib' name 'close';
  3306. function Fpclose(fildes:longint):longint;cdecl;external 'clib' name 'close';
  3307. function dup(fildes:longint):longint;cdecl;external 'clib' name 'dup';
  3308. function dup2(fildes1:longint; fildes2:longint):longint;cdecl;external 'clib' name 'dup2';
  3309. function _eof(fildes:longint):longint;cdecl;external 'clib' name 'eof';
  3310. function Fpeof(fildes:longint):longint;cdecl;external 'clib' name 'eof';
  3311. function getcwd(path:Pchar; len:Tsize_t):Pchar;cdecl;external 'clib' name 'getcwd';
  3312. function isatty(fildes:longint):longint;cdecl;external 'clib' name 'isatty';
  3313. function lseek(fildes:longint; offset:Toff_t; whence:longint):Toff_t;cdecl;external 'clib' name 'lseek';
  3314. function pipe(fildes:TPipeFiledes):longint;cdecl;external 'clib' name 'pipe';
  3315. function _read(fildes:longint; buf:pointer; nbytes:Tsize_t):Tssize_t;cdecl;external 'clib' name 'read';
  3316. function Fpread(fildes:longint; buf:pointer; nbytes:Tsize_t):Tssize_t;cdecl;external 'clib' name 'read';
  3317. function rmdir(path:Pchar):longint;cdecl;external 'clib' name 'rmdir';
  3318. function unlink(path:Pchar):longint;cdecl;external 'clib' name 'unlink';
  3319. function _write(fildes:longint; buf:pointer; nbytes:Tsize_t):Tssize_t;cdecl;external 'clib' name 'write';
  3320. function Fpwrite(fildes:longint; buf:pointer; nbytes:Tsize_t):Tssize_t;cdecl;external 'clib' name 'write';
  3321. function pread(fildes:longint; buf:pointer; nbytes:Tsize_t; offset:Toff_t):Tssize_t;cdecl;external 'clib' name 'pread';
  3322. function pwrite(fildes:longint; buf:pointer; nbytes:Tsize_t; offset:Toff_t):Tssize_t;cdecl;external 'clib' name 'pwrite';
  3323. function _write(fildes:longint; var buf; nbytes:Tsize_t):Tssize_t;cdecl;external 'clib' name 'write';
  3324. function Fpwrite(fildes:longint; var buf; nbytes:Tsize_t):Tssize_t;cdecl;external 'clib' name 'write';
  3325. function pread(fildes:longint; var buf; nbytes:Tsize_t; offset:Toff_t):Tssize_t;cdecl;external 'clib' name 'pread';
  3326. function pwrite(fildes:longint; var buf; nbytes:Tsize_t; offset:Toff_t):Tssize_t;cdecl;external 'clib' name 'pwrite';
  3327. {-libcclib.h-------------------------------------------------------------------}
  3328. {$PACKRECORDS C}
  3329. type
  3330. Tstart_routineProc = procedure (arg:pointer); cdecl;
  3331. Pclibctx_t = ^Tclibctx_t;
  3332. Tclibctx_t = record
  3333. ThreadGroupGetID : function :longint;cdecl;
  3334. ThreadGroupCreate : function (name:Pchar; threadGroupID:Plongint):longint; cdecl;
  3335. ThreadGroupDispose : function (threadGroupID:longint):longint; cdecl;
  3336. ThreadGroupUnwrap : function (threadGroupID:longint; restoredThreadGroupID:longint):longint; cdecl;
  3337. ThreadGroupWrap : function (threadGroupID:longint):longint; cdecl;
  3338. ThreadCreate : function (threadGroupID:longint;
  3339. start_routine:Tstart_routineProc;
  3340. arg:pointer;
  3341. stackSize:Tsize_t;
  3342. flags:dword;
  3343. threadID:Plongint):longint; cdecl;
  3344. __UnloadBroker : procedure ; cdecl;
  3345. reserved1 : pointer;
  3346. reserved : array[0..7] of pointer;
  3347. end;
  3348. function CLibLoadContextBroker(module:pointer; callback:Pchar):longint;cdecl;external 'clib' name 'CLibLoadContextBroker';
  3349. function CLibUnloadContextBroker(broker:Pclibctx_t):longint;cdecl;external 'clib' name 'CLibUnloadContextBroker';
  3350. function MyCallBack(broker:Pclibctx_t):longint;cdecl;external 'clib' name 'MyCallBack';
  3351. {-nwtime.h---------------------------------------------------------------------}
  3352. const
  3353. CLOCK_IS_SYNCHRONIZED = $01;
  3354. type
  3355. PclockAndStatus = ^TclockAndStatus;
  3356. TclockAndStatus = longint;
  3357. const
  3358. CLOCK_IS_NETWORK_SYNCHRONIZED = $02;
  3359. CLOCK_SYNCHRONIZATION_IS_ACTIVE = $04;
  3360. {$include npackon.inc}
  3361. type
  3362. PDOSTime = ^TDOSTime;
  3363. TDOSTime = record
  3364. flag0 : word;
  3365. end;
  3366. const
  3367. bm_TDOSTime_bisecond = $1F;
  3368. bp_TDOSTime_bisecond = 0;
  3369. bm_TDOSTime_minute = $7E0;
  3370. bp_TDOSTime_minute = 5;
  3371. bm_TDOSTime_hour = $F800;
  3372. bp_TDOSTime_hour = 11;
  3373. function bisecond(var a : TDOSTime) : word;
  3374. procedure set_bisecond(var a : TDOSTime; __bisecond : word);
  3375. function minute(var a : TDOSTime) : word;
  3376. procedure set_minute(var a : TDOSTime; __minute : word);
  3377. function hour(var a : TDOSTime) : word;
  3378. procedure set_hour(var a : TDOSTime; __hour : word);
  3379. type
  3380. PDOSDate = ^TDOSDate;
  3381. TDOSDate = record
  3382. flag0 : word;
  3383. end;
  3384. T_DOSDate = TDOSDate;
  3385. const
  3386. bm_TDOSDate_day = $1F;
  3387. bp_TDOSDate_day = 0;
  3388. bm_TDOSDate_month = $1E0;
  3389. bp_TDOSDate_month = 5;
  3390. bm_TDOSDate_yearsSince80 = $FE00;
  3391. bp_TDOSDate_yearsSince80 = 9;
  3392. function day(var a : TDOSDate) : word;
  3393. procedure set_day(var a : TDOSDate; __day : word);
  3394. function month(var a : TDOSDate) : word;
  3395. procedure set_month(var a : TDOSDate; __month : word);
  3396. function yearsSince80(var a : TDOSDate) : word;
  3397. procedure set_yearsSince80(var a : TDOSDate; __yearsSince80 : word);
  3398. type
  3399. P_DOSTime = ^T_DOSTime;
  3400. T_DOSTime = record
  3401. flag0 : word;
  3402. end;
  3403. const
  3404. bm_T_DOSTime_bisecond = $1F;
  3405. bp_T_DOSTime_bisecond = 0;
  3406. bm_T_DOSTime_minute = $7E0;
  3407. bp_T_DOSTime_minute = 5;
  3408. bm_T_DOSTime_hour = $F800;
  3409. bp_T_DOSTime_hour = 11;
  3410. function bisecond(var a : T_DOSTime) : word;
  3411. procedure set_bisecond(var a : T_DOSTime; __bisecond : word);
  3412. function minute(var a : T_DOSTime) : word;
  3413. procedure set_minute(var a : T_DOSTime; __minute : word);
  3414. function hour(var a : T_DOSTime) : word;
  3415. procedure set_hour(var a : T_DOSTime; __hour : word);
  3416. const
  3417. bm_T_DOSDate_day = $1F;
  3418. bp_T_DOSDate_day = 0;
  3419. bm_T_DOSDate_month = $1E0;
  3420. bp_T_DOSDate_month = 5;
  3421. bm_T_DOSDate_yearsSince80 = $FE00;
  3422. bp_T_DOSDate_yearsSince80 = 9;
  3423. {$include npackoff.inc}
  3424. function _ConvertDOSTimeToCalendar(dateTime:longint):Ttime_t;cdecl;external 'clib' name '_ConvertDOSTimeToCalendar';
  3425. procedure _ConvertTimeToDOS(calendarTime:Ttime_t; filDatP:PDOSDate; filTimP:PDOSTime);cdecl;external 'clib' name '_ConvertTimeToDOS';
  3426. procedure GetClockStatus(_dataPtr:TclockAndStatus);cdecl;external 'clib' name 'GetClockStatus';
  3427. function GetCurrentTicks:longint;cdecl;external 'clib' name 'GetCurrentTicks';
  3428. function GetHighResolutionTimer:longint;cdecl;external 'clib' name 'GetHighResolutionTimer';
  3429. function GetSuperHighResolutionTimer:longint;cdecl;external 'clib' name 'GetSuperHighResolutionTimer';
  3430. function NWGetHighResolutionTimer:longint;cdecl;external 'clib' name 'NWGetHighResolutionTimer';
  3431. function NWGetSuperHighResolutionTimer:longint;cdecl;external 'clib' name 'NWGetSuperHighResolutionTimer';
  3432. function __get_altzone:Ptime_t;cdecl;external 'clib' name '__get_altzone';
  3433. function altzone:Ptime_t;cdecl;external 'clib' name '__get_altzone';
  3434. function __get_daylight:Plongint;cdecl;external 'clib' name '__get_daylight';
  3435. function daylight:Plongint;cdecl;external 'clib' name '__get_daylight';
  3436. function __get_daylightOffset:Ptime_t;cdecl;external 'clib' name '__get_daylightOffset';
  3437. function daylightOffset:Ptime_t;cdecl;external 'clib' name '__get_daylightOffset';
  3438. function __get_daylightOnOff:Plongint;cdecl;external 'clib' name '__get_daylightOnOff';
  3439. function daylightOnOff:Plongint;cdecl;external 'clib' name '__get_daylightOnOff';
  3440. function __get_timezone:Ptime_t;cdecl;external 'clib' name '__get_timezone';
  3441. function timezone:Ptime_t;cdecl;external 'clib' name '__get_timezone';
  3442. procedure SecondsToTicks(Seconds:longint; TenthsOfSeconds:longint; Ticks:Plongint);cdecl;external 'clib' name 'SecondsToTicks';
  3443. procedure TicksToSeconds(Ticks:longint; Seconds:Plongint; TenthsOfSeconds:Plongint);cdecl;external 'clib' name 'TicksToSeconds';
  3444. {-nwthread.h-------------------------------------------------------------------}
  3445. { values for __action_code used with ExitThread() }
  3446. const
  3447. TSR_THREAD = -1;
  3448. EXIT_THREAD = 0;
  3449. EXIT_NLM = 1;
  3450. { values for __mode used with spawnxx() }
  3451. P_WAIT = 0;
  3452. P_NOWAIT = 1;
  3453. P_OVERLAY = 2;
  3454. P_NOWAITO = 4;
  3455. P_SPAWN_IN_CURRENT_DOMAIN = 8;
  3456. NO_CONTEXT = 0;
  3457. USE_CURRENT_CONTEXT = 1;
  3458. { stack defines }
  3459. MIN_STACKSIZE = 16384;
  3460. DEFAULT_STACKSIZE = 16384;
  3461. type
  3462. PWorkToDo = ^TWorkToDo;
  3463. TProcedure = procedure; cdecl;
  3464. TThreadFunc = procedure (param1:pointer); cdecl;
  3465. TWorkToDoProc = procedure (data:pointer; workToDo:PWorkToDo); cdecl;
  3466. TCleanup = procedure (para1:longint); cdecl;
  3467. PAESProcessStructure = ^TAESProcessStructure;
  3468. TAESProcessStructure = record
  3469. ALink : PAESProcessStructure;
  3470. AWakeUpDelayAmount : longint;
  3471. AWakeUpTime : longint;
  3472. AProcessToCall : procedure (para1:pointer);cdecl;
  3473. ARTag : longint;
  3474. AOldLink : longint;
  3475. end;
  3476. PWorkToDoStructure = ^TWorkToDoStructure;
  3477. TWorkToDoStructure = record
  3478. Link : PWorkToDoStructure;
  3479. workProcedure : TProcedure;
  3480. WorkResourceTag : longint;
  3481. PollCountAmount : longint;
  3482. PollCountWhen : longint;
  3483. userProcedure : TProcedure;
  3484. dataPtr : pointer;
  3485. destThreadGroup : longint;
  3486. end;
  3487. TWorkToDo = TWorkToDoStructure;
  3488. { custom data area variables... }
  3489. {
  3490. var
  3491. threadCustomDataPtr : pointer;cvar;external;
  3492. threadCustomDataSize : longint;cvar;external;
  3493. threadGroupCustomDataPtr : pointer;cvar;external;
  3494. threadGroupCustomDataSize : longint;cvar;external; }
  3495. function AtUnload(func:Tprocedure):longint; cdecl;external ThreadsNlm name 'AtUnload';
  3496. function BeginThread(func:TThreadFunc;
  3497. stackP:pointer;
  3498. stackSize:dword;
  3499. arg:pointer):longint; cdecl;external ThreadsNlm name 'BeginThread';
  3500. function BeginThreadGroup(func:TThreadFunc;
  3501. stackP:pointer;
  3502. stackSize:dword;
  3503. arg:pointer):longint; cdecl;external ThreadsNlm name 'BeginThreadGroup';
  3504. function Breakpoint(arg:longint):longint; cdecl;external Lib0Nlm name 'Breakpoint';
  3505. procedure CancelNoSleepAESProcessEvent(EventNode:PAESProcessStructure);cdecl;external ThreadsNlm name 'CancelNoSleepAESProcessEvent';
  3506. procedure CancelSleepAESProcessEvent (EventNode:PAESProcessStructure);cdecl;external ThreadsNlm name 'CancelSleepAESProcessEvent';
  3507. function ClearNLMDontUnloadFlag(NLMID:longint):longint; cdecl;external ThreadsNlm name 'ClearNLMDontUnloadFlag';
  3508. procedure delay(milliseconds:dword); cdecl;external ThreadsNlm name 'delay';
  3509. function EnterCritSec:longint; cdecl;external ThreadsNlm name 'EnterCritSec';
  3510. function ExitCritSec:longint; cdecl;external ThreadsNlm name 'ExitCritSec';
  3511. procedure ExitThread(action_code :longint;
  3512. termination_code:longint); cdecl;external ThreadsNlm name 'ExitThread';
  3513. function FindNLMHandle(NLMFileName:Pchar):dword; cdecl;external ThreadsNlm name 'FindNLMHandle';
  3514. function getcmd(cmdLine:Pchar):Pchar; cdecl;external ThreadsNlm name 'getcmd';
  3515. function GetNLMHandle:dword; cdecl;external ThreadsNlm name 'GetNLMHandle';
  3516. function GetNLMID:longint; cdecl;external ThreadsNlm name 'GetNLMID';
  3517. function GetNLMIDFromNLMHandle(NLMHandle:longint):longint; cdecl;external ThreadsNlm name 'GetNLMIDFromNLMHandle';
  3518. function GetNLMIDFromThreadID(threadID:longint;fileName:Pchar):longint;cdecl;external ThreadsNlm name 'GetNLMIDFromThreadID';
  3519. function GetNLMNameFromNLMID(NLMID:longint;
  3520. fileName:Pchar;
  3521. description:Pchar):longint; cdecl;external ThreadsNlm name 'GetNLMNameFromNLMID';
  3522. function GetNLMNameFromNLMHandle(NLMHandle:longint;
  3523. LDFileName:Pchar;
  3524. LDName:Pchar):longint; cdecl;external ThreadsNlm name 'GetNLMNameFromNLMHandle';
  3525. function GetThreadContextSpecifier(threadID:longint):longint; cdecl;external ThreadsNlm name 'GetThreadContextSpecifier';
  3526. function GetThreadGroupID:longint; cdecl;external ThreadsNlm name 'GetThreadGroupID';
  3527. function __GetThreadIDFromPCB(PCB:longint):longint; cdecl;external Lib0Nlm name '__GetThreadIDFromPCB';
  3528. function GetThreadHandicap(threadID:longint):longint; cdecl;external ThreadsNlm name 'GetThreadHandicap';
  3529. function GetThreadID:longint; cdecl;external ThreadsNlm name 'GetThreadID';
  3530. function GetThreadName(threadID:longint; tName:Pchar):longint; cdecl;external ThreadsNlm name 'GetThreadName';
  3531. function GetThreadName(threadID:longint; var tName):longint; cdecl;external ThreadsNlm name 'GetThreadName';
  3532. function MapNLMIDToHandle(NLMID:longint):longint; cdecl;external ThreadsNlm name 'MapNLMIDToHandle';
  3533. function PopThreadCleanup(execute:longint):TCLEANUP; cdecl;external ThreadsNlm name 'PopThreadCleanup';
  3534. function PopThreadGroupCleanup(execute:longint):TCLEANUP; cdecl;external ThreadsNlm name 'PopThreadGroupCleanup';
  3535. function PushThreadCleanup(func:TCLEANUP):longint; cdecl;external ThreadsNlm name 'PushThreadCleanup';
  3536. function PushThreadGroupCleanup(func:TCLEANUP):longint; cdecl;external ThreadsNlm name 'PushThreadGroupCleanup';
  3537. function RenameThread(threadID:longint; newName:Pchar):longint; cdecl;external ThreadsNlm name 'RenameThread';
  3538. function ResumeThread(threadID:longint):longint; cdecl;external ThreadsNlm name 'ResumeThread';
  3539. function ReturnNLMVersionInfoFromFile(pathName:pchar;
  3540. majorVersion:Plongint;
  3541. minorVersion:Plongint;
  3542. revision:Plongint;
  3543. year:Plongint;
  3544. month:Plongint;
  3545. day:Plongint;
  3546. copyrightString:pchar;
  3547. description:pchar):longint; cdecl;external NlmLibNlm name 'ReturnNLMVersionInfoFromFile';
  3548. function ReturnNLMVersionInfoFromFile(pathName:pchar;
  3549. var majorVersion,minorVersion,revision:longint;
  3550. var year,month,day:longint;
  3551. copyrightString:pchar;
  3552. description:pchar):longint; cdecl;external NlmLibNlm name 'ReturnNLMVersionInfoFromFile';
  3553. function ReturnNLMVersionInformation(NLMHandle:longint;
  3554. majorVersion,minorVersion,revision,year,month,day:Plongint;
  3555. copyrightString:pchar; description:pchar):longint;cdecl;external NlmLibNlm name 'ReturnNLMVersionInformation';
  3556. function ReturnNLMVersionInformation(NLMHandle:longint;
  3557. var majorVersion,minorVersion,revision,year,month,day:longint;
  3558. copyrightString:pchar; description:pchar):longint;cdecl;external NlmLibNlm name 'ReturnNLMVersionInformation';
  3559. procedure ScheduleNoSleepAESProcessEvent(EventNode:PAESProcessStructure);cdecl;external ThreadsNlm name 'ScheduleNoSleepAESProcessEvent';
  3560. procedure ScheduleSleepAESProcessEvent(EventNode:PAESProcessStructure); cdecl;external ThreadsNlm name 'ScheduleSleepAESProcessEvent';
  3561. function ScheduleWorkToDo(ProcedureToCall:TWorkToDoProc;
  3562. workData :pointer;
  3563. workToDo :PWorkToDo):longint; cdecl;external ThreadsNlm name 'ScheduleWorkToDo';
  3564. function SetNLMDontUnloadFlag(NLMID:longint):longint; cdecl;external ThreadsNlm name 'SetNLMDontUnloadFlag';
  3565. function SetNLMID(newNLMID:longint):longint; cdecl;external ThreadsNlm name 'SetNLMID';
  3566. function SetThreadContextSpecifier(threadID,
  3567. contextSpecifier:longint):longint; cdecl;external ThreadsNlm name 'SetThreadContextSpecifier';
  3568. function SetThreadGroupID(newThreadGroupID:longint):longint; cdecl;external ThreadsNlm name 'SetThreadGroupID';
  3569. procedure SetThreadHandicap(threadID, handicap:longint); cdecl;external ThreadsNlm name 'SetThreadHandicap';
  3570. function spawnlp(mode:longint;
  3571. path,arg0:Pchar;
  3572. args:array of const):longint; cdecl;external ThreadsNlm name 'spawnlp';
  3573. function spawnlp(mode:longint;
  3574. path,arg0:Pchar):longint; cdecl;external ThreadsNlm name 'spawnlp';
  3575. function spawnvp(mode:longint;
  3576. path,argv:PPchar):longint; cdecl;external ThreadsNlm name 'spawnvp';
  3577. function SuspendThread(threadID:longint):longint; cdecl;external ThreadsNlm name 'SuspendThread';
  3578. procedure ThreadSwitch; cdecl;external ThreadsNlm name 'ThreadSwitch';
  3579. procedure ThreadSwitchLowPriority; cdecl;external ThreadsNlm name 'ThreadSwitchLowPriority';
  3580. procedure ThreadSwitchWithDelay; cdecl;external ThreadsNlm name 'ThreadSwitchWithDelay';
  3581. {-nwmediam.h-------------------------------------------------------------------}
  3582. {$include npackon.inc}
  3583. const
  3584. FORMAT_MEDIA = $0000;
  3585. TAPE_CONTROL = $0001;
  3586. ACTIVATE_FUNCTIONS = $0003;
  3587. MOUNT_FUNCTIONS = $0004;
  3588. SELECT_FUNCTIONS = $0005;
  3589. INSERTION_FUNCTIONS = $0006;
  3590. LOCK_FUNCTIONS = $0007;
  3591. MOVE_FUNCTIONS = $0008;
  3592. STAMP_FUNCTIONS = $0009;
  3593. SCAN_FUNCTIONS = $000A;
  3594. MAGAZINE_FUNCTIONS = $000D;
  3595. { IO Functions }
  3596. RANDOM_READ = $0020;
  3597. RANDOM_WRITE = $0021;
  3598. RANDOM_WRITE_ONCE = $0022;
  3599. SEQUENTIAL_READ = $0023;
  3600. SEQUENTIAL_WRITE = $0024;
  3601. RESET_END_OF_TAPE = $0025;
  3602. SINGLE_FILE_MARK = $0026;
  3603. MULTIPLE_FILE_MARK = $0027;
  3604. SINGLE_SET_MARK = $0028;
  3605. MULTIPLE_SET_MARK = $0029;
  3606. SPACE_DATA_BLOCKS = $002A;
  3607. LOCATE_DATA_BLOCKS = $002B;
  3608. POSITION_PARTITION = $002C;
  3609. POSITION_MEDIA = $002D;
  3610. DEVICE_GENERIC_IOCTL = $003E;
  3611. { Object Types }
  3612. UNKNOWN_OBJECT = $FFFF;
  3613. ADAPTER_OBJECT = 0;
  3614. CHANGER_OBJECT = 1;
  3615. DEVICE_OBJECT = 2;
  3616. MEDIA_OBJECT = 4;
  3617. PARTITION_OBJECT = 5;
  3618. SLOT_OBJECT = 6;
  3619. HOTFIX_OBJECT = 7;
  3620. MIRROR_OBJECT = 8;
  3621. PARITY_OBJECT = 9;
  3622. VOLUME_SEG_OBJECT = 10;
  3623. VOLUME_OBJECT = 11;
  3624. CLONE_OBJECT = 12;
  3625. MAGAZINE_OBJECT = 14;
  3626. UNIDENTIFIABLE_MEDIA = $00000001;
  3627. HIGH_SIERRA_CDROM_MEDIA = $00000002;
  3628. ISO_CDROM_MEDIA = $00000003;
  3629. MAC_CDROM_MEDIA = $00000004;
  3630. NETWARE_FILE_SYSTEM_MEDIA = $00000005;
  3631. INTERNAL_IDENTIFY_TYPE = $00000007;
  3632. SMS_MEDIA_TYPE = $00000008;
  3633. { Notify Event Bits }
  3634. NOTIFY_OBJECT_CREATION = $0001;
  3635. NOTIFY_OBJECT_DELETION = $0002;
  3636. NOTIFY_OBJECT_ACTIVATED = $0004;
  3637. NOTIFY_OBJECT_DEACTIVATED = $0008;
  3638. NOTIFY_OBJECT_RESERVATION = $0010;
  3639. NOTIFY_OBJECT_UNRESERVATION = $0020;
  3640. { Object Status Bits }
  3641. OBJECT_ACTIVATED = $00000001;
  3642. OBJECT_PHANTOM = $00000002;
  3643. OBJECT_ASSIGNABLE = $00000004;
  3644. OBJECT_ASSIGNED = $00000008;
  3645. OBJECT_RESERVED = $00000010;
  3646. OBJECT_BEING_IDENTIFIED = $00000020;
  3647. OBJECT_MAGAZINE_LOADED = $00000040;
  3648. OBJECT_FAILURE = $00000080;
  3649. OBJECT_REMOVABLE = $00000100;
  3650. OBJECT_READ_ONLY = $00000200;
  3651. OBJECT_IN_DEVICE = $00010000;
  3652. OBJECT_ACCEPTS_MAGAZINES = $00020000;
  3653. OBJECT_IS_IN_A_CHANGER = $00040000;
  3654. OBJECT_LOADABLE = $00080000;
  3655. OBJECT_BEING_LOADED = $00080000;
  3656. OBJECT_DEVICE_LOCK = $01000000;
  3657. OBJECT_CHANGER_LOCK = $02000000;
  3658. OBJECT_REMIRRORING = $04000000;
  3659. OBJECT_SELECTED = $08000000;
  3660. { Resource Tag Allocation Signatures }
  3661. { 'PAMM' }
  3662. MMApplicationSignature = $50424D4D;
  3663. { 'ONMM' }
  3664. MMNotifySignature = $4F4E4D4D;
  3665. { 'DIMM' }
  3666. MMIdentifySignature = $44494D4D;
  3667. { AlertTypes }
  3668. ALERT_MESSAGE = $00000001;
  3669. ALERT_ACTIVATE = $00000002;
  3670. ALERT_DEACTIVATE = $00000003;
  3671. ALERT_DELETE = $00000004;
  3672. { AlertReasons }
  3673. ALERT_HOTFIX_ERROR = $00000000;
  3674. ALERT_DRIVER_UNLOAD = $00000001;
  3675. ALERT_DEVICE_FAILURE = $00000002;
  3676. ALERT_PROGRAM_CONTROL = $00000003;
  3677. ALERT_MEDIA_DISMOUNT = $00000004;
  3678. ALERT_MEDIA_EJECT = $00000005;
  3679. ALERT_SERVER_DOWN = $00000006;
  3680. ALERT_SERVER_FAILURE = $00000007;
  3681. ALERT_MEDIA_LOAD = $00000008;
  3682. ALERT_MEDIA_MOUNT = $00000009;
  3683. ALERT_DRIVER_LOAD = $0000000A;
  3684. ALERT_LOST_SOFTWARE_FAULT_TOLERANCE = $0000000B;
  3685. ALERT_INTERNAL_OBJECT_DELETE = $0000000C;
  3686. ALERT_MAGAZINE_LOAD = $0000000D;
  3687. ALERT_MAGAZINE_UNLOAD = $0000000E;
  3688. ALERT_DEVICE_GOING_TO_BE_REMOVED = $0000000F;
  3689. ALERT_CHECK_DEVICE = $00000010;
  3690. ALERT_CONFIGURATION_CHANGE = $00000011;
  3691. ALERT_APPLICATION_UNREGISTER = $00000012;
  3692. ALERT_DAI_EMMULATION = $00000013;
  3693. ALERT_LOST_HARDWARE_FAULT_TOLERANCE = $00000014;
  3694. ALERT_INTERNAL_OBJECT_CREATE = $00000015;
  3695. ALERT_INTERNAL_MANAGER_REMOVE = $00000016;
  3696. ALERT_DEVICE_GOING_TO_BE_DEACTIVATED = $00000017;
  3697. ALERT_DEVICE_END_OF_MEDIA = $00000018;
  3698. ALERT_MEDIA_INSERTED = $00000019;
  3699. ALERT_UNKNOWN_DEVICE_ALERT = $0000001A;
  3700. ALERT_UNKNOWN_ADAPTER_ALERT = $0000001B;
  3701. { Function Control (Priority) Bits }
  3702. PRIORITY_1 = $0001;
  3703. PRIORITY_2 = $0002;
  3704. ACCELERATED_BIT = $0004;
  3705. ELEVATOR_OFF_BIT = $0008;
  3706. RETURN_RAW_COMPLETION = $0010;
  3707. SCRAMBLE_BIT = $0020;
  3708. { Application Alert Codes }
  3709. GOING_TO_BE_DEACTIVATED = $0001;
  3710. OBJECT_BEING_DEACTIVATED = $0002;
  3711. OBJECT_SIZE_CHANGED = $0003;
  3712. OBJECT_BEING_ACTIVATED = $0004;
  3713. OBJECT_BEING_DELETED = $0005;
  3714. OBJECT_LOST_FAULT_TOLERANCE = $0006;
  3715. { Initial Completion Codes }
  3716. MESSAGE_PROCESSED = $00;
  3717. MESSAGE_DATA_MISSING = $01;
  3718. MESSAGE_POSTPONE = $02;
  3719. MESSAGE_ABORTED = $03;
  3720. MESSAGE_INVALID_PARAMETERS = $04;
  3721. MESSAGE_OBJECT_NOT_ACTIVE = $05;
  3722. MESSAGE_INVALID_OJECT = $06;
  3723. MESSAGE_FUNCTION_NOT_SUPPORTED = $07;
  3724. MESSAGE_INVALID_MODE = $08;
  3725. MESSAGE_INTERNAL_ERROR = $09;
  3726. { FinalCompletion Codes }
  3727. FUNCTION_OK = $00;
  3728. FUNCTION_CORRECTED_MEDIA_ERROR = $10;
  3729. FUNCTION_MEDIA_ERROR = $11;
  3730. FUNCTION_DEVICE_ERROR = $12;
  3731. FUNCTION_ADAPTER_ERROR = $13;
  3732. FUNCTION_NOT_SUPPORTED_BY_DEVICE = $14;
  3733. FUNCTION_NOT_SUPPORTED_BY_DRIVER = $15;
  3734. FUNCTION_PARAMETER_ERROR = $16;
  3735. FUNCTION_MEDIA_NOT_PRESENT = $17;
  3736. FUNCTION_MEDIA_CHANGED = $18;
  3737. FUNCTION_PREVIOUSLY_WRITTEN = $19;
  3738. FUNCTION_MEDIA_NOT_FORMATED = $1A;
  3739. FUNCTION_BLANK_MEDIA = $1B;
  3740. {end of partition }
  3741. FUNCTION_END_OF_MEDIA = $1C;
  3742. FUNCTION_FILE_MARK_DETECTED = $1D;
  3743. FUNCTION_SET_MARK_DETECTED = $1E;
  3744. FUNCTION_WRITE_PROTECTED = $1F;
  3745. FUNCTION_OK_EARLY_WARNING = $20;
  3746. FUNCTION_BEGINNING_OF_MEDIA = $21;
  3747. FUNCTION_MEDIA_NOT_FOUND = $22;
  3748. FUNCTION_MEDIA_NOT_REMOVED = $23;
  3749. FUNCTION_UNKNOWN_COMPLETION = $24;
  3750. FUNCTION_DATA_MISSING = $25;
  3751. FUNCTION_HOTFIX_ERROR = $26;
  3752. FUNCTION_HOTFIX_UPDATE_ERROR = $27;
  3753. FUNCTION_IO_ERROR = $28;
  3754. FUNCTION_CHANGER_SOURCE_EMPTY = $29;
  3755. FUNCTION_CHANGER_DEST_FULL = $2A;
  3756. FUNCTION_CHANGER_JAMMED = $2B;
  3757. FUNCTION_MAGAZINE_NOT_PRESENT = $2D;
  3758. FUNCTION_MAGAZINE_SOURCE_EMPTY = $2E;
  3759. FUNCTION_MAGAZINE_DEST_FULL = $2F;
  3760. FUNCTION_MAGAZINE_JAMMED = $30;
  3761. FUNCTION_ABORT_CAUSED_BY_PRIOR_ERROR = $31;
  3762. FUNCTION_CHANGER_ERROR = $32;
  3763. FUNCTION_MAGAZINE_ERROR = $33;
  3764. { ErrorCodes }
  3765. MM_OK = $00;
  3766. MM_INVALID_OBJECT = $01;
  3767. MM_INVALID_APPLICATION = $02;
  3768. MM_INVALID_RESOURCETAG = $03;
  3769. MM_MEMORY_ALLOCATION_ERROR = $04;
  3770. MM_INVALID_MODE = $05;
  3771. MM_RESERVATION_CONFLICT = $06;
  3772. MM_PARAMETER_ERROR = $07;
  3773. MM_OBJECT_NOT_FOUND = $08;
  3774. MM_ATTRIBUTE_NOT_SETABLE = $09;
  3775. MM_FAILURE = $0A;
  3776. { Console Human Jukebox Definitions }
  3777. HJ_INSERT_MESSAGE = 0;
  3778. HJ_EJECT_MESSAGE = 1;
  3779. HJ_ACK_MESSAGE = 2;
  3780. HJ_NACK_MESSAGE = 3;
  3781. HJ_ERROR = 4;
  3782. { Media Manager Structures }
  3783. type
  3784. PMM_F1_Structure = ^TMM_F1_Structure;
  3785. TMM_F1_Structure = record
  3786. code : word;
  3787. control : word;
  3788. end;
  3789. PPrivateIOConfigurationStucture = ^TPrivateIOConfigurationStucture;
  3790. TPrivateIOConfigurationStucture = record
  3791. f1 : longint;
  3792. f2 : word;
  3793. f3 : word;
  3794. f4 : array[0..3] of word;
  3795. f5 : longint;
  3796. f6 : word;
  3797. f7 : longint;
  3798. f8 : word;
  3799. f9 : array[0..1] of byte;
  3800. f10 : array[0..1] of byte;
  3801. f11 : longint;
  3802. f12 : longint;
  3803. f13 : longint;
  3804. f14 : array[0..17] of byte;
  3805. f15 : array[0..1] of longint;
  3806. f16 : word;
  3807. f17 : array[0..5] of byte;
  3808. end;
  3809. PAdapterInfoDef = ^TAdapterInfoDef;
  3810. TAdapterInfoDef = record
  3811. systemtype : byte;
  3812. processornumber : byte;
  3813. uniquetag : word;
  3814. systemnumber : longint;
  3815. devices : array[0..31] of longint;
  3816. configinfo : TPrivateIOConfigurationStucture;
  3817. drivername : array[0..35] of byte;
  3818. systemname : array[0..63] of byte;
  3819. numberofdevices : longint;
  3820. reserved : array[0..6] of longint;
  3821. end;
  3822. PAttributeInfoDef = ^TAttributeInfoDef;
  3823. TAttributeInfoDef = record
  3824. name : array[0..63] of byte;
  3825. attributetype : longint;
  3826. nextattributeid : longint;
  3827. attributesize : longint;
  3828. end;
  3829. PChangerInfoDef = ^TChangerInfoDef;
  3830. TChangerInfoDef = record
  3831. numberofdevices : longint;
  3832. numberofslots : longint;
  3833. numberofmailslots : longint;
  3834. reserved : array[0..7] of longint;
  3835. slotmappingtable : array[0..0] of longint;
  3836. end;
  3837. PDeviceInfoDef = ^TDeviceInfoDef;
  3838. TDeviceInfoDef = record
  3839. status : longint;
  3840. controllernumber : byte;
  3841. drivenumber : byte;
  3842. cardnumber : byte;
  3843. systemtype : byte;
  3844. accessflags : byte;
  3845. _type : byte;
  3846. blocksize : byte;
  3847. sectorsize : byte;
  3848. heads : byte;
  3849. sectors : byte;
  3850. cylinders : word;
  3851. capacity : longint;
  3852. mmadapternumber : longint;
  3853. mmmedianumber : longint;
  3854. rawname : array[0..39] of byte;
  3855. reserved : array[0..7] of longint;
  3856. end;
  3857. PPrivateMediaInfoDef = ^TPrivateMediaInfoDef;
  3858. TPrivateMediaInfoDef = record
  3859. f1 : array[0..63] of byte;
  3860. f2 : longint;
  3861. f3 : longint;
  3862. end;
  3863. PGenericInfoDef = ^TGenericInfoDef;
  3864. TGenericInfoDef = record
  3865. mediainfo : TPrivateMediaInfoDef;
  3866. mediatype : longint;
  3867. cartridgetype : longint;
  3868. unitsize : longint;
  3869. blocksize : longint;
  3870. capacity : longint;
  3871. preferredunitsize : longint;
  3872. name : array[0..63] of byte;
  3873. _type : longint;
  3874. status : longint;
  3875. functionmask : longint;
  3876. controlmask : longint;
  3877. parentcount : longint;
  3878. siblingcount : longint;
  3879. childcount : longint;
  3880. specificinfosize : longint;
  3881. objectuniqueid : longint;
  3882. mediaslot : longint;
  3883. end;
  3884. PHotfixInfoDef = ^THotfixInfoDef;
  3885. THotfixInfoDef = record
  3886. hotfixoffset : longint;
  3887. hotfixidentifier : longint;
  3888. numberoftotalblocks : longint;
  3889. numberofusedblocks : longint;
  3890. numberofavailableblocks : longint;
  3891. numberofsystemblocks : longint;
  3892. reserved : array[0..7] of longint;
  3893. end;
  3894. PIdentifierInfoDef = ^TIdentifierInfoDef;
  3895. TIdentifierInfoDef = record
  3896. applicationtype : longint;
  3897. mediatype : longint;
  3898. cartridgetype : longint;
  3899. name : array[0..63] of byte;
  3900. stampflag : longint;
  3901. end;
  3902. PInsertRequestDef = ^TInsertRequestDef;
  3903. TInsertRequestDef = record
  3904. devicenumber : longint;
  3905. mailslot : longint;
  3906. medianumber : longint;
  3907. mediacount : longint;
  3908. end;
  3909. PMagazineInfoDef = ^TMagazineInfoDef;
  3910. TMagazineInfoDef = record
  3911. numberofslots : longint;
  3912. reserved : array[0..7] of longint;
  3913. slotmappingtable : array[0..0] of longint;
  3914. end;
  3915. PMappintInfoHeaderDef = ^TMappintInfoHeaderDef;
  3916. TMappintInfoHeaderDef = record
  3917. parentcount : longint;
  3918. siblingcount : longint;
  3919. childcount : longint;
  3920. end;
  3921. PMediaInfoDef = ^TMediaInfoDef;
  3922. TMediaInfoDef = record
  3923. _label : array[0..63] of byte;
  3924. identificationtype : longint;
  3925. identificationtimestamp : longint;
  3926. end;
  3927. PMediaRequestDef = ^TMediaRequestDef;
  3928. TMediaRequestDef = record
  3929. devicenumber : longint;
  3930. mailslot : longint;
  3931. medianumber : longint;
  3932. mediacount : longint;
  3933. end;
  3934. PMirrorInfoDef = ^TMirrorInfoDef;
  3935. TMirrorInfoDef = record
  3936. mirrorcount : longint;
  3937. mirroridentifier : longint;
  3938. mirrormembers : array[0..7] of longint;
  3939. mirrorsynchflags : array[0..7] of byte;
  3940. reserved : array[0..7] of longint;
  3941. end;
  3942. PPartitionInfoDef = ^TPartitionInfoDef;
  3943. TPartitionInfoDef = record
  3944. partitionertype : longint;
  3945. partitiontype : longint;
  3946. partitionoffset : longint;
  3947. partitionsize : longint;
  3948. reserved : array[0..7] of longint;
  3949. end;
  3950. { these also correspond to offsets in struct ObjectDef }
  3951. PResourceTagDef = ^TResourceTagDef;
  3952. TResourceTagDef = record
  3953. reserved : array[0..1] of longint;
  3954. resourcetagtype : longint;
  3955. resourcetagcount : longint;
  3956. resourcenext : PResourceTagDef;
  3957. resourcelast : PResourceTagDef;
  3958. end;
  3959. {$include npackoff.inc}
  3960. function HJ_Media_Request_Ack(minfo:PInsertRequestDef; ackcode:longint; uniqueid:longint):longint;cdecl;external 'clib' name 'HJ_Media_Request_Ack';
  3961. function MM_Abort_Function(messagehandle:longint):longint;cdecl;external 'clib' name 'MM_Abort_Function';
  3962. function MM_Check_For_Pending_Aborts(OSRequestHandle:longint):longint;cdecl;external 'clib' name 'MM_Check_For_Pending_Aborts';
  3963. function MM_Create_Media_Object(objectnumber:longint; mediainfo:PMediaInfoDef):longint;cdecl;external 'clib' name 'MM_Create_Media_Object';
  3964. procedure MM_ExecuteMessages;cdecl;external 'clib' name 'MM_ExecuteMessages';
  3965. function MM_Find_Identifier(lastidentifiernumber:Plongint):longint;cdecl;external 'clib' name 'MM_Find_Identifier';
  3966. function MM_Find_Identifier(var lastidentifiernumber:longint):longint;cdecl;external 'clib' name 'MM_Find_Identifier';
  3967. function MM_Find_Object_Type(typ:longint; nextindicator:Plongint):longint;cdecl;external 'clib' name 'MM_Find_Object_Type';
  3968. function MM_Find_Object_Type(typ:longint; var nextindicator:longint):longint;cdecl;external 'clib' name 'MM_Find_Object_Type';
  3969. function MM_Object_Blocking_IO (returnparameter:Plongint;
  3970. objecthandle:longint;
  3971. _function:TMM_F1_Structure;
  3972. parameter0:longint;
  3973. parameter1:longint;
  3974. parameter2:longint;
  3975. bufferlength:longint;
  3976. buffer:pointer):longint;cdecl;external 'clib' name 'MM_Object_Blocking_IO';
  3977. function MM_Object_Blocking_IO (var returnparameter:longint;
  3978. objecthandle:longint;
  3979. _function:TMM_F1_Structure;
  3980. parameter0:longint;
  3981. parameter1:longint;
  3982. parameter2:longint;
  3983. bufferlength:longint;
  3984. var buffer):longint;cdecl;external 'clib' name 'MM_Object_Blocking_IO';
  3985. // This call is not handled by the server libraries
  3986. //function MM_Object_IO(messagehandle:Plongint; applicationrequesthandle:longint; objecthandle:longint; _function:TMM_F1_Structure; parameter0:longint;
  3987. // parameter1:longint; parameter2:longint; bufferlength:longint; buffer:pointer; callbackroutine:procedure ):longint;cdecl;external 'clib' name 'MM_Object_IO';
  3988. type TLongintCDeclFunc = function :longint; cdecl;
  3989. TCdeclProc = procedure; cdecl;
  3990. function MM_Register_Application (applicationhandle:Plongint;
  3991. applicationid:longint;
  3992. name:PChar;
  3993. reserved:longint;
  3994. mediaconsoleroutine:TLongintCDeclFunc;
  3995. resourcetag:PResourceTagDef):longint;cdecl;external 'clib' name 'MM_Register_Application';
  3996. function MM_Register_Identification_Routines (oshandle:Plongint;
  3997. applicationhandle:longint;
  3998. identifyroutine:TLongintCDeclFunc;
  3999. unstamproutine:TLongintCDeclFunc;
  4000. stamproutine:TLongintCDeclFunc;
  4001. identifiertype:longint;
  4002. identifiername:PBYTE;
  4003. resourcetag:PResourceTagDef):longint;cdecl;external 'clib' name 'MM_Register_Identification_Routines';
  4004. function MM_Register_Notify_Routine (oshandle:Plongint;
  4005. applicationhandle:longint;
  4006. notifyroutine:TCdeclProc;
  4007. objectclass:longint;
  4008. eventmask:longint;
  4009. resourcetag:PResourceTagDef):longint;cdecl;external 'clib' name 'MM_Register_Notify_Routine';
  4010. // This call is not handled by the server libraries
  4011. //function MM_Release_Object(objecthandle:longint; applicationhandle:longint):longint;cdecl;external 'clib' name 'MM_Release_Object';
  4012. function MM_Release_Unload_Semaphore(currentinstance:longint):longint;cdecl;external 'clib' name 'MM_Release_Unload_Semaphore';
  4013. function MM_Rename_Object(objectID:longint; para2:PBYTE):longint;cdecl;external 'clib' name 'MM_Rename_Object';
  4014. // This call is not handled by the server libraries
  4015. //function MM_Reserve_Object(objecthandle:Plongint; applicationidentifier:longint; objectid:longint; iomode:longint; applicationhandle:longint;
  4016. // notifyroutine:function :longint):longint;cdecl;external 'clib' name 'MM_Reserve_Object';
  4017. function MM_Return_Identifier_Info(identifiernumber:longint; info:PIdentifierInfoDef):longint;cdecl;external 'clib' name 'MM_Return_Identifier_Info';
  4018. function MM_Return_Object_Attribute(objectid:longint; attributeid:longint; length:longint; info:pointer):longint;cdecl;external 'clib' name 'MM_Return_Object_Attribute';
  4019. function MM_Return_Object_Generic_Info(objectid:longint; info:PGenericInfoDef):longint;cdecl;external 'clib' name 'MM_Return_Object_Generic_Info';
  4020. function MM_Return_Object_Mapping_Info(objectid:longint; mappinginfolength:longint; mappinginfo:Plongint):longint;cdecl;external 'clib' name 'MM_Return_Object_Mapping_Info';
  4021. function MM_Return_Object_Specific_Info(objectid:longint; infolength:longint; info:pointer):longint;cdecl;external 'clib' name 'MM_Return_Object_Specific_Info';
  4022. function MM_Return_Object_Table_Size:longint;cdecl;external 'clib' name 'MM_Return_Object_Table_Size';
  4023. function MM_Return_Objects_Attributes(objectid:longint; attributeid:longint; info:PAttributeInfoDef):longint;cdecl;external 'clib' name 'MM_Return_Objects_Attributes';
  4024. function MM_Set_Object_Attribute(objecthandle:longint; attributeid:longint; length:longint; info:pointer):longint;cdecl;external 'clib' name 'MM_Set_Object_Attribute';
  4025. function MM_Set_Unload_Semaphore(currentinstance:Plongint):longint;cdecl;external 'clib' name 'MM_Set_Unload_Semaphore';
  4026. function MM_Special_Object_Blocking_IO(returnparameter:Plongint; objectnumber:longint; _function:TMM_F1_Structure; parameter0:longint; parameter1:longint;
  4027. parameter2:longint; bufferlength:longint; buffer:pointer):longint;cdecl;external 'clib' name 'MM_Special_Object_Blocking_IO';
  4028. function MM_Unregister_Application(applicationhandle,applicationid:longint):longint;cdecl;external 'clib' name 'MM_Unregister_Application';
  4029. function MM_Unregister_Identification_Routines(handle,applicationtype:longint):longint;cdecl;external 'clib' name 'MM_Unregister_Identification_Routines';
  4030. function MM_Unregister_Notify_Routine(oshandle, applicationhandle:longint):longint;cdecl;external 'clib' name 'MM_Unregister_Notify_Routine';
  4031. {-ioctl.h----------------------------------------------------------------------}
  4032. const
  4033. I_NWRITE = 101;
  4034. I_SETBUF = 102;
  4035. function ioctl(fd:longint; command:longint; args:array of const):longint;cdecl;external 'clib' name 'ioctl';
  4036. function ioctl(fd:longint; command:longint):longint;cdecl;external 'clib' name 'ioctl';
  4037. {-sys/socket.h-----------------------------------------------------------------}
  4038. {$PACKRECORDS C}
  4039. type
  4040. Piovec = ^Tiovec;
  4041. Tiovec = record
  4042. iov_base : Pchar;
  4043. iov_len : longint;
  4044. end;
  4045. { Berkeley Sockets definitions and types }
  4046. const
  4047. FD_SETSIZE = 16;
  4048. type
  4049. Pfd_array = ^Tfd_array;
  4050. Tfd_array = longint;
  4051. Pfd_set = ^Tfd_set;
  4052. Tfd_set = record
  4053. fds : Tfd_array;
  4054. end;
  4055. Ptimeval = ^Ttimeval;
  4056. Ttimeval = record
  4057. tv_sec : longint;
  4058. tv_usec : longint;
  4059. end;
  4060. { definitions related to sockets: types, address families, options }
  4061. { types }
  4062. { just NW OFSD, no socket }
  4063. const
  4064. SOCK_NULL = 0;
  4065. { stream socket }
  4066. SOCK_STREAM = 1;
  4067. { datagram socket }
  4068. SOCK_DGRAM = 2;
  4069. { raw-protocol interface }
  4070. SOCK_RAW = 3;
  4071. { reliably-delivered message }
  4072. SOCK_RDM = 4;
  4073. { sequenced packet stream }
  4074. SOCK_SEQPACKET = 5;
  4075. { option flags per-socket }
  4076. { turn on debugging info recording }
  4077. SO_DEBUG = $0001;
  4078. { socket has had listen() }
  4079. SO_ACCEPTCONN = $0002;
  4080. { allow local address reuse }
  4081. SO_REUSEADDR = $0004;
  4082. { keep connections alive }
  4083. SO_KEEPALIVE = $0008;
  4084. { just use interface addresses }
  4085. SO_DONTROUTE = $0010;
  4086. { permit sending of broadcast msgs }
  4087. SO_BROADCAST = $0020;
  4088. { bypass hardware when possible }
  4089. SO_USELOOPBACK = $0040;
  4090. { linger on close if data present }
  4091. SO_LINGER = $0080;
  4092. { leave received OOB data in line }
  4093. SO_OOBINLINE = $0100;
  4094. {
  4095. N.B.: The following definition is present only for compatibility with
  4096. release 3.0. It will disappear in later releases.
  4097. }
  4098. { ~SO_LINGER }
  4099. SO_DONTLINGER = not (SO_LINGER);
  4100. { additional options, not kept in so_options }
  4101. { send buffer size }
  4102. SO_SNDBUF = $1001;
  4103. { receive buffer size }
  4104. SO_RCVBUF = $1002;
  4105. { send low-water mark }
  4106. SO_SNDLOWAT = $1003;
  4107. { receive low-water mark }
  4108. SO_RCVLOWAT = $1004;
  4109. { send timeout }
  4110. SO_SNDTIMEO = $1005;
  4111. { receive timeout }
  4112. SO_RCVTIMEO = $1006;
  4113. { get error status and clear }
  4114. SO_ERROR = $1007;
  4115. { get socket type }
  4116. SO_TYPE = $1008;
  4117. { additional option to be used with level IPPROTO_TCP }
  4118. { turn off the Nagle delay algorithm }
  4119. TCP_NODELAY = 1;
  4120. SIOCATMARK = 8; // at oob mark?
  4121. SIOCDGRAMSIZE = 500;
  4122. IP_INBOUND_IF = 501;
  4123. IP_OUTBOUND_IF = 502;
  4124. { structure used for manipulating linger option }
  4125. { option on/off }
  4126. { linger time }
  4127. type
  4128. Plinger = ^Tlinger;
  4129. Tlinger = record
  4130. l_onoff : longint;
  4131. l_linger : longint;
  4132. end;
  4133. { level number for get/setsockopt() to apply to socket itself }
  4134. { options for socket level }
  4135. const
  4136. SOL_SOCKET = $ffff;
  4137. { address families }
  4138. { unspecified }
  4139. AF_UNSPEC = 0;
  4140. { local to host (pipes, portals) }
  4141. AF_UNIX = 1;
  4142. { internetwork: UDP, TCP, etc. }
  4143. AF_INET = 2;
  4144. { Xerox NS protocols }
  4145. AF_NS = 6;
  4146. { AppleTalk }
  4147. AF_APPLETALK = 16;
  4148. { umbrella for all (e.g. protosw lookup) }
  4149. AF_OSI = 19;
  4150. { U.S. Government OSI }
  4151. AF_GOSIP = 22;
  4152. AF_MAX = 21;
  4153. { structure used by kernel to store most addresses }
  4154. { address family }
  4155. { up to 14 bytes of direct address }
  4156. type
  4157. Psockaddr = ^Tsockaddr;
  4158. Tsockaddr = record
  4159. sa_family : word;
  4160. sa_data : array[0..13] of char;
  4161. end;
  4162. { structure used by kernel to pass protocol information in raw sockets }
  4163. { address family }
  4164. { protocol }
  4165. Psockproto = ^Tsockproto;
  4166. Tsockproto = record
  4167. sp_family : word;
  4168. sp_protocol : word;
  4169. end;
  4170. { protocol families, same as address families for now }
  4171. const
  4172. PF_UNSPEC = AF_UNSPEC;
  4173. PF_UNIX = AF_UNIX;
  4174. PF_INET = AF_INET;
  4175. PF_NS = AF_NS;
  4176. PF_APPLETALK = AF_APPLETALK;
  4177. PF_OSI = AF_OSI;
  4178. PF_GOSIP = AF_GOSIP;
  4179. PF_MAX = AF_MAX;
  4180. { test protocol "numbered pipe" }
  4181. TSTPROTO_NPIPE = 0;
  4182. { maximum queue length specifiable by listen }
  4183. SOMAXCONN = 5;
  4184. {
  4185. Message header for recvmsg and sendmsg calls.
  4186. }
  4187. { optional address }
  4188. { size of address }
  4189. { scatter/gather array }
  4190. { number of elements in msg_iov }
  4191. { access rights sent/received }
  4192. type
  4193. Pmsghdr = ^Tmsghdr;
  4194. Tmsghdr = record
  4195. msg_name : Pchar;
  4196. msg_namelen : longint;
  4197. msg_iov : Piovec;
  4198. msg_iovlen : longint;
  4199. msg_accrights : Pchar;
  4200. msg_accrightslen : longint;
  4201. end;
  4202. { process out-of-band data }
  4203. const
  4204. MSG_OOB = $1;
  4205. { peek at incoming message }
  4206. MSG_PEEK = $2;
  4207. { send without using routing tables }
  4208. MSG_DONTROUTE = $4;
  4209. MSG_MAXIOVLEN = 16;
  4210. { for NLM clients }
  4211. type TSKT = longint;
  4212. function accept(s:TSKT; addr:Psockaddr; addrlen:Plongint):longint;cdecl;external 'clib' name 'accept';
  4213. function accept(s:TSKT; var addr:Tsockaddr; var addrlen:longint):longint;cdecl;external 'clib' name 'accept';
  4214. function bind(s:TSKT; name:Psockaddr; namelen:longint):longint;cdecl;external 'clib' name 'bind';
  4215. function connect(s:TSKT; name:Psockaddr; namelen:longint):longint;cdecl;external 'clib' name 'connect';
  4216. function getpeername(s:TSKT; name:Psockaddr; namelen:Plongint):longint;cdecl;external 'clib' name 'getpeername';
  4217. function getsockname(s:TSKT; name:Psockaddr; namelen:Plongint):longint;cdecl;external 'clib' name 'getsockname';
  4218. function getsockopt(s:TSKT; level:longint; name:longint; val:Pchar; len:Plongint):longint;cdecl;external 'clib' name 'getsockopt';
  4219. function getsockopt(s:TSKT; level:longint; name:longint; val:Pchar; var len:longint):longint;cdecl;external 'clib' name 'getsockopt';
  4220. function listen(s:TSKT; backlog:longint):longint;cdecl;external 'clib' name 'listen';
  4221. function readv(s:TSKT; iov:Piovec; iovcnt:longint):longint;cdecl;external 'clib' name 'readv';
  4222. function recv(s:TSKT; msg:Pchar; len:longint; flags:longint):longint;cdecl;external 'clib' name 'recv';
  4223. function recv(s:TSKT; var data; len:longint; flags:longint):longint;cdecl;external 'clib' name 'recv';
  4224. function recvfrom(s:TSKT; msg:Pchar; len:longint; flags:longint; from:Psockaddr;
  4225. fromlen:Plongint):longint;cdecl;external 'clib' name 'recvfrom';
  4226. function recvfrom(s:TSKT; var data; len:longint; flags:longint; from:Psockaddr;
  4227. var fromlen:longint):longint;cdecl;external 'clib' name 'recvfrom';
  4228. function recvmsg(s:TSKT; msg:Pmsghdr; flags:longint):longint;cdecl;external 'clib' name 'recvmsg';
  4229. function send(s:TSKT; msg:Pchar; len:longint; flags:longint):longint;cdecl;external 'clib' name 'send';
  4230. function send(s:TSKT; var data; len:longint; flags:longint):longint;cdecl;external 'clib' name 'send';
  4231. function sendto(s:TSKT; msg:Pchar; len:longint; flags:longint; _to:Psockaddr;
  4232. tolen:longint):longint;cdecl;external 'clib' name 'sendto';
  4233. function sendto(s:TSKT; var data; len:longint; flags:longint; _to:Psockaddr;
  4234. tolen:longint):longint;cdecl;external 'clib' name 'sendto';
  4235. function sendmsg(s:TSKT; msg:Pmsghdr; flags:longint):longint;cdecl;external 'clib' name 'sendmsg';
  4236. function setsockopt(s:TSKT; level:longint; name:longint; val:Pchar; len:longint):longint;cdecl;external 'clib' name 'setsockopt';
  4237. function setsockopt(s:TSKT; level:longint; name:longint; var value; len:longint):longint;cdecl;external 'clib' name 'setsockopt';
  4238. function shutdown(s:TSKT; how:longint):longint;cdecl;external 'clib' name 'shutdown';
  4239. function socket(domain:longint; _type:longint; protocol:longint):longint;cdecl;external 'clib' name 'socket';
  4240. function writev(s:TSKT; iov:Piovec; iovcnt:longint):longint;cdecl;external 'clib' name 'writev';
  4241. function select(width:longint; readfds:Pfd_set; writefds:Pfd_set; exceptfds:Pfd_set; timeout:Ptimeval):longint;cdecl;external 'clib' name 'select';
  4242. {-sys/time.h-------------------------------------------------------------------}
  4243. {$PACKRECORDS C}
  4244. { commonly-used definitions... }
  4245. const
  4246. SEC = 1;
  4247. MILLISEC = 1000;
  4248. MICROSEC = 1000000;
  4249. NANOSEC = 1000000000;
  4250. { wall clock, bound to LWP }
  4251. __CLOCK_REALTIME0 = 0;
  4252. { user CPU usage clock }
  4253. CLOCK_VIRTUAL = 1;
  4254. { user and system CPU usage clock }
  4255. CLOCK_PROF = 2;
  4256. { wall clock, not bound }
  4257. __CLOCK_REALTIME3 = 3;
  4258. CLOCK_REALTIME = __CLOCK_REALTIME3;
  4259. { set timer relative }
  4260. TIMER_RELTIME = $0;
  4261. { set timer absolute }
  4262. TIMER_ABSTIME = $1;
  4263. { time expressed in seconds and nanoseconds }
  4264. { seconds }
  4265. { and nanoseconds }
  4266. type
  4267. Ptimespec = ^Ttimespec;
  4268. Ttimespec = record
  4269. tv_sec : Ttime_t;
  4270. tv_nsec : longint;
  4271. end;
  4272. Ttimespec_t = Ttimespec;
  4273. Ptimespec_t = ^Ttimespec_t;
  4274. Ttimestrc_t = Ttimespec;
  4275. Ptimestrc_t = ^Ttimestrc_t;
  4276. {-sys/utsname.h----------------------------------------------------------------}
  4277. const
  4278. _SYS_NMLN = 260;
  4279. type
  4280. Putsname = ^Tutsname;
  4281. Tutsname = record
  4282. sysname : array[0..(_SYS_NMLN)-1] of char; // name of operating system implementation
  4283. release : array[0..(_SYS_NMLN)-1] of char;
  4284. version : array[0..(_SYS_NMLN)-1] of char;
  4285. nodename : array[0..(_SYS_NMLN)-1] of char;
  4286. machine : array[0..(_SYS_NMLN)-1] of char;
  4287. _library : array[0..(_SYS_NMLN)-1] of char;
  4288. end;
  4289. function uname(name:Putsname):longint;cdecl;external 'clib' name 'uname';
  4290. function uname(var name:Tutsname):longint;cdecl;external 'clib' name 'uname';
  4291. {-sys/stat.h-------------------------------------------------------------------}
  4292. {$PACKRECORDS C}
  4293. { POSIX file types }
  4294. { type of file (mask for following) }
  4295. const
  4296. S_IFMT = 0170000;
  4297. { first-in/first-out (pipe) }
  4298. S_IFIFO = 0010000;
  4299. { character-special file }
  4300. S_IFCHR = 0020000;
  4301. { directory }
  4302. S_IFDIR = 0040000;
  4303. { blocking device (not used on NetWare) }
  4304. S_IFBLK = 0060000;
  4305. { regular }
  4306. S_IFREG = 0100000;
  4307. { symbolic link (not used on NetWare) }
  4308. S_IFLNK = 0120000;
  4309. { Berkeley socket }
  4310. S_IFSOCK = 0140000;
  4311. { POSIX file modes: owner (user) permission }
  4312. const
  4313. S_IRWXU = 0000700;
  4314. S_IRUSR = 0000400;
  4315. S_IWUSR = 0000200;
  4316. S_IXUSR = 0000100;
  4317. S_IREAD = S_IRUSR;
  4318. S_IWRITE = S_IWUSR;
  4319. S_IEXEC = S_IXUSR;
  4320. { POSIX file modes: group permission }
  4321. S_IRWXG = 0000070;
  4322. S_IRGRP = 0000040;
  4323. S_IWGRP = 0000020;
  4324. S_IXGRP = 0000010;
  4325. { POSIX file modes: other permission }
  4326. S_IRWXO = 0000007;
  4327. S_IROTH = 0000004;
  4328. S_IWOTH = 0000002;
  4329. S_IXOTH = 0000001;
  4330. { Novell-defined additional directory modes for mkdir() }
  4331. { system directory }
  4332. S_DSYSTEM = $00100000;
  4333. { hidden directory }
  4334. S_DHIDE = $00200000;
  4335. { delete-inhibit }
  4336. S_DDEL_INH = $00400000;
  4337. { rename-inhibit }
  4338. S_DREN_INH = $00800000;
  4339. { purge-immediate }
  4340. S_DPURGE_IMM = $01000000;
  4341. { compress-immediate }
  4342. S_DCOMP_IMM = $02000000;
  4343. { no compression }
  4344. S_DCOMP_NO = $04000000;
  4345. { equivalent to mode = 0 }
  4346. S_DALL = $01FB;
  4347. { POSIX setuid, setgid, and sticky }
  4348. S_ISUID = 0004000;
  4349. S_ISGID = 0002000;
  4350. S_ISVTX = 0001000;
  4351. type
  4352. Pstat = ^Tstat;
  4353. Tstat = record
  4354. st_dev : Tdev_t;
  4355. st_ino : Tino_t;
  4356. st_mode : word;
  4357. st_pad1 : word;
  4358. st_nlink : dword;
  4359. st_uid : dword;
  4360. st_gid : dword;
  4361. st_rdev : Tdev_t;
  4362. st_size : Toff_t;
  4363. st_atime : Ttime_t;
  4364. st_mtime : Ttime_t;
  4365. st_ctime : Ttime_t;
  4366. st_btime : Ttime_t;
  4367. st_attr : dword;
  4368. st_archivedID : dword;
  4369. st_updatedID : dword;
  4370. st_inheritedRightsMask : word;
  4371. st_pad2 : word;
  4372. st_originatingNameSpace : dword;
  4373. st_blksize : Tsize_t;
  4374. st_blocks : Tsize_t;
  4375. st_flags : dword;
  4376. st_spare : array[0..3] of dword;
  4377. st_name : array[0..(255 + 1)-1] of byte;
  4378. end;
  4379. { definitions of older structure technology are mostly for reference }
  4380. { v4.11 }
  4381. {----------------- new fields starting in v4.11 ------------------------- }
  4382. Pstat411 = ^Tstat411;
  4383. Tstat411 = record
  4384. st_dev : Tdev_t;
  4385. st_ino : Tino_t;
  4386. st_mode : word;
  4387. st_nlink : smallint;
  4388. st_uid : dword;
  4389. st_gid : smallint;
  4390. st_rdev : Tdev_t;
  4391. st_size : Toff_t;
  4392. st_atime : Ttime_t;
  4393. st_mtime : Ttime_t;
  4394. st_ctime : Ttime_t;
  4395. st_btime : Ttime_t;
  4396. st_attr : dword;
  4397. st_archivedID : dword;
  4398. st_updatedID : dword;
  4399. st_inheritedRightsMask : word;
  4400. st_originatingNameSpace : byte;
  4401. st_name : array[0..(255 + 1)-1] of byte;
  4402. st_blksize : Tsize_t;
  4403. st_blocks : Tsize_t;
  4404. st_flags : dword;
  4405. st_spare : array[0..3] of dword;
  4406. end;
  4407. { v3.12, v4.0, v4.01, v4.02 and v4.10 }
  4408. Pstat410 = ^Tstat410;
  4409. Tstat410 = record
  4410. st_dev : Tdev_t;
  4411. st_ino : Tino_t;
  4412. st_mode : word;
  4413. st_nlink : smallint;
  4414. st_uid : dword;
  4415. st_gid : smallint;
  4416. st_rdev : Tdev_t;
  4417. st_size : Toff_t;
  4418. st_atime : Ttime_t;
  4419. st_mtime : Ttime_t;
  4420. st_ctime : Ttime_t;
  4421. st_btime : Ttime_t;
  4422. st_attr : dword;
  4423. st_archivedID : dword;
  4424. st_updatedID : dword;
  4425. st_inheritedRightsMask : word;
  4426. st_originatingNameSpace : byte;
  4427. st_name : array[0..12] of byte;
  4428. end;
  4429. function chmod(path:Pchar; mode:Tmode_t):longint;cdecl;external 'clib' name 'chmod';
  4430. function mkdir(path:Pchar):longint;cdecl;external 'clib' name 'mkdir';
  4431. function mkdir_510(pathname:Pchar; mode:Tmode_t):longint;cdecl;external 'clib' name 'mkdir_510';
  4432. function umask(cmask:Tmode_t):Tmode_t;cdecl;external 'clib' name 'umask';
  4433. function fstat_410(fildes:longint; buf:Pstat410):longint;cdecl;external 'clib' name 'fstat_410';
  4434. function fstat_410(fildes:longint; var buf:Tstat410):longint;cdecl;external 'clib' name 'fstat_410';
  4435. function fstat_411(fildes:longint; buf:Pstat411):longint;cdecl;external 'clib' name 'fstat_411';
  4436. function fstat_411(fildes:longint; var buf:Tstat411):longint;cdecl;external 'clib' name 'fstat_411';
  4437. function fstat_500(fildes:longint; buf:Pstat):longint;cdecl;external 'clib' name 'fstat_500';
  4438. function fstat_500(fildes:longint; var buf:Tstat):longint;cdecl;external 'clib' name 'fstat_500';
  4439. function fstat (fildes:longint; buf:Pstat):longint;cdecl;external 'clib' name 'fstat_500';
  4440. function fstat (fildes:longint; var buf:Tstat):longint;cdecl;external 'clib' name 'fstat_500';
  4441. function stat_410(path:Pchar; buf:Pstat410):longint;cdecl;external 'clib' name 'stat_410';
  4442. function stat_410(path:Pchar; var buf:Tstat410):longint;cdecl;external 'clib' name 'stat_410';
  4443. function stat_411(path:Pchar; buf:Pstat411):longint;cdecl;external 'clib' name 'stat_411';
  4444. function stat_411(path:Pchar; var buf:Tstat411):longint;cdecl;external 'clib' name 'stat_411';
  4445. function stat_500(path:Pchar; buf:Pstat):longint;cdecl;external 'clib' name 'stat_500';
  4446. function stat_500(path:Pchar; var buf:Tstat):longint;cdecl;external 'clib' name 'stat_500';
  4447. function stat (path:Pchar; buf:Pstat):longint;cdecl;external 'clib' name 'stat_500';
  4448. function stat (path:Pchar; var buf:Tstat):longint;cdecl;external 'clib' name 'stat_500';
  4449. {------------------------------------------------------------------------------}
  4450. implementation
  4451. function CLK_TCK : longint;
  4452. begin
  4453. CLK_TCK:=__get_CLK_TCK;
  4454. end;
  4455. function tzname : pchar;
  4456. begin
  4457. tzname:=__get_tzname^;
  4458. end;
  4459. function NetWareErrno : longint;
  4460. begin
  4461. NetWareErrno := __get_NWErrno_ptr()^;
  4462. end;
  4463. function __stdin : PFILE;
  4464. begin
  4465. __stdin := __get_stdin^;
  4466. end;
  4467. function __stdout : PFILE;
  4468. begin
  4469. __stdout := __get_stdout^;
  4470. end;
  4471. function __stderr : PFILE;
  4472. begin
  4473. __stderr := __get_stderr^;
  4474. end;
  4475. function bisecond(var a : TDOSTime) : word;
  4476. begin
  4477. bisecond:=(a.flag0 and bm_TDOSTime_bisecond) shr bp_TDOSTime_bisecond;
  4478. end;
  4479. procedure set_bisecond(var a : TDOSTime; __bisecond : word);
  4480. begin
  4481. a.flag0:=a.flag0 or ((__bisecond shl bp_TDOSTime_bisecond) and bm_TDOSTime_bisecond);
  4482. end;
  4483. function minute(var a : TDOSTime) : word;
  4484. begin
  4485. minute:=(a.flag0 and bm_TDOSTime_minute) shr bp_TDOSTime_minute;
  4486. end;
  4487. procedure set_minute(var a : TDOSTime; __minute : word);
  4488. begin
  4489. a.flag0:=a.flag0 or ((__minute shl bp_TDOSTime_minute) and bm_TDOSTime_minute);
  4490. end;
  4491. function hour(var a : TDOSTime) : word;
  4492. begin
  4493. hour:=(a.flag0 and bm_TDOSTime_hour) shr bp_TDOSTime_hour;
  4494. end;
  4495. procedure set_hour(var a : TDOSTime; __hour : word);
  4496. begin
  4497. a.flag0:=a.flag0 or ((__hour shl bp_TDOSTime_hour) and bm_TDOSTime_hour);
  4498. end;
  4499. function day(var a : TDOSDate) : word;
  4500. begin
  4501. day:=(a.flag0 and bm_TDOSDate_day) shr bp_TDOSDate_day;
  4502. end;
  4503. procedure set_day(var a : TDOSDate; __day : word);
  4504. begin
  4505. a.flag0:=a.flag0 or ((__day shl bp_TDOSDate_day) and bm_TDOSDate_day);
  4506. end;
  4507. function month(var a : TDOSDate) : word;
  4508. begin
  4509. month:=(a.flag0 and bm_TDOSDate_month) shr bp_TDOSDate_month;
  4510. end;
  4511. procedure set_month(var a : TDOSDate; __month : word);
  4512. begin
  4513. a.flag0:=a.flag0 or ((__month shl bp_TDOSDate_month) and bm_TDOSDate_month);
  4514. end;
  4515. function yearsSince80(var a : TDOSDate) : word;
  4516. begin
  4517. yearsSince80:=(a.flag0 and bm_TDOSDate_yearsSince80) shr bp_TDOSDate_yearsSince80;
  4518. end;
  4519. procedure set_yearsSince80(var a : TDOSDate; __yearsSince80 : word);
  4520. begin
  4521. a.flag0:=a.flag0 or ((__yearsSince80 shl bp_TDOSDate_yearsSince80) and bm_TDOSDate_yearsSince80);
  4522. end;
  4523. function bisecond(var a : T_DOSTime) : word;
  4524. begin
  4525. bisecond:=(a.flag0 and bm_T_DOSTime_bisecond) shr bp_T_DOSTime_bisecond;
  4526. end;
  4527. procedure set_bisecond(var a : T_DOSTime; __bisecond : word);
  4528. begin
  4529. a.flag0:=a.flag0 or ((__bisecond shl bp_T_DOSTime_bisecond) and bm_T_DOSTime_bisecond);
  4530. end;
  4531. function minute(var a : T_DOSTime) : word;
  4532. begin
  4533. minute:=(a.flag0 and bm_T_DOSTime_minute) shr bp_T_DOSTime_minute;
  4534. end;
  4535. procedure set_minute(var a : T_DOSTime; __minute : word);
  4536. begin
  4537. a.flag0:=a.flag0 or ((__minute shl bp_T_DOSTime_minute) and bm_T_DOSTime_minute);
  4538. end;
  4539. function hour(var a : T_DOSTime) : word;
  4540. begin
  4541. hour:=(a.flag0 and bm_T_DOSTime_hour) shr bp_T_DOSTime_hour;
  4542. end;
  4543. procedure set_hour(var a : T_DOSTime; __hour : word);
  4544. begin
  4545. a.flag0:=a.flag0 or ((__hour shl bp_T_DOSTime_hour) and bm_T_DOSTime_hour);
  4546. end;
  4547. end.
  4548. {
  4549. $Log$
  4550. Revision 1.3 2004-09-26 19:25:49 armin
  4551. * exiting threads at nlm unload
  4552. Revision 1.2 2003/03/25 18:09:25 armin
  4553. * removed cvars because of problems with nlmconv
  4554. Revision 1.1 2003/02/22 18:23:26 armin
  4555. * removed nwstdio and nwthread
  4556. * added nwnit.pp and nwserv.pp containing nearly all netware server structures/function definitions available in the c sdk
  4557. }