diff options
author | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-06-09 20:25:39 +0000 |
---|---|---|
committer | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-06-09 20:25:39 +0000 |
commit | cca52bb322ae809f6c049ad2613799e9650609ee (patch) | |
tree | c18c24007d4275e5f8ab54c68dc76da3507bfce1 /TAO/TAO_IDL/fe/idl.ll | |
parent | c73996c0640e2037f6ea65c95c682e1eebdd7217 (diff) | |
download | ATCD-ACE-4_5_11.tar.gz |
This commit was manufactured by cvs2svn to create tag 'ACE-4_5_11'.ACE-4_5_11
Diffstat (limited to 'TAO/TAO_IDL/fe/idl.ll')
-rw-r--r-- | TAO/TAO_IDL/fe/idl.ll | 528 |
1 files changed, 0 insertions, 528 deletions
diff --git a/TAO/TAO_IDL/fe/idl.ll b/TAO/TAO_IDL/fe/idl.ll deleted file mode 100644 index 17f11b8fb21..00000000000 --- a/TAO/TAO_IDL/fe/idl.ll +++ /dev/null @@ -1,528 +0,0 @@ - -%{ -/* - -COPYRIGHT - -Copyright 1992, 1993, 1994 Sun Microsystems, Inc. Printed in the United -States of America. All Rights Reserved. - -This product is protected by copyright and distributed under the following -license restricting its use. - -The Interface Definition Language Compiler Front End (CFE) is made -available for your use provided that you include this license and copyright -notice on all media and documentation and the software program in which -this product is incorporated in whole or part. You may copy and extend -functionality (but may not remove functionality) of the Interface -Definition Language CFE without charge, but you are not authorized to -license or distribute it to anyone else except as part of a product or -program developed by you or with the express written consent of Sun -Microsystems, Inc. ("Sun"). - -The names of Sun Microsystems, Inc. and any of its subsidiaries or -affiliates may not be used in advertising or publicity pertaining to -distribution of Interface Definition Language CFE as permitted herein. - -This license is effective until terminated by Sun for failure to comply -with this license. Upon termination, you shall destroy or return all code -and documentation for the Interface Definition Language CFE. - -IDL_INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED AS IS WITH NO WARRANTIES OF -IDL_ANY KIND INCLUDING THE WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS -FOR A PARTICULAR PURPOSE, NONINFRINGEMENT, OR ARISING FROM A COURSE OF -DEALING, USAGE OR TRADE PRACTICE. - -IDL_INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED WITH NO SUPPORT AND WITHOUT -IDL_ANY OBLIGATION ON THE PART OF Sun OR IDL_ANY OF ITS SUBSIDIARIES OR AFFILIATES -TO ASSIST IDL_IN ITS USE, CORRECTION, MODIFICATION OR ENHANCEMENT. - -SUN OR IDL_ANY OF ITS SUBSIDIARIES OR AFFILIATES SHALL HAVE NO LIABILITY WITH -RESPECT TO THE INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR IDL_ANY PATENTS BY -IDL_INTERFACE DEFINITION LANGUAGE CFE OR IDL_ANY PART THEREOF. - -IDL_IN NO EVENT WILL SUN OR IDL_ANY OF ITS SUBSIDIARIES OR AFFILIATES BE LIABLE FOR -IDL_ANY LOST REVENUE OR PROFITS OR OTHER SPECIAL, INDIRECT AND CONSEQUENTIAL -DAMAGES, EVEN IF SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. - -Use, duplication, or disclosure by the government is subject to -restrictions as set forth in subparagraph (c)(1)(ii) of the Rights in -Technical Data and Computer Software clause at DFARS 252.227-7013 and FAR -52.227-19. - -Sun, Sun Microsystems and the Sun logo are trademarks or registered -trademarks of Sun Microsystems, Inc. - -SunSoft, Inc. -2550 Garcia Avenue -Mountain View, California 94043 - -NOTE: - -SunOS, SunSoft, Sun, Solaris, Sun Microsystems or the Sun logo are -trademarks or registered trademarks of Sun Microsystems, Inc. - - */ - -/* - * idl.ll - Lexical scanner for IDL 1.1 - */ - -#include "idl.h" -#include "idl_extern.h" -#include "fe_private.h" -#include "y.tab.h" - -static char idl_escape_reader(char *); -static double idl_atof(char *); -static long idl_atoi(char *, long); -static void idl_parse_line_and_file(char *); -static void idl_store_pragma(char *); - -#if 0 /* defined (HPUX) */ -// HPUX has yytext typed to unsigned char *. We make sure here that -// we'll always use char * static char* __yytext = (char*) yytext; -// NOTE: This will not work under flex(1) were yytext is not a fixed -// buffer, but a dynamically allocated one. This function should do -// the trick for us. -inline char *__yytext() -{ - return (char *) yytext; -} -#define ace_yytext __yytext() -#else -#define ace_yytext yytext -#endif /* 0 */ -%} - -%array - -%% - -any return IDL_ANY; -module return IDL_MODULE; -raises return IDL_RAISES; -readonly return IDL_READONLY; -attribute return IDL_ATTRIBUTE; -exception return IDL_EXCEPTION; -context return IDL_CONTEXT; -interface return IDL_INTERFACE; -const return IDL_CONST; -typedef return IDL_TYPEDEF; -struct return IDL_STRUCT; -enum return IDL_ENUM; -string return IDL_STRING; -wstring_t return IDL_WSTRING; -sequence return IDL_SEQUENCE; -union return IDL_UNION; -switch return IDL_SWITCH; -case return IDL_CASE; -default return IDL_DEFAULT; -float return IDL_FLOAT; -double return IDL_DOUBLE; -long return IDL_LONG; -short return IDL_SHORT; -unsigned return IDL_UNSIGNED; -char return IDL_CHAR; -wchar_t return IDL_WCHAR; -boolean return IDL_BOOLEAN; -octet return IDL_OCTET; -void return IDL_VOID; -native return IDL_NATIVE; - -TRUE return IDL_TRUETOK; -FALSE return IDL_FALSETOK; - -inout return IDL_INOUT; -in return IDL_IN; -out return IDL_OUT; -oneway return IDL_ONEWAY; - -\<\< return IDL_LEFT_SHIFT; -\>\> return IDL_RIGHT_SHIFT; -\:\: { - yylval.strval = "::"; - return IDL_SCOPE_DELIMITOR; - } - -[a-zA-Z][a-zA-Z0-9_]* { - char *z = (char *) malloc(strlen(ace_yytext) + 1); - strcpy(z, ace_yytext); - yylval.strval = z; - return IDENTIFIER; -} - --?[0-9]+"."[0-9]*([eE][+-]?[0-9]+)?[lLfF]? { - yylval.dval = idl_atof(ace_yytext); - return IDL_FLOATING_PT_LITERAL; - } --?[0-9]+[eE][+-]?[0-9]+[lLfF]? { - yylval.dval = idl_atof(ace_yytext); - return IDL_FLOATING_PT_LITERAL; - } - --?[1-9][0-9]* { - yylval.ival = idl_atoi(ace_yytext, 10); - return IDL_INTEGER_LITERAL; - } --?0[xX][a-fA-F0-9]+ { - yylval.ival = idl_atoi(ace_yytext, 16); - return IDL_INTEGER_LITERAL; - } --?0[0-7]* { - yylval.ival = idl_atoi(ace_yytext, 8); - return IDL_INTEGER_LITERAL; - } - -"\""[^\"]*"\"" { - /* Skip the quotes */ - char *tmp = ace_yytext; - tmp[strlen(tmp)-1] = '\0'; - yylval.sval = new String(tmp + 1); - return IDL_STRING_LITERAL; - } -"'"."'" { - yylval.cval = ace_yytext [1]; - return IDL_CHARACTER_LITERAL; - } -"'"\\([0-7]{1,3})"'" { - // octal character constant - yylval.cval = idl_escape_reader(ace_yytext + 1); - return IDL_CHARACTER_LITERAL; - } -"'"\\."'" { - yylval.cval = idl_escape_reader(ace_yytext + 1); - return IDL_CHARACTER_LITERAL; - } -^#[ \t]*pragma[ \t].*\n {/* remember pragma */ - idl_global->set_lineno(idl_global->lineno() + 1); - idl_store_pragma(ace_yytext); - } -^#[ \t]*[0-9]*" ""\""[^\"]*"\""" "[0-9]*\n { - idl_parse_line_and_file(ace_yytext); - } -^#[ \t]*[0-9]*" ""\""[^\"]*"\""\n { - idl_parse_line_and_file(ace_yytext); - } -^#line[ \t]*[0-9]*" ""\""[^\"]*"\""\n { - idl_parse_line_and_file(ace_yytext); - } -^#[ \t]*[0-9]*\n { - idl_parse_line_and_file(ace_yytext); - } -^#[ \t]*ident.*\n { - /* ignore cpp ident */ - idl_global->set_lineno(idl_global->lineno() + 1); - } -\/\/.*\n { - /* ignore comments */ - idl_global->set_lineno(idl_global->lineno() + 1); - } -"/*" { - for(;;) { - char c = yyinput(); - if (c == '*') { - char next = yyinput(); - if (next == '/') - break; - else - yyunput(c, NULL); - if (c == '\n') - idl_global->set_lineno(idl_global->lineno() + 1); - } - } - } -[ \t]* ; -\n { - idl_global->set_lineno(idl_global->lineno() + 1); - } -. return ace_yytext [0]; - -%% - /* subroutines */ - -/* - * Strip down a name to the last component, i.e. everything after the last - * '/' character - */ -static char * -stripped_name(UTL_String *fn) -{ - char *n = fn->get_string(); - long l; - - if (n == NULL) - return NULL; - l = strlen(n); - for (n += l; l > 0 && *n != '/'; l--, n--); - if (*n == '/') n++; - return n; -} - -/* - * Parse a #line statement generated by the C preprocessor - */ -static void -idl_parse_line_and_file(char *buf) -{ - char *r = buf; - char *h; - UTL_String *nm; - - /* Skip initial '#' */ - if (*r != '#') - return; - else - r++; - - /* Check to see if we're running under the screwy Microsoft scheme */ - /* of putting #line num instead of #num. */ - - if (ACE_OS::strncmp (r, "line", 4) == 0) - r += 5; - - /* Find line number */ - while (*r == ' ' || *r == '\t') - r++; - h = r; - for (; *r != '\0' && *r != ' ' && *r != '\t'; r++) - continue; - *r++ = 0; - idl_global->set_lineno(idl_atoi(h, 10)); - - /* Find file name, if present */ - for (; *r != '"'; r++) - if (*r == '\n' || *r == '\0') - return; - - h = ++r; - for (; *r != '"'; r++) - continue; - *r = 0; - if (*h == '\0') - idl_global->set_filename(new String("standard input")); - else - { - long i; - long j; - - // Put Microsoft-style pathnames into a canonical form. - for (i = 0, j = 0; h[j] != '\0'; i++, j++) - { - if (h[j] == '\\' && h[j + 1] == '\\') - j++; - - h[i] = h[j]; - } - h[i] = '\0'; - idl_global->set_filename(new String(h)); - } - idl_global->set_in_main_file( - (idl_global->filename()->compare(idl_global->real_filename())) ? - I_TRUE : - I_FALSE - ); - /* - * If it's an import file store the stripped name for the BE to use - */ - if (!(idl_global->in_main_file()) && idl_global->import()) { - nm = new UTL_String(stripped_name(idl_global->filename())); - idl_global->store_include_file_name(nm); - } -} - -/* - * Store a #pragma line into the list of pragmas - */ -static void -idl_store_pragma(char *buf) -{ - char *cp = buf + 1; - while(*cp != 'p') - cp++; - while(*cp != ' ' && *cp != '\t') - cp++; - while(*cp == ' ' || *cp == '\t') - cp++; - char pragma[80]; - char *pp = pragma; - while(*cp != '\n') { - *pp++ = *cp++; - } - *pp = 0; - if (strcmp(pragma, "import") == 0) { - idl_global->set_import(I_TRUE); - return; - } - if (strcmp(pragma, "include") == 0) { - idl_global->set_import(I_FALSE); - return; - } - UTL_StrList *p = idl_global->pragmas(); - if (p == NULL) - idl_global->set_pragmas(new UTL_StrList(new String(buf), NULL)); - else { - p->nconc(new UTL_StrList(new String(buf), NULL)); - idl_global->set_pragmas(p); - } -} - -/* - * idl_atoi - Convert a string of digits into an integer according to base b - */ -static long -idl_atoi(char *s, long b) -{ - long r = 0; - long negative = 0; - - if (*s == '-') { - negative = 1; - s++; - } - if (b == 8 && *s == '0') - s++; - else if (b == 16 && *s == '0' && (*(s + 1) == 'x' || *(s + 1) == 'X')) - s += 2; - - for (; *s; s++) - if (*s <= '9' && *s >= '0') - r = (r * b) + (*s - '0'); - else if (b > 10 && *s <= 'f' && *s >= 'a') - r = (r * b) + (*s - 'a' + 10); - else if (b > 10 && *s <= 'F' && *s >= 'A') - r = (r * b) + (*s - 'A' + 10); - else - break; - - if (negative) - r *= -1; - - return r; -} - -/* - * Convert a string to a float; atof doesn't seem to work, always. - */ -static double -idl_atof(char *s) -{ - char *h = s; - double d = 0.0; - double f = 0.0; - double e, k; - long neg = 0, negexp = 0; - - ACE_UNUSED_ARG (f); - ACE_UNUSED_ARG (h); - - if (*s == '-') { - neg = 1; - s++; - } - while (*s >= '0' && *s <= '9') { - d = (d * 10) + *s - '0'; - s++; - } - if (*s == '.') { - s++; - e = 10; - while (*s >= '0' && *s <= '9') { - d += (*s - '0') / (e * 1.0); - e *= 10; - s++; - } - } - if (*s == 'e' || *s == 'E') { - s++; - if (*s == '-') { - negexp = 1; - s++; - } else if (*s == '+') - s++; - e = 0; - while (*s >= '0' && *s <= '9') { - e = (e * 10) + *s - '0'; - s++; - } - if (e > 0) { - for (k = 1; e > 0; k *= 10, e--); - if (negexp) - d /= k; - else - d *= k; - } - } - - if (neg) d *= -1.0; - - return d; -} - -/* - * Convert (some) escaped characters into their ascii values - */ -static char -idl_escape_reader( - char *str -) -{ - if (str[0] != '\\') { - return str[0]; - } - - switch (str[1]) { - case 'n': - return '\n'; - case 't': - return '\t'; - case 'v': - return '\v'; - case 'b': - return '\b'; - case 'r': - return '\r'; - case 'f': - return '\f'; - case 'a': - return '\a'; - case '\\': - return '\\'; - case '\?': - return '?'; - case '\'': - return '\''; - case '"': - return '"'; - case 'x': - { - int i; - // hex value - for (i = 2; str[i] != '\0' && isxdigit(str[i]); i++) { - continue; - } - char save = str[i]; - str[i] = '\0'; - char out = (char)idl_atoi(&str[2], 16); - str[i] = save; - return out; - } - break; - default: - // check for octal value - if (str[1] >= '0' && str[1] <= '7') { - int i; - for (i = 1; str[i] >= '0' && str[i] <= '7'; i++) { - continue; - } - char save = str[i]; - str[i] = '\0'; - char out = (char)idl_atoi(&str[1], 8); - str[i] = save; - return out; - } else { - return str[1] - 'a'; - } - break; - } -} |