%{ // -*- c++ -*-//                          Package   : omniidl// idl.ll                   Created on: 1999/10/05//			    Author    : Duncan Grisby (dpg1)////    Copyright (C) 1999 AT&T Laboratories Cambridge////  This file is part of omniidl.////  omniidl is free software; you can redistribute it and/or modify it//  under the terms of the GNU General Public License as published by//  the Free Software Foundation; either version 2 of the License, or//  (at your option) any later version.////  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-1307, USA.//// Description://   //   Flex lexical analyser// $Id: idl.ll,v 1.9.2.9 2004/10/17 20:14:34 dgrisby Exp $// $Log: idl.ll,v $// Revision 1.9.2.9  2004/10/17 20:14:34  dgrisby// Updated support for OpenVMS. Many thanks to Bruce Visscher.//// Revision 1.9.2.8  2001/10/22 10:48:22  dpg1// Cope with DOS line endings in all IDL situations.//// Revision 1.9.2.7  2001/10/17 16:48:32  dpg1// Minor error message tweaks//// Revision 1.9.2.6  2001/06/13 11:28:20  dpg1// Proper omniidl support for wchar/wstring constants.//// Revision 1.9.2.5  2001/03/13 10:32:10  dpg1// Fixed point support.//// Revision 1.9.2.4  2000/11/01 12:45:55  dpg1// Update to CORBA 2.4 specification.//// Revision 1.9.2.3  2000/10/27 16:31:07  dpg1// Clean up of omniidl dependencies and types, from omni3_develop.//// Revision 1.9.2.2  2000/10/10 10:18:50  dpg1// Update omniidl front-end from omni3_develop.//// Revision 1.7.2.8  2000/08/07 15:34:35  dpg1// Partial back-port of long long from omni3_1_develop.//// Revision 1.7.2.7  2000/06/09 11:20:47  dpg1// Last fix put __omni_pragma line numbers off by one...//// Revision 1.7.2.6  2000/06/08 14:58:19  dpg1// Line numbers for #pragmas and // comments were off by one//// Revision 1.7.2.5  2000/06/08 14:36:19  dpg1// Comments and pragmas are now objects rather than plain strings, so// they can have file,line associated with them.//// Revision 1.7.2.4  2000/06/05 18:12:25  dpg1// Support for __omni_pragma//// Revision 1.7.2.3  2000/04/26 09:55:48  dpg1// cccp escapes characters like \ in line directives, so// parseLineDirective() needs to use escapedStringToString().//// Revision 1.7.2.2  2000/03/06 15:03:49  dpg1// Minor bug fixes to omniidl. New -nf and -k flags.//// Revision 1.7.2.1  2000/02/16 16:30:54  dpg1// #pragma ID was misspelled #pragma id. Oops.//// Revision 1.7  2000/02/04 12:17:10  dpg1// Support for VMS.//// Revision 1.6  1999/12/28 17:44:01  dpg1// Stupid string allocation bug.//// Revision 1.5  1999/11/19 16:03:40  dpg1// Flex scanner now accepts \r as whitespace.//// Revision 1.4  1999/11/05 10:36:42  dpg1// Sorted out isatty() problems.//// Revision 1.3  1999/11/02 17:07:28  dpg1// Changes to compile on Solaris.//// Revision 1.2  1999/11/01 10:05:00  dpg1// New file attribute to AST.//// Revision 1.1  1999/10/27 14:06:00  dpg1// *** empty log message ***//#define YY_NEVER_INTERACTIVE 1#include <stdlib.h>#include <string.h>#include <ctype.h>#include <errno.h>#include <idlerr.h>#include <idlutil.h>#include <idlrepoId.h>#include <idlscope.h>#include <idlexpr.h>#include <idlast.h>#include <y.tab.h>char*       currentFile;IDL_Boolean mainFile  = 1; // Are we processing the main fileint         nestDepth = 0; // #include nesting depthchar octalToChar(char* s);char hexToChar(char* s);char escapeToChar(char* s);IDL_UShort octalToWChar(char* s);IDL_UShort hexToWChar(char* s);IDL_UShort escapeToWChar(char* s);char* escapedStringToString(char* s);IDL_UShort* escapedStringToWString(char* s);void parseLineDirective(char* s);%}%option noyywrap%option yylineno%x comment%s known_pragma%x unknown_pragma%x omni_pragmaWS          [ \t\v\n\f\r]SPACE       [ \t]ASCIILETTER [a-zA-Z]IDCHAR      [a-zA-Z0-9_]IDENT       ({ASCIILETTER}{IDCHAR}*)DECDIGIT    [0-9]DECSTART    [1-9]OCTSTART    0OCTDIGIT    [0-7]HEXSTART    (0[xX])HEXDIGIT    [0-9a-fA-F]EXPONENT    ([Ee][+-]?{DECDIGIT}+)STR         (\"([^\"]|\\\")*\")%%abstract        return ABSTRACT;any             return ANY;attribute       return ATTRIBUTE;boolean         return BOOLEAN;case            return CASE;char            return CHAR;const           return CONST;context         return CONTEXT;custom          return CUSTOM;default         return DEFAULT;double          return DOUBLE;enum            return ENUM;exception       return EXCEPTION;factory         return FACTORY;FALSE           return FALSE_;fixed           return FIXED;float           return FLOAT;in              return IN;inout           return INOUT;interface       return INTERFACE;local           return LOCAL;long            return LONG;module          return MODULE;native          return NATIVE;Object          return OBJECT;octet           return OCTET;oneway          return ONEWAY;out             return OUT;private         return PRIVATE;public          return PUBLIC;raises          return RAISES;readonly        return READONLY;sequence        return SEQUENCE;short           return SHORT;string          return STRING;struct          return STRUCT;supports        return SUPPORTS;switch          return SWITCH;TRUE            return TRUE_;truncatable     return TRUNCATABLE;typedef         return TYPEDEF;union           return UNION;unsigned        return UNSIGNED;ValueBase       return VALUEBASE;valuetype       return VALUETYPE;void            return VOID;wchar           return WCHAR;wstring         return WSTRING;"<<"            return LEFT_SHIFT;">>"            return RIGHT_SHIFT;"::"            return SCOPE_DELIM;{IDENT} {  yylval.id_val = idl_strdup(yytext);  return IDENTIFIER;}_{IDENT} {  yylval.id_val = idl_strdup(yytext);  return IDENTIFIER;}{DECSTART}{DECDIGIT}* {  errno = 0;  yylval.int_literal_val = idl_strtoul(yytext, 10);  if (errno == ERANGE) {    IdlError(currentFile, yylineno,	     "Integer literal '%s' is too big", yytext);  }  return INTEGER_LITERAL;}{OCTSTART}{OCTDIGIT}+ {  errno = 0;  yylval.int_literal_val = idl_strtoul(yytext, 8);  if (errno == ERANGE) {    IdlError(currentFile, yylineno,	     "Integer literal '%s' is too big", yytext);  }  return INTEGER_LITERAL;}{HEXSTART}{HEXDIGIT}+ {  errno = 0;  yylval.int_literal_val = idl_strtoul(yytext, 16);  if (errno == ERANGE) {    IdlError(currentFile, yylineno,	     "Integer literal '%s' is too big", yytext);  }  return INTEGER_LITERAL;}"0" {  yylval.int_literal_val = 0;  return INTEGER_LITERAL;}"'"."'" {  yylval.char_val = yytext[1];  return CHARACTER_LITERAL;}"'"\\([0-7]{1,3})"'" {  yytext[yyleng-1] = '\0';  yylval.char_val = octalToChar(yytext + 1);  return CHARACTER_LITERAL;}"'"\\x({HEXDIGIT}{1,2})"'" {  yytext[yyleng-1] = '\0';  yylval.char_val = hexToChar(yytext + 1);  return CHARACTER_LITERAL;}"'"\\u({HEXDIGIT}{1,4})"'" {  IdlError(currentFile, yylineno,	   "\\u may only be used in wide characters and strings");  yylval.char_val = 0;  return CHARACTER_LITERAL;}"'"\\."'" {  yytext[yyleng-1] = '\0';  yylval.char_val = escapeToChar(yytext + 1);  return CHARACTER_LITERAL;}L"'"."'" {  yylval.wchar_val = yytext[2];  return WIDE_CHARACTER_LITERAL;}L"'"\\([0-7]{1,3})"'" {  yytext[yyleng-1] = '\0';  yylval.wchar_val = octalToWChar(yytext + 2);  return WIDE_CHARACTER_LITERAL;}L"'"\\x({HEXDIGIT}{1,2})"'" {  yytext[yyleng-1] = '\0';  yylval.wchar_val = hexToWChar(yytext + 2);  return WIDE_CHARACTER_LITERAL;}L"'"\\u({HEXDIGIT}{1,4})"'" {  yytext[yyleng-1] = '\0';  yylval.wchar_val = hexToWChar(yytext + 2);  return WIDE_CHARACTER_LITERAL;}L"'"\\."'" {  yytext[yyleng-1] = '\0';  yylval.wchar_val = escapeToWChar(yytext + 2);  return WIDE_CHARACTER_LITERAL;}<INITIAL>{DECDIGIT}+{EXPONENT} {  // Only deal with floats in INITIAL state, so version pragmas don't  // get interpreted as floats.  yylval.float_literal_val = idl_strtod(yytext);  return FLOATING_PT_LITERAL;}<INITIAL>{DECDIGIT}*"."{DECDIGIT}+{EXPONENT}? {  yylval.float_literal_val = idl_strtod(yytext);  return FLOATING_PT_LITERAL;}<INITIAL>{DECDIGIT}+"."{DECDIGIT}*{EXPONENT}? {  yylval.float_literal_val = idl_strtod(yytext);  return FLOATING_PT_LITERAL;