/*
* j2t.lex : An example of the use (possibly abuse!)
*           of start states.
*/

%{
#define MAX_STATES 1024
#define TRUE  1
#define FALSE 0

#define CHAPTER   "@chapter"
#define SECTION   "@section"
#define SSECTION  "@subsection"
#define SSSECTION "@subsubsection"

int  states[MAX_STATES];
int  statep = 0;

int  need_closing = FALSE;

char buffer[YY_BUF_SIZE];

extern char *yytext;

/*
* set up the head of the *.texinfo file the program
* will produce. This is a standard texinfo header.
*/

void print_header(void)
{
  printf("\\input texinfo @c -*-texinfo-*-\n");
  printf("@c           %c**start of header\n",'%');
  printf("@setfilename       jargon.info\n");
  printf("@settitle          The New Hackers Dictionary\n");
  printf("@synindex          fn cp\n");
  printf("@synindex          vr cp\n");
  printf("@c           %c**end of header\n",'%');
  printf("@setchapternewpage odd\n");
  printf("@finalout\n");
  printf("@c @smallbook\n");
  printf("\n");
  printf("@c ==========================================================\n\n");
  printf("@c  This file was produced by j2t. Any mistakes are *not* the\n");
  printf("@c  fault of the jargon file editors.                        \n");
  printf("@c ==========================================================\n\n");
  printf("@titlepage\n");
  printf("@title     The New Hackers Dictionary\n");
  printf("@subtitle  Version 2.9.10\n");
  printf("@subtitle  Generated by j2t\n");
  printf("@author    Eric S. Raymond, Guy L. Steel, Mark Crispin et al.\n");
  printf("@end titlepage\n");
  printf("@page\n");
  printf("\n@c ==========================================================\n");
  printf("\n\n");
  printf("@unnumbered Preface\n");
  printf("@c          *******\n");
}

/*
* create the tail of the texinfo file produced.
*/

void print_trailer(void)
{
  printf("\n@c ==========================================================\n");
  printf("@contents\n");   /* print the table of contents */
  printf("@bye\n\n");
}

/*
* write an underline under a section
* or chapter so we can find it later.
*/

void write_underline(int len, int space, char ch)
{
 int loop;

 printf("@c ");

 for(loop=3; loop<space; loop++){
   printf(" ");
 }

 while(len--){
   printf("%c",ch);
 }
 printf("\n\n");
}

/*
* check for texinfo special characters
* and escape them
*/

char *check_and_convert(char *string)
{
 int  buffpos = 0;
 int  len,loop;

 len = strlen(string);
 for(loop=0; loop<len; loop++){
   if(string[loop] == '@' || string[loop] == '{' || string[loop] == '}'){
     buffer[buffpos++] = '@';
     buffer[buffpos++] = string[loop];
   } else {
     buffer[buffpos++] = string[loop];
   }
 }
 buffer[buffpos] = '\0';
 return(buffer);
}

/*
* write out a chapter,section, or subsection
* header
*/

void write_block_header(char *type)
{
 int loop;
 int len;

 (void)check_and_convert(yytext);
 len = strlen(buffer);
 for(loop=0; buffer[loop] != '\n';loop++)
        ;
 buffer[loop] = '\0';
 printf("%s %s\n",type,buffer);
 write_underline(strlen(buffer),strlen(type)+1,'*');
}

%}

/*
* the flex description starts here
*/

%x HEADING EXAMPLE ENUM EXAMPLE2
%x BITEM BITEM_ITEM
%s LITEM LITEM2

%%

^#[^#]*"#"  /* skip the header & trailer */
                    /* chapters have asterisks under them
                     * and are terminated by a colon
                     */
^[^\n:]+\n[*]+\n      write_block_header(CHAPTER);

^"= "[A-Z]" ="\n"="*  { /* we create a seciton for each category */
                       if(need_closing == TRUE){
                         printf("@end table\n\n\n");
                       }
                       need_closing = TRUE;
                       write_block_header(SECTION);
                       printf("\n\n@table @b\n");
                     }

