home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / src / tools / amigalib / testargarray.e < prev    next >
Text File  |  1995-03-19  |  689b  |  23 lines
  1. MODULE 'icon',
  2.        'amigalib/argarray'
  3.  
  4. ENUM ERR_NONE, ERR_LIB
  5.  
  6. RAISE ERR_LIB IF OpenLibrary()=NIL
  7.  
  8. PROC main() HANDLE
  9.   DEF p:PTR TO LONG, i=0
  10.   iconbase:=OpenLibrary('icon.library', 33)
  11.   IF p:=argArrayInit()  -> Result is a NIL-terminated list of strings
  12.     WriteF('Integer value of "ARG_ONE" is \d (default is 2)\n',
  13.            argInt(p, 'ARG_ONE', 2))
  14.     WriteF('String value of "OTHER" is "\s" (default is "fred")\n',
  15.            argString(p, 'OTHER', 'fred'))
  16.     WriteF('\nActual arguments are:\n')
  17.     WHILE p[] DO WriteF('\d[2]: "\s"\n', i++, p[]++)
  18.     WriteF('Total: \d arguments\n', i)
  19.     argArrayDone()
  20.   ENDIF
  21. EXCEPT DO
  22.   IF iconbase THEN CloseLibrary(iconbase)
  23. ENDPROC