home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / ObSup_Scripts / CygnusEd / Options.ced < prev    next >
Encoding:
Text File  |  1992-08-01  |  1.3 KB  |  41 lines
  1. /* ------------------------------------------------------------------------
  2.   :Program.       Options.ced
  3.   :Contents.      Set Oberon options with CygnusEd Professional
  4.   :Author.        Kai Bolay [kai]
  5.   :Address.       Snail-Mail:              E-Mail:
  6.   :Address.       Hoffmannstraße 168       UUCP: kai@amokle.tynet.sub.org
  7.   :Address.       D-7250 Leonberg 1        FIDO: 2:247/706.3
  8.   :History.       v1.0 [kai] 12-Mar-92
  9.   :Version.       $VER: Options 1.0 (12-Mar-92)
  10.   :Copyright.     FD
  11.   :Language.      ARexx
  12.   :Translator.    RexxMast
  13.   :Bugs.          "Creative Quoting" of CED is real shit!
  14. ------------------------------------------------------------------------ */
  15.  
  16. options results
  17.  
  18. opts = GetClip("OberonOpts")
  19. empty = (opts = "")
  20. if empty then opts = "svbcrnotpzmd1238igy"
  21. getstring '"'opts'"' '"Bitte geben sie die Compileroptionen ein"'
  22. opts = result
  23. if (opts ~= "RESULT") & ~(empty & (opts = "")) then do
  24.   if ~setclip("OberonOpts",opts) then do
  25.     Okay1 "Fehler: Kann Optionen nicht merken"
  26.     exit
  27.   end
  28. end
  29.  
  30. opts = GetClip("OLinkOpts")
  31. empty = (opts = "")
  32. if empty then opts = "smdi"
  33. getstring '"'opts'"' '"Bitte geben sie die Linkeroptionen ein"'
  34. opts = result
  35. if (opts ~= "RESULT") & ~(empty & (opts = "")) then do
  36.   if ~setclip("OLinkOpts",opts) then do
  37.     Okay1 "Fehler: Kann Optionen nicht merken"
  38.     exit
  39.   end
  40. end
  41.