unit UDIRType;
 { Directories }
interface
uses
  UlanType, ULRecTyp;{ULanRECs.LST}

const
  UDIRID = ord('U') + 256*ord('D') + 256*256*ord('I') + 256*256*256*ord('R');

type
  TUDIRRec = packed record{<Caption="Directories">}
    Head: TULRecHead;
    Info: TULRecInfo;
    DataDir: shortstring;{<Enabled=1 Type=Dir
      Hint="Root data directory, if not specified %EXEDIR%DATA\ used">}
    MethodDir: shortstring;{<Enabled=1 Type=Dir
      Hint="Directory for methods, if not specified %DATADIR%Methods\ used">}
    SequenceDir: shortstring;{<Enabled=1 Type=Dir
      Hint="Directory for sequences, if not specified %DATADIR%Sequences\ used">}
    PrgDir: shortstring;{<Enabled=1 Type=Dir
      Hint="Directory for programs, if not specified %DATADIR%Programs\ used">}
    ScriptPath: shortstring;{<Enabled=1 Type=Dir
      Hint="List of script directories, if not specified %DATADIR%Scripts\ used">}
  end;
  PUDIRRec = ^TUDIRRec;

implementation

end.
