path: root/support/tiny_c2l/tiny_c2l.l

/*\v
  % write table of contents (only in single file mode):
      \ifmfiles\else\pagenumbering{roman}
      \tableofcontents\newpage\pagenumbering{arabic}\fi
      \centerline{\huge\bf File tiny\_c2l.l}
*/

/*\b
   <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   <<<<<<<<<<<<<<<<<<<<<<<<<<<<***********************>>>>>>>>>>>>>>>>>>>>>>>>
   <*  filename  :  tiny_c2l.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   :  1.4.0 from 25-feb-2000                                  *>
   <*  author    :  Michael Plugge <m.plugge@fh-mannheim.de>                *>
   <<<<<<<<<<<<<<<<<<<<<<<<<<<<***********************>>>>>>>>>>>>>>>>>>>>>>>>
   <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
*/

%{
   /*\v \section{Declaration Part} */
#define VERSION "1.4.0"
#define VERSION_DATE "25-feb-2000"

#define TAB2SPC 3
#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 ""
#define CHEAD "Produced from %f on %D %t"
#define RHEAD ""
#define LFOOT "" 
#define CFOOT "Page %p"
#define RFOOT ""
#define L2E_STYLE " \\documentclass[10pt]{article}\n\
 \\usepackage{a4,position,fancyhdr}\n\
 \\usepackage[latin1]{inputenc}\n\
 \\textwidth18cm\\textheight25cm\\hoffset-3cm\\voffset-1cm"
#define L209_STYLE " \\documentstyle[a4,position,fancyhdr]{article}\n\
 \\textwidth18cm\\textheight25cm\\hoffset-3cm\\voffset-1cm"
#define L2E_STYLE_LINE " \\documentclass[10pt]{article}\n\
 \\usepackage{a4,position,fancyhdr}\n\
 \\usepackage[latin1]{inputenc}\n\
 \\textwidth18cm\\textheight25cm\\hoffset-3cm\\voffset-1cm"
#define L209_STYLE_LINE " \\documentstyle[a4,position,fancyhdr]{article}\n\
 \\textwidth18cm\\textheight25cm\\hoffset-3cm\\voffset-1cm"

 /*\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,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 tiny_c2l (version %s, %s)\n\n\
\\ifx\\getformat\\undefined\n\
 \\newcount\\getformat\\getformat0\n\
\\else\n\
 \\mfilestrue\\getformat3\n\
\\fi\n\
\\ifx\\documentclass\\undefined\\advance\\getformat1\\fi\n\n\
\\ifcase\\getformat\n\
%s\n\
\\or\n\
%s\n\
\\else\\fi %% multiple file input: don't load format\n%s",

   *latex_prolog2="\\gdef\\cmt#1#2{\\psinit{#1}{\\hphantom{/}$\\ast$\\mblank{#2}}\\%s}\n\
\\gdef\\cmtpp#1#2{\\psinit{#1}{//\\mblank{#2}}\\%s}\n\
\\gdef\\ccmtend{\\setbox\\pstartbox=\\hbox{\\hphantom{/}}}\n\
\\ifmfiles\\else\\begin{document}\\fi\\begin{flushleft}\n\n",

*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: tiny_c2l [options] [infile [outfile]] [options]\n\
   infile and/or outfile may be omitted; in this case stdin/stdout are used.\n\
   valid options are:\n\
    -hn        don't generate header or footer text\n\
    -hl<txt>   header text: left side (default \"\")\n\
    -hc<txt>   header text: center (default \"Produced from %f on %D %t\")\n\
    -hr<txt>   header text: right side (default \"\")\n\
    -fl<txt>   footer text: left side (default \"\")\n\
    -fc<txt>   footer text: center (default \"Page %p\")\n\
    -fr<txt>   footer text: right side (default \"\")\n\
      possible escape sequences for the -h. and -f. switches are:\n\
         %f: input file name        %m: month (numeric value)\n\
         %p: page number            %n: (english) name of month (full form)\n\
         %t: time (HH:MM)           %s: (english) name of month (short form)\n\
         %D: date (DD-MMM-YYYY)     %N: (local) name of month (full form)\n\
         %h: hour                   %S: (local) name of month (short form)\n\
         %M: minute                 %y: year\n\
         %d: day of month           %: the `%' character itself\n\
    -l[cnt]    output line numbers\n\
    -+         C++ mode\n\
    -j         java mode\n\
    -o         outputname (if stdin is used for input)\n\
    -t<cnt>    number of spaces per tab character (default: ",
*usage_text2=")\n\
    -d         debug (debug output is written to tiny_c2l.dbg)\n\
    -?         show this help screen\n";

void keyword(void);
void skip_msg(void);
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);
%}

   /* 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
%x STRING C_CMT CPP_CMT FILL_CMT FILL_CPP_CMT
%x EL_CMT1 EL_CMT2 EL_CMT3 PREPROCESSOR
%s JAVA CPLUSPLUS

%option 8bit noyywrap outfile="tiny_c2l.c" 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":"");
      fprintf(yyout,"\\plcntmargin{777}\n");
   if(use_header){
      fprintf(yyout,"\\lhead{\\%s ",headfont);
      substitute_format(lhead);
      fprintf(yyout,"\\chead{\\%s ",headfont);
      substitute_format(chead);
      fprintf(yyout,"\\rhead{\\%s ",headfont);
      substitute_format(rhead);
      fprintf(yyout,"\\lfoot{\\%s ",footfont);
      substitute_format(lfoot);
      fprintf(yyout,"\\cfoot{\\%s ",footfont);
      substitute_format(cfoot);
      fprintf(yyout,"\\rfoot{\\%s ",footfont);
      substitute_format(rfoot);
   }
   if(!show_lines)
      fprintf(yyout,"\\plinenowidth0pt\n");
   else
      fprintf(yyout,"\\plcntmargin{77}\n");
   fprintf(yyout,latex_prolog2,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\\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);
      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} */
<INITIAL,CPLUSPLUS,JAVA,PREPROCESSOR,C_CMT,CPP_CMT,FILL_CMT,FILL_CPP_CMT>{
 " " {
      pos++; 
      if(brace_open)fputc('}',yyout); 
      chk_cmt();
      fprintf(yyout,"\\njo{%d}{",pos); 
      brace_open=1; 
      LEN(10);
   }
 {SP} print_jmpo(0);
}

<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();
   }
}

