/********************************************************************************/
/* 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 = 'echo >t:tex4 "run tex:c/dvilq -qE -opar: '
TeXy2 = '"'||'0A'X'echo >t:tex5 "endcli"'|| '0A'X || 'join t:tex4 t:tex5 to t:tex6' || '0A'X ||'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