home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 379a.lha / p2c1_13a / HP / import / misc.imp < prev    next >
Text File  |  1990-06-03  |  2KB  |  81 lines
  1.  
  2.  
  3. {IncludeFrom=misc <p2c/misc.h>}
  4.  
  5.  
  6. {*VarStrings=0} {*ExportSymbol=misc_%s}
  7.  
  8.  
  9. module misc;    {homeless orphans}
  10.  
  11. import sysglobals, asm; 
  12.  
  13. export
  14.  
  15. const
  16.   
  17.   null  = 0;    nullchar  = chr(0);
  18.                 homechar  = chr(1); 
  19.   etx   = 3; 
  20.   bell  = 7;    bellchar  = chr(7); 
  21.   bs    = 8;    leftchar  = chr(8); 
  22.   tab   = 9;    cteol     = chr(9); 
  23.   lf    = 10;   downchar  = chr(10); 
  24.   vt    = 11;   cteos     = chr(11); 
  25.   ff    = 12;   clearscr  = chr(12); 
  26.   cr    = 13;   eol       = chr(13); 
  27.   dle   = 16;     
  28.   esc   = 27;   escchar   = chr(27);
  29.   fsp   = 28;   rightchar = chr(28);
  30.   us    = 31;   upchar    = chr(31); 
  31.   del   = 127;
  32.   cntrl = 255; 
  33.  
  34. type 
  35. (* CATALOGUE INFORMATION, zero entry refers to the directory itself *)
  36.   
  37.   catentry = record
  38.     cname:  tid;                {name of file or directory}
  39.     ceft:   shortint;           {external file type (LIF)}
  40.     ckind:  filekind;           {file kind}
  41.     cpsize: integer;            {physical size of file 
  42.                                         or of total data space on volume}
  43.     clsize: integer;            {logical size of file 
  44.                                         or unused space on medium}
  45.     cstart: integer;            {starting location of file 
  46.                                         or first possible data location}
  47.     cblocksize: integer;        {size of a sector or block}
  48.     ccreatedate, clastdate:  daterec;   {creation, last modified dates}
  49.     ccreatetime, clasttime:  timerec;   {creation, last modified times}
  50.     cextra1,                    {extension 
  51.                                         or total possible number of files
  52.                                         or requested number of files}
  53.     cextra2:   integer;         {secondary discretionary field
  54.                                         or start index of requested catalog}
  55.     cinfo:  string[20];         {comment or miscellaneous information}
  56.     
  57.     end; 
  58.     
  59.     passentry = record
  60.                  pbits: integer; 
  61.                  pword: passtype; 
  62.                  end; 
  63.     
  64. var
  65.   idle: byte;              { idle character -- 3.0 bug jws 3/20/84 }
  66.   
  67. procedure getioerrmsg(var s :string; lastior : integer);
  68. procedure printerror(errorcode, lastior: integer); 
  69. procedure upc(var s: string); 
  70. function ueovbytes(unit: unitnum): integer;
  71. procedure unblockeddam(anyvar f: fib; unum: unitnum; request: damrequesttype); 
  72. procedure initfilekinds;
  73. procedure lockup; 
  74. procedure lockdown; 
  75.   
  76.  
  77. end.
  78.  
  79.  
  80.  
  81.