home *** CD-ROM | disk | FTP | other *** search
/ Adobe Illustrator 3.0 & Fonts [NeXTSTEP] / AdobePlusPack_5.img / FontInstaller.app / deletefonts.ps < prev    next >
Encoding:
Text File  |  1991-04-24  |  417 b   |  23 lines
  1. %!
  2. %%Title: deletefonts.ps
  3. % Copyright (C) 1987, 1991
  4. % Adobe Systems Incorporated
  5. % All Rights Reserved
  6. % CreationDate: (4/23/91)
  7.  
  8. /deletepattern where { pop }{ %ifelse
  9.     /deletepattern (fonts/*) def
  10. } ifelse
  11. statusdict begin
  12.     /diskstatus where {
  13.     pop
  14.     diskstatus add 0 ne {
  15.         % disk is hooked up and working, apparently
  16.         deletepattern {
  17.         deletefile
  18.         } 256 string filenameforall
  19.     } if
  20.     } if
  21. end
  22.  
  23.