"Examples:"[^\.]+     ECHO;

"*"[^*\n]+"*"         { /* @emph{}(emphasized) text */
                       yytext[yyleng-1] = '\0';
                       (void)check_and_convert(&yytext[1]);
                       printf("@i{%s}",buffer);
                     }

"{{"[^}]+"}}"         { /* special emphasis */
                       yytext[yyleng-2] = '\0';
                       (void)check_and_convert(&yytext[2]);
                       printf("@b{%s}",buffer);
                     }

"{"[^}]+"}"           { /* special emphasis */
                       yytext[yyleng-1] = '\0';
                       (void)check_and_convert(&yytext[1]);
                       printf("@b{%s}",buffer);
                     }

/* escape some special texinfo characters */
<INITIAL,LITEM,LITEM2,BITEM,ENUM,EXAMPLE,EXAMPLE2>"@"  printf("@@");
<INITIAL,LITEM,LITEM2,BITEM,ENUM,EXAMPLE,EXAMPLE2>"{"  printf("@{");
<INITIAL,LITEM,LITEM2,BITEM,ENUM,EXAMPLE,EXAMPLE2>"}"  printf("@}");

/*
 * reproduce @example code
 */

":"\n+[^\n0-9*]+\n"     "[^ ]   {
                       int loop;
                       int len;
                       int cnt;

                       printf(":\n\n@example \n");
                       strcpy(buffer,yytext);
                       len = strlen(buffer);
                       cnt = 0;
                       for(loop=len; loop > 0;loop--){
                         if(buffer[loop] == '\n')
                            cnt++;
                         if(cnt == 2)
                             break;
                       }
                       yyless(loop+1);
                       statep++;
                       states[statep] = EXAMPLE2;
                       BEGIN(EXAMPLE2);
                     }
<EXAMPLE,EXAMPLE2>^\n  {
                     printf("@end example\n\n");
                     statep--;
                     BEGIN(states[statep]);
                   }

/*
 * repoduce @enumerate lists
 */

":"\n+[ \t]*[0-9]+"."   {
                     int loop;
                     int len;

                     printf(":\n\n@enumerate \n");
                     strcpy(buffer,yytext);
                     len = strlen(buffer);
                     for(loop=len; loop > 0;loop--){
                       if(buffer[loop] == '\n')
                          break;
                     }
                     yyless(loop);
                     statep++;
                     states[statep] = ENUM;
                     BEGIN(ENUM);
                   }

<ENUM>"@"           printf("@@");
<ENUM>":"\n+"     "[^0-9]    {
                   printf(":\n\n@example\n");
                   statep++;
                   states[statep] = EXAMPLE;
                   BEGIN(EXAMPLE);
                 }


<ENUM>\n[ \t]+[0-9]+"." {
                   printf("\n\n@item ");
                  }
<ENUM>^[^ ] |
<ENUM>\n\n\n[ \t]+[^0-9] {
                   printf("\n\n@end enumerate\n\n");
                   statep--;
                   BEGIN(states[statep]);
                 }

/*
 * reproduce one kind of @itemize list
 */

":"\n+":"         {
                   int loop;
                   int len;

                   printf(":\n\n@itemize @bullet \n");
                   yyless(2);
                   statep++;
                   states[statep] = LITEM2;
                   BEGIN(LITEM2);
                 }
<LITEM2>^":".+":" {
                   (void)check_and_convert(&yytext[1]);
                   buffer[strlen(buffer)-1]='\0';
                   printf("@item @b{%s:}\n",buffer);
                 }

<LITEM2>\n\n\n+[^:\n] {
                   printf("\n\n@end itemize\n\n");
                   ECHO;
                   statep--;
                   BEGIN(states[statep]);
                 }

/*
 * create a list out of the revision history part.
 * We need the "Version" for this because it
 * clashes with other rules otherwise.
 */

