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