{@default_thread <c>}
{@@c}{@output_name <tiny_c2l.l>}
{@@i}{@output_name <tiny_i2l.l>}
{@@t}{@output_name <tiny_t2l.l>}
{@include <config.lx>}
@@# C_CMT_NEU 1 NO
@@# LEX_RULES NO
#############################################################
noch probieren: Umbruch bei Pr�prozessor-Strings
mehrzeilige Pr�prozessor-Sachen
#############################################################
{@@@}
{@map1}
\n\{@@+}
{@map1}\\\
{@map1}"\"
{@map1}�\n
{@use_char}
@#1 string txt
{@#.txt+1}
@# name
{@@c}tiny_c2l
{@@i}tiny_i2l
{@@t}tiny_t2l
@# latex_name
{@@c}tiny\_c2l
{@@i}tiny\_i2l
{@@t}tiny\_t2l
@# sc
{@@ci}sc
{@@t}INITIAL
@# sc1
{@@ci}sc1
{@@t}INITIAL
@#2 subst pos1 pos2
fprintf(yyout,"\\{@#.pos1}{@#.pos2}{\\%s ",{@#.pos2}font);{@@+}
substitute_format({@#.pos1}{@#.pos2});
@# blank_sc
{@@c}<INITIAL,CPLUSPLUS,JAVA,PREPROCESSOR,C_CMT,CPP_CMT,FILL_CMT,FILL_CPP_CMT>
{@@i}<INITIAL,CMT,FILL_CMT>
{@@t}{@end@}
{@@-}
{@@}First we have to generate some composite macros. These are currently
not yet supported in the {@calc } command; but they are needed for some
calculations. So they are generated as simple macros using a {@calc }
command with output written to macros.
{@@@}{@calc [\date] "%d-%s-%d" // convert the german date to dd-mmm-yyyy
get_day("\datum"); switch(get_month("\datum")){
case 1: "jan";
case 2: "feb";
3: "Mar";
4: "Apr";
5: "May";
6: "Jun";
7: "JUL";
8: "Aug";
9: "Sep";
10: "Oct";
11: "Nov";
12: "Dec";
default: "";
}; get_year("\datum");}
{@calc [\beta] "%s" \minor_version%2==1 ? " (beta release)" : "";;}
{@calc [\version] "%s" "\major_version.\minor_version.\patch_level\beta"}
/*\v
% write table of contents (only in single file mode):
\ifmfiles\else\pagenumbering{roman}
\tableofcontents\newpage\pagenumbering{arabic}\fi
\centerline{\huge\bf File {@#latex_name}.l}
*/
/*\b
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
<<<<<<<<<<<<<<<<<<<<<<<<<<<<***********************>>>>>>>>>>>>>>>>>>>>>>>>
<* filename : {@#name}.l *>
<* purpose : this is a little lex file as an example for a simple *>
<* : converter using the position macros. Only a few *>
<* : basic conversions are implemented; all fonts etc. are *>
<* : hard-coded. You may use this file as example for use *>
<* : of the position macros or as starting point for an own *>
<* : converter project. *>
<* : *>
<* cvt2ltx : This file is the tiny version of c2ltx; keywords, *>
<* equiv. : strings and comments are recognized. A very simple *>
<* : version of embedded LaTeX is implemented (only append *>
<* : mode and verbatim mode; everything is copied verbatim *>
<* : to the output file in both cases. *>
<* : *>
<* version : \version from \date \version_missing_blanks *>
<* author : Michael Plugge <
[email protected]> *>
<<<<<<<<<<<<<<<<<<<<<<<<<<<<***********************>>>>>>>>>>>>>>>>>>>>>>>>
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
*/
%{
/*\v \section{Declaration Part} */
#define VERSION "{@#version}"
#define VERSION_DATE "\date"
#define TAB2SPC {@#tab2spc}
{@@@}
#define BASE_FONT "basefont"
#define BLOCK_FONT "blockfont"
#define KEYWORD_FONT "keywordfont"
#define STRING_FONT "stringfont"
#define COMMENT_FONT "commentfont"
#define HEADFONT "headfont"
#define FOOTFONT "footfont"
#define LHEAD "{@#lhead}"
#define CHEAD "{@#chead}"
#define RHEAD "{@#rhead}"
#define LFOOT "{@#lfoot}"
#define CFOOT "{@#cfoot}"
#define RFOOT "{@#rfoot}"
#define L2E_STYLE "{@#l2e_style}"
#define L209_STYLE "{@#l209_style}"
#define L2E_STYLE_LINE "{@#l2e_style_line}"
#define L209_STYLE_LINE "{@#l209_style_line}"
{@@ci}
/*\f The following definition controls the behavior of linebreaks
* for comments: after this ASCII position, continuation lines use
* the current indentation */
#define ALIGN_CMT_LIMIT 50
{@@@}
#define LEN(val) if((leng+=val)>70){leng=0; fprintf(yyout,"%%\n ");}
#if VMS
#undef ECHO
#define ECHO yyleng==1 ? fputc(*yytext,yyout) : fprintf(yyout,"%s",yytext)
#endif
#include <string.h>
#include <time.h>
char *ptr,*ptr1,*kern,*inputname,buffer[256],init=1,cmt_mode;
int pos,old_pos,brace_open,tmp,leng,tab2spc=TAB2SPC{@@ci},sc,sc1,
pes_old= -1,cmt_blanks{@@@},skip_cnt,cmt_pos,line=1,show_lines,use_header=1;
long year;
time_t time_val;
struct tm *atime;
char *lhead=LHEAD,*chead=CHEAD,*rhead=RHEAD,*headfont=HEADFONT,
*lfoot=LFOOT,*cfoot=CFOOT,*rfoot=RFOOT,*footfont=FOOTFONT,
*latex_prolog1=
"%%%% This file was generated by {@#name} (version %s, %s){@#string}^�
\ifx\getformat\undefined
\newcount\getformat\getformat0
\else
\mfilestrue\getformat3
\fi
\ifx\documentclass\undefined\advance\getformat1\fi�
\ifcase\getformat
%s
\or
%s
\else\fi %% multiple file input: don't load format�%s^",
*latex_prolog2="{@#string}^{@@c}\gdef\cmt#1#2{\psinit{#1}{\hphantom{/}$\ast$\mblank{#2}}\%s}
\gdef\cmtpp#1#2{\psinit{#1}{//\mblank{#2}}\%s}
\gdef\ccmtend{\setbox\pstartbox=\hbox{\hphantom{/}}}
{@@i}\gdef\cmt#1#2{\psinit{#1}{;\mblank{#2}}\%s}
{@@@}\ifmfiles\else\begin{document}\fi\begin{flushleft}��^",
*month[]={
"January",
"February",
"March",
"April",
"May",
"June",
"July",
"August",
"September",
"October",
"November",
"December"
},
*local_month[]={
"Januar",
"Februar",
"M�rz",
"April",
"Mai",
"Juni",
"Juli",
"August",
"September",
"Oktober",
"November",
"Dezember"
},
*month1[]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"},
*local_month1[]={"Jan","Feb","Mrz","Apr","Mai","Jun","Jul","Aug","Sep","Okt","Nov","Dez"},
*usage_text1=" Usage: {@#name}{@#string}^ [options] [infile [outfile]] [options]
infile and/or outfile may be omitted; in this case stdin/stdout are used.
valid options are:
-hn don't generate header or footer text
-hl<txt> header text: left side (default "^{@#lhead}{@#string}^")
-hc<txt> header text: center (default "^{@#chead}{@#string}^")
-hr<txt> header text: right side (default "^{@#rhead}{@#string}^")
-fl<txt> footer text: left side (default "^{@#lfoot}{@#string}^")
-fc<txt> footer text: center (default "^{@#cfoot}{@#string}^")
-fr<txt> footer text: right side (default "^{@#rfoot}{@#string}^")
possible escape sequences for the -h. and -f. switches are:
%f: input file name %m: month (numeric value)
%p: page number %n: (english) name of month (full form)
%t: time (HH:MM) %s: (english) name of month (short form)
%D: date (DD-MMM-YYYY) %N: (local) name of month (full form)
%h: hour %S: (local) name of month (short form)
%M: minute %y: year
%d: day of month %: the `%' character itself{@@c}
-l[cnt] output line numbers
-+ C++ mode
-j java mode{@@@}
-o outputname (if stdin is used for input)
-t<cnt> number of spaces per tab character (default: ^",
*usage_text2="{@#string}^)
-d debug (debug output is written to ^{@#name}{@#string}^.dbg)
-? show this help screen�^";
void keyword(void);
void skip_msg(void);
{@@ci}void chk_cmt(void);
{@@@}void print_jmpo(int linebegin);
void init_out(int mode);
int die(char *cmd,int mode);
void substitute_format(char *format);
char *subst(int c);
void current_line(void);
%}
{@@c}
/* preprocessor keywords (without the leading #) */
PP_KEY (define[ \t])|(undef[ \t])|(ifn?(def)?[ \t(])|{@@##}
(elif[ \t(])|(else[ \t\n])|(endif[ \t\n])|(error[ \t])|{@@##}
(line[ \t])|(pragma[ \t])|(include[ \t<\"])
{@@@}
SP [ \t]+
SPO [ \t]*
WS [ \t\n]
WSO [ \t\n]*
WSSEMI [ \t\n;]
WSBRSEMI [ \t\n(;]
WSBR [ \t\n(]
WSBR2 [ \t\n)]
WSBC [ \t\n{]
WSS [ \t\n*]
WSSB [ \t\n*)]
WSC [ \t\n:]
OPER [ \t\n+\-*/%|&^~!=<>\[(,]
CA [ \t\n<]
WSB2 [ \t\n\[(]
NEW_DEL [ \t\n\[(<]
%x LINE_BEGIN OMIT
{@@c}
%x STRING C_CMT CPP_CMT FILL_CMT FILL_CPP_CMT
%x EL_CMT1 EL_CMT2 EL_CMT3 PREPROCESSOR
%s JAVA CPLUSPLUS{@@#LEX_RULES+} PATTERN PATTERN_STRING REG_EXPR{@@#LEX_RULES#}
{@@i}
%x STRING STRING1 CMT FILL_CMT EL_CMT1 EL_CMT2 EL_CMT3
{@@@}
%option 8bit noyywrap outfile="{@#name}.c"{@@#DEBUG+} debug{@@#DEBUG#}
%%
/*\v \section{Rules section}\subsection{\LaTeX Prolog} */
if(show_lines)
fprintf(yyout,latex_prolog1,VERSION,VERSION_DATE,L2E_STYLE_LINE,
L209_STYLE_LINE,use_header?"\\pagestyle{fancy}\n":"");
else
fprintf(yyout,latex_prolog1,VERSION,VERSION_DATE,L2E_STYLE,
L209_STYLE,use_header?"\\pagestyle{fancy}\n":"");
{@@&-USE_AFTERPAGE}
fprintf(yyout,"\\plcntmargin{777}\n");
{@@&#USE_AFTERPAGE}
if(use_header){
{@#subst}(l)(head)
{@#subst}(c)(head)
{@#subst}(r)(head)
{@#subst}(l)(foot)
{@#subst}(c)(foot)
{@#subst}(r)(foot)
}
if(!show_lines)
fprintf(yyout,"\\plinenowidth0pt\n");
else
fprintf(yyout,"\\plcntmargin{77}\n");
fprintf(yyout,latex_prolog2{@@ci},COMMENT_FONT,COMMENT_FONT{@@@});
BEGIN(LINE_BEGIN);
/*\v \subsection{Rules for Line Begin} */
<LINE_BEGIN>{
/* special cases: blank lines, Blanks at end of line */
^{SPO}\n {
fprintf(yyout,"\\init0");
current_line();
fprintf(yyout,"\\n{@@ci}\\ped{@@@}\n");
pos=brace_open=0;
line++;
}
{SP}$ /* ignore spaces at end of line */
/* general line begin (we need the \init macro here) */
^" " pos++; fprintf(yyout,"\\init1"); current_line(); fprintf(yyout,"\\njo{-1}{"); brace_open=1; leng=16; BEGIN({@#sc});
^{SP} print_jmpo(1); BEGIN({@#sc});
^[^ \t\n] {
fprintf(yyout,"\\init0"); current_line(); fprintf(yyout,"\\njo0{");
yyless(0);
{@@ci}
pes_old= -1;
{@@@}
brace_open=1;
leng=14;
cmt_pos=1;
BEGIN({@#sc});
}
. yyless(0); cmt_pos=pos+1; BEGIN({@#sc1});
}
/*\v \subsection{Rules for Blanks and Tabs} */
{@#blank_sc}{
" " {
pos++;
if(brace_open)fputc('}',yyout);
{@@ci}
chk_cmt();
{@@@}
fprintf(yyout,"\\njo{%d}{",pos);
brace_open=1;
LEN(10);
}
{SP} print_jmpo(0);
}
{@@c}
{@@#C_CMT_NEU+}
<C_CMT>{
\n{SPO}"*/" {
if(brace_open)fputc('}',yyout);
line++;
pos=leng=brace_open=cmt_mode=0;
fprintf(yyout,"\\n\n\\initc{0}{5}{0}");
current_line();
fprintf(yyout,"\\ccmtend\\%s",BASE_FONT);
leng=30;
init_out(0);
fprintf(yyout,"/}");
brace_open=cmt_mode=0;
LEN(17+strlen(BASE_FONT));
BEGIN(sc1);
}
\n{SPO}\*{SPO} {
if(brace_open)fputc('}',yyout);
line++;
for(ptr=yytext+yyleng-1,cmt_blanks=0;*ptr==' ';ptr--)cmt_blanks++;
pos=cmt_pos+cmt_blanks;
fprintf(yyout,"\\n\n\\initc{0}{5}{%d}",cmt_blanks);
current_line();
leng=brace_open=0;
LEN(25);
}
\n{SPO}\*+\/? {
if(brace_open)fputc('}',yyout);
line++;
LEN(15);
for(ptr=yytext+yyleng-1,cmt_blanks=0;*ptr==' ';ptr--)cmt_blanks++;
pos=cmt_pos;
for(ptr=yytext,tmp=0;*ptr;)if(*ptr++=='*')tmp++;
if(*(yytext+yyleng-1)=='/'){
fprintf(yyout,"\\ccmtend\\%s",BASE_FONT);
BEGIN(sc1);
}
fprintf(yyout,"\\n\n\\initc{0}{5}{0}");
current_line();
if(tmp>4){
LEN(31);
fprintf(yyout,"\\mpout{%d}{%d}{%s}{%s}",cmt_pos,cmt_pos+tmp-2,"$\\ast$","2pt");
if(*(yytext+yyleng-1)=='/')fprintf(yyout,"\\njo0{/}");
}
else{
fprintf(yyout,"\\njo0{\\mast{%d}/}",tmp);
if(*(yytext+yyleng-1)=='/')fputc('/',yyout);
LEN(10+strlen(BASE_FONT)+yyleng);
}
brace_open=0;
}
\n{SPO} {
if(brace_open)fputc('}',yyout);
line++;
leng=brace_open=0;
for(pos=0,ptr=yytext+1;*ptr;ptr++){
if(*ptr=='\t')
pos+=tab2spc-pos%tab2spc;
else
pos++;
}
LEN(20);
fprintf(yyout,"\\n\n\\initc{%d}{0}{0}",pos);
current_line();
}
}
{@@@}
{@@c}<INITIAL,CPLUSPLUS,JAVA,CPP_CMT,FILL_CMT,FILL_CPP_CMT>{@@@}\n {
{@@#C_CMT_NEU-}
{@@c}<INITIAL,CPLUSPLUS,JAVA,PREPROCESSOR,C_CMT,CPP_CMT,FILL_CMT,FILL_CPP_CMT>{@@@}\n {
{@@#C_CMT_NEU#}
if(brace_open)fputc('}',yyout);
line++;
pos=leng=brace_open=0;
fprintf(yyout,"\\n{@@c}\\ped{@@@}\n");
{@@c}
pes_old= -1;
if(YY_START==CPP_CMT || YY_START==FILL_CPP_CMT){
sc=sc1;
fprintf(yyout,"\\%s ",BASE_FONT);
LEN(2+strlen(BASE_FONT));
}
else
sc=YY_START;
{@@@}
BEGIN(LINE_BEGIN);
}
{@@c}<INITIAL,CPLUSPLUS,JAVA,STRING,C_CMT,CPP_CMT,FILL_CMT,FILL_CPP_CMT>{@@@}{
{SP}$ /* ignore spaces at end of line */
/*\v \subsection{Rules for special characters} */
\<{2,9} init_out(0); fprintf(yyout,"\\mlt{%d}",yyleng); LEN(7);
\>{2,9} init_out(0); fprintf(yyout,"\\mgt{%d}",yyleng); LEN(7);
\\{2,} init_out(0); fprintf(yyout,"\\bs{%d}",yyleng); LEN(6);
\*{2,9} init_out(0); fprintf(yyout,"\\mast{%d}",yyleng); LEN(8);
/*\v \subsection{``Leader'' rules} */
\<{10,} |
\>{10,} |
\+{10,} |
\${10,} |
\#{10,} |
\%{10,} |
\~{10,} |
\*{10,} {
switch(*yytext){
case '<': kern="-2pt"; ptr="$<$"; break;
case '>': kern="-2pt"; ptr="$>$"; break;
case '+': kern="0pt"; ptr="+"; break;
case '$': kern="0pt"; ptr="\\$"; break;
case '#': kern="0pt"; ptr="\\#"; break;
case '%': kern="0pt"; ptr="\\%"; break;
case '~': kern="0pt"; ptr="$\\sim$"; break;
case '*': kern="2pt"; ptr="$\\ast$"; break;
default: kern="0pt"; ptr=""; break;
}
if(brace_open)fputc('}',yyout);
fprintf(yyout,"\\mpout{%d}{%d}{%s}{%s}",pos,pos+yyleng-1,ptr,kern);
pos+=yyleng;
brace_open=0;
LEN(strlen(kern)+strlen(ptr)+19);
}
}
{@@c}
{@@#LEX_RULES+}
/*\v \subsection{Rules for LEX mode} */
<PATTERN>{
\\*[["] {
init_out(0);
tmp= *(yytext+yyleng-1);
if(yyleng>1)fprintf(yyout,"\\bs{%d}",yyleng-1);
if(yyleng%2){
brace_open=0;
if(tmp=='['){
fprintf(yyout,"{]}}\\%s",PATTERN_FONT);
BEGIN(REG_EXPR);
}
else{
fprintf(yyout,"``}\\%s",STRING_FONT);
BEGIN(PATTERN_STRING);
}
}
else{
if(tmp=='[')
fprintf(yyout,"{]}");
else
fprintf(yyout,"{\\tt \"}");
}
}
}
<REG_EXPR,PATTERN_STRING>{
" " fprintf(yyout,"{\\spy}");
}
<REG_EXPR>{
}
<PATTERN_STRING>{
}
{@@#LEX_RULES#}
/*\v \subsection{Rules for Preprocessor Keywords} */
/* (first handle just the leading #) */
\#{SPO}{PP_KEY} {
yyless(1);
init_out(0);
fprintf(yyout,"{\\%s \\#}}\\pes{ \\bs{1}}{%d}",KEYWORD_FONT,pos+2);
pes_old=pos+2;
brace_open=0;
LEN(18+strlen(KEYWORD_FONT));
BEGIN(PREPROCESSOR);
}
<PREPROCESSOR>.|\n yyless(0); BEGIN({@#sc1}); /* this should not occur */
<PREPROCESSOR>{PP_KEY} yyless(yyleng-1); keyword();
/*\v \subsection{Rules for common C/C++/Java Keywords} */
break[ \t\n;] |
case[ \t\n(] |
char[ \t\n*)] |
continue[ \t\n;] |
default[ \t\n:] |
do[ \t\n{] |
double[ \t\n*)] |
else[ \t\n{] |
float[ \t\n*)] |
for[ \t\n(] |
goto{WS} |
if[ \t\n(] |
int[ \t\n*)] |
long[ \t\n*)] |
return[ \t\n(;] |
short[ \t\n*)] |
static[ \t\n*)] |
switch[ \t\n(] |
void[ \t\n)] |
volatile{WS} |
while[ \t\n(] yyless(yyleng-1); keyword();
/*\v \subsection{Rules for C/C++ only Keywords} */
<INITIAL,CPLUSPLUS>{
auto{WS} |
const{WS} |
defined[ \t\n(] |
enum{WS} |
extern{WS} |
register{WS} |
sizeof[ \t\n(] |
struct[ \t\n{] |
typedef{WS} |
union[ \t\n{] yyless(yyleng-1); keyword();
/*\v \subsection{Rules for special VMS Keywords} */
_align[ \t\n(] |
globaldef[ \t\n{] |
globalref[ \t\n{] |
globalvalue[ \t\n{] |
main_program[ \t\n{] |
MAIN_PROGRAM[ \t\n{] |
noshare[ \t\n{] |
readonly[ \t\n{] |
variant_struct[ \t\n{] |
variant_union[ \t\n{] yyless(yyleng-1); keyword();
}
/*\v \subsection{Rules for C++ Keywords} */
<CPLUSPLUS>{
and[ \t\n(] |
and_eq[ \t\n(] |
asm[ \t\n{] |
bitand[ \t\n(] |
bitor[ \t\n(] |
bool{WS} |
compl{WS} |
const_cast[ \t\n<] |
dynamic_cast[ \t\n<] |
explicit{WS} |
export{WS} |
friend{WS} |
inline[ \t\n{] |
mutable[ \t\n*)] |
namespace[ \t\n{] |
not[ \t\n(] |
not_eq[ \t\n(] |
or[ \t\n(] |
or_eq[ \t\n(] |
reinterpret_cast[ \t\n<] |
static_cast[ \t\n<] |
template[ \t\n:] |
typeid[ \t\n(] |
typename[ \t\n(] |
using{WS} |
virtual{WS} |
wchar_t[ \t\n*)] |
xor[ \t\n(] |
xor_eq[ \t\n(] yyless(yyleng-1); keyword();
}
/*\v \subsection{Rules for Java only Keywords} */
<JAVA>{
abstract{WS} |
boolean{WS} |
byte{WS} |
byvalue{WS} |
extends{WS} |
final{WS} |
finally[ \t\n{] |
implements{WS} |
import{WS} |
inner{WS} |
instanceof{WS} |
interface{WS} |
native{WS} |
null[ \t\n)] |
package{WS} |
super[ \t\n(] |
synchronized{WS} |
throws{WS} |
transient{WS} keyword();
}
/*\v \subsection{Rules for C++/Java Keywords} */
<CPLUSPLUS,JAVA>{
catch[ \t\n(] |
class{WS} |
const[ \t\n*] |
delete[ \t\n\[(<] |
false[ \t\n;] |
new[ \t\n\[(<] |
operator[ \t\n+\-*/%|&^~!=<>\[(,] |
private[ \t\n:] |
protected[ \t\n:] |
public[ \t\n:] |
this[ \t\n\-.*] |
throw[ \t\n(] |
true[ \t\n;] |
try[ \t\n{] yyless(yyleng-1); keyword();
}
/*\v \subsection{Rules for Strings} */
\"\" init_out(0); fprintf(yyout,"{\\tt \"\"}"); LEN(8);
\\*\" {
if(yyleng%2){ /* even number of `\': begin string */
init_out(0);
if(yyleng>1)
fprintf(yyout,"\\bs{%d}\\qql}\\%s\\pes{\\bs{1}}{0}",yyleng-1,STRING_FONT);
else
fprintf(yyout,"\\qql}\\%s\\pes{\\bs{1}}{0}",STRING_FONT);
LEN(21+strlen(STRING_FONT));
brace_open=0;
BEGIN(STRING);
}
else{ /* odd number of `\': no string */
init_out(0);
fprintf(yyout,"\\bs{%d}{\\tt \"}",yyleng-1);
LEN(14);
}
}
<STRING>{
\n {
if(brace_open)fputc('}',yyout);
line++;
pos=leng=brace_open=0;
fprintf(yyout,"\\n\n\\initc000");
current_line();
LEN(20);
}
" "+ init_out(0); for(tmp=0;tmp<yyleng;tmp++)fputc('~',yyout); fputc('}',yyout); brace_open=0; LEN(yyleng+1);
\t print_jmpo(0);
\\+n init_out(0); fprintf(yyout,"\\bs{%d}n}",yyleng-1); LEN(9); brace_open=0;
\\*\" {
if(yyleng%2){ /* even number of `\': end string */
init_out(0);
if(yyleng>1)
fprintf(yyout,"\\bs{%d}\\%s \\qqr}\\%s",yyleng-1,BASE_FONT,BASE_FONT);
else
fprintf(yyout,"\\%s \\qqr}\\%s",BASE_FONT,BASE_FONT);
if(pes_old>=0)
fprintf(yyout,"\\pes{ \\bs{1}}{%d}\\njo0{",pes_old);
else
fprintf(yyout,"\\ped\\pstart\\pstarta\\njo0{");
LEN(36+strlen(BASE_FONT));
BEGIN(sc1);
}
else{ /* odd number of `\': no string */
init_out(0);
fprintf(yyout,"\\bs{%d}{\\tt \"}",yyleng-1);
LEN(14);
}
}
}
/*\v \subsection{Rules for Comments} */
"/*\\f"[ ]* {
if(pos<ALIGN_CMT_LIMIT)cmt_pos=pos+2;
init_out(1);
cmt_mode=3;
old_pos=pos-yyleng>ALIGN_CMT_LIMIT ? -2 : pos-yyleng;
fprintf(yyout,"/$\\ast$\\%s",COMMENT_FONT);
cmt_blanks=0;
if(*(yytext+yyleng-1)==' ')
for(ptr=yytext;*ptr;)if(*ptr++==' '){
fputc('~',yyout);
cmt_blanks++;
}
LEN(13+strlen(COMMENT_FONT));
BEGIN(FILL_CMT);
}
"/*"(\\b)?[ ]* {
if(pos<ALIGN_CMT_LIMIT)cmt_pos=pos+2;
init_out(1);
if(*(yytext+3)!='b'){ /* no block comment */
cmt_mode=1;
old_pos=pos-yyleng>ALIGN_CMT_LIMIT ? -2 : pos-yyleng;
}
else
cmt_mode=2;
cmt_blanks=0;
fprintf(yyout,"/$\\ast$");
if(*(yytext+yyleng-1)==' '){
if(cmt_mode==1){
fprintf(yyout,"\\%s",COMMENT_FONT);
LEN(13+strlen(COMMENT_FONT));
}
else{
fprintf(yyout,"\\%s",BLOCK_FONT);
LEN(13+strlen(BLOCK_FONT));
}
for(ptr=yytext;*ptr;)if(*ptr++==' '){
fputc('~',yyout);
cmt_blanks++;
}
}
BEGIN(C_CMT);
}
\/\*+\/ |
\/\*{2,}(\\b)? {
if(pos<ALIGN_CMT_LIMIT)cmt_pos=pos+2;
init_out(1);
if(*(yytext+yyleng-1)!='b'){ /* no block comment */
cmt_mode=1;
old_pos=pos-yyleng>ALIGN_CMT_LIMIT ? -2 : pos-yyleng;
}
else
cmt_mode=2; /* block comment */
cmt_blanks=0;
if(yyleng==2 || yyleng==4 && *(yytext+3)=='b')
fprintf(yyout,"/$\\ast$");
else if(*(yytext+2)=='*' && yyleng<11){
for(ptr=yytext+1,tmp=0;*ptr++=='*';tmp++);
fprintf(yyout,"/\\mast{%d}}",tmp);
brace_open=0;
}
else{
fprintf(yyout,"/}");
brace_open=0;
if(cmt_mode==1)
tmp=pos;
else
tmp=pos-2;
fprintf(yyout,"\\mpout{%d}{%d}{%s}{%s}",
tmp-yyleng+1,tmp-1,"$\\ast$","2pt");
}
LEN(15);
if(*(yytext+yyleng-1)=='/'){
yyless(yyleng-1);
cmt_mode=0;
}
else
BEGIN(C_CMT);
}
<CPLUSPLUS,JAVA>{
"//\\f"[ ]* |
\/{2,}[ ]* {
init_out(2);
if(*(yytext+3)=='f')
BEGIN(FILL_CPP_CMT);
else
BEGIN(CPP_CMT);
fprintf(yyout,"//");
for(ptr=yytext,cmt_blanks=0;*ptr;)if(*ptr++==' '){
fputc('~',yyout);
cmt_blanks++;
}
old_pos=pos-yyleng>ALIGN_CMT_LIMIT ? -2 : pos-yyleng;
fprintf(yyout,"}\\cmtpp{%d}{%d}",old_pos,cmt_blanks);
brace_open=0;
}
}
<C_CMT>\*+\/ {
if(brace_open)fputc('}',yyout);
brace_open=cmt_mode=0;
fprintf(yyout,"\\ccmtend\\%s",BASE_FONT);
pos+=yyleng;
if(yyleng>5){
LEN(31);
fprintf(yyout,"\\mpout{%d}{%d}{%s}{%s}\\njo0{/}",
pos-yyleng,pos-2,"$\\ast$","2pt");
}
else{
fprintf(yyout,"\\njo0{\\mast{%d}/}",yyleng-1);
LEN(10+strlen(BASE_FONT)+yyleng);
}
BEGIN(sc1);
}
<C_CMT,FILL_CMT>{
" :" {
yyless(1);
if(cmt_mode==2 || cmt_mode==5)
print_jmpo(0);
else{
pos++;
if(brace_open)fputc('}',yyout);
chk_cmt();
fprintf(yyout,"\\njo{%d}{",pos);
brace_open=1;
LEN(10);
}
}
[ ][^ \t\n]\n {
yyless(1);
if(brace_open)fputc('}',yyout);
chk_cmt();
if(cmt_mode==2 || cmt_mode==5){
fprintf(yyout,"\\jmpo{%d}{",++pos);
LEN(10);
}
else{
fprintf(yyout,"\\njo{%d}{",++pos);
LEN(9);
}
brace_open=1;
}
}
<FILL_CMT>{ /* special rules for / *\f (fill comments for C) */
"*/" |
\n{SPO}\*\/ {
if(brace_open)fputc('}',yyout);
for(ptr=yytext;*ptr;)if(*ptr++=='\n')line++;
chk_cmt();
brace_open=cmt_mode=0;
fprintf(yyout,"\\ccmtend\\%s",BASE_FONT);
pos+=yyleng;
fprintf(yyout,"\\jmpo{%d}{$\\ast$/}",pos+=100); /* force line break */
LEN(20);
BEGIN(sc1);
}
{SPO}\n{SPO} |
\n{SPO}\*{SPO} {
if(brace_open)fputc('}',yyout);
line++;
chk_cmt();
fprintf(yyout,"\\njo{%d}{",++pos); /* replace pattern by a blank */
LEN(9);
brace_open=1;
}
(\n{SPO}\*{SPO}){2,} {
if(brace_open)fputc('}',yyout);
for(ptr=yytext;*ptr;)if(*ptr++=='\n')line++;
fprintf(yyout,"\\jmpo{%d}{}\\jmpo{%d}{",pos+100,pos+200); /* empty line with star */
pos+=200;
LEN(23);
brace_open=1;
}
(\n{SPO}){2,}(\*{SPO})? |
\n{SPO}@\n{SPO} |
\n{SPO}\*{SPO}@\n{SPO}\*{SPO} {
if(brace_open)fputc('}',yyout);
for(ptr=yytext;*ptr;)if(*ptr++=='\n')line++;
fprintf(yyout,"\\n\\jmpo{%d}{",pos+=100); /* empty line */
LEN(12);
brace_open=1;
}
{SP}@\n{SPO} |
{SP}@\n{SPO}\*{SPO} {
if(brace_open)fputc('}',yyout);
line++;
chk_cmt();
fprintf(yyout,"\\jmpo{%d}{",pos+=100); /* force linebreak */
LEN(9);
brace_open=1;
}
}
<FILL_CPP_CMT>{ /* special rules for //\f (fill comments for C++/Java ) */
\n{SPO}"//"{SPO} {
if(brace_open)fputc('}',yyout);
line++;
chk_cmt();
fprintf(yyout,"\\njo{%d}{",++pos); /* replace pattern by a blank */
LEN(9);
brace_open=1;
}
\n{SPO}"//"{SPO}@?\n{SPO}"//"{SPO} {
if(brace_open)fputc('}',yyout);
for(ptr=yytext;*ptr;)if(*ptr++=='\n')line++;
fprintf(yyout,"\\jmpo{%d}{}\\jmpo{%d}{",pos+100,pos+200); /* empty line */
pos+=200;
LEN(23);
brace_open=1;
}
{SP}@\n{SPO}"//"{SPO} {
if(brace_open)fputc('}',yyout);
line++;
chk_cmt();
fprintf(yyout,"\\jmpo{%d}{",pos+=100); /* force linebreak */
LEN(9);
brace_open=1;
}
}
<C_CMT,CPP_CMT,FILL_CMT,FILL_CPP_CMT,STRING>[`'] init_out(0); fprintf(yyout,"{%c}",*yytext);
/*\v \subsection{Rules for line breaking without spaces} */
\-{2,} { /* don't split ++ -- */
init_out(0);
fputc('{',yyout);
for(tmp=0;tmp<yyleng;tmp++)fprintf(yyout,"\\mm");
fputc('}',yyout);
LEN(yyleng*3+2);
}
\+{2,} init_out(0); ECHO; LEN(yyleng);
"<<=" |
">>=" {
/* allow a linebreak before these patterns */
if(brace_open)fputc('}',yyout);
fprintf(yyout,"\\njo0{");
if(*ptr=='<')
fprintf(yyout,"\\mlt{2}=");
else
fprintf(yyout,"\\mgt{2}=");
brace_open=1;
LEN(8);
}
"||" |
"&&" |
"+=" |
"-=" |
"*=" |
"/=" |
"&=" |
"|=" |
"%=" |
"<=" |
">=" |
"==" |
"!=" |
[+\-*/%={] {
/* allow a linebreak before these patterns */
if(brace_open)fputc('}',yyout);
brace_open=0;
init_out(0);
for(ptr=yytext;*ptr;ptr++)fprintf(yyout,"%s",subst(*ptr));
LEN(9);
}
[,;}] init_out(0); fprintf(yyout,"%s}",subst(*yytext)); brace_open=0;
[a-zA-Z0-9$_]+ { /* C identifier: print them out */
init_out(0);
for(ptr=yytext;*ptr;ptr++)switch(*ptr){
case '_':
case '$': fprintf(yyout,"%s",subst(*ptr)); break;
default: fputc(*ptr,yyout); break;
}
LEN(yyleng);
}
{@@@}
{@@c}<INITIAL,CPLUSPLUS,JAVA>\'.\' {
init_out(0);
fprintf(yyout,"{\\sq}%s{\\sq}",subst(*(yytext+1)));
}
<INITIAL,CPLUSPLUS,JAVA,STRING,C_CMT,CPP_CMT,FILL_CMT,FILL_CPP_CMT>{@@@}{
. {
init_out(0);
fprintf(yyout,"%s",subst(*yytext));
}
\f\n? fprintf(yyout,"\\newpage\n"); if(*(yytext+yyleng-1)=='\n')line++;
[a-zA-Z0-9]+ init_out(0); fprintf(yyout,"%s",yytext);
}
/*\v \subsection{Rules for omitting Code} */
<LINE_BEGIN>{
{SPO}"/*"\\o[q+]"*/"{SPO}\n {
for(ptr=yytext;*ptr++!='o';);
if(*ptr=='+')
skip_cnt=0;
else
skip_cnt= -1;
tmp= -1;
{@@c}
sc=YY_START;
{@@@}
BEGIN(OMIT);
line++;
}
{SPO}"/*"\\o[1-9]+q?"*/"{SPO}\n {
for(ptr=yytext;*ptr++!='o';);
tmp=atoi(ptr);
skip_cnt= -1;
for(;*ptr && *ptr!='q';ptr++)if(*ptr=='*')skip_cnt=0;
BEGIN(OMIT);
line++;
}
}
<OMIT>{
{SPO}"/*\\o-*/"{SPO}\n {
{@@c}
if(sc==C_CMT)chk_cmt();
if(sc==STRING)fprintf(yyout,"\\%s",STRING_FONT);
{@@@}
skip_msg();
brace_open=0;
BEGIN(LINE_BEGIN);
line++;
}
{@@c}
\/\*+(\\b)? sc=C_CMT; if(*(yytext+yyleng-1)=='b')cmt_mode=2; else cmt_mode=1;
\*+\/ sc=sc1; cmt_mode=0;
\\*\" {
if(yyleng%2 && sc!=C_CMT)
if(sc!=STRING)
sc=STRING; /* begin of string */
else
sc=sc1; /* end of string */
}
{@@@}
\*+
\/+
\\
[^\\\"*\/\n]+ /* skip */
\n {
if(skip_cnt>=0)skip_cnt++;
line++;
if(!--tmp){
{@@c}
if(sc==C_CMT)chk_cmt();
{@@@}
skip_msg();
brace_open=0;
BEGIN(LINE_BEGIN);
}
}
<<EOF>> skip_msg(); yyterminate();
}
{@@c}
/*\v \subsection{Rules for Embedded \LaTeX} */
<CPLUSPLUS>"//\\a " init_out(0); fprintf(yyout,"}// "); brace_open=0; BEGIN(EL_CMT3);
<EL_CMT3>\n yyless(0); BEGIN(CPLUSPLUS);
<INITIAL,CPLUSPLUS,LINE_BEGIN>{
"/*\\a" init_out(0); fprintf(yyout,"}\\ped{}/$\\ast$"); brace_open=0; BEGIN(EL_CMT1);
{SPO}"/*\\v" |
{WSO}"/*\\v1" {
for(ptr=yytext;*ptr;)if(*ptr++=='\n')line++;
if(brace_open)fputc('}',yyout);
brace_open=0;
fprintf(yyout,"\\ped{}\n");
BEGIN(EL_CMT2);
}
}
<EL_CMT1,EL_CMT2>{
\n ECHO; line++;
"*/"{SPO}\n? {
if(YY_START==EL_CMT1)fprintf(yyout,"$\\ast$/");
if(*(yytext+yyleng-1)=='\n'){
pos=leng=brace_open=0;
sc=sc1;
line++;
fputc('\n',yyout);
BEGIN(LINE_BEGIN);
}
else{
BEGIN(sc1);
LEN(7);
}
}
}
<EL_CMT1,EL_CMT2,EL_CMT3>[^ \t\n*]+ ECHO;
{@@@}
%%
{@@c}
/*\v \section{C Code section}\subsection{Function chk\_cmt(void)} */
void chk_cmt(void)
{
/* values for cmt_mode:
* cmt_mode==1: normal comment mode (first line)
* cmt_mode==2: block comment mode
* cmt_mode==3: fill mode (Started with / *\f)
* cmt_mode==4: normal comment mode (not in the first line)
* cmt_mode==5: block comment mode (continuation)
*/
if(cmt_mode==1 || cmt_mode==3){
fprintf(yyout,"\\cmt{%d}{%d}",old_pos,cmt_blanks);
cmt_mode=0;
}
else if(cmt_mode==2){
fprintf(yyout,"\\%s ",BLOCK_FONT);
LEN(2+strlen(BLOCK_FONT));
cmt_mode=5;
}
}
{@@@}
/*\v \subsection{Function skip\_msg(void)} */
void skip_msg(void)
{
if(skip_cnt==1)
fprintf(yyout,"\\par\\centerline{/\\mast{20}{ \\commentfont SKIP A LINE }\\mast{20}/}\\par\n");
else if(skip_cnt>1)
fprintf(yyout,"\\par\\centerline{/\\mast{20}{ \\commentfont SKIP %d LINES }\\mast{20}/}\\par\n",skip_cnt);
}
{@@c}
/*\v \subsection{Function keyword(void)} */
void keyword(void)
{
init_out(0);
fprintf(yyout,"{\\%s ",KEYWORD_FONT);
for(ptr=yytext;*ptr;)fprintf(yyout,"%s",subst(*ptr++));
fputc('}',yyout);
LEN(3+strlen(KEYWORD_FONT)+yyleng);
yy_set_bol(0);
if(YY_START==PREPROCESSOR)BEGIN(sc1);
}
{@@@}
/*\v \subsection{Function init\_out(void)} */
void init_out(int mode)
{
/* mode==0: kein \cmtinit
* mode==1: \cmtinit f�r C-Kommentar
* mode==2: \cmtinit f�r C++-Kommentar
*/
pos+=yyleng;
if(mode==0){
if(!brace_open){
{@@c}
chk_cmt();
{@@@}
fprintf(yyout,"\\njo0{");
leng+=7;
}
}
{@@c}
else{
if(brace_open)fputc('}',yyout);
if(pos-yyleng>ALIGN_CMT_LIMIT){ /* position is too far right; omit \cmtinit */
fprintf(yyout,"\\njo0{");
leng+=7;
}
else{
fprintf(yyout,"\\cmtinit\\njo0{");
leng+=15;
}
}
{@@@}
brace_open=1;
}
/*\v \subsection{Function print\_jmpo(int linebegin)} */
void print_jmpo(int linebegin)
{
int old=pos;
for(ptr=yytext;*ptr==' ' || *ptr=='\t';ptr++){
if(*ptr=='\t')
pos+=tab2spc-pos%tab2spc;
else
pos++;
}
if(linebegin){
fprintf(yyout,"\\init{%d}",pos);
current_line();
fprintf(yyout,"\\njo{%d}{",-pos);
leng=18;
}
else if(brace_open){
fputc('}',yyout);
{@@c}
chk_cmt();
if(YY_START==FILL_CMT || YY_START==FILL_CPP_CMT){
fprintf(yyout,"\\xnjo{%d}{%d}{",pos-old,pos);
LEN(13);
}
else{
{@@@}
fprintf(yyout,"\\jmpo{%d}{",pos);
LEN(10);
{@@c}
}
{@@@}
}
else{
{@@c}
chk_cmt();
if(YY_START==FILL_CMT || YY_START==FILL_CPP_CMT){
fprintf(yyout,"\\xnjo{%d}{%d}{",pos-old,pos);
LEN(13);
}
else{
{@@@}
fprintf(yyout,"\\jmpo{%d}{",pos);
LEN(10);
{@@c}
}
{@@@}
}
brace_open=1;
}
/*\v \subsection{Function die(char *cmd,int mode)} */
int die(char *cmd,int mode)
{
switch(mode){
case 1:
fprintf(stderr,"Can't open %s for read; exit\n",cmd);
exit(4);
case 2:
fprintf(stderr,"Can't open %s for write; exit\n",cmd);
exit(4);
case 3:
fprintf(stderr,"%s\n",cmd);
exit(4);
default:
return 0;
}
}
/*\v \subsection{Function subst(int c)} */
char *subst(int c)
{
static char retbuffer[2];
if(c<0)c+=256;
switch(c){
case '#': leng+=2; return "\\#";
case '$': leng+=2; return "\\$";
case '%': leng+=2; return "\\%";
case '&': leng+=2; return "\\&";
case '\'': leng+=3; return "\\sq{}";
case '*': leng+=6; return "$\\ast$";
case '-': leng+=5; return "{\\mm}";
case '<': leng+=3; return "$<$";
case '>': leng+=3; return "$>$";
case '[': leng+=3; return "{[}";
case '\\': leng+=4; return "\\bs{1}";
case ']': leng+=3; return "{]}";
case '^': leng+=9; return "$\\hat{~}$";
case '_': leng+=5; return "{\\ul}";
case '`': leng+=3; return "{`}";
case '{': leng+=6; return "\\brl{}";
case '|': leng+=6; return "$\\mid$";
case '}': leng+=6; return "\\brr{}";
case '~': leng+=6; return "$\\sim$";
case '"': leng+=7; return "{\\tt \"}";
default: leng++; *retbuffer=c; return retbuffer;
}
}
/*\v \subsection{Function substitute\_format(char *format)} */
void substitute_format(char *format)
{
char c,*ptr1;
for(ptr=format;*ptr;ptr++){
if(*ptr=='%'){ /* escape sequences: */
switch(*++ptr){
case 'd': /* %d: day of month */
fprintf(yyout,"%d",atime->tm_mday);
break;
case 'D': /* %D: date (format DD-MMM-YYYY) */
fprintf(yyout,"%d{\\mm}%s{\\mm}%ld",atime->tm_mday,month1[atime->tm_mon],year);
break;
case 'f': /* %f: input file name */
for(ptr1=inputname;*ptr1;)fprintf(yyout,"%s",subst(*ptr1++));
break;
case 'h':
fprintf(yyout,"%02d",atime->tm_hour);
break;
case 'm': /* %m: month (numeric value) */
fprintf(yyout,"%d",atime->tm_mon+1);
break;
case 'M': /* %M: minute */
fprintf(yyout,"%02d",atime->tm_min);
break;
case 'n': /* %n: (english) name of month (full form) */
fprintf(yyout,"%s",month[atime->tm_mon]);
break;
case 'N': /* %N: (local) name of month (full form) */
fprintf(yyout,"%s",local_month[atime->tm_mon]);
break;
case 's': /* %s: (english) name of month (short form) */
fprintf(yyout,"%s",month1[atime->tm_mon]);
break;
case 'S': /* %S: (local) name of month (short form) */
fprintf(yyout,"%s",local_month1[atime->tm_mon]);
break;
case 'p': /* %p: page (in the LaTeX file) */
fprintf(yyout,"\\thepage");
break;
case 't': /* %t: time (format HH:MM) */
fprintf(yyout,"%02d:%02d",atime->tm_hour,atime->tm_min);
break;
case 'y': /* %y: year */
fprintf(yyout,"%ld",year);
break;
case '%': /* %%: the `%' character itself */
fputc('\\',yyout);
fputc('%',yyout);
break;
default: /* unknown escape sequence: just print it out */
fprintf(stderr,"Unknown escape sequence `%%%c' detected; print it out.\n",*ptr);
fprintf(stderr,"(format string was >%s<)\n",format);
fputc('%',yyout);
fprintf(yyout,"%s",subst(*ptr));
break;
}
}
else
fprintf(yyout,"%s",subst(*ptr));
}
fprintf(yyout,"}\n");
}
/*\v \subsection{Function current\_line(void)} */
void current_line(void)
{
if(show_lines>0 && line%show_lines==0){
fprintf(yyout,"{%d}",line);
{@if USE_AFTERPAGE}
if((line+50)%100==0)fprintf(yyout,"\\afterpage{\\plcntmargin{%d}}\n",line+50);
{@endif}
}
else
fprintf(yyout,"{}");
LEN(10);
}
/*\v \subsection{Function main(int argc, char **argv)} */
int main(int argc, char **argv)
{
int i;
#ifdef FLEX_DEBUG
yy_flex_debug=0;
#endif /* FLEX_DEBUG */
time(&time_val);
atime=localtime(&time_val);
year=time_val/(365L*24L*60L*60L)+1970L;
{@@c}
sc=sc1=INITIAL;
{@@@}
for(i=1;i<argc;i++){
if(*argv[i]=='-'){
for(ptr=argv[i]+1;*ptr;)switch(*ptr++){
case 'd':
#ifdef FLEX_DEBUG
yy_flex_debug=1;
#else
fprintf(stderr,"{@#name} was compiled without debug info; ignore switch -d\n");
#endif
break;
{@@c}
case '+':
sc=sc1=CPLUSPLUS;
break;
case 'j':
sc=sc1=JAVA;
break;
{@@@}
case 'h':
switch(*ptr++){
case 'n': use_header=0; break; /* no header */
case 'l': lhead=ptr; break; /* left header text */
case 'c': chead=ptr; break; /* center header text */
case 'r': rhead=ptr; break; /* right header text */
default: break;
}
while(*ptr)ptr++; /* forget the rest of the argument */
break;
case 'l':
if(*ptr)
show_lines=atoi(ptr);
else
show_lines=5;
while(*ptr)ptr++; /* forget the rest of the argument */
break;
case 'f':
switch(*ptr++){
case 'l': lfoot=ptr; break; /* left footer text */
case 'c': cfoot=ptr; break; /* center footer text */
case 'r': rfoot=ptr; break; /* right footer text */
default: break;
}
while(*ptr)ptr++; /* forget the rest of the argument */
break;
case 'o': /* output name */
if(!yyout)(yyout=fopen(ptr,"w")) || die(ptr,2);
break;
case 't':
tab2spc=atoi(ptr);
break;
case '?':
fprintf(stderr,"{@#name} Version %s (%s)\n%s%d%s",
VERSION,VERSION_DATE,usage_text1,TAB2SPC,usage_text2);
#if VMS
exit(1);
#else
exit(0);
#endif
default:
break;
}
}
else if(!yyin) /* argument without leading '-': input or output name */
(yyin=fopen(inputname=argv[i],"r")) || die(inputname,1);
else if(!yyout)
(yyout=fopen(argv[i],"w")) || die(argv[i],2);
}
if(!yyin)yyin=stdin; /* no inputname specified */
if(!yyout)yyout=stdout; /* no outputname specified */
if(inputname){
for(ptr=inputname,ptr1=buffer;*ptr;)
switch(*ptr){
case '_':
case '$': *ptr1++='\\';
default:
*ptr1++= *ptr++;
break;
}
*ptr1=0;
}
else
strcpy(buffer,inputname="(stdin)");
#ifdef FLEX_DEBUG
if(yy_flex_debug){
/* FLEX gives very much debug info; write the stuff to a file */
fprintf(stderr,"redirect stderr to file {@#name}.dbg\n");
(freopen("{@#name}.dbg","w",stderr))
|| die("error opening file {@#name}.dbg for stderr (freopen)",3);
}
#endif /* FLEX_DEBUG */
yylex();
/* write the end of the LaTeX file */
if(brace_open)fputc('}',yyout);
fprintf(yyout,"{@#string}^\end{flushleft}
\ifmfiles\def\END{\relax}\else\def\END{\end{document}}\fi
\END�^");
fclose(yyin);
fclose(yyout);
}
