/* $VER: MakeDefIcon 1.1 (12.9.97) by J. Tierney

  MakeDefIcon  v1.1
  9/12/97  J. Tierney

*/

MODULE 'dos/dos',
       'icon'


ENUM RA_FILES=0, RA_COUNT


PROC main()
  DEF rdargs, rdopts:PTR TO LONG, nameptr:PTR TO LONG, info, i=0,
      file[256]:ARRAY OF CHAR, rc=RETURN_OK

  IF (iconbase:=OpenLibrary('icon.library', 36))

    NEW rdopts[RA_COUNT]
    IF (rdargs:=ReadArgs('FILES/M/A', rdopts, NIL))
      nameptr:=rdopts[RA_FILES]

      WHILE nameptr[i]
        AstrCopy(file, nameptr[i], 256)
        IF (info:=InStr(file, '.info')) <> -1 THEN file[info]:=0

        info:=GetDiskObjectNew(file)
        PutDiskObject(file, info)
        FreeDiskObject(info)

        INC i
      ENDWHILE

      FreeArgs(rdargs)
    ELSE
      rc:=RETURN_ERROR
      WriteF('Error:  Bad Args.\n')
    ENDIF

    CloseLibrary(iconbase)
  ELSE
    rc:=RETURN_ERROR
    WriteF('Error:  Unable to open icon.library.\n')
  ENDIF
ENDPROC rc


CHAR '$VER: MakeDefIcon 1.1 (12.9.97) by J. Tierney', 0