Innerfuse Pascal Script
Unit: ifs_var.pas
PProcedure
PProcedure used to store the definition of an internal or external function.
Type:
PProcedure = ^TProcedure;
TProcedure = packed record
FScriptEngine: Pointer;
Mode: Byte; { 0 = Internal; 1 = RegisteredProc; 2 = RegisteredProc of Object }
Flags: Word;
Name, Decl: string;
{$IFNDEF NOCLASSES}ClassType: PTypeRec;{$ENDIF}
_Ext: Pointer;
case Byte of
0: (Offset: Longint);
1: (Proc1: TRegisteredProc; _Ext2: Pointer);
2: (Proc2: TRegisteredProcObject);
end;
Copyright (c) 2001 by Carlo Kok
last update: 24-11-01