DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T t

⟦e8be55c44⟧ TextFile

    Length: 2090 (0x82a)
    Types: TextFile
    Names: »transfig«

Derivation

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./tex82/TeXgraphics/fig2latex/transfig« 

TextFile

#!/bin/csh -f
#
# Transfig: 	figure translation setup program
#		creates TeX macro file transfig.tex
#			makefile transfig.make
#
# usage: transfig [<to> [<figure> ...]]
#

#
# file names
#
set TX = transfig.tex
set MK = Makefile

#
# parse args
#
if ($#argv > 0) then
	set TO = $1
	shift
else
	set TO = pictex
endif

if ($#argv > 0) then
	set FIGS = ($argv)
	shift
else
	set FIGS = '*.fig'
endif

#
# create appropriate header file
#
rm -f $TX

switch ($TO)
case pictex:
	cat >>$TX <<Epictex
%
% transfig.tex: macro file for PiCTeX code generated by fig2tex
%
\typeout{TransFig: figures in PiCTeX.}

% load PiCTeX macros
% comment out the following lines if PiCTeX is preloaded
\input{prepictex}
\input{pictex}
\input{postpictex}

% load fig2tex control macros
\input{fig2tex}
Epictex
	breaksw

case postscript:
case ps:
	echo '\typeout{TransFig: figures in PostScript.}'	>$TX
	breaksw

case latex:
	echo '\typeout{TransFig: figures in LaTeX.}'		>$TX
	breaksw

default:
	echo "unknown graphics language $1"
	exit(1)
	breaksw

endsw

#
# create an appropriate makefile
#

echo "# "								>$MK
echo "# Transfig.make: makefile for figure translation into $TO" 	>>$MK
echo "# "								>>$MK
echo "# figures: $argv"							>>$MK
echo " "								>>$MK
echo "all: tex-list"							>>$MK
echo " "								>>$MK

set j = 
set p = 
foreach i ($FIGS)

	# remove suffix
	set i = `basename $i .fig`
	set j = ($j $i.tex)

	switch ($TO)

	case pictex:
		echo "${i}.tex: ${i}.fig"		>>$MK
		echo "	fig2tex ${i}.fig ${i}.tex"	>>$MK
		breaksw

	case postscript:
		echo "${i}.tex: ${i}.ps"		>>$MK
		echo "	fig2ps2tex ${i}.ps >${i}.tex"	>>$MK
		echo " "				>>$MK
		echo "${i}.ps: ${i}.fig"		>>$MK
		echo "	fig2ps ${i}.fig >${i}.ps"	>>$MK

		set p = (${p} ${i}.ps)
		breaksw

	case latex:
		echo "${i}.tex: ${i}.fig"		>>$MK
		echo "	fig2latex ${i}.fig ${i}.tex"	>>$MK
		breaksw
p
	endsw
end

echo " "						>>$MK
echo "tex-list: ${j}"					>>$MK
echo "${j}: Makefile"					>>$MK
echo " "						>>$MK
echo "clean:"						>>$MK
echo "	rm -f ${j}"					>>$MK
if ($TO == postscript) then
	echo "	rm -f ${p}"				>>$MK
endif