home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / FinsGold / TeX / begin.ged (.txt) < prev    next >
Encoding:
LaTeX Document  |  1994-05-03  |  1.7 KB  |  46 lines
  1. /* $VER: begin V 0.61 (02.05.94) Fin Schuppenhauer */
  2. /**   F
  3. gt eine \begin{xyz} ... \end{xyz} Umgebung ein. Das Skript
  4.  **   merkt sich den zuletzt verwendeten Umgebungsnamen in der
  5.  **   Clip-Variablen ENVIRONMENT.
  6.  **   Dem Skript kann der Name der Umgebung als Argument "ubergeben
  7.  **   werden. Wird kein Argument angegeben, wird nach dem Umgebungs-
  8.  **   namen nachgefragt.
  9. OPTIONS RESULTS                             /* enable return codes     */
  10. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  11.     address 'GOLDED.1'
  12. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  15. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  16. 'QUERY CAT'
  17. german = (result = "deutsch")
  18. PARSE ARG ENV
  19. if length(env) > 0 then
  20.    ENVIRONMENT = ENV
  21. else do
  22.    if show('C', 'ENVIRONMENT') then
  23.       OLD = getclip('ENVIRONMENT')
  24.    else
  25.       OLD = "tabular"
  26.    if german then
  27.       'REQUEST TITLE="Umgebung einf
  28. gen" BODY="Umgebung" OLD='OLD' STRING VAR ENVIRONMENT'
  29.    else
  30.       'REQUEST TITLE="Insert environment" BODY="Environment" OLD='OLD' STRING VAR ENVIRONMENT'
  31. if rc = 0 then do
  32.    /*'DOWN'*/
  33.    'INSERT LINE'
  34.    'TEXT STAY T="\begin{'environment'}"'
  35.    'DOWN'
  36.    'INSERT LINE'
  37.    'TEXT STAY T="\end{'environment'}"'
  38.    'INSERT LINE'
  39.    'TAB'
  40.    call setclip('ENVIRONMENT', ENVIRONMENT)
  41. /* ---------------------------- END OF YOUR CODE --------------------- */
  42. 'UNLOCK' /* VERY important: unlock GUI */
  43. SYNTAX:
  44. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  45. 'UNLOCK'
  46.