%x string name charmap defn nchar subs %{ /*- * Copyright (c) 1995 Alex Tatmanjants <alex@elvisti.kiev.ua> * at Electronni Visti IA, Kiev, Ukraine. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * $Id: scan.l,v 1.7 1997/02/22 19:54:32 peter Exp $ */ #include <ctype.h> #include <err.h> #include <unistd.h> #include <string.h> #include <sysexits.h> #include "collate.h" #include "y.tab.h" int line_no = 1, save_no; u_char buf[STR_LEN], *ptr; FILE *map_fp; extern char map_name[]; extern u_char charmap_table[UCHAR_MAX + 1][STR_LEN]; YY_BUFFER_STATE main_buf, map_buf; #ifdef FLEX_DEBUG YYSTYPE yylval; #endif /* FLEX_DEBUG */ %} %% <INITIAL,charmap,nchar,subs>[ \t]+ ; <subs>\" { ptr = buf; BEGIN(string); } <INITIAL>\< { ptr = buf; BEGIN(name); } ^#.*\n line_no++; ^\n line_no++; <INITIAL>\\\n line_no++; <INITIAL,nchar>\\t { yylval.ch = '\t'; return CHAR; } <INITIAL,nchar>\\n { yylval.ch = '\n'; return CHAR; } <INITIAL,nchar>\\b { yylval.ch = '\b'; return CHAR; } <INITIAL,nchar>\\f { yylval.ch = '\f'; return CHAR; } <INITIAL,nchar>\\v { yylval.ch = '\v'; return CHAR; } <INITIAL,nchar>\\r { yylval.ch = '\r'; return CHAR; } <INITIAL,nchar>\\a { yylval.ch = '\a'; return CHAR; } <INITIAL,nchar>\\. { yylval.ch = yytext[1]; return CHAR; } <subs>\n { line_no++; BEGIN(INITIAL); return '\n'; } <INITIAL,nchar>\n { line_no++; if (map_fp != NULL) { ptr = buf; BEGIN(defn); } return '\n'; } <INITIAL>[;,{}()] return *yytext; <INITIAL>substitute { BEGIN(subs); return SUBSTITUTE; } <subs>with return WITH; <INITIAL>order return ORDER; <INITIAL>charmap BEGIN(charmap); <INITIAL>;[ \t]*\.\.\.[ \t]*; return RANGE; <INITIAL,nchar>\\[0-7]{3} { u_int v; sscanf(&yytext[1], "%o", &v); yylval.ch = (u_char)v; return CHAR; } <INITIAL,nchar>\\x[0-9a-z]{2} { u_int v; sscanf(&yytext[2], "%x", &v); yylval.ch = (u_char)v; return CHAR; } <INITIAL>[^;,{}() \t\n"<]+ { if(yyleng == 1) { yylval.ch = *yytext; return CHAR; } if(yyleng > STR_LEN - 1) errx(EX_UNAVAILABLE, "chain buffer overflow near line %u", line_no); strcpy(yylval.str, yytext); return CHAIN; } <nchar>. { yylval.ch = *yytext; return CHAR; } <defn>[ \t]+ { if (ptr == buf) errx(EX_UNAVAILABLE, "map expected near line %u of %s", line_no, map_name); *ptr = '\0'; strcpy(yylval.str, buf); BEGIN(nchar); return DEFN; } <name>\/\/ { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "name buffer overflow near line %u, character '/'", line_no); *ptr++ = '/'; } <name>\/\> { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "name buffer overflow near line %u, character '>'", line_no); *ptr++ = '>'; } <string>\\\" { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "string buffer overflow near line %u, character '\"'", line_no); *ptr++ = '"'; } <name>\> { u_int i; if (ptr == buf) errx(EX_UNAVAILABLE, "non-empty name expected near line %u", line_no); *ptr = '\0'; for (i = 0; i <= UCHAR_MAX; i++) if (strcmp(charmap_table[i], buf) == 0) goto findit; errx(EX_UNAVAILABLE, "name <%s> not 'charmap'-defined near line %u", buf, line_no); findit: yylval.ch = i; BEGIN(INITIAL); return CHAR; } <string>\" { *ptr = '\0'; strcpy(yylval.str, buf); BEGIN(subs); return STRING; } <name,defn>. { char *s = (map_fp != NULL) ? map_name : "input"; if (!isascii(*yytext) || !isprint(*yytext)) errx(EX_UNAVAILABLE, "non-ASCII or non-printable character 0x%02x not allowed in the map/name near line %u of %s", *yytext, line_no, s); if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "map/name buffer overflow near line %u of %s, character '%c'", line_no, s, *yytext); *ptr++ = *yytext; } <string>\\t { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "string buffer overflow near line %u, character '\\t'", line_no); *ptr++ = '\t'; } <string>\\b { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "string buffer overflow near line %u, character '\\b'", line_no); *ptr++ = '\b'; } <string>\\f { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "string buffer overflow near line %u, character '\\f'", line_no); *ptr++ = '\f'; } <string>\\v { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "string buffer overflow near line %u, character '\\v'", line_no); *ptr++ = '\v'; } <string>\\n { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "string buffer overflow near line %u, character '\\n'", line_no); *ptr++ = '\n'; } <string>\\r { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "string buffer overflow near line %u, character '\\r'", line_no); *ptr++ = '\r'; } <string>\\a { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "string buffer overflow near line %u, character '\\a'", line_no); *ptr++ = '\a'; } <name,string,defn>\n { char *s = (map_fp != NULL) ? map_name : "input"; errx(EX_UNAVAILABLE, "unterminated map/name/string near line %u of %s", line_no, s); } <name,string,nchar><<EOF>> { char *s = (map_fp != NULL) ? map_name : "input"; errx(EX_UNAVAILABLE, "premature EOF in the name/string/char near line %u of %s", line_no, s); } <string>\\x[0-9a-f]{2} { u_int v; sscanf(&yytext[2], "%x", &v); *ptr++ = (u_char)v; } <string>\\[0-7]{3} { u_int v; sscanf(&yytext[1], "%o", &v); *ptr++ = (u_char)v; } <string>\\. { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "string buffer overflow near line %u, character '%c'", line_no, yytext[1]); *ptr++ = yytext[1]; } <string>. { if(ptr >= buf + sizeof(buf) - 1) errx(EX_UNAVAILABLE, "string buffer overflow near line %u, character '%c'", line_no, *yytext); *ptr++ = *yytext; } <charmap>[^ \t\n]+ { strcat(map_name, "/"); strcat(map_name, yytext); if((map_fp = fopen(map_name, "r")) == NULL) err(EX_UNAVAILABLE, "can't open 'charmap' file %s", map_name); save_no = line_no; line_no = 1; map_buf = yy_new_buffer(map_fp, YY_BUF_SIZE); main_buf = YY_CURRENT_BUFFER; yy_switch_to_buffer(map_buf); ptr = buf; BEGIN(defn); } <charmap>\n { errx(EX_UNAVAILABLE, "'charmap' file name expected near line %u", line_no); } <charmap><<EOF>> { errx(EX_UNAVAILABLE, "'charmap' file name expected near line %u", line_no); } <INITIAL,defn><<EOF>> { if(map_fp != NULL) { if (ptr != buf) errx(EX_UNAVAILABLE, "premature EOF in the map near line %u of %s", line_no, map_name); yy_switch_to_buffer(main_buf); yy_delete_buffer(map_buf); fclose(map_fp); map_fp = NULL; line_no = save_no; BEGIN(INITIAL); } else yyterminate(); } %% #ifdef FLEX_DEBUG main() { while(yylex()) ; return 0; } #endif /* FLEX_DEBUG */