home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / gedscripts-1.1.lha / GEDScripts / PasTeX / TeXedit.rexx < prev   
OS/2 REXX Batch file  |  1994-02-15  |  13KB  |  392 lines
  1. /*RX
  2.  * AREXX        Name:TeXedit.rexx       version:1.41    date:27-Jul-91
  3.  *
  4.  This ARexx script is called from virtex (or initex) in case of an
  5. error or if the 'e' command is used, and it's given the current file
  6. and line number as argument. It may be called from the TeX-server too.
  7. We will successively call CygnusEd (CED) or Micro(GNU)Emacs (MG) and GoldED to
  8. load the file and the logfile. Other editors welcome!
  9.  *
  10. INPUTS:
  11.  1: filename to edit (please no spaces in filename)
  12.  2: line where error occured
  13.  *
  14. BUGS:
  15.  GETCLIP("TEXFILE") gets precedence over any other information for
  16. retrieving the logfile, so if you alternately start virtex directly
  17. from CLI while the server is active, the wrong files may be loaded.
  18.  *
  19.  This file tries to cope with the following version (PasTeX 1.2a)
  20. > This is a PD-Version of Pas-TeX (made Jan 30 1991 [br]/[hes])
  21. > This is TeX, C Version 3.1
  22. (The logfile is sometimes put at the wrong place.)
  23.  >> I have only tried with Version 3.14 (Rene Laederach)
  24.  *
  25.  Does not handle names relative to the local root correctly (like ":foo/bar")
  26.  *
  27.  See each editor relative bugs below.
  28.  *
  29. FILES:
  30.  Rexx:namestruc
  31.  LIBS:rexxsupport.library
  32. AUTHORS:
  33.  *      J\"org H\"ohle, since March 91
  34.  *      Georg Hessmann, previous version
  35.  *      Ren\'e\ Laederach for GoldED part
  36.  */
  37.  
  38. /* call trace('all') */
  39.  
  40. /**
  41. TeXRexx  = "rexx:TeX"          / * where our scripts stay * /
  42. namestruc= TeXRexx||namestruc
  43. **/
  44.  
  45. IF ~SHOW('L','rexxsupport.library') THEN
  46.         IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  47.                 say "Can't open 'rexxsupport.library'!"
  48.                 EXIT 20
  49.                 END
  50.  
  51. /* The TeX server may want to know that we have been called */
  52. CALL SETCLIP("TEXTIME",TIME('s'))
  53.  
  54. PARSE ARG filename number .
  55.  
  56. /*say address()*/
  57. /* if the TeX 'e' command was used to call the editor, don't ask if
  58.         files should be loaded. */
  59. IF address() = 'TeX-Rexx-Port' & "EDIT" ~= UPPER(mygetenv("TEXREXX"))
  60. THEN askload = 0
  61. ELSE askload = 1
  62.  
  63. /**
  64. OPTIONS RESULTS
  65. namestruc filename
  66. IF 0~= RC THEN DO
  67.         say "TeXEdit.rexx: Function "namestruc" not found!"
  68.         EXIT 10
  69.         END
  70. ELSE PARSE VALUE RESULT WITH ivol idirs ibase .
  71. **/
  72. PARSE VALUE namestruc(filename) WITH ivol idirs ibase .
  73.  
  74. /* The idea behind the following statements is to get an absolute path
  75. for <filename>. The result will be stored in <errnfile>. For example, "CD
  76. TeX:bar" "virtex foo" should give <filename>=foo, and
  77. <errnfile>=TeX:bar/foo. This is necessary because the editor doesn't
  78. know where file foo is located, but will be able to load file
  79. TeX:bar/foo. */
  80.  
  81. mainname = GETCLIP("TEXFILE")
  82. if "" == mainname THEN DO
  83.    /* TeX has not been started through some Start_TeX.#? script. */
  84.    /* We have a hard time finding the right directories */
  85.  
  86.    texdir = pragma('d')
  87.  
  88.    /* Amiga OS dirnames should end with either : or /
  89.         thus you need just append the filename */
  90.    IF RIGHT(texdir,1)~=':' & RIGHT(texdir,1)~='/' THEN texdir = texdir||'/'
  91.  
  92.    IF 0 = ivol THEN DO
  93.         errnfile = texdir||SUBSTR(filename, 1+ivol)
  94.         /* The logfile is in the current dir */
  95.         logfile = texdir||SUBSTR(filename, 1+ivol+idirs, ibase)||".log"
  96.         END
  97.    ELSE DO
  98.         errnfile=filename
  99.         IF 0 = idirs THEN
  100. /* This is a bug in virtex from PasTeX12a (made Jan 30 1991 [br]/[hes])
  101.         The logfile is *not* in virtex's directory, but rather in the
  102. source's directory if a device name, but no subsequent directory was
  103. given. I.e, virtex (CD in RAM) TeX:sample would put the errorfile in
  104. TeX: and not in RAM: as it should be. */
  105.            logfile = LEFT(filename, ivol+idirs+ibase)||".log"
  106.         ELSE logfile = texdir||SUBSTR(filename, 1+ivol+idirs, ibase)||".log"
  107.         END
  108.    DROP texdir
  109.    END
  110.  
  111. ELSE DO /* TeX was started through Start_TeX.#? scripts */
  112.         /* "TEXFILE" tells us CD and the main file */
  113. /**
  114.    namestruc mainname
  115.    PARSE VALUE RESULT WITH mvol mdirs mbase .
  116. **/
  117.    PARSE VALUE namestruc(mainname) WITH mvol mdirs mbase .
  118.  
  119.    IF 0 ~= ivol THEN errnfile = filename
  120.    ELSE errnfile = LEFT(mainname, mvol+mdirs)||SUBSTR(filename, 1+ivol)
  121.    logfile = LEFT(mainname, mvol+mdirs+mbase)||".log"
  122.    DROP mvol mdirs mbase
  123.    END
  124.  
  125.  
  126. /* 0 = ibase would mean that the call was incorrect, for example when
  127.    TEXREXXEDIT says "TeXedit.rexx" and not "TeXedit.rexx %s %d" */
  128. IF 0 = ibase | ~EXISTS(errnfile) THEN DO
  129.         say "TeXedit.rexx: Can't find erroneous file."
  130.         EXIT 10
  131.         END
  132. ELSE IF ~EXISTS(logfile) THEN DO
  133.         say "TeXedit.rexx: Can't find log file."
  134.         logfile = ""
  135.         /* but we continue */
  136.         END
  137.  
  138. DROP ivol idirs ibase
  139.  
  140. /********************************************************/
  141. /*      Here starts each editor specific parts          */
  142.  
  143. /************************/
  144. /*      Cygnus Ed       */
  145. IF SHOW('P', 'rexx_ced') THEN DO
  146.  
  147. ADDRESS "rexx_ced"
  148. OPTIONS RESULTS
  149.  
  150. cedtofront
  151.  
  152. /* testen ob die Files nicht schon geladen sind. (hes) */
  153.  
  154. /* the following should not be commented out, as this macro is called
  155. asynchronously, and it would be very bad for the user to have it's
  156. input mixed with the newly loaded files. Popping up a requester
  157. ensures that the user does not type in something and waits for the
  158. files to be loaded. This is the method I use for synchronization (JCH) */
  159.  
  160. IF askload THEN DO
  161.         okay2 'TeX found an error in 'errnfile'. Load files ?'
  162.         IF 1 ~= RESULT THEN EXIT 0
  163.         END
  164.  
  165. /* TODO: We should really delete old logfiles automatically, without letting
  166.         CED open a requester to ask if an old modified file may be
  167.         overwritten or not */
  168.  
  169. IF "" ~= logfile THEN DO
  170.         'jump to file "'logfile'"'
  171.         IF 0 ~= RESULT THEN Quit /* always assume the logfile currently
  172.                 loaded is old, because TeX generated a new one. */
  173.         Open new
  174.         /*expand view*/
  175.         open '"'logfile'"'
  176.         editable file   /* now it's non-editable */
  177.         beg of file
  178.         /* if we don't have the line number: search the number in the logfile (hes) */
  179.         /* bringt das wirklich etwas ? Der erste Fehler steht
  180.                 sowieso gegen Anfang der Logdatei */
  181.         IF 0 ~= number THEN 'Search for...' "l."||number
  182.         ELSE DO
  183.           'Search for...' "l." /* ^M bringt nichts, und dann Steuercodes hier...*/
  184.           'Right'
  185.           'Status 55'           /* take the current line from CED */
  186.           PARSE VAR RESULT "l."number .
  187.         END
  188.         /* changed from Search "! " (hes) */
  189.         END
  190. ELSE    okay1 "Couldn''t find logfile associated with TeX error!"
  191.  
  192. /* the following line should really read "jump to file errnfile" and
  193. not filename, because I have done extra work to get the right
  194. directory. But this information is only in errnfile, which contains an
  195. absolute pathname, and not in filename, which is the parameter
  196. supplied by virtex or initex, usually a relative pathname. CED's
  197. current directory is not necessarily virtex'es one. It also seems that
  198. CED is not smart enough as to make the difference between
  199. foo:tgmoae/myfile and bar:tgmoab/myfile. If I say jump to file
  200. foo:tgmoae/myfile it may as well jump to bar:tgmoab/myfile, whichever
  201. window comes first. */
  202.  
  203. 'jump to file "'errnfile'"'
  204. IF 0 = RESULT THEN DO
  205.         open new
  206.         open '"'errnfile'"'
  207.         END
  208.  
  209. /*expand view*/
  210.  
  211. /* TODO: another editor may have modified the disk file, or the user
  212. the currently loaded file, while virtex compiled an old version. How
  213. can I get rid of that stupid filerequester in that case? I said "open
  214. errnfile", so why does CED pop up a filerequester (and may put the
  215. user in the wrong directory too) ? */
  216.  
  217. IF 0~= number THEN jumpto number
  218. beg of line
  219.  
  220. EXIT 0
  221. END     /* End of CED part */
  222.  
  223.  
  224. /****************************************************************/
  225. /*      Micro(Gnu)Emacs (MG), to be found on AmigaLibDisk352    */
  226. IF SHOW('P','mg') THEN DO
  227.  
  228. ADDRESS 'mg'
  229. OPTIONS RESULTS
  230.  
  231. /* The following waits until MG is deiconified */
  232. 'amiga-window-to-top'   /* should activate window ? */
  233.  
  234. /* we need to prevent the user from continuing to type and thus
  235. modifying the newly created buffers. I choose the rexx-lock/unlock
  236. method to synchronise with the user because MG3b4 has some cursor
  237. position/display b