home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Guide / args.e < prev    next >
Encoding:
Text File  |  1994-12-14  |  913 b   |  29 lines
  1. MODULE 'workbench/startup'
  2.  
  3. PROC main()
  4.   DEF startup:PTR TO wbstartup, args:PTR TO wbarg, i, oldlock, len
  5.   IF (startup:=wbmessage)=NIL
  6.     WriteF('Started from Shell/CLI\n   Arguments: "\s"\n', arg)
  7.   ELSE
  8.     WriteF('Started from Workbench\n')
  9.     args:=startup.arglist
  10.     FOR i:=1 TO startup.numargs  /* Loop through the arguments */
  11.       IF args[].lock=NIL
  12.         WriteF('  Argument \d: "\s" (no lock)\n', i, args[].name)
  13.       ELSE
  14.         oldlock:=CurrentDir(args[].lock)
  15.         len:=FileLength(args[].name)  /* Do something with file */
  16.         IF len=-1
  17.           WriteF('  Argument \d: "\s" (file does not exist)\n',
  18.                  i, args[].name)
  19.         ELSE
  20.           WriteF('  Argument \d: "\s", file length is \d bytes\n',
  21.                  i, args[].name, len)
  22.         ENDIF
  23.         CurrentDir(oldlock) /* Important: restore current dir */
  24.       ENDIF
  25.       args++
  26.     ENDFOR
  27.   ENDIF
  28. ENDPROC
  29.