Innerfuse Script

PIFSClassType

Unit: ifs_var.pas
PIFSClassType is used to store the information needed to create classes.

Declaration:
type
   PIFSClassType = ^TIFSClassType;
   TIFSClassType = packed record
     InheritsFrom: PTypeRec; {until it's nil}
     PropStart, VarNoStart, VarCount: Longint; { Used in the variable manager; It's for finding the fields of the class}
     Variables: TIFsRecordType;
     {
       Things before name:
       1 Private
       2 Public
       3 Protected
     }
     Properties: TIFList; { of PPropertyDef }
     Procedures: TIfList; { of PProcedure }
     { Flags:
       $1 = Private
       $2 = Public
       $1+$2 = Protected
       $10 = Virtual begin
       $20 = Virtual override
       $40 = Constructor
       $80 = Destructor
     }

   end;