paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added NetWare Alert

Browse Source 
* added sysutils.sleep
This commit is contained in:
armin 2004-12-16 12:42:54 +00:00
parent e79fb753bc
commit 41e0b1a0a7
6 changed files with 604 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/netware/clib.imp
View File

@ -1138,6 +1138,7 @@
NCPVerifyBinderyObjectPassword,
NCPWriteFile,
NCSDSGlobals,
NetWareAlert,
NITGlobals,
NLMDEBUGDoneWithOFS,
NLMDebugVar,

548
rtl/netware/nwserv.pp
View File

@ -46,6 +46,10 @@ type
PPChar = ^PChar;
PPPChar= ^PPChar;
Tsigset_t = longint;
TNlmHandle = longint;
const
NullNlmHandle = 0;
{-time.h-----------------------------------------------------------------------}
{$PACKRECORDS C}
@ -59,26 +63,17 @@ type
Ptime_t = ^Ttime_t;
Ttime_t = dword;
{ seconds after the minute--range [0, 59] }
{ minutes after the hour--range [0, 59] }
{ hours since midnight--range [0, 23] }
{ days of the month--range [1, 31] }
{ months since January--range [0, 11] }
{ years since 1900--range [0, 99] }
{ days since Sunday--range [0, 6] }
{ days since first of January--range [0, 365] }
{ Daylight Savings Time flag--set [-, 0, +]: }
Ptm = ^Ttm;
Ttm = record
tm_sec : longint;
tm_min : longint;
tm_hour : longint;
tm_mday : longint;
tm_mon : longint;
tm_year : longint;
tm_wday : longint;
tm_yday : longint;
tm_isdst : longint;
tm_sec : longint; { seconds after the minute--range [0, 59] }
tm_min : longint; { minutes after the hour--range [0, 59] }
tm_hour : longint; { hours since midnight--range [0, 23] }
tm_mday : longint; { days of the month--range [1, 31] }
tm_mon : longint; { months since January--range [0, 11] }
tm_year : longint; { years since 1900--range [0, 99] }
tm_wday : longint; { days since Sunday--range [0, 6] }
tm_yday : longint; { days since first of January--range [0, 365] }
tm_isdst : longint; { Daylight Savings Time flag--set [-, 0, +]: }
end;
{ ISO/ANSI C functions... }
@ -1969,7 +1964,7 @@ const
ECFileWriteThroughBit = $00000040;
{$include npackoff.inc}
function AllocateResourceTag (NLMHandle:longint;
function AllocateResourceTag (NLMHandle:TNlmHandle;
descriptionString:PChar;
resourceType:longint):longint;cdecl;external 'clib' name 'AllocateResourceTag';
function DSAllocateEventTag (DSEventSignature:longint):pointer;cdecl;external 'clib' name 'DSAllocateEventTag';
@ -1991,7 +1986,7 @@ function GetSettableParameterValue (connectionNumber:longint;
setableParameterString:PBYTE;
returnValue:pointer):longint;cdecl;external 'clib' name 'GetSetableParameterValue'; // use this define if the misspelling is too annoying
function GetThreadDataAreaPtr:pointer;cdecl;external 'clib' name 'GetThreadDataAreaPtr';
function ImportSymbol(NLMHandle:longint; symbolName:Pchar):pointer;cdecl;external 'clib' name 'ImportSymbol';
function ImportSymbol(NLMHandle:TNlmHandle; symbolName:Pchar):pointer;cdecl;external 'clib' name 'ImportSymbol';
function LoadLanguageMessageTable(messageTable:PPPchar; messageCount:Plongint; languageID:Plongint):longint;cdecl;external 'clib' name 'LoadLanguageMessageTable';
function LoadLanguageMessageTable(var messageTable; var messageCount:longint; languageID:Plongint):longint;cdecl;external 'clib' name 'LoadLanguageMessageTable';
function NWAddSearchPathAtEnd(searchPath:PChar; number:Plongint):longint;cdecl;external 'clib' name 'NWAddSearchPathAtEnd';
@ -2034,7 +2029,7 @@ function SetSetableParameterValue (connectionNumber:longint;
setableParameterString:PBYTE;
newValue:pointer):longint;cdecl;external 'clib' name 'SetSetableParameterValue';
procedure SynchronizeStart;cdecl;external 'clib' name 'SynchronizeStart';
function UnimportSymbol (NLMHandle:longint;
function UnimportSymbol (NLMHandle:TNlmHandle;
symbolName:Pchar):longint;cdecl;external 'clib' name 'UnimportSymbol';
function UnRegisterConsoleCommand (commandParserToDelete:PcommandParserStructure):longint;cdecl;external 'clib' name 'UnRegisterConsoleCommand';
function UnregisterForEvent (eventHandle:longint):longint;cdecl;external 'clib' name 'UnregisterForEvent';
@ -2941,7 +2936,7 @@ function RegisterLibrary(cleanupFunc:TLibraryCleanupFunc):longint;cdecl;external
function SaveDataAreaPtr(libraryHandle:longint; dataAreaPtr:pointer):longint;cdecl;external 'clib' name 'SaveDataAreaPtr';
// function Thread_Data_Area : pointer; Thread_Data_Area (*__get_thread_data_area_ptr())
{-nwmalloc.h-------------------------------------------------------------------}
procedure NWGarbageCollect (NLMHandle:longint); cdecl; external 'clib' name 'NWGarbageCollect';
procedure NWGarbageCollect (NLMHandle:TNlmHandle); cdecl; external 'clib' name 'NWGarbageCollect';
function NWGetAllocPageOverhead (pageCount:longint):longint;cdecl; external 'clib' name 'NWGetAllocPageOverhead';
function NWGetAvailableMemory : longint; cdecl; external 'clib' name 'NWGetAvailableMemory';
function NWGetPageSize : longint; cdecl; external 'clib' name 'NWGetPageSize';
@ -3191,8 +3186,8 @@ function _NWGetNWErrno:longint;cdecl;external 'clib' name '_NWGetNWErrno';
function _NWGetNLMLevelLibDataPtr(NLMID:longint):pointer;cdecl;external 'clib' name '_NWGetNLMLevelLibDataPtr';
function _NWGetThreadGroupLevelLibDataPtr(threadGroupID:longint):pointer;cdecl;external 'clib' name '_NWGetThreadGroupLevelLibDataPtr';
function _NWGetThreadLevelLibDataPtr(threadID:longint):pointer;cdecl;external 'clib' name '_NWGetThreadLevelLibDataPtr';
function _NWLoadNLMMessageTable(NLMHandle:longint; messageTable:PPPchar; messageCount:Plongint; languageID:Plongint):longint;cdecl;external 'clib' name '_NWLoadNLMMessageTable';
function _NWRegisterNLMLibrary (NLMHandle:longint;
function _NWLoadNLMMessageTable(NLMHandle:TNlmHandle; messageTable:PPPchar; messageCount:Plongint; languageID:Plongint):longint;cdecl;external 'clib' name '_NWLoadNLMMessageTable';
function _NWRegisterNLMLibrary (NLMHandle:TNlmHandle;
NLMFileHandle:longint;
readFunc:TReadFunc;
NLMBegin:TNLMBeginFunc;
@ -3756,16 +3751,16 @@ procedure TicksToSeconds(Ticks:longint; Seconds:Plongint; TenthsOfSeconds:Plongi
procedure ExitThread(action_code :longint;
termination_code:longint); cdecl;external ThreadsNlm name 'ExitThread';
function FindNLMHandle(NLMFileName:Pchar):dword; cdecl;external ThreadsNlm name 'FindNLMHandle';
function FindNLMHandle(NLMFileName:Pchar):TNlmHandle; cdecl;external ThreadsNlm name 'FindNLMHandle';
function getcmd(cmdLine:Pchar):Pchar; cdecl;external ThreadsNlm name 'getcmd';
function GetNLMHandle:dword; cdecl;external ThreadsNlm name 'GetNLMHandle';
function GetNLMHandle:TNlmHandle; cdecl;external ThreadsNlm name 'GetNLMHandle';
function GetNLMID:longint; cdecl;external ThreadsNlm name 'GetNLMID';
function GetNLMIDFromNLMHandle(NLMHandle:longint):longint; cdecl;external ThreadsNlm name 'GetNLMIDFromNLMHandle';
function GetNLMIDFromThreadID(threadID:longint;fileName:Pchar):longint;cdecl;external ThreadsNlm name 'GetNLMIDFromThreadID';
function GetNLMNameFromNLMID(NLMID:longint;
fileName:Pchar;
description:Pchar):longint; cdecl;external ThreadsNlm name 'GetNLMNameFromNLMID';
function GetNLMNameFromNLMHandle(NLMHandle:longint;
function GetNLMNameFromNLMHandle(NLMHandle:TNlmHandle;
LDFileName:Pchar;
LDName:Pchar):longint; cdecl;external ThreadsNlm name 'GetNLMNameFromNLMHandle';
function GetThreadContextSpecifier(threadID:longint):longint; cdecl;external ThreadsNlm name 'GetThreadContextSpecifier';
@ -3775,7 +3770,7 @@ procedure TicksToSeconds(Ticks:longint; Seconds:Plongint; TenthsOfSeconds:Plongi
function GetThreadID:longint; cdecl;external ThreadsNlm name 'GetThreadID';
function GetThreadName(threadID:longint; tName:Pchar):longint; cdecl;external ThreadsNlm name 'GetThreadName';
function GetThreadName(threadID:longint; var tName):longint; cdecl;external ThreadsNlm name 'GetThreadName';
function MapNLMIDToHandle(NLMID:longint):longint; cdecl;external ThreadsNlm name 'MapNLMIDToHandle';
function MapNLMIDToHandle(NLMID:longint):TNlmHandle; cdecl;external ThreadsNlm name 'MapNLMIDToHandle';
function PopThreadCleanup(execute:longint):TCLEANUP; cdecl;external ThreadsNlm name 'PopThreadCleanup';
function PopThreadGroupCleanup(execute:longint):TCLEANUP; cdecl;external ThreadsNlm name 'PopThreadGroupCleanup';
function PushThreadCleanup(func:TCLEANUP):longint; cdecl;external ThreadsNlm name 'PushThreadCleanup';
@ -3797,10 +3792,10 @@ procedure TicksToSeconds(Ticks:longint; Seconds:Plongint; TenthsOfSeconds:Plongi
copyrightString:pchar;
description:pchar):longint; cdecl;external NlmLibNlm name 'ReturnNLMVersionInfoFromFile';
function ReturnNLMVersionInformation(NLMHandle:longint;
function ReturnNLMVersionInformation(NLMHandle:TNlmHandle;
majorVersion,minorVersion,revision,year,month,day:Plongint;
copyrightString:pchar; description:pchar):longint;cdecl;external NlmLibNlm name 'ReturnNLMVersionInformation';
function ReturnNLMVersionInformation(NLMHandle:longint;
function ReturnNLMVersionInformation(NLMHandle:TNlmHandle;
var majorVersion,minorVersion,revision,year,month,day:longint;
copyrightString:pchar; description:pchar):longint;cdecl;external NlmLibNlm name 'ReturnNLMVersionInformation';
@ -4764,6 +4759,493 @@ function stat_500(path:Pchar; var buf:Tstat):longint;cdecl;external 'clib' name
function stat (path:Pchar; buf:Pstat):longint;cdecl;external 'clib' name 'stat_500';
function stat (path:Pchar; var buf:Tstat):longint;cdecl;external 'clib' name 'stat_500';
{------------------------------------------------------------------------------}
{definitions for netwareAlert, not documented, found that on the novell developer newsgroup}
const
// ModuleNumbers for 'nwAlertID' in TNetWareAlertStructure
ALERT_BINDERY = $01020000; // Bindery Subject
ALERT_OS = $01030000; // OS Event Subject
ALERT_LLC = $01040000; // LLC
ALERT_SDLC = $01050000; // SDLC Stack
ALERT_REMOTE = $01060000; // RConsole
ALERT_MLID = $01070000; // MLID LAN Drivers
ALERT_QLLC = $01080000; // QLLC
ALERT_UPS = $01090000; // UPS Monitor
ALERT_DS = $010a0000; // Directory Service
ALERT_RSPX = $010c0000; // RSPX
ALERT_R232 = $010d0000; // R232
ALERT_TIME_SYNC = $010e0000; // TimeSync
ALERT_CLIB = $010f0000; // CLib
ALERT_PRINT = $01100000; // Print
ALERT_NRS = $01200000; // Novell Replication Services
ALERT_DNS = $01300000; // IP/Domain Name Services
ALERT_DHCP = $01400000; // DHCP Services
ALERT_MM = $01500000; // Media Manager
// OS-defined AlertNumber values for nwAlertID in TNetWareAlertStructure
// starting with NetWare 4...
nmAllocFailed = 1;
nmErrWrtExtDir = 2;
nmSysErrWrtDSnoFN = 3;
nmStaErrWrtDSnoFN = 4;
nmSysErrWrtDSwithFN = 5;
nmStaErrWrtDSwithFN = 6;
nmSysErrRdDSnoFN = 7;
nmStaErrRdDSnoFN = 8;
nmSysErrRdDSwithFN = 9;
nmStaErrRdDSwithFN = 10;
nmSysWrtPreRDnoFN = 11;
nmStaWrtPreRDnoFN = 12;
nmSysWrtPreRDwithFN = 13;
nmStaWrtPreRDwithFN = 14;
nmCacheMemLimitExceded = 15;
nmCacheMemOutOfMem = 16;
nmCacheBufsGetLo = 17;
nmDskSpcNoDelFiles = 18;
nmDskSpcNoLimbo = 19;
nmVolSpcAlmostGone = 20;
nmFATWrtErr = 21;
nmDirWrtErr = 22;
nmDirCopyRdErr = 23;
nmDirDblRdErr = 24;
nmAllocDirWrtErr = 25;
nmDirExpansionErr = 26;
nmDirTooLarge = 27;
nmErrExpandingDir = 28;
nmErrExpandingMem = 29;
nmErrDirGetTooLarge = 30;
nmDskBottleneck = 31;
nmWDClearedConn = 32;
nmCpyrtViolation = 33;
nmReadFault = 35;
nmPktTooSmall = 36;
nmCreatingVolLog = 37;
nmWrtVolLog = 38;
nmVolDmtDevDeact = 39;
nmLoginDisabled = 40;
nmLoginEnabled = 41;
nmClrSta = 42;
nmClrStaByUsr = 43;
nmFSDownByUser = 44;
nmRIPAlreadyOpn = 45;
nmRouterConfigErr = 46;
nmLANLoopbackErr = 47;
nmRouterConfigErrNoInfo = 48;
nmIPXUnreachable = 49;
nmIPXUnbind = 50;
nmSAPAlreadyOpn = 51;
nmRouterConfigErrNameInfo = 52;
nmSpuriousInt = 53;
nmChecksumInvalidAlert = 54;
nmPrimaryPicLostInt = 55;
nmSecondaryPicLostInt = 56;
nmCompErrHoleCountMismatch = 57;
nmInvalidScreen = 58;
nmRelinquishControl = 59;
nmFSUserDeleted = 60;
nmAccDelByUser = 61;
nmInvalidRTag = 62;
nmDeactUnknown = 63;
nmDeactDriveUnld = 64;
nmDeactDevFailure = 65;
nmDeactUsrRequest = 66;
nmDeactMediaDismount = 67;
nmDeactMediaEject = 68;
nmDeactServerDown = 69;
nmDeactServerFailure = 70;
nmResourceRelErr = 71;
nmMirrorsNotSync = 72;
nmMirrorsSyncUp = 73;
nmPartMirrorSync = 74;
nmPartMirrorNotSync = 75;
nmReMirroringPart = 76;
nmReMirroringPartAborted = 77;
nmLogPartMirrorInconsist = 78;
nmSysFileLockThresh = 79;
nmStaFileLockThresh = 80;
nmSysRecLockThresh = 81;
nmStaRecLockThresh = 82;
nmOpnNETACCTFailed = 83;
nmNCPSearchLimitSys = 84;
nmNCPSearchLimitSta = 85;
nmInsMediaAck = 86;
nmInsMediaAborted = 87;
nmRemMediaAck = 88;
nmRemMediaAbort = 89;
nmInsMediaInto = 90;
nmRemMediaFrom = 91;
nmReDirectedBlockPart = 92;
nmReDirectedBlockPartErr = 93;
nmOutOfHotFixBlocks = 94;
nmLowWarningHotFixBlocks = 95;
nmReDirectInconsistNoFix = 96;
nmReDirectInconsistFixed = 97;
nmInvalidRTagHOptions = 98;
nmCheckAndAddHWNoGetRTag = 99;
nmRemHWBadPtr = 100;
nmErrUnldNLM = 101;
nmIvldRTagCrProc = 102;
nmCrProcStkTooSmall = 103;
nmCrProcNoPCB = 104;
nmDelToLimboFileErr = 105;
nmDelToLimboNoSpace = 106;
nmMLIDResetLanBd = 107;
nmRouterReset = 108;
nmVolWrongDOSType = 109;
nmNoOwnerNSfound = 110;
nmRTDMDefSMchanged = 111;
nmErrOpnTTSLOG = 112;
nmErrWrtTTSLOG = 113;
nmTTSdownVolDismount = 114;
nmTTSdisableByStaUsr = 115;
nmTTSdisByOp = 116;
nmTTSdisErrRdBackFile = 117;
nmTTSdisErrWrBackFile = 118;
nmTTSdisTooManyDefVol = 119;
nmTTSdisWrtVolDefInfo = 120;
nmTTSdisErrRdBkFlRecGen = 121;
nmTTSdisGrowMemTables = 122;
nmTTSdisErrAllDiskSp = 123;
nmTTSdisDirErrOnBkFile = 124;
nmTTSEnableByStaUsr = 125;
nmTTStransAbortedForSta = 126;
nmTTStooManyTransDelaying = 127;
nmTTSNoMemForExpTransNodes = 128;
nmAuditEvent = 129;
nmAuditDisNoAuditCfg = 130;
nmInvldConnTypeToAllocConn = 131;
nmInvldRTagToAllocConn = 132;
nmOutOfServerConns = 133;
nmConnTermAfter5Min = 134;
nmUsrAccDisableBySta = 135;
nmUnEncryptPwdNotAllowed = 136;
nmSuperAccLockedByConsole = 137;
nmSystemTimeChangedByCon = 138;
nmSystemTimeChangedBySta = 139;
nmVolStillActWithError = 140;
nmRouterFalsehood = 141;
nmServerAddressChanged = 142;
nmExtFileNoOwnerCharge = 143;
nmRouterConfigErrNode = 144;
nmRouterConfigErrMyAddr = 145;
nmNoMigratorLd = 146;
nmNoSMLd = 147;
nmNotEnoughRamForCompression = 148;
nmDiskErrorCompressing = 149;
nmUnknownErrorCompressing = 150;
nmInsufficientSpaceForDeCompression = 151;
nmDecompressUnknownCompressionVersion = 152;
nmUnknownDecompressError = 153;
nmInsufficientRAMToDecompress = 154;
nmCompressedFileIsCorrupt = 155;
nmStaAttemptedToUseBadPckt = 156;
nmStaUsedABadPckt = 157;
nmStaAttemptedToUseBadSFL = 158;
nmStaUsedABadSFL = 159;
nmCorruptCompFileWithName = 160;
nmCorruptCompFileWithNameAndStation = 161;
nmLowPriThreadsNotRun = 162;
nmWorkToDoNotRun = 163;
nmCompressErrorTempFileError = 164;
nmCompressErrorLengthTotalsMismatch = 165;
nmCompressErrorOffsetTotalsMismatch = 166;
nmCompressErrorDataCodeCountMismatch = 167;
nmCompressErrorLengthCountMismatch = 168;
nmCompressErrorLargeLengthCountMismatch = 169;
nmCompressErrorReadZeroBytesOrg = 170;
nmCompressErrorTreeTooBig = 171;
nmCompressErrorMatchSizeFail = 172;
nmSignatureInvalidAlert = 173;
nmLicenseIsInvalid = 174;
nmDeactHotFixError = 175;
nmUnknownDecompressErrorFN = 176;
nmInsufficientRAMToDecompressFN = 177;
nmDecompressUnderFreePercentage = 178;
nmNegPktTriedLargeBuffer = 179;
nmLoginDisabledByConsole = 180;
nmLoginEnabledByConsole = 181;
nmGrwStkNotAvail = 182;
nmLicenseFileIsMissing = 183;
nmFailedToDeletedMigratedFile = 184;
nmNoMemForAuditing = 185;
nmAuditFileWriteError = 186;
nmAuditFileFull = 187;
nmAuditFileThresholdOverflow = 188;
nmCompressErrorReadZeroBytesInt = 189;
nmEASpaceLimit = 190;
nmThreadAreaNotEmpty = 191;
nmErrMovingLogToMSEngine = 192;
nmFaultInConsoleCmdHandler = 193;
nmServerToServerComLinkActivated = 194;
nmServerToServerComLinkFailure = 195;
nmServerToServerComLinkDeact = 196;
nmOtherServerAttemptedToSync = 197;
nmServerToServerComLinkBrokeOK = 198;
nmServerSyncStartingIAmSecondary = 199;
nmBadSvrInitMsgFromOtherSvr = 200;
nmSvrToSvrCommLinkInitFailed = 201;
nmFailedDuringSyncWithReason = 202;
nmCommDrvLdDuringActivateWait = 203;
nmErrWritingStatusDump = 204;
nmComDrvFailureOnPrimary = 205;
nmComDrvFailureOnSecondary = 206;
nmErrFinishingGenStatusDump = 207;
nmSFTIIWhatToDoWithReasonString = 208;
nmSFTIIErrorUnexpected = 209;
nmSyncErrFromCustomServerNLM = 210;
nmSvrLinkHasPluggedPacket = 211;
nmSvrToBeRevived = 212;
nmServersAreSyncPri = 213;
nmSvrCantRouteIPXSec = 214;
nmSrvIPXRouteInfoSec = 215;
nmErrGivingRAMtoMS = 216;
nmMoreRAMgivenToMS = 217;
nmServersAreSyncSec = 218;
nmSvrCantRouteIPXPri = 219;
nmSrvIPXRouteInfoPri = 220;
nmPriSvrFailedButSecDown = 221;
nmPriSvrFailedNewPri = 222;
nmNumMemSegsExceedLimit = 223;
nmNumScreenExceedsLimit = 224;
nmIOVersionMismatch = 225;
nmOtherSvrProtectLvlNoMatch = 226;
nmOtherSvrScrAddrMismatch = 227;
nmIOEngNotAtSameAddr = 228;
nmBothSvrHaveMSEng = 229;
nmNoMSEngOnServers = 230;
nmSecSvrMissingRAM = 231;
nmBothSrvHaveSameIPXAddr = 232;
nmIOEngIPXAddrMatchMSEng = 233;
nmIOEngsMismatchRxSizes = 234;
nmIOEngsHaveSameName = 235;
nmNoMemForIOEngName = 236;
nmSrvToSvrLinkBeginSync = 237;
nmMSEngActivated = 238;
nmMSEngActNowSyncOther = 239;
nmIOtoMSComMisMatchUnload = 240;
nmSFTIIIOutOfMsgCodes = 241;
nmErrXferDumpToSystem = 242;
nmFailureChkPrimary = 243;
nmNoMemForOtherIOEngScr = 244;
nmErrStarting2ndProc = 245;
nmSrvFailureMsg = 246;
nmSecIOEngSupModNotLd = 247;
nmMSLBdNumHasConn = 248;
nmSecSvrLANIsBetter = 249;
nmIPXrtnStatusPckts = 250;
nmIPXnotRtnStatChkPckts = 251;
nmIPXnotRtnStatLANJam = 252;
nmFailReasonByOtherSrv = 253;
nmIPXMayBeTooSlowForSecSrv = 254;
nmIPXToOtherSrvTooManyHops = 255;
nmIPXappearsDown = 256;
nmIPXFoundRouteToOtherSrv = 257;
nmIPXLostRoute = 258;
nmSecSrvGoingToDie = 259;
nmPriSrcDyingTimerStart = 260;
nmPriSrvDying = 261;
nmIPXInternetIsJammed = 262;
nmIPXNewRouteToSecSvr = 263;
nmSrvsSyncing = 264;
nmFSHookRegistered = 265;
nmFSHookDeRegistered = 266;
nmIOEngCantBorrowMemory = 267;
nmDecompressNoCompressionOnVolume = 268;
nmMkProcessUsingTooSmallStk = 269;
nmQueueEventReportNoMemory = 270;
nmServerPartMirrorNotSync = 271;
nmStaWithoutRightsConsoleRPC = 272;
nmAuditOverflowFileThreshold = 273;
nmAuditOverflowFileFull = 274;
nmSwitchStacksGrwStk = 275;
nmConsoleCommandProcRestarted = 276;
nmGrowableStackGrew = 278;
nmOtherSvrIOLogSpaceNoMatch = 279;
nmDFSLogicalStackRead = 280;
nmDFSLogicalStackWrite = 281;
nmSecureEraseFailure = 282;
nmDropBadPktBurstConn = 283;
nmOutOfIPXSockets = 284;
nmVolumeObjectIDChanged = 285;
nmAbendRecovery = 286;
nmOpLockTimeout = 287;
nmAbendRecovered = 288;
// starting with NetWare 5...
nmUnknownSetCmd = 289;
nmAddressSpaceProtectionFault = 290;
nmAddressSpaceFailedToRestart = 291;
nmAddressSpaceRestarted = 292;
nmCorruptMemoryNodeDetected = 293;
nmAddressSpaceCleanupFailure = 294;
nmInvalidParameter = 295;
nmInvalidObjectHandle = 296;
nmNullPointer = 297;
nmVolDmtMedDmt = 298;
nmVolDmtmedChgd = 299;
nmAccDelByUsrActConn = 300;
nmResourcesRelErr = 301;
nmDemoVersion = 302;
nmDemoVersionTooLong = 303;
nmLicenseReSellerFileIsMissing = 304;
nmLicenseUpgradeIsMissing = 305;
nmLicenseVersionInvalid = 306;
nmLicenseProductInvalid = 307;
nmLicenseNoMoreFiles = 308;
nmLicensePIDInvalid = 309;
nmLicenseContentInalid = 310;
nmLicenseBadUpgrade = 311;
nmLicensePrevMaxConnMisMatch = 312;
nmLicenseContentResellerBad = 313;
nmLicenseSNMisMatch = 314;
nmLicenseUIDMisMatch = 315;
nmLicenseOpenError = 316;
nmLicenseCompanionErr = 317;
nmLicenseSNUpgradeMisMatch = 318;
nmLicenseUnableToRemMSL = 319;
nmLicenseUnableToRemULF = 320;
nmLicenseUnableToRemRLF = 321;
nmLicenseUnableToGetFileSize = 322;
nmLicenseUnkLicenseType = 323;
nmLicenseReadErr = 324;
nmLicenseFileSizeMisMatch = 325;
nmLicenseDupServerLic = 326;
nmLicenseNeedUpgrade = 327;
nmLicenseMirrorNeedUpgrade = 328;
nmLicenseDupLicDiscovered = 329;
nmLicenseDupLicDiscoveredDel = 330;
nmLicenseCpyRightViolated = 331;
nmLicenseExpired = 332;
nmVolDmtDevMedChgd = 333;
nmVolDmtDevMedDmt = 334;
nmInsMediaAckDS = 335;
nmInsMediaAckMag = 336;
nmInsMediaAbortedDS = 337;
nmInsMediaAbortedMag = 338;
nmRemMediaAckDS = 339;
nmRemMediaAckMag = 340;
nmRemMediaAbortDS = 341;
nmRemMediaAbortMag = 342;
nmInsMediaIntoDS = 343;
nmInsMediaIntoMag = 344;
nmRemMediaFromDS = 345;
nmRemMediaFromMag = 346;
nmServAddr = 347;
nmSwapInError = 348;
nmSwapOutError = 349;
nmAveragePageInThresholdExceeded = 350;
nmIllegalRequest = 351;
nmTTSThrottleDelayError = 352;
nmTTSLackOfResourcesError = 353;
nmTTSLackOfResourcesNoReason = 354;
nmDelayedWTDNotRunning = 355;
nmInvalidCharacterInName = 356;
// starting with NetWare 6
nmMPKBadThreadState = 357;
nmPoolSeriousError = 358;
nmPoolSeriousReadError = 359;
nmVolSeriousError = 360;
nmVolSeriousReadError = 361;
nmVolDeactSeriousIOError = 362;
nmVolDeactSeriousNonIOError = 363;
nmPoolDeactSeriousIOError = 364;
nmPoolDeactSeriousNonIOError = 365;
nmTaskZeroCheck = 366;
// Values for nwAlertLocus
LOCUS_UNKNOWN = 0;
LOCUS_MEMORY = 1;
LOCUS_FILESYSTEM = 2;
LOCUS_DISKS = 3;
LOCUS_LANBOARDS = 4;
LOCUS_COMSTACKS = 5;
LOCUS_TTS = 7;
LOCUS_BINDERY = 8;
LOCUS_STATION = 9;
LOCUS_ROUTER = 10;
LOCUS_LOCKS = 11;
LOCUS_KERNEL = 12;
LOCUS_UPS = 13;
LOCUS_SERVICE_PROTOCOL = 14;
LOCUS_SFT_III = 15;
LOCUS_RESOURCE_TRACKING = 16;
LOCUS_NLM = 17;
LOCUS_OS_INFORMATION = 18;
LOCUS_CACHE = 19;
AlertIDValidMask = $00000002;
AlertLocusValidMask = $00000004;
NoDisplayAlertIDBit = $20000000;
NOTIFY_CONNECTION_BIT = $00000001;
NOTIFY_EVERYONE_BIT = $00000002;
NOTIFY_ERROR_LOG_BIT = $00000004;
NOTIFY_CONSOLE_BIT = $00000008;
NOTIFY_QUEUE_MESSAGE = $10000000;
NOTIFY_DONT_NOTIFY_NMAGENT = $80000000;
// ERROR CLASSES
CLASS_UNKNOWN = 0;
CLASS_OUT_OF_RESOURCE = 1;
CLASS_TEMP_SITUATION = 2;
CLASS_AUTHORIZATION_FAILURE = 3;
CLASS_INTERNAL_ERROR = 4;
CLASS_HARDWARE_FAILURE = 5;
CLASS_SYSTEM_FAILURE = 6;
CLASS_REQUEST_ERROR = 7;
CLASS_NOT_FOUND = 8;
CLASS_BAD_FORMAT = 9;
CLASS_LOCKED = 10;
CLASS_MEDIA_FAILURE = 11;
CLASS_ITEM_EXISTS = 12;
CLASS_STATION_FAILURE = 13;
CLASS_LIMIT_EXCEEDED = 14;
CLASS_CONFIGURATION_ERROR = 15;
CLASS_LIMIT_ALMOST_EXCEEDED = 16;
CLASS_SECURITY_AUDIT_INFO = 17;
CLASS_DISK_INFORMATION = 18;
CLASS_GENERAL_INFORMATION = 19;
CLASS_FILE_COMPRESSION = 20;
CLASS_PROTECTION_VIOLATION = 21;
CLASS_VIRTUAL_MEMORY = 22;
SEVERITY_INFORMATIONAL = 0;
SEVERITY_WARNING = 1;
SEVERITY_RECOVERABLE = 2;
SEVERITY_CRITICAL = 3;
SEVERITY_FATAL = 4;
SEVERITY_OPERATION_ABORTED = 5;
SEVERITY_NONOS_UNRECOVERABLE = 6;
type
TnwAlertDataFreeProc = procedure (nwAlertDataPtr:pointer);cdecl;
PNetWareAlertStructure = ^TNetWareAlertStructure;
TNetWareAlertStructure = record
pNetworkManagementAttribute : pointer;
nwAlertFlags,
nwTargetStation,
nwTargetNotificationBits,
nwAlertID,
nwAlertLocus,
nwAlertClass,
nwAlertSeverity : longint;
nwAlertDataPtr : pointer;
nwAlertDataFree : TnwAlertDataFreeProc;
nwControlString : pchar;
nwControlStringMessageNumber : longint;
end;
procedure NetWareAlert(nlmHandle : TNlmHandle;
nwAlert : PNetWareAlertStructure;
parameterCount : longint;
args : array of const); cdecl; external 'clib';
procedure NetWareAlert(nlmHandle : TNlmHandle;
nwAlert : PNetWareAlertStructure;
parameterCount : longint); cdecl; external 'clib';
{------------------------------------------------------------------------------}
implementation
@ -4892,7 +5374,11 @@ end.
{
$Log$
Revision 1.4 2004-11-06 19:57:06 armin
Revision 1.5 2004-12-16 12:42:55 armin
* added NetWare Alert
* added sysutils.sleep
Revision 1.4 2004/11/06 19:57:06 armin
* added some fp* functions
Revision 1.3 2004/09/26 19:25:49 armin

11
rtl/netware/sysutils.pp
View File

@ -26,6 +26,7 @@ uses DOS;
{$I nwsys.inc}
{$I errno.inc}
{$DEFINE HAS_SLEEP}
TYPE
TNetwareFindData =
@ -563,6 +564,10 @@ begin
ExecuteProcess := ExecuteProcess (Path, CommandLine);
end;
procedure Sleep(milliseconds: Cardinal);
begin
_delay (milliseconds);
end;
{****************************************************************************
@ -578,7 +583,11 @@ end.
{
$Log$
Revision 1.17 2004-12-11 11:32:44 michael
Revision 1.18 2004-12-16 12:42:55 armin
* added NetWare Alert
* added sysutils.sleep
Revision 1.17 2004/12/11 11:32:44 michael
+ Added GetEnvironmentVariableCount and GetEnvironmentString calls
Revision 1.16 2004/08/01 20:02:48 armin

84
rtl/netwlibc/libc.pp
View File

@ -40,6 +40,10 @@ Type
PPPChar = ^PPChar;
void = pointer;
cint = longint;
TNLMHandle = Pointer;
const
NullNlmHandle = nil;
{$PACKRECORDS C}
@ -793,6 +797,7 @@ function sbrk(incr:intptr_t):pointer;cdecl;external libc_nlm name 'sbrk';
function cancel(t_id:longint):longint;cdecl;external libc_nlm name 'cancel';
function confstr(name:longint; buf:Pchar; len:size_t):size_t;cdecl;external libc_nlm name 'confstr';
function delay(milliseconds:dword):longint;cdecl;external libc_nlm name 'delay';
function _delay(milliseconds:dword):longint;cdecl;external libc_nlm name 'delay';
function sethostid(hostid:longint):longint;cdecl;external libc_nlm name 'sethostid';
function setmode(fildes:longint; oflag:longint):longint;cdecl;external libc_nlm name 'setmode';
function sleep(seconds:dword):dword;cdecl;external libc_nlm name 'sleep';
@ -4136,6 +4141,34 @@ const
NOTIFY_QUEUE_MESSAGE = $10000000;
NOTIFY_DONT_NOTIFY_NMAGENT = $80000000;
type
TnwAlertDataFreeProc = procedure (nwAlertDataPtr:pointer);cdecl;
PNetWareAlertStructure = ^TNetWareAlertStructure;
TNetWareAlertStructure = record
pNetworkManagementAttribute : pointer;
nwAlertFlags,
nwTargetStation,
nwTargetNotificationBits,
nwAlertID,
nwAlertLocus,
nwAlertClass,
nwAlertSeverity : longint;
nwAlertDataPtr : pointer;
nwAlertDataFree : TnwAlertDataFreeProc;
nwControlString : pchar;
nwControlStringMessageNumber : longint;
end;
{$ifndef INCLUDED_FROM_SYSTEM}
procedure NetWareAlert(nlmHandle : TNLMHandle;
nwAlert : PNetWareAlertStructure;
parameterCount : longint;
args : array of const); cdecl; external system_nlm name 'NetWareAlert';
{$endif}
procedure NetWareAlert(nlmHandle : TNLMHandle;
nwAlert : PNetWareAlertStructure;
parameterCount : longint); cdecl; external system_nlm name 'NetWareAlert';
type
@ -4296,8 +4329,11 @@ function EventReport(_type:longint; parm:pointer):longint;cdecl;external system_
procedure RestartServer(commandLine:Pchar);cdecl;external system_nlm name 'RestartServer';
function ShutdownServer(scrID:scr_t; forceDown:byte; alternateMessage:Pchar; flags:dword):longint;cdecl;external system_nlm name 'ShutdownServer';
function ShutdownServer(scrID:scr_t; forceDown:boolean; alternateMessage:Pchar; flags:dword):longint;cdecl;external system_nlm name 'ShutdownServer';
function StopServer(scrID:scr_t; forceDown:byte; reserved1:dword; reserved2:pointer; alternateMessage:Pchar;
reserved3:dword):longint;cdecl;external system_nlm name 'StopServer';
function StopServer(scrID:scr_t; forceDown:boolean; reserved1:dword; reserved2:pointer; alternateMessage:Pchar;
reserved3:dword):longint;cdecl;external system_nlm name 'StopServer';
{ resource tag interfaces... }
const
@ -4320,7 +4356,7 @@ type
rtag_info = record
tag : rtag_t;
signature : dword;
NLMHandle : pointer;
NLMHandle : TNLMHandle;
use_count : longint;
description : array[0..(63 + 1)-1] of char;
end;
@ -4328,11 +4364,11 @@ type
Prtag_info_t = ^rtag_info_t;
function AllocateResourceTag(NLMHandle:pointer; description:Pchar; signature:dword):rtag_t;cdecl;external system_nlm name 'AllocateResourceTag';
function GetModuleResourceTagInfo(rTag:rtag_t; NLMHandle:pointer; info:Prtag_info_t):longint;cdecl;external system_nlm name 'GetModuleResourceTagInfo';
function AllocateResourceTag(NLMHandle:TNLMHandle; description:Pchar; signature:dword):rtag_t;cdecl;external system_nlm name 'AllocateResourceTag';
function GetModuleResourceTagInfo(rTag:rtag_t; NLMHandle:TNLMHandle; info:Prtag_info_t):longint;cdecl;external system_nlm name 'GetModuleResourceTagInfo';
function ReturnResourceTag(rTag:rtag_t; displayErrorsFlag:longint):longint;cdecl;external system_nlm name 'ReturnResourceTag';
function RegisterTrackedResource(NLMHandle:pointer; signature:dword; cleanup:Cleanup_t; description:Pchar):longint;cdecl;external system_nlm name 'RegisterTrackedResource';
function UnRegisterTrackedResource(NLMHandle:pointer; signature:dword):longint;cdecl;external system_nlm name 'UnRegisterTrackedResource';
function RegisterTrackedResource(NLMHandle:TNLMHandle; signature:dword; cleanup:Cleanup_t; description:Pchar):longint;cdecl;external system_nlm name 'RegisterTrackedResource';
function UnRegisterTrackedResource(NLMHandle:TNLMHandle; signature:dword):longint;cdecl;external system_nlm name 'UnRegisterTrackedResource';
function AddPollingProcedureRTag(proc:TCDeclProcedure ; rTag:rtag_t):longint;cdecl;external system_nlm name 'AddPollingProcedureRTag';
procedure RemovePollingProcedure(proc:TCDeclProcedure);cdecl;external system_nlm name 'RemovePollingProcedure';
@ -4340,8 +4376,8 @@ procedure RemovePollingProcedure(proc:TCDeclProcedure);cdecl;external system_nlm
const
MAX_SYMBOL_NAME_LEN = 80;
function ExportPublicObject(NLMHandle:pointer; name:Pchar; _object:pointer):longint;cdecl;external system_nlm name 'ExportPublicObject';
function ImportPublicObject(NLMHandle:pointer; name:Pchar):pointer;cdecl;external system_nlm name 'ImportPublicObject';
function ExportPublicObject(NLMHandle:TNLMHandle; name:Pchar; _object:pointer):longint;cdecl;external system_nlm name 'ExportPublicObject';
function ImportPublicObject(NLMHandle:TNLMHandle; name:Pchar):pointer;cdecl;external system_nlm name 'ImportPublicObject';
const
LO_NORMAL = $00000000;
@ -4375,17 +4411,17 @@ function ImportPublicObject(NLMHandle:pointer; name:Pchar):pointer;cdecl;externa
type
TLoadModulePath = record
case longint of
0 : (NLMHandle : longint);
0 : (NLMHandle : TNLMHandle);
1 : (path : array [0..1024] of char);
end;
function GetNLMNames(NLMHandle:pointer; name:Pchar; description:Pchar):longint;cdecl;external system_nlm name 'GetNLMNames';
procedure KillMe(NLMHandle:pointer);cdecl;external system_nlm name 'KillMe';
function ReturnMessageInformation(NLMHandle:pointer; table:PPPchar; stringCount:Psize_t; languageID:Plongint; helpFile:pointer):longint;cdecl;external system_nlm name 'ReturnMessageInformation';
function SetAutoUnloadFlag(NLMHandle:pointer):longint;cdecl;external system_nlm name 'SetAutoUnloadFlag';
function GetNLMNames(NLMHandle:TNLMHandle; name:Pchar; description:Pchar):longint;cdecl;external system_nlm name 'GetNLMNames';
procedure KillMe(NLMHandle:TNLMHandle);cdecl;external system_nlm name 'KillMe';
function ReturnMessageInformation(NLMHandle:TNLMHandle; table:PPPchar; stringCount:Psize_t; languageID:Plongint; helpFile:pointer):longint;cdecl;external system_nlm name 'ReturnMessageInformation';
function SetAutoUnloadFlag(NLMHandle:TNLMHandle):longint;cdecl;external system_nlm name 'SetAutoUnloadFlag';
function UnImportPublicObject(NLMHandle:pointer; name:Pchar):longint;cdecl;external system_nlm name 'UnImportPublicObject';
function UnImportPublicObject(NLMHandle:TNLMHandle; name:Pchar):longint;cdecl;external system_nlm name 'UnImportPublicObject';
function AddSearchPathAtEnd(scrID:scr_t; path:Pchar):longint;cdecl;external system_nlm name 'AddSearchPathAtEnd';
function DeleteSearchPath(scrID:scr_t; searchPathNumber:longint):longint;cdecl;external system_nlm name 'DeleteSearchPath';
function GetSearchPathElement(index:longint; isDOSFlag:Pdword; path:Pchar):longint;cdecl;external system_nlm name 'GetSearchPathElement';
@ -4402,7 +4438,7 @@ function _AllocSleepOK(size:size_t; rTag:rtag_t; slept:Plongint):pointer;cdecl;e
function AllocSleepOK(size:size_t; rTag:rtag_t; slept:Plongint):pointer;cdecl;external system_nlm name 'AllocSleepOK';
function _AllocSleepOK(size:size_t; rTag:rtag_t; var slept:longint):pointer;cdecl;external system_nlm name 'AllocSleepOK';
function AllocSleepOK(size:size_t; rTag:rtag_t; var slept:longint):pointer;cdecl;external system_nlm name 'AllocSleepOK';
procedure NWGarbageCollect(NLMHandle:pointer);cdecl;external system_nlm name 'NWGarbageCollect';
procedure NWGarbageCollect(NLMHandle:TNLMHandle);cdecl;external system_nlm name 'NWGarbageCollect';
function NWGetAvailableMemory:size_t;cdecl;external system_nlm name 'NWGetAvailableMemory';
function NWGetPageSize:size_t;cdecl;external system_nlm name 'NWGetPageSize';
function NWMemorySizeAddressable(addr:pointer; size:size_t):longint;cdecl;external system_nlm name 'NWMemorySizeAddressable';
@ -4480,9 +4516,9 @@ type
CommandHandler_t = function (funcCode:longint; scrID:pointer; command:Pchar; upperCaseCommand:Pchar; callerReference:pointer):longint;cdecl;
function DeRegisterCommand(NLMHandle:pointer; rTag:rtag_t; keywordFlags:dword; keyword:Pchar):longint;cdecl;external system_nlm name 'DeRegisterCommand';
function DeRegisterCommand(NLMHandle:TNLMHandle; rTag:rtag_t; keywordFlags:dword; keyword:Pchar):longint;cdecl;external system_nlm name 'DeRegisterCommand';
function RegisterCommand(NLMHandle:pointer; rTag:rtag_t; keywordFlags:dword; keyword:Pchar; handlerFlags:dword;
function RegisterCommand(NLMHandle:TNLMHandle; rTag:rtag_t; keywordFlags:dword; keyword:Pchar; handlerFlags:dword;
insertionFlags:dword; handler:CommandHandler_t; callerReference:pointer):longint;cdecl;external system_nlm name 'RegisterCommand';
{ legacy command parsing; uses ConsoleCommandSignature... }
@ -4714,7 +4750,7 @@ function UnReserveABreakpoint(_para1:longint):longint;cdecl;external system_nlm
function _NonAppCheckUnload:longint;cdecl;external libc_nlm name '_NonAppCheckUnload';
type TReadRoutine = function (conn:longint; fileHandle:pointer; offset,nbytes,bytesRead:Psize_t; buffer:pointer):longint; cdecl;
function _NonAppStart(NLMHandle:pointer; errorScreen:pointer; commandLine:Pchar; loadDirPath:Pchar; uninitializedDataLength:size_t;
function _NonAppStart(NLMHandle:TNLMHandle; errorScreen:pointer; commandLine:Pchar; loadDirPath:Pchar; uninitializedDataLength:size_t;
NLMFileHandle:pointer; readRoutineP:TReadRoutine; customDataOffset:size_t; customDataSize:size_t; messageCount:longint;
messages:PPchar):longint;cdecl;external libc_nlm name '_NonAppStart';
procedure _NonAppStop;cdecl;external libc_nlm name '_NonAppStop';
@ -7187,15 +7223,15 @@ function set_app_data(lib_id:longint; data_area:pointer):longint;cdecl;external
function unregister_library(lib_id:longint):longint;cdecl;external libc_nlm name 'unregister_library';
{ more prototypes for library creators, debugging and other uses... }
function cleardontunloadflag(handle:pointer):longint;cdecl;external libc_nlm name 'cleardontunloadflag';
function findnlmhandle(name:Pchar; space:addrsp_t):pointer;cdecl;external libc_nlm name 'findnlmhandle';
function findnlmhandle(name:Pchar; space:addrsp_t):TNLMHandle;cdecl;external libc_nlm name 'findnlmhandle';
function getaddressspace:addrsp_t;cdecl;external libc_nlm name 'getaddressspace';
function getaddressspacename(space:addrsp_t; name:Pchar):Pchar;cdecl;external libc_nlm name 'getaddressspacename';
function getallocresourcetag:rtag_t;cdecl;external libc_nlm name 'getallocresourcetag';
function getnativethread:pointer;cdecl;external libc_nlm name 'getnativethread';
{ (current process) }
function getnlmhandle:pointer;cdecl;external libc_nlm name 'getnlmhandle';
function getnlmhandlefromthread(thread:pointer):pointer;cdecl;external libc_nlm name 'getnlmhandlefromthread';
function getnlmname(handle:pointer; name:Pchar):Pchar;cdecl;external libc_nlm name 'getnlmname';
function getnlmhandle:TNLMHandle;cdecl;external libc_nlm name 'getnlmhandle';
function getnlmhandlefromthread(thread:pointer):TNLMHandle;cdecl;external libc_nlm name 'getnlmhandlefromthread';
function getnlmname(handle:TNLMHandle; name:Pchar):Pchar;cdecl;external libc_nlm name 'getnlmname';
function getnlmloadpath(loadpath:Pchar):Pchar;cdecl;external libc_nlm name 'getnlmloadpath';
function getthreadname(threadid:pointer; name:Pchar; maxlen:size_t):longint;cdecl;external libc_nlm name 'getthreadname';
function _getthreadid:pointer;cdecl;external libc_nlm name 'getthreadid';
@ -9075,7 +9111,11 @@ end.
{
$Log$
Revision 1.6 2004-12-07 14:13:42 armin
Revision 1.7 2004-12-16 12:42:55 armin
* added NetWare Alert
* added sysutils.sleep
Revision 1.6 2004/12/07 14:13:42 armin
* added syncobj for netwlibc
Revision 1.5 2004/12/07 11:40:43 armin

1
rtl/netwlibc/netware.imp
View File

@ -60,6 +60,7 @@
KillMe,
LoadLanguageMessageTable,
LoadModule,
NetWareAlert,
NVMKernelLock,
NVMKernelUnlock,
NWGarbageCollect,

14
rtl/netwlibc/sysutils.pp
View File

@ -36,6 +36,7 @@ TYPE
fname : string; { full pathname of found file }
END;
{$DEFINE HAS_SLEEP}
{ Include platform independent interface part }
{$i sysutilh.inc}
@ -678,6 +679,13 @@ begin
end;
procedure Sleep(milliseconds: Cardinal);
begin
libc._delay (milliseconds);
end;
{****************************************************************************
Initialization code
****************************************************************************}
@ -691,7 +699,11 @@ end.
{
$Log$
Revision 1.6 2004-12-14 19:23:22 armin
Revision 1.7 2004-12-16 12:42:55 armin
* added NetWare Alert
* added sysutils.sleep
Revision 1.6 2004/12/14 19:23:22 armin
* dont copy imp files with a rule because this always builds system.pp
* implemented GetEnvironmentVariableCount and GetEnvironmentString
* removed dependency from dos unit