version 1.44, 2004/02/04 07:42:07 |
version 1.46, 2004/02/09 08:23:30 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.43 2004/01/25 11:54:10 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.45 2004/02/05 08:28:53 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
Line 134 NODE MODULE_LIST; |
|
Line 134 NODE MODULE_LIST; |
|
MODULE CUR_MODULE; |
MODULE CUR_MODULE; |
char *CUR_FUNC; |
char *CUR_FUNC; |
|
|
struct oSymbol oGrlex, oGlex, oLex; |
struct oSYMBOL oGrlex, oGlex, oLex; |
Symbol Symbol_grlex = &oGrlex; |
SYMBOL Symbol_grlex = &oGrlex; |
Symbol Symbol_glex = &oGlex; |
SYMBOL Symbol_glex = &oGlex; |
Symbol Symbol_lex = &oLex;; |
SYMBOL Symbol_lex = &oLex;; |
|
|
struct oF oF_TRUE,oF_FALSE; |
struct oF oF_TRUE,oF_FALSE; |
F F_TRUE = &oF_TRUE; |
F F_TRUE = &oF_TRUE; |
Line 171 void glob_init() { |
|
Line 171 void glob_init() { |
|
Symbol_grlex->value = 0; |
Symbol_grlex->value = 0; |
OID(Symbol_glex) = O_SYMBOL; Symbol_glex->name = "@glex"; |
OID(Symbol_glex) = O_SYMBOL; Symbol_glex->name = "@glex"; |
Symbol_glex->value = 1; |
Symbol_glex->value = 1; |
OID(Symbol_lex) = O_SYMBOL; Symbol_glex->name = "@lex"; |
OID(Symbol_lex) = O_SYMBOL; Symbol_lex->name = "@lex"; |
Symbol_lex->value = 1; |
Symbol_lex->value = 2; |
sprintf(asirname,"%s/asir_symtab",asir_libdir); |
sprintf(asirname,"%s/asir_symtab",asir_libdir); |
} |
} |
|
|