home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / pastex / rexx / golded / tex-start.ged < prev   
Text File  |  1994-03-22  |  2KB  |  104 lines
  1. /*
  2.     $VER: TeX-Start.ged V0.97 (19.3.94) Axel Burghardt
  3. */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. IF SHOW('P','GOLDED.1') THEN
  8.   ADDRESS "GOLDED.1"
  9.  
  10. 'LOCK CURRENT'
  11.  
  12. Title = "TeX-Start V0.97"
  13. Port = 'TEX.1'
  14.  
  15. IF SHOW('P','TEX.1') THEN DO
  16.  
  17.   IF "" = GETCLIP("TEXQUERY") THEN 
  18.     Askformat = 0
  19.   ELSE 
  20.     Askformat = 1
  21.  
  22.   PARSE ARG Format .
  23.   IF "?" = Format THEN DO
  24.     Askformat= 1
  25.     Format   = ""
  26.   END
  27.   ELSE 
  28.     IF '&' = LEFT(Format,1) THEN
  29.       Format = SUBSTR(Format,2)
  30.  
  31.   'QUERY DOC VAR FULLNAME'
  32.  
  33. /* ---------------- Den absoluten Namen ermitteln ----------------- */
  34.  
  35.   PARSE VALUE namestruc(Fullname) WITH ivol idirs ibase .
  36.  
  37.   IF "" == SUBSTR(Fullname, 1+ivol+idirs+ibase) | UPPER(RIGHT(Fullname,3)) ~= "TEX" THEN DO
  38.     'REQUEST BODY="Datei muß mit '.TeX' enden!" TITLE="'Title'"'
  39.     EXIT 5
  40.   END
  41.  
  42.   IF 0 = ivol THEN DO
  43.     Direc = PRAGMA('d')
  44.     IF RIGHT(Direc,1)~='/' & RIGHT(Direc,1)~=':' THEN Direc=Direc'/'
  45.     Fullname = Direc||Fullname
  46.     DROP Direc
  47.   END
  48.   DROP ivol idirs ibase
  49.  
  50.   'QUERY MODIFY VAR MODIFY'
  51.   IF (Modify = 1) THEN
  52.     'SAVE ALL'
  53.  
  54. /* --------------------- Setze das TeX-Format --------------------- */
  55.  
  56.   Envformat = NewGetenv("TEXFORMAT")
  57.   IF "" == Format THEN DO
  58.     Format = Envformat
  59.     IF askformat | "" = Envformat THEN DO
  60.       IF "" = Format THEN Format = 'plain'
  61.       'REQUEST STRING BODY="Welches Format soll benutzt werden?" VAR NFORMAT TITLE="'Title'"'
  62.       IF Format ~= Nformat THEN Format = Nformat
  63.     END
  64.   END
  65.  
  66.   IF Format ~= Envformat THEN CALL NewSetenv("TEXFORMAT",Format)
  67.  
  68.   ADDRESS VALUE Port
  69.   'COMPILE' Format Fullname
  70.   ADDRESS VALUE 'GOLDED.1'
  71.   'UNLOCK'
  72.   EXIT 0
  73. END
  74. ELSE DO
  75.   'REQUEST BODY="TeX-Server läuft noch nicht!" BUTTON="_Starten|_Abbrechen" TITLE="'Title'"'
  76.   IF Result ~= 0 THEN DO
  77.     'UNLOCK'
  78.     call 'GOLDED:AREXX/TeX-Server-Start.ged'
  79.     EXIT 0
  80.   END
  81.   ELSE DO
  82.     'UNLOCK'
  83.     EXIT 5
  84.   END
  85. END
  86.  
  87.  
  88.  
  89. NewGetenv: PROCEDURE
  90.   PARSE ARG Name
  91.  
  92.   IF open(TEMPFILE,"ENV:"Name,'r') THEN DO
  93.     Gives = readln(TEMPFILE)
  94.     CALL close TEMPFILE
  95.   END
  96.   ELSE gives = ""
  97.   RETURN gives
  98.  
  99. NewSetenv: PROCEDURE
  100.   PARSE ARG Name,Content
  101.  
  102.   ADDRESS COMMAND "SetEnv" Name Content
  103.   RETURN
  104.