home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / AmigaLib / testargarray.e < prev    next >
Encoding:
Text File  |  1995-03-19  |  689 b   |  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