home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
e
/
epmtex12.zip
/
GTEX.E
< prev
next >
Wrap
Text File
|
1993-02-19
|
23KB
|
626 lines
/*
╔════════════════════════════════════════════════════════════════════════════╗
║ What's it called: EPMTeX V1.2c (German Version) ║
║ ║
║ What does it do: The E source code for the EPMTeX enhancements V1.2c ║
║ for EPM. ║ ║
║ ║
║ Who and When: Jon Hacker 2/93 ║
║ Joachim Koenen 2/93 (syntax assist) ║
║ Thorsten Domsalla 2/93 (menus, batch files) ║
║ ║
╚════════════════════════════════════════════════════════════════════════════╝
*/
/*
------------------------------------------------------------------------------------
NOTE: For reasons of speed, I do not load the command processor in spawned
shells by specifying the /n option in the start command. This means that
batch files will not run ( ie. TEX_EXEC=d:\mytex\texit.cmd ) since there
is no interpreter!
If you want to specify a batch file as the executable in a *.EXEC
variable, then change the corresponding *_IS_CMD variable to 1.
ie. TEX_EXEC = 'd:\texit.cmd'
TEX_IS_CMD = 1
Do not use the ^&plain or ^&lplain argument in the start command when
using batch files as the arguments will not make it through to the
command.
ie. if you specify TEX_EXEC = 'd:\texit.cmd ^&lplain' then texit.cmd
will not receive any arguments. But, TEX_EXEC = 'd:\texit.cmd' works
fine!
I have no explanation for this weirdness! Ask someone smarter.
If you want to run a previewer that is not a PM application, add the
switch /win or /fs as appropriate in the start commands in the command
procedure 'texvw'.
------------------------------------------------------------------------------------
*/
const
/* put your TeX executable path, filename and args here */
TEX_EXEC = 'd:\emtex\bin\tex386.exe ^&plain'
TEX_IS_CMD = 0
/* put your LaTeX executable path, filename and args here */
LATEX_EXEC = 'd:\emtex\bin\tex386.exe ^&lplain'
LATEX_IS_CMD = 0
/* put your Previewer (portrait mode) executable path, filename and args here */
TEX_VIEW_EXEC = 'd:\emtex\dviscr\dvipm7.exe @d:\emtex\dviscr\dvipm.cnf'
TEX_VIEW_IS_CMD = 0
/* put your Previewer (landscape mode) executable path, filename and args here */
TEX_VIEWLA_EXEC = 'd:\emtex\dviscr\dvipm7.exe @d:\emtex\dviscr\dvipm.cnf /tr1'
TEX_VIEWLA_IS_CMD = 0
/* put your DVI Printer Driver (portrait mode) executable path, filename and args here */
TEX_PRINT_EXEC = 'd:\emtex\dvidrv\dvihplj7.exe @d:\emtex\dvidrv\lj.cnf'
TEX_PRINT_IS_CMD = 0
/* put your DVI Printer Driver (landscape mode) executable path, filename and args here */
TEX_PRINTLA_EXEC = 'd:\emtex\dvidrv\dvihplj7.exe @d:\emtex\dvidrv\lj.cnf /tr1'
TEX_PRINTLA_IS_CMD = 0
/* OPTIONAL:
You can define a special mode (German, AMS, Bibtex, ?) that will appear on
the TeX menu. To do this, replace TEX_USER_MENU_TEXT with the label text
you want to have appear on the menu and edit the *_USER_EXEC variables
accordingly.
Defining TEX_USER_MENU_TEXT = '' disables this feature.
*/
TEX_USER_MENU_TEXT = '~German Mode'
-- Tex mode 'user' executables
TEX_USER_EXEC = 'd:\emtex\bin\tex386.exe ^&plaing'
TEX_USER_IS_CMD = 0
-- Latex mode 'user' executables
LATEX_USER_EXEC = 'd:\emtex\bin\tex386.exe ^&lplaing'
LATEX_USER_IS_CMD = 0
--------------------------------------------------------------------------------------
-- startup default conditions
compile if not defined(TEX_SYNTAX_ASSIST)
const TEX_SYNTAX_ASSIST = 1 -- default is to not include TeX syntax expansion
compile endif
compile if not defined(TEX_MARGINS)
const TEX_MARGINS = '1 80 1' -- default margins for TeX syntax assist
compile endif
compile if not defined(TEX_TABS)
const TEX_TABS = 8 -- default tabs for TeX syntax assist
compile endif
compile if not defined(TEX_WANT_ACCELERATOR_KEYS)
const TEX_WANT_ACCELERATOR_KEYS = 0 -- default is not to add TeX keyboard accelerators
compile endif -- if TeX syntax assist is enabled.
compile if not defined(TEX_LATEX_MODE)
const TEX_LATEX_MODE = 0 -- default is to turn off latex mode at startup
compile endif
compile if not defined(TEX_USER_MODE)
const TEX_USER_MODE = 0 -- default is to turn off user mode at startup
compile endif
compile if not defined(TEX_LANDSCAPE_MODE)
const TEX_LANDSCAPE_MODE = 0 -- default is portrait mode at startup
compile endif
compile if not defined(TEX_AUTO_DELETE_LOG)
const TEX_AUTO_DELETE_LOG = 1 -- default is to turn on log file auto-delete
compile endif -- at startup
compile if not defined(TEX_AUTO_SAVE_DOC)
const TEX_AUTO_SAVE_DOC = 1 -- default is to turn on smart save before TeX
compile endif -- at startup
compile if not defined(TEX_DEBUG_MODE)
const TEX_DEBUG_MODE = 0 -- default is to turn off verbose mode for debugging TeX
compile endif -- at startup
--------------------------------------------------------------------------------------
definit
universal tex_submenu_on
universal tex_latex
universal tex_user
universal tex_landscape
universal tex_auto_log
universal tex_auto_save
universal tex_syntax
universal tex_debug
tex_submenu_on=0
tex_latex=TEX_LATEX_MODE
tex_user=TEX_USER_MODE
tex_landscape=TEX_LANDSCAPE_MODE
tex_auto_log=TEX_AUTO_DELETE_LOG
tex_auto_save=TEX_AUTO_SAVE_DOC
tex_syntax=TEX_SYNTAX_ASSIST
tex_debug=TEX_DEBUG_MODE
--------------------------------------------------------------------------------------
-- TeX syntax assist
-- Only include syntax assist if ALTERNATE_KEYSETS flag is on
compile if ALTERNATE_KEYSETS
compile if TEX_SYNTAX_ASSIST
include 'texkeys.e'
compile endif
compile endif
--------------------------------------------------------------------------------
------
-- English language support for TeX menu help
const
TEX_BARP__MSG = \1'Menus related to TeX support'
TEX_TEXP__MSG = \1'TeX the current file'
TEX_VIEWP__MSG = \1'Preview the current associated DVI file'
TEX_PRP__MSG = \1'Print the current associated DVI output file'
TEX_DLOGP__MSG = \1'Delete the current associated LOG file'
TEX_DDVIP__MSG = \1'Delete the current associated DVI file'
TEX_LATEXP__MSG = \1'LaTeX mode'
TEX_USERP__MSG = \1'Toggle German mode on/off'
TEX_LANDSCAPEP__MSG = \1'Preview and print in landscape orientation'
TEX_ADLOGP__MSG = \1'Automatic delete of the associated LOG file after View or Print'
TEX_ASAVEP__MSG = \1'Automatic smart save of TeX file before TeXing document.'
TEX_SYNTAXP__MSG = \1'Global syntax expansion mode (expand_on)'
TEX_DEBUGP__MSG = \1'Verbose mode for troubleshooting TeX commands.'
TEX_C2TEMP__MSG = \1'Copy filename.dvi to temp.dvi.'
TEX_VIEWPTEMP__MSG = \1'Preview the temp.DVI file'
/*
┌───────────────────────────────────────────────────────────────────────────────┐
│ Define TeX menu system │
└───────────────────────────────────────────────────────────────────────────────┘
*/
defselect
universal defaultmenu, tex_submenu_on, tex_auto_log
ext = filetype()
compile if defined(MY_TEX_FILE_TYPE)
if substr(ext,1,3)='TEX' or ext='STY' or ext='BBL' or ext=MY_TEX_FILE_TYPE then
compile else
if substr(ext,1,3)='TEX' or ext='STY' or ext='BBL' then
compile endif
if not tex_submenu_on then
buildsubmenu defaultmenu, 9, '~TeX', TEX_BARP__MSG, 0,0
buildmenuitem defaultmenu, 9, 901, '~TeX Document', 'tex'TEX_TEXP__MSG, 0,0
buildmenuitem defaultmenu, 9, 902, \0, '', 4, 0
buildmenuitem defaultmenu, 9, 903, 'Pre~View Document','texvw'TEX_VIEWP__MSG, 0,0
buildmenuitem defaultmenu, 9, 904, '~Print Document', 'texpr'TEX_PRP__MSG, 0,0
buildmenuitem defaultmenu, 9, 905, \0, '', 4, 0
buildmenuitem defaultmenu, 9, 906, 'Delete LO~G File','tex_del_log'TEX_DLOGP__MSG, 0,0
buildmenuitem defaultmenu, 9, 907, 'Delete ~DVI File','tex_del_dvi'TEX_DDVIP__MSG, 0,0
buildmenuitem defaultmenu, 9, 908, \0, '', 4, 0
buildmenuitem defaultmenu, 9, 909, '~LaTeX Mode','toggle_latex'TEX_LATEXP__MSG, 0,0
compile if TEX_USER_MENU_TEXT <> ''
buildmenuitem defaultmenu, 9, 910, TEX_USER_MENU_TEXT,'toggle_user'TEX_USERP__MSG, 0,0
compile endif
buildmenuitem defaultmenu, 9, 911, 'La~ndscape Mode','toggle_landscape'TEX_LANDSCAPEP__MSG, 0,0
buildmenuitem defaultmenu, 9, 912, '~Auto LOG Delete','toggle_auto_log'TEX_ADLOGP__MSG, 0,0
buildmenuitem defaultmenu, 9, 913, 'Auto ~Save','toggle_auto_save'TEX_ASAVEP__MSG, 0,0
compile if TEX_SYNTAX_ASSIST
buildmenuitem defaultmenu, 9, 914, 'Synta~x Expansion','toggle_tex_expand'TEX_SYNTAXP__MSG, 0,0
compile endif
buildmenuitem defaultmenu, 9, 915, 'De~bug mode','toggle_debug'TEX_DEBUGP__MSG, 0,0
buildmenuitem defaultmenu, 9, 916, '~Copy to temp.dvi','c2temp'TEX_C2TEMP__MSG, 0,0
buildmenuitem defaultmenu, 9, 917, 'PreView temp.dvi','texvwtemp'TEX_VIEWPTEMP__MSG, 0,0
tex_submenu_on = 1
endif
else
if tex_submenu_on then
deletemenu defaultmenu, 9, 0, 0 -- remove TeX submenu if not a TeX file
tex_submenu_on = 0
endif
endif
showmenu defaultmenu
/*
┌───────────────────────────────────────────────────────────────────────────────┐
│ Command definitions │
└───────────────────────────────────────────────────────────────────────────────┘
*/
-- Create a OS/2 window & execute TeX in it.
defc tex =
universal tex_latex, tex_user, tex_auto_save, tex_debug
if .modify then -- Modified since last Save?
if tex_auto_save then -- Want auto smart save feature?
'Save' -- Yes - save it before TeXing document
sayerror 'Saving modified document before calling TeX!'
else -- No - warn user!
sayerror 'TeXing stale document file... auto_save disabled!'
endif
endif
n=lastpos('\',.filename)+1
pathname=delstr(.filename,n-1)
unixfilename = translate(.filename, '/', '\')
call directory(pathname)
compile if TEX_USER_MENU_TEXT = ''
if not tex_latex then
command=TEX_EXEC ' ' unixfilename
isCMD = TEX_IS_CMD
else
command=LATEX_EXEC ' ' unixfilename
isCMD = LATEX_IS_CMD
endif
compile else
if not tex_latex and not tex_user then
command=TEX_EXEC ' ' unixfilename
isCMD = TEX_IS_CMD
else if tex_latex and not tex_user then
command=LATEX_EXEC ' ' unixfilename
isCMD = LATEX_IS_CMD
else if not tex_latex and tex_user then
command=TEX_USER_EXEC ' ' unixfilename
isCMD = TEX_USER_IS_CMD
else if tex_latex and tex_user then
command=LATEX_USER_EXEC ' ' unixfilename
isCMD = LATEX_USER_IS_CMD
endif
endif
endif
endif
compile endif
if tex_debug then
sayerror command
endif
if isCMD then -- command is a batch file, use command processor
'start /c /win 'command
else
'start /n /win 'command
endif
if rc <> 0 then
sayerror"Caution! Could not start TeX. Exited with return code = "rc
endif
-------------------------------------------------------------------------------
-- View current TeX file in previewer.
defc texvw =
universal tex_landscape, tex_auto_log, tex_debug
if tex_auto_log then
call tex_delete_log_file()
endif
n=lastpos('\',.filename)+1;
filename=substr(.filename,n);
pathname=delstr(.filename,n-1);
n=lastpos('.',filename)+1;
stem=delstr(filename,n-1);
if tex_landscape then
command= TEX_VIEWLA_EXEC' 'pathname'\'stem'.dvi'
isCMD = TEX_VIEWLA_IS_CMD
else
command= TEX_VIEW_EXEC' 'pathname'\'stem'.dvi'
isCMD = TEX_VIEW_IS_CMD
endif
if tex_debug then
sayerror command
endif
----------
-- NOTE: add /fs or /win if previewer is not a PM app
if isCMD then -- command is a batch file, use command processor
'start /c 'command
else
'start /n 'command
endif
----------
if rc <> 0 then
sayerror"Caution! Could not start Previewer. Exited with return code = "rc
endif
-------------------------------------------------------------------------------
-- Create a OS/2 window & execute TeX printer driver.
defc texpr =
universal tex_landscape, tex_auto_log, tex_debug
if tex_auto_log then
call tex_delete_log_file()
endif
n=lastpos('\',.filename)+1;
filename=substr(.filename,n);
pathname=delstr(.filename,n-1);
n=lastpos('.',filename)+1;
stem=delstr(filename,n-1);
if tex_landscape then
command= TEX_PRINTLA_EXEC' 'pathname'\'stem'.dvi'
isCMD = TEX_PRINTLA_IS_CMD
else
command= TEX_PRINT_EXEC' 'pathname'\'stem'.dvi'
isCMD = TEX_PRINT_IS_CMD
endif
if tex_debug then
sayerror command
endif
if isCMD then -- command is a batch file, use command processor
'start /c /win 'command
else
'start /n /win 'command
endif
if rc <> 0 then
sayerror"Caution! Could not start Printer driver. Exited with return code = "rc
endif
-------------------------------------------------------------------------------
-- Delete current TeX LOG file.
defc tex_del_log = call tex_delete_log_file()
-------------------------------------------------------------------------------
-- Delete current TeX DVI file.
defc tex_del_dvi = call tex_delete_dvi_file()
-------------------------------------------------------------------------------
-- Toggle LaTeX mode flag.
defc toggle_latex =
universal tex_latex
universal tex_debug
tex_latex = not tex_latex
if tex_debug then
sayerror 'tex_latex = 'tex_latex
endif
-------------------------------------------------------------------------------
-- Toggle user mode flag.
compile if TEX_USER_MENU_TEXT <> ''
defc toggle_user =
universal tex_user, tex_debug
tex_user = not tex_user
if tex_debug then
sayerror 'tex_user = 'tex_user
endif
compile endif
-------------------------------------------------------------------------------
-- Toggle Landscape mode flag.
defc toggle_landscape =
universal tex_landscape
universal tex_debug
tex_landscape = not tex_landscape
if tex_debug then
sayerror 'tex_landscape = 'tex_landscape
endif
-------------------------------------------------------------------------------
-- Toggle Auto-Delete current TeX LOG file after View or Print flag.
defc toggle_auto_log =
universal tex_auto_log
universal tex_debug
tex_auto_log = not tex_auto_log
if tex_debug then
sayerror 'tex_auto_log = 'tex_auto_log
endif
-------------------------------------------------------------------------------
-- Toggle Auto smart-save current TeX file before TeXing document .
defc toggle_auto_save =
universal tex_auto_save
universal tex_debug
tex_auto_save = not tex_auto_save
if tex_debug then
sayerror 'tex_auto_save = 'tex_auto_save
endif
-------------------------------------------------------------------------------
-- Toggle EPM syntax expansion flag.
compile if TEX_SYNTAX_ASSIST
defc toggle_tex_expand =
universal expand_on, tex_debug
if expand_on then
'expand 'OFF__MSG
else
'expand 'ON__MSG
endif
if tex_debug then
sayerror 'expand_on = 'expand_on
endif
compile endif
-------------------------------------------------------------------------------
-- Toggle debug mode for troubleshooting TeX commands.
defc toggle_debug =
universal tex_debug
tex_debug = not tex_debug
if tex_debug then
sayerror 'tex_debug = 'tex_debug
endif
-------------------------------------------------------------------------------
-- View temp.dvi file in previewer (this is for DVIPM 1.4s 'reload' command)
defc texvwtemp =
universal tex_landscape, tex_auto_log, tex_debug
if tex_auto_log then
call tex_delete_log_file()
endif
n=lastpos('\',.filename)+1;
pathname=delstr(.filename,n-1);
if tex_landscape then
command= TEX_VIEWLA_EXEC' 'pathname'\temp.dvi'
isCMD = TEX_VIEWLA_IS_CMD
else
command= TEX_VIEW_EXEC' 'pathname'\temp.dvi'
isCMD = TEX_VIEW_IS_CMD
endif
if tex_debug then
sayerror command
endif
----------
-- NOTE: add /fs or /win if previewer is not a PM app
if isCMD then -- command is a batch file, use command processor
'start /c 'command
else
'start /n 'command
endif
----------
if rc <> 0 then
sayerror"Caution! Could not start Previewer. Exited with return code = "rc
endif
-------------------------------------------------------------------------------
-- Copy current DVI file to temp.dvi
defc c2temp =
universal tex_debug
n=lastpos('\',.filename)+1;
filename=substr(.filename,n);
pathname=delstr(.filename,n-1);
n=lastpos('.',filename)+1;
stem=delstr(filename,n-1);
command= 'copy 'pathname'\'stem'.dvi 'pathname'\temp.dvi > nul'
if tex_debug then
sayerror command
endif
'detach ' command
if rc > 0 then
sayerror"Caution! c2temp exited with return code = "rc
endif
/*
┌───────────────────────────────────────────────────────────────────────────────┐
│ Procedure definitions │
└───────────────────────────────────────────────────────────────────────────────┘
*/
-- Delete current TeX LOG file.
defproc tex_delete_log_file
n=lastpos('\',.filename)+1;
filename=substr(.filename,n);
pathname=delstr(.filename,n-1);
n=lastpos('.',filename)+1;
stem=delstr(filename,n-1);
rc = erasetemp(pathname'\'stem'.log')
if rc = 0 then
sayerror 'File 'stem'.LOG deleted'
elseif rc = 2 then
sayerror 'Delete LOG: file 'stem'.LOG could not be found'
else
sayerror 'Delete LOG: file 'stem'.LOG could not be deleted'
beep(1000, 100)
endif
-------------------------------------------------------------------------------
-- Delete current TeX DVI file.
defproc tex_delete_dvi_file
n=lastpos('\',.filename)+1;
filename=substr(.filename,n);
pathname=delstr(.filename,n-1);
n=lastpos('.',filename)+1;
stem=delstr(filename,n-1);
rc = erasetemp(pathname'\'stem'.dvi')
if rc = 0 then
sayerror 'File 'stem'.DVI deleted'
elseif rc = 2 then
sayerror 'Delete DVI: file 'stem'.DVI could not be found'
else
sayerror 'Delete DVI: file 'stem'.DVI could not be deleted'
beep(1000, 100)
endif
-------------------------------------------------------------------------------
-- called in mymnuini.e to get state of global TeX variable tex_latex
defproc get_tex_latex =
universal tex_latex
return tex_latex
-------------------------------------------------------------------------------
-- called in mymnuini.e to get info on user menu options
-- arg = 0 -> query tex_user_defined flag
-- 1 -> query tex_user flag
defproc get_tex_user =
compile if TEX_USER_MENU_TEXT = ''
return 0 -- respond with user menu option undefined
compile else
universal tex_user
if arg(1) = 0 then -- respond with user menu option defined
return 1
else
return tex_user -- query tex_user flag
endif
compile endif
-------------------------------------------------------------------------------
-- called in mymnuini.e to get state of global TeX variable tex_landscape
defproc get_tex_landscape =
universal tex_landscape
return tex_landscape
-------------------------------------------------------------------------------
-- called in mymnuini.e to get state of global TeX variable tex_auto_log
defproc get_tex_auto_log =
universal tex_auto_log
return tex_auto_log
-------------------------------------------------------------------------------
-- called in mymnuini.e to get state of global TeX variable tex_auto_save
defproc get_tex_auto_save =
universal tex_auto_save
return tex_auto_save
-------------------------------------------------------------------------------
-- called in mymnuini.e to get info on syntax menu options
-- arg = 0 -> query tex_syntax flag
-- 1 -> query expand_on flag
defproc get_tex_syntax =
universal tex_syntax, expand_on
if arg(1) = 0 then -- query tex_syntax
return tex_syntax
else
return expand_on -- query expand_on
endif
-------------------------------------------------------------------------------
-- called in mymnuini.e to get state of global EPM variable expand_on
defproc get_tex_expand_on =
universal expand_on
return expand_on
-------------------------------------------------------------------------------
-- called in mymnuini.e to get state of global TeX variable tex_debug
defproc get_tex_debug =
universal tex_debug
return tex_debug
-------------------------------------------------------------------------------