:[\n]+"Version"[^:\n*]+":" {
                   int loop;
                   int len;

                   printf(":\n\n@itemize @bullet \n");
                   strcpy(buffer,yytext);
                   len = strlen(buffer);
                   for(loop=len; loop > 0;loop--){
                     if(buffer[loop] == '\n')
                        break;
                   }
                   yyless(loop);
                   statep++;
                   states[statep] = LITEM;
                   BEGIN(LITEM);
                 }
<LITEM>^.+":"     {
                   (void)check_and_convert(yytext);
                   buffer[strlen(buffer)-1]='\0';
                   printf("@item @b{%s}\n\n",buffer);
                 }

<LITEM>^[^:\n]+\n\n[^:\n]+\n  {
                   int loop;

                   strcpy(buffer,yytext);
                   for(loop=0; buffer[loop] != '\n'; loop++);
                   buffer[loop] = '\0';
                   printf("%s\n",buffer);
                   printf("@end itemize\n\n");
                   printf("%s",&buffer[loop+1]);
                   statep--;
                   BEGIN(states[statep]);
                 }

/*
 * reproduce @itemize @bullet lists
 */

":"\n[ ]*"*"      {
                   int loop;
                   int len;

                   printf(":\n\n@itemize @bullet \n");
                   len = strlen(buffer);
                   for(loop=0; loop < len;loop++){
                     if(buffer[loop] == '\n')
                        break;
                   }
                   yyless((len-loop)+2);
                   statep++;
                   states[statep] = BITEM;
                   BEGIN(BITEM);
                 }

<BITEM>^" "*"*"   {
                   printf("@item");
                   statep++;
                   states[statep] = BITEM_ITEM;
                   BEGIN(BITEM_ITEM);
                 }
<BITEM>"@"          printf("@@");
<BITEM>^\n        {
                   printf("@end itemize\n\n");
                   statep--;
                   BEGIN(states[statep]);
                 }
<BITEM_ITEM>[^\:]* {
                    printf(" @b{%s}\n\n",check_and_convert(yytext));
                  }
<BITEM_ITEM>":"   {
                   statep--;
                   BEGIN(states[statep]);
                 }

/*
 * recreate @chapter, @section etc.
 */

^:[^:]*           {
                   (void)check_and_convert(&yytext[1]);
                   statep++;
                   states[statep] = HEADING;
                   BEGIN(HEADING);
                 }
<HEADING>:[^\n]   {
                   printf("@item @b{%s}\n",buffer);
                   write_underline(strlen(buffer),6,'~');
                   statep--;
                   BEGIN(states[statep]);
                 }
<HEADING>:\n"*"*  {
                   if(need_closing == TRUE){
                     printf("@end table\n\n\n");
                     need_closing = FALSE;
                   }
                   printf("@chapter %s\n",buffer);
                   write_underline(strlen(buffer),9,'*');
                   statep--;
                   BEGIN(states[statep]);
                 }
<HEADING>:\n"="*  {
                   if(need_closing == TRUE){
                    printf("@end table\n\n\n");
                     need_closing = FALSE;
                   }
                   printf("@section %s\n",buffer);
                   write_underline(strlen(buffer),9,'=');
                   statep--;
                   BEGIN(states[statep]);
                 }
<HEADING>"@"        printf("@@");
<HEADING>:\n"-"*  {
                   if(need_closing == TRUE){
                     printf("@end table\n\n\n");
                     need_closing = FALSE;
                   }
                   printf("@subsection %s\n",buffer);
                   write_underline(strlen(buffer),12,'-');
                   statep--;
                   BEGIN(states[statep]);
                 }

/*
 * recreate @example text
 */

^"     "          {
                   printf("@example\n");
                   statep++;
                   states[statep] = EXAMPLE;
                   BEGIN(EXAMPLE);
                 }
<EXAMPLE>^"     "
                ECHO;

%%

/*
* initialise and go.
*/

int main(int argc, char *argv[])
{
 states[0] = INITIAL;
 statep    = 0;
 print_header();
 yylex();
 print_trailer();
 return(0);
}

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.