127 lines
3.7 KiB
Plaintext
127 lines
3.7 KiB
Plaintext
/*
|
|
* t2p: Create a PDF file from the contents of one or more TIFF
|
|
* bilevel image files. The images in the resulting PDF file
|
|
* will be compressed using ITU-T T.6 (G4) fax encoding.
|
|
*
|
|
* Lexical analyzer
|
|
* $Id: scanner.l,v 1.17 2003/02/21 00:49:11 eric Exp $
|
|
* Copyright 2001, 2002, 2003 Eric Smith <eric@brouhaha.com>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License version 2 as
|
|
* published by the Free Software Foundation. Note that permission is
|
|
* not granted to redistribute this program under the terms of any
|
|
* other version of the General Public License.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA
|
|
*/
|
|
|
|
%option case-insensitive
|
|
%option noyywrap
|
|
|
|
%{
|
|
#include <stdbool.h>
|
|
#include <stdint.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include "semantics.h"
|
|
#include "parser.tab.h"
|
|
|
|
#ifdef SCANNER_DEBUG
|
|
#define LDBG(x) printf x
|
|
#else
|
|
#define LDBG(x)
|
|
#endif
|
|
%}
|
|
|
|
|
|
digit [0-9]
|
|
alpha [a-zA-Z]
|
|
dot [\.]
|
|
|
|
%%
|
|
|
|
[\,;{}] { return (yytext [0]); }
|
|
{dot}{dot} { LDBG(("elipsis\n")); return (ELIPSIS); }
|
|
|
|
/* decimal integer */
|
|
{digit}+ { yylval.integer = atoi (yytext); LDBG(("integer %d\n", yylval.integer)); return (INTEGER); }
|
|
|
|
/* floating point number - tricky to make sure it doesn't grab an integer
|
|
followed by an elipsis */
|
|
-?{digit}+\.{digit}+ { yylval.fp = atof (yytext); return (FLOAT); }
|
|
-?{digit}+\./[^.] { yylval.fp = atof (yytext); return (FLOAT); }
|
|
|
|
a { yylval.size.width = 8.5;
|
|
yylval.size.height = 11.0;
|
|
return (PAGE_SIZE); }
|
|
b { yylval.size.width = 11.0;
|
|
yylval.size.height = 17.0;
|
|
return (PAGE_SIZE); }
|
|
c { yylval.size.width = 17.0;
|
|
yylval.size.height = 22.0;
|
|
return (PAGE_SIZE); }
|
|
d { yylval.size.width = 22.0;
|
|
yylval.size.height = 34.0;
|
|
return (PAGE_SIZE); }
|
|
e { yylval.size.width = 34.0;
|
|
yylval.size.height = 44.0;
|
|
return (PAGE_SIZE); }
|
|
|
|
all { return (ALL); }
|
|
author { return (AUTHOR); }
|
|
bookmark { return (BOOKMARK); }
|
|
cm { return (CM); }
|
|
creator { return (CREATOR); }
|
|
crop { return (CROP); }
|
|
even { return (EVEN); }
|
|
file { return (FILE_KEYWORD); }
|
|
image { return (IMAGE); }
|
|
images { return (IMAGES); }
|
|
inch { return (INCH); }
|
|
input { return (INPUT); }
|
|
keywords { return (KEYWORDS); }
|
|
label { return (LABEL); }
|
|
landscape { return (LANDSCAPE); }
|
|
odd { return (ODD); }
|
|
output { return (OUTPUT); }
|
|
page { return (PAGE); }
|
|
pages { return (PAGES); }
|
|
portrait { return (PORTRAIT) ; }
|
|
resolution { return (RESOLUTION) ; }
|
|
rotate { return (ROTATE); }
|
|
size { return (SIZE); }
|
|
subject { return (SUBJECT); }
|
|
title { return (TITLE); }
|
|
|
|
'[^\n']' {
|
|
yylval.character = yytext [1];
|
|
return (CHARACTER);
|
|
}
|
|
|
|
\"[^\n"]*\" {
|
|
int len = strlen (yytext) - 2;
|
|
yylval.string = malloc (len + 1);
|
|
memcpy (yylval.string, yytext + 1, len);
|
|
yylval.string [len] = '\0';
|
|
LDBG (("string \"%s\"\n", yylval.string));
|
|
return (STRING);
|
|
}
|
|
|
|
[ \t]+ /* whitespace */
|
|
\n { line++; }
|
|
|
|
--.* /* Ada/VHDL style one-line comment */
|
|
#.* /* shell-style one-line comment */
|
|
|
|
. { fprintf (stderr, "Unrecognized character: %s\n", yytext); }
|
|
|
|
%%
|