|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T t
Length: 1497 (0x5d9)
Types: TextFile
Names: »txfile.c«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
└─⟦c319c2751⟧ »unix3.0/TeX3.0.tar.Z«
└─⟦036c765ac⟧
└─⟦this⟧ »TeX3.0/TeXgraphics/transfig/transfig/txfile.c«
#include <stdio.h>
#include "transfig.h"
/*
* create appropriate .tex file
*/
texfile(tx, arg_list)
FILE *tx;
argument *arg_list;
{
enum language to;
argument *a, *arg_l;
for (a = arglist; a; a = a->next) {
to = a->tolang;
/* see if we already have this language */
for (arg_l = arglist; arg_l != a; arg_l = arg_l->next)
if ( arg_l->tolang == to ) break;
if ( arg_l == a )
switch (to)
{
case pictex:
fprintf(tx, "\\typeout{TransFig: figures in PiCTeX.}\n");
fprintf(tx, "\\input{prepictex}\n");
fprintf(tx, "\\input{pictex}\n");
fprintf(tx, "\\input{postpictex}\n");
break;
case postscript:
fprintf(tx, "\\typeout{TransFig: figures in PostScript.}\n");
break;
case psfig:
fprintf(tx, "\\typeout{TransFig: figures in PostScript w/psfig.}\n");
fprintf(tx, "\\input{psfig}\n");
break;
case latex:
fprintf(tx, "\\typeout{TransFig: figures in LaTeX.}\n");
break;
case eepicemu:
to = eepicemu;
case eepic:
#ifdef eemulation
to = eepicemu;
#endif
case epic:
fprintf(tx, "\\typeout{TransFig: figures in %s.}\n", lname[(int)to]);
if (to == eepicemu || to == eepic)
fprintf(tx, "\\input{epic.sty}");
fprintf(tx, "\\input{%s.sty}\n", lname[(int)to]);
break;
case tpic:
fprintf(tx, "\\typeout{TransFig: figures in tpic.}\n");
break;
case box:
fprintf(tx, "\\typeout{TransFig: null figures.}\n");
break;
default:
fprintf(tx, "Unknown graphics language %s\n", lname[(int)to]);
exit(1);
break;
}
}
}