home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Workbench / Archivers / ViewDIZ.lha / ViewDIZ / C / Install-routines.s < prev    next >
AmigaDOS Script File  |  1998-03-12  |  636b  |  41 lines
  1. .key function/a
  2. .bra {
  3. .ket }
  4.  
  5. if {function} eq "cedfind"
  6.     failat 15
  7.     search >t:temp from=s:user-startup search=CygnusED nonum
  8.     if not warn
  9.         execute >nil: t:temp
  10.         path >t:temp show
  11.         search >env:cedpath from=t:temp search=CygnusED nonum
  12.  
  13.         if not warn
  14.             setenv cedpath `type env:cedpath`
  15.             endif
  16.         endif
  17.     delete >nil: t:temp
  18.     quit
  19. endif
  20.  
  21. if {function} eq "rexx?"
  22.     if exists sys:rexxc
  23.         path sys:rexxc add >NIL:
  24.     endif
  25.     waitforport REXX >NIL:
  26.     if not warn
  27.         setenv vd.temp "ACTIVE"
  28.         quit
  29.     endif
  30.  
  31.     if exists sys:system/rexxmast
  32.         sys:system/rexxmast >NIL:
  33.         if not warn
  34.             setenv vd.temp "ACTIVE"
  35.             quit
  36.         endif
  37.     endif
  38.     quit
  39. endif
  40.  
  41.