home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / ObSup_Scripts / TurboText / rexx / Options.ttx < prev   
Encoding:
Text File  |  1992-08-01  |  1.8 KB  |  47 lines
  1. /* ------------------------------------------------------------------------
  2.   :Program.       Options.ttx
  3.   :Contents.      Set Oberon options with TurboText
  4.   :Author.        Kai Bolay [kai] (CED-Version)
  5.   :Address.       Snail-Mail:              E-Mail:
  6.   :Address.       Hoffmannstrasse 168      UUCP: kai@amokle.adsp.sub.org
  7.   :Address.       D-7250 Leonberg 1        FIDO: 2:247/706.3
  8.   :Author.        Jan Geißler [jan] (Turbotext-Anpassung)
  9.   :Address.       Snail-Mail:              E-Mail:
  10.   :Address.       Hermann-Rombach-Str. 17  Zerberus:J.GEISSLER@DALLAS.ZER
  11.   :Address.       D-7120 Bietigheim        FIDO: 2:247/706.5
  12.   :History.       v1.0 [kai] 12-Mar-92
  13.   :History.       v1.0.1 [jan] 06-Jun-92 (+ fixed for use with TurboText)
  14.   :Copyright.     FD
  15.   :Language.      ARexx
  16.   :Translator.    RexxMast
  17.   :Remark.        Use AmigaOberon.dfn to get oberon menus & more in TTX!
  18. ------------------------------------------------------------------------ */
  19.  
  20. options results
  21.  
  22. opts = GetClip("OberonOpts")
  23. empty = (opts = "")
  24. if empty then opts = "svbcrnotpzmd1238igy"
  25. /* getstring '"'opts'"' '"Bitte geben sie die Compileroptionen ein"' */
  26. requeststr PROMPT '"Bitte geben sie die Compileroptionen ein"' '"'opts'"'
  27. opts = result
  28. if (opts ~= "RESULT") & ~(empty & (opts = "")) then do
  29.   if ~setclip("OberonOpts",opts) then do
  30.     RequestBool "Fehler:" "Kann Optionen nicht merken"
  31.     exit
  32.   end
  33. end
  34.  
  35. opts = GetClip("OLinkOpts")
  36. empty = (opts = "")
  37. if empty then opts = "smdi"
  38. /* getstring '"'opts'"' '"Bitte geben sie die Linkeroptionen ein"' */
  39. requeststr PROMPT '"Bitte geben sie die Linkeroptionen ein"' '"'opts'"'
  40. opts = result
  41. if (opts ~= "RESULT") & ~(empty & (opts = "")) then do
  42.   if ~setclip("OLinkOpts",opts) then do
  43.     RequestBool "Fehler:" "Kann Optionen nicht merken"
  44.     exit
  45.   end
  46. end
  47.