home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / PURE_P_2.LZH / PURE_P_2.MSA / INTRFACE / DOS.INT < prev    next >
Text File  |  1992-05-21  |  4KB  |  184 lines
  1. unit    dos;
  2.  
  3. interface
  4.  
  5. uses    tos;
  6.  
  7. (* -------------------------------------------------------------------- *)
  8. (*        constants, types & variables                                    *)
  9. (* -------------------------------------------------------------------- *)
  10.  
  11. const
  12.  
  13.     fmClosed = $D7B0;
  14.     fmInput  = $D7B1;
  15.     fmOutput = $D7B2;
  16.     fmInOut  = $D7B3;
  17.  
  18.     ReadOnly    = $01;
  19.     Hidden        = $02;
  20.     SysFile        = $04;
  21.     VolumeID    = $08;
  22.     Directory    = $10;
  23.     Archive        = $20;
  24.     AnyFile        = $3F;
  25.  
  26.  
  27. type
  28.  
  29.     FileRec = record
  30.                 Handle :    Word;
  31.                 Mode :        Word;
  32.                 RecSize :    LongInt;
  33.                 Private :    array[1..28] of Byte;
  34.                 UserData :    array[1..16] of Byte;
  35.                 Name :        array[0..119] of Char;
  36.                 Reserved :    Word;
  37.             end;
  38.  
  39.     TextBuf = array[0..127] of Char;
  40.  
  41.     TextRec = record
  42.                 Handle :    Word;
  43.                 Mode :        Word;
  44.                 BufSize :    LongInt;
  45.                 BufPos :    LongInt;
  46.                 BufEnd :    LongInt;
  47.                 BufPtr :    ^TextBuf;
  48.                 OpenFunc :    Pointer;
  49.                 InOutFunc :    Pointer;
  50.                 FlushFunc :    Pointer;
  51.                 CloseFunc :    Pointer;
  52.                 UserData :    array[1..16] of Byte;
  53.                 Name :        array[0..119] of Char;
  54.                 Reserved :    Word;
  55.                 Buffer :    TextBuf;
  56.             end;
  57.  
  58.     DateTime = record
  59.                 Year, Month, Day, Hour, Min, Sec : Word;
  60.             end;
  61.  
  62.     SearchRec = record
  63.                 Fill    : array[1..21] of Byte;
  64.                 Attr    : Byte;
  65.                 Time    : LongInt;
  66.                 Size    : LongInt;
  67.                 Name    : string[12];
  68.             end;
  69.  
  70.     ComStr    = string[127];
  71.     PathStr    = string[119];
  72.     DirStr    = string[105];
  73.     NameStr    = string[8];
  74.     ExtStr    = string[4];
  75.  
  76.  
  77. var
  78.  
  79.     DosError : Integer;    
  80.  
  81.  
  82. (* -------------------------------------------------------------------- *)
  83. (*        functions & procedures                                            *)
  84. (*                                                                        *)
  85. (*                                                                        *)
  86. (*        not implemented:                                                *)
  87. (*                                                                        *)
  88. (*        procedure    Intr( IntNo : Byte; var Regs : Register );            *)
  89. (*        procedure    MsDos( var Regs : Register );                        *)
  90. (* -------------------------------------------------------------------- *)
  91.  
  92.     function    DosExitCode : Word;
  93.  
  94.     function    DosVersion : Word;
  95.     external;
  96.  
  97.     function    DiskFree( Drive : Byte ) : LongInt;
  98.     external;
  99.  
  100.     function    DiskSize( Drive : Byte ) : LongInt;
  101.     external;
  102.  
  103.     function    EnvCount : Integer;
  104.     external;
  105.  
  106.     function    EnvStr( Index : Integer ) : string;
  107.     external;
  108.  
  109.     procedure    Exec( Path, CmdLine : string );
  110.     external;
  111.  
  112.     function    FExpand( Path : PathStr ) : PathStr;
  113.     external;
  114.  
  115.     procedure    FindFirst( Path : string; Attr : Byte; var S : SearchRec );
  116.     external;
  117.  
  118.     procedure    FindNext( var S : SearchRec );
  119.     external;
  120.  
  121.     function    FSearch( Path : PathStr; DirList : string ) : string;
  122.     external;
  123.  
  124.     procedure    FSplit( Path : PathStr; var Dir : DirStr;
  125.                         var Name : NameStr; var Ext : ExtStr );
  126.     external;
  127.  
  128.     procedure    GetCBreak( var break : boolean );
  129.  
  130.     procedure    GetDate( var Year, Month, Day, DayofWeek: Word );
  131.     external;
  132.  
  133.     function    GetEnv( EnvVar : string ) : string;
  134.     external;
  135.  
  136.     procedure    GetFAttr( var f; var Attr : Word );
  137.     external;
  138.  
  139.     procedure    GetFTime( var f; var Time : LongInt );
  140.     external;
  141.  
  142.     procedure    GetIntVec( IntNo : Byte; var Vector : Pointer );
  143.     external;
  144.  
  145.     procedure    GetTime( var Hour, Min, Second, Sec100 : Word );
  146.     external;
  147.  
  148.     procedure    GetVerify( var verify : Boolean );
  149.  
  150.     procedure    Keep( ExitCode : Word );
  151.     external;
  152.  
  153.     procedure    PackTime( var DT : DateTime; var Time : LongInt );
  154.     external;
  155.  
  156.     procedure    SetCBreak( break : Boolean );
  157.  
  158.     procedure    SetDate( Year, Month, Day : Word );
  159.     external;
  160.  
  161.     procedure    SetFAttr( var f; Attr : Word );
  162.     external;
  163.  
  164.     procedure    SetFTime( var f; Time : LongInt );
  165.     external;
  166.  
  167.     procedure    SetIntVec( IntNo : Byte; Vector : Pointer );
  168.     external;
  169.  
  170.     procedure    SetTime( Hour, Minute, Second, Sec100 : Word );
  171.     external;
  172.  
  173.     procedure    SetVerify( verify : Boolean );
  174.  
  175.     procedure    SwapVectors;
  176.     external;
  177.  
  178.     procedure    UnpackTime( Time : LongInt; var DT : DateTime );
  179.     external;
  180.  
  181.  
  182. (* =================================================================== *)
  183.  
  184.