home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / modulessrc / dos / dosasl.e < prev    next >
Text File  |  1977-12-31  |  1KB  |  72 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE 'dos/dos'
  5.  
  6. OBJECT anchorpath
  7.   base:PTR TO achain
  8.   last:PTR TO achain
  9.   breakbits:LONG
  10.   foundbreak:LONG
  11.   flags:CHAR  -> This is signed
  12.   reserved:CHAR
  13.   strlen:INT
  14.   info:fileinfoblock
  15. -> Um, what about 'buf[1]:ARRAY'?
  16. ENDOBJECT     /* SIZEOF=280 */
  17.  
  18. CONST APB_DOWILD=0,
  19.       APF_DOWILD=1,
  20.       APB_ITSWILD=1,
  21.       APF_ITSWILD=2,
  22.       APB_DODIR=2,
  23.       APF_DODIR=4,
  24.       APB_DIDDIR=3,
  25.       APF_DIDDIR=8,
  26.       APB_NOMEMERR=4,
  27.       APF_NOMEMERR=16,
  28.       APB_DODOT=5,
  29.       APF_DODOT=$20,
  30.       APB_DIRCHANGED=6,
  31.       APF_DIRCHANGED=$40,
  32.       APB_FOLLOWHLINKS=7,
  33.       APF_FOLLOWHLINKS=$80
  34.  
  35. OBJECT achain
  36.   child:PTR TO achain
  37.   parent:PTR TO achain
  38.   lock:LONG
  39.   info:fileinfoblock
  40.   flags:CHAR  -> This is signed
  41. -> Um, what about 'string[1]:ARRAY'?
  42. ENDOBJECT     /* SIZEOF=273 */
  43.  
  44. CONST DDB_PATTERNBIT=0,
  45.       DDF_PATTERNBIT=1,
  46.       DDB_EXAMINEDBIT=1,
  47.       DDF_EXAMINEDBIT=2,
  48.       DDB_COMPLETED=2,
  49.       DDF_COMPLETED=4,
  50.       DDB_ALLBIT=3,
  51.       DDF_ALLBIT=8,
  52.       DDB_SINGLE=4,
  53.       DDF_SINGLE=16,
  54.       P_ANY=$80,
  55.       P_SINGLE=$81,
  56.       P_ORSTART=$82,
  57.       P_ORNEXT=$83,
  58.       P_OREND=$84,
  59.       P_NOT=$85,
  60.       P_NOTEND=$86,
  61.       P_NOTCLASS=$87,
  62.       P_CLASS=$88,
  63.       P_REPBEG=$89,
  64.       P_REPEND=$8A,
  65.       P_STOP=$8B,
  66.       COMPLEX_BIT=1,
  67.       EXAMINE_BIT=2,
  68.       ERROR_BUFFER_OVERFLOW=$12F,
  69.       ERROR_BREAK=$130,
  70.       ERROR_NOT_EXECUTABLE=$131
  71.  
  72.