443 lines
12 KiB
Text
443 lines
12 KiB
Text
|
/*
|
||
|
|
* 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);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|