home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
disks
/
disk458.lzh
/
TeXify
/
TeXPrint.ced
< prev
Wrap
Text File
|
1991-02-15
|
2KB
|
61 lines
/********************************************************************************/
/* ARexx program TeXPrint V 1.10 (Oct 90) */
/* */
/* This ARexx program prints the .dvi file of */
/* your activ text in CEDPro. There has to be */
/* a .dvi file in the same directory of your */
/* Copyright 1990 TeX source. For generating the .dvi file */
/* by Wolf-Juergen Faust see the additional readme and ARexx files */
/* Am Dorfgarten 10 which you MUST get with this program. For a */
/* W-6000 Frankfurt 50 new TeXify version call FIDO +(49) 6173 2544 */
/* Germany (HST DS) or contact me... */
/* FIDO: 2:243/43.5 (Wolf Faust) */
/* UUCP: cbmvax.commodore.com!cbmehq!cbmger!venus!wfaust */
/* Tel: +(49) 69 5486556 */
/* */
/* YOU MUST ADOPT THE FIRST TWO COMMANDS TO YOUR ENVIRONMENT !!!!!!!!!!!! */
/* ====================================================================== */
/* (See the readme and ARexx files you MUST get with this file!) */
/* */
/* Versions needed: */
/* ARexx >= V 1.10 (tested: 1.10, 1.12, 1.14) */
/* CEDPro>= V 2.00 (tested: 2.10, 2.11, 2.12) */
/********************************************************************************/
/* You MUST adopt the following two commands to your environment: */
TeXy = 'c:echo >t:tex4 "c:run tex:c/dvilq -qE -opar: '
TeXy2 = '"'||'0A'X'c:echo >t:tex5 "c:endcli"'|| '0A'X || 'c:join t:tex4 t:tex5 to t:tex6' || '0A'X ||'c:newshell CON:0/11/640/100/Press_CTRL-C_to_close from t:tex6'
/*** START ***/
/*** I need answers from CygnusEd ***/
options results
/*** Hey Ced ! I have to talk with you ! ***/
address 'rexx_ced'
/*** path and activ filename, tough: maybe part of path is missing !!! ***/
status 19
fullsrc = result
last = lastpos(':',fullsrc)
/*** current dir maybe needed for joining with incomplete path ***/
status 75
if last = 0 then fullsrc = result||fullsrc
/*** cut suffix ***/
fullsrc = left(fullsrc,lastpos('.',fullsrc)-1)
/*** is there a .dvi file ? ***/
if ~exists(fullsrc||".dvi") then do
okay1 "There is no .dvi file: " '0A'X || fullsrc ||".dvi" '0A'X ||"Use TeXify to generate a .dvi file !"
exit
end
/* now lets start the command given by the user and bring back the CED screen */
address command texy||fullsrc||texy2