<INITIAL,CPLUSPLUS,JAVA,CPP_CMT,FILL_CMT,FILL_CPP_CMT>\n {
      if(brace_open)fputc('}',yyout);
      line++;
      pos=leng=brace_open=0;
      fprintf(yyout,"\\n\\ped\n"); 
      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);
   }

<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);
   }
}

   /*\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);
   }

<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;
      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 {
      if(sc==C_CMT)chk_cmt();
      if(sc==STRING)fprintf(yyout,"\\%s",STRING_FONT);
      skip_msg();
      brace_open=0;
      BEGIN(LINE_BEGIN);
      line++;
   }
 \/\*+(\\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){
         if(sc==C_CMT)chk_cmt();
         skip_msg();
         brace_open=0;
         BEGIN(LINE_BEGIN);
      }
   }
 <<EOF>> skip_msg(); yyterminate();
}

   /*\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;
%%

   /*\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);
}

   /*\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){
         chk_cmt();
         fprintf(yyout,"\\njo0{");
         leng+=7;
      }
   }
   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);
      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);
      }
   }
   else{
      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);
      }
   }
   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);
   }
   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;
   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,"tiny_c2l was compiled without debug info; ignore switch -d\n");
#endif 
               break;
   	      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,"tiny_c2l 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 tiny_c2l.dbg\n");
      (freopen("tiny_c2l.dbg","w",stderr))
         || die("error opening file tiny_c2l.dbg for stderr (freopen)",3);
   }
#endif   /* FLEX_DEBUG */
   yylex();

      /* write the end of the LaTeX file */
   if(brace_open)fputc('}',yyout);
   fprintf(yyout,"\\end{flushleft}\n\
\\ifmfiles\\def\\END{\\relax}\\else\\def\\END{\\end{document}}\\fi\n\
\\END\n");
   fclose(yyin);
   fclose(yyout);
}