source: trunk/athena/bin/lpr/filters/ln01filter.l @ 9

/* $Source: /afs/dev.mit.edu/source/repository/athena/bin/lpr/filters/ln01filter.l,v $ */
/* $Author: builder $ */
/* $Locker:  $ */
/* $Header: /afs/dev.mit.edu/source/repository/athena/bin/lpr/filters/ln01filter.l,v 1.1 1985-04-28 16:49:52 builder Exp $ */
%{
#include <sys/file.h>
#include <signal.h>
#undef YYLMAX
#define YYLMAX 1000
extern int sighandler();
struct sigvec vector =
{
        sighandler,
        (int) 0xFFFFFFFF,
        (int) 0,
};
        
char *reset="\033c";                    /* ris  */
char *land_length="\033[2550t";
char *landscape="\033[10m";
char *port_length="\033[3300t";         /* form length = 11 inches */
char *portrait="\033[11m";
char *beginunderline = "\033[4m";
char *endunderline = "\033[0m";
char *mode;
char *form_length;
char *lockfile = "/usr/lib/lpdfilters/ln.lock";
%}
PRINTABLE    [0-9A-Za-z \t`\[\];'\\<,./-=~!@#$%^&*()_+{}:"|>?]
%%
\f                      printf("\f%s%s%s",reset,mode,form_length);
(_\b{PRINTABLE})+       {
                                register char *p = &yytext[0];
                                printf(beginunderline);
                                while(*p)
                                {
                                        if((*p != '_') && (*p != '\b'))
                                        {
                                                putchar(*p);
                                        }
                                        ++p;
                                }
                                printf(endunderline);
                        }
%{
/*
{PRINTABLE}+/(\b)+_+    {
                                register char *p;
                                register int i;
                                register char c;
                                if(yyleng > 200)
                                {
                                        ECHO;
                                        break;
                                }
                                p = &yytext[yyleng];
                                while(c = input(), c == '\b')
                                {
                                        if(p > yytext)
                                        {
                                                --p;
                                        }
                                }
                                unput(c);
                                for(i = 0; &yytext[i] < p; ++i)
                                {
                                        putchar(yytext[i]);
                                }
                                printf("%s", beginunderline);
                                while(c = input(), c == '_')
                                {
                                        if(p > &yytext[yyleng - 1])
                                        {
                                                break;
                                        }
                                        putchar(*p++);
                                }
                                printf("%s", endunderline);
                                unput(c);
                        }
_+/(\b)+{PRINTABLE}+    {
                                register int i = yyleng;
                                register int j;
                                register char c;
                                if(i > 200)
                                {
                                        ECHO;
                                        break;
                                }
                                while(c = input(), c == '\b')
                                {
                                        if(i > 0)
                                        {
                                                --i;
                                        }
                                }
                                unput(c);
                                for(j = 0; j < i; ++j)
                                {
                                        putchar('_');
                                }
                                printf("%s", beginunderline);
                                while(c = input(), !((c == '\n') || (c == '\f')))
                                {
                                        if(i < yyleng)
                                        {
                                                putchar(c);
                                                ++i;
                                        }
                                        else
                                        {
                                                break;
                                        }
                                }
                                unput(c);
                                printf("%s", endunderline);
                        }
*/
%}

%%

yywrap()
{
        printf("\f%s",reset);
        flock(1, LOCK_UN);

        return(1);
}
main(argc,argv)
int argc;
register char *argv[];
{
        register int i;
        for(i = 1; i <= 27; ++i)
        {
                sigvec(i, &vector, 0);
        }
        while(flock(1, LOCK_EX) < 0)
        {
                sleep(2);
        }
        if(atoi(&argv[1][2]) > 80)
        {
                mode = landscape;
                form_length = land_length;
        }
        else
        {
                mode = portrait;
                form_length = port_length;
        }
        setbuf(stdout, NULL);
        printf("%s%s%s",reset,mode,form_length);
        while(yylex() > 0);
}

int
sighandler(sig)
register int sig;
{
        yywrap();
        exit(sig);
}

/* Local Modes: */
/* Mode:C */
/* End: */