home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / useful / text / tex / pastex / rexx / golded / loadspecialconfig.ged < prev    next >
Text File  |  1994-03-07  |  1KB  |  45 lines
  1. /*
  2.     $VER: LoadSpecialConfig.ged V1.0 (7.3.94) © Axel Burghardt
  3.  
  4.     Das ARexx-Skript öffnet (sofern vorhanden) eine spezielle GoldEd-
  5.     Konfiguration GOLDED.xxx.PREFS aus ENVARC:GOLDED/
  6.     xxx steht für die Endung der übergebenen Datei.
  7.     Bsp.: Ged test.c versucht die Konfiguration GOLDED.C.PREFS nachzuladen.
  8.     Hat eine Datei keine Endung, bleibt die Konfiguration GOLDED.PREFS.
  9.  
  10.     Installation
  11.     ------------
  12.     1. Das ARexx-Skript als Startup-Makro unter Konfig/Diverses einbinden.
  13.     2. Die Konfiguration (*.msc) dann sichern.
  14.     3. Die globale Konfiguration (z.B. GoldEd.Prefs) sichern.
  15. */
  16.  
  17. TITLE = 'LoadSpecialConfig.ged V1.0 (7.3.94) © A.Burghardt'
  18.  
  19. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then
  20.     address 'GOLDED.1'
  21.  
  22. RC = 1
  23. OPTIONS FAILAT 21     /* Warte mit LOCK, bis Datei geladen */
  24. do while (RC ~= 0)
  25.     'LOCK CURRENT'
  26. end
  27. OPTIONS FAILAT 0
  28.  
  29. 'QUERY FILE VAR FILE'
  30. parse var FILE FILENAME '.' EXTENSION
  31. if EXTENSION ~= '' then
  32. do
  33.     CONFIG = upper('ENVARC:GOLDED/Golded.'||EXTENSION||'.prefs')
  34.  
  35.     if exists(CONFIG) then
  36.     do
  37.         'UNLOCK'
  38.         'PREFS LOAD FILE="' || CONFIG ||'"'
  39.     end
  40.     else
  41.         'REQUEST BODY="Datei' CONFIG 'nicht gefunden!" TITLE="'||Title||'"'
  42. end
  43. 'UNLOCK'
  44.  
  45.