version 1.1, 2000/04/12 20:06:16
|
version 1.3, 2000/05/15 20:33:33
|
Line 336 void newyy_input (char *buf,int *result,
|
Line 336 void newyy_input (char *buf,int *result,
|
#endif |
#endif |
|
|
int capa_eof(); |
int capa_eof(); |
|
|
%} |
%} |
|
|
Alpha [a-zA-Z_] |
Alpha [a-zA-Z_] |
Line 378 EndLine ([\r][\n]|[\n])
|
Line 379 EndLine ([\r][\n]|[\n])
|
} |
} |
|
|
<S_COMMENT>{ |
<S_COMMENT>{ |
^{Spaces}"//"[^\n]*$ { LLDBUG_PRL2("[COMMENT<%s>]\n",yytext); |
{EndLine}{Spaces}"//"[^\n]*$ {LLDBUG_PRL2("[COMMENT<%s>]\n",yytext); |
send(&yytext[2]); |
send("%s",yytext); |
send("\n"); |
} |
BEGIN S_COMMENT; |
[^\n]*{EndLine} { |
} |
send("\n"); BEGIN S_TEXT; |
. { send("</comment>\n"); BEGIN S_TEXT; } |
} |
} |
} |
|
|
|
|
<S_TEXT>{ |
<S_TEXT>{ |
^{Spaces}"/LET" | |
^{Spaces}"/LET" | |
^{Spaces}"/BEG" { LLDBUG_PRL1("[LET]"); Pcount = 0; init_funcstack(); BEGIN S_LET; RETURN(CAPA_LET); } |
^{Spaces}"/BEG" { LLDBUG_PRL1("[LET]"); Pcount = 0; BEGIN S_LET; start_mode(MODE_SCRIPT,NULL); |
|
} |
^{Spaces}"/VERB" { |
^{Spaces}"/VERB" { |
LLDBUG_PRL1("[VERBATIM]"); |
LLDBUG_PRL1("[VERBATIM]"); |
Dynamic_buf = (char *)capa_malloc(sizeof(char),10); |
Dynamic_buf = (char *)capa_malloc(sizeof(char),10); |
Line 397 EndLine ([\r][\n]|[\n])
|
Line 400 EndLine ([\r][\n]|[\n])
|
Dynamic_buf[0] = '\0'; |
Dynamic_buf[0] = '\0'; |
BEGIN S_VERB; |
BEGIN S_VERB; |
} |
} |
^{Spaces}"/HIN"{Alpha}*{Spaces} { LLDBUG_PRL1("[HIN]"); Current_char_p = String_buf; BEGIN S_HINT; } |
^{Spaces}"/HIN"{Alpha}*{Spaces} { LLDBUG_PRL1("[HIN]"); |
^{Spaces}"/EXP"{Alpha}*{Spaces} { LLDBUG_PRL1("[EXP]"); Current_char_p = String_buf; BEGIN S_EXPLAIN; } |
start_mode(MODE_BLOCK, |
|
"condition=\"&hinton\""); |
|
BEGIN S_HINT; |
|
} |
|
^{Spaces}"/EXP"{Alpha}*{Spaces} { start_mode(MODE_BLOCK,"condition=&explanation"); |
|
LLDBUG_PRL1("[EXP]"); Current_char_p = String_buf; BEGIN S_EXPLAIN; } |
^{Spaces}"/IMP"{Alpha}*{Space}+ { LLDBUG_PRL1("[IMP]"); BEGIN S_IMPORT; } |
^{Spaces}"/IMP"{Alpha}*{Space}+ { LLDBUG_PRL1("[IMP]"); BEGIN S_IMPORT; } |
^{Spaces}"/END" { LLDBUG_PRL1("[END]"); |
^{Spaces}"/END" { LLDBUG_PRL1("[END]"); |
if ( (LexiProblem_p !=NULL) && |
if ( (LexiProblem_p !=NULL) && |
Line 480 EndLine ([\r][\n]|[\n])
|
Line 488 EndLine ([\r][\n]|[\n])
|
LLDBUG_PR1("[DIS<]"); |
LLDBUG_PR1("[DIS<]"); |
init_funcstack(); |
init_funcstack(); |
Pcount = 0; BEGIN S_VARIABLE; |
Pcount = 0; BEGIN S_VARIABLE; |
RETURN(CAPA_VAR); |
start_delayed(); |
} |
} |
"/OR" { LLDBUG_PRL1("[OR]"); BEGIN S_ANSCONTINUE; RETURN(ANS_OR); } |
"/OR" { LLDBUG_PRL1("[OR]"); BEGIN S_ANSCONTINUE; RETURN(ANS_OR); } |
{EndLine} { LLDBUG_PR1("[EoL within S_TEXT]\n"); /* end of the whole text line */ |
{EndLine} { LLDBUG_PR1("[EoL within S_TEXT]\n"); /* end of the whole text line */ |
RETURN(EoL); } |
send("\n"); } |
[\\]{Space}*{EndLine} { LLDBUG_PR2("[\\EoL continue](%s)",yytext); /* continuation on next line */ } |
[\\]{Space}*{EndLine} { LLDBUG_PR2("[\\EoL continue](%s)",yytext); /* continuation on next line */ } |
^{Spaces}"//"[^\n]*{EndLine} { LLDBUG_PRL2("[COMMENT<%s>]\n",yytext); |
^{Spaces}"//"[^\n]*$ { LLDBUG_PRL2("[COMMENT<%s>]\n",yytext); |
send("<comment>\n"); |
start_mode(MODE_COMMENT,NULL); |
send(&yytext[2]); |
send("%s\n",yytext); |
BEGIN S_COMMENT; |
BEGIN S_COMMENT; |
} |
} |
|
|
[^/\n\\]+$ | |
[^/\n\\]+$ | |
[/] | |
[/] | |
[\\] { yylval = (Symbol *) capa_malloc(1, sizeof(Symbol)); |
[\\] { start_mode(MODE_OUTTEXT,NULL); |
|
yylval = (Symbol *) capa_malloc(1, sizeof(Symbol)); |
yylval->s_str = strsave(yytext); |
yylval->s_str = strsave(yytext); |
LLDBUG_PR2("[TEXT_LINE<%s>]",yytext); |
LLDBUG_PR2("[TEXT_LINE<%s>]",yytext); |
RETURN(TEXT_LINE); |
//RETURN(TEXT_LINE); |
} |
} |
([^/\n])+[/] | |
([^/\n])+[/] | |
([^/\n])+[\\] { /* matches anything until a '/' or a '\' */ |
([^/\n])+[\\] { /* matches anything until a '/' or a '\' */ |
|
start_mode(MODE_OUTTEXT,NULL); |
LLDBUG_PR2("[TEXT_LINE( )<%s>]",yytext); |
LLDBUG_PR2("[TEXT_LINE( )<%s>]",yytext); |
|
|
yyless(yyleng-1); /* push back the last char */ |
yyless(yyleng-1); /* push back the last char */ |
yylval = (Symbol *) capa_malloc(1, sizeof(Symbol)); |
|
yylval->s_str = strsave(yytext); |
|
|
|
BEGIN S_TEXT; |
BEGIN S_TEXT; |
RETURN(TEXT_LINE); |
send(yytext); |
} |
} |
<<EOF>> { |
<<EOF>> { |
#ifdef AVOIDYYINPUT |
#ifdef AVOIDYYINPUT |
Line 526 EndLine ([\r][\n]|[\n])
|
Line 534 EndLine ([\r][\n]|[\n])
|
} |
} |
} else { |
} else { |
sprintf(warn_msg, |
sprintf(warn_msg, |
"at End-of-File, a /END is needed.\n"); |
"at End-of-File, a /END is needed.\n"); |
capa_msg(MESSAGE_ERROR,warn_msg); |
capa_msg(MESSAGE_ERROR,warn_msg); |
} |
} |
free_problems(LexiProblem_p); |
free_problems(LexiProblem_p); |
Line 612 EndLine ([\r][\n]|[\n])
|
Line 620 EndLine ([\r][\n]|[\n])
|
int ii; |
int ii; |
|
|
yyless(yyleng-1); |
yyless(yyleng-1); |
for(ii=0;ii<yyleng;ii++) { |
send(aptr); |
*Current_char_p++ = *aptr++; |
|
} |
} |
|
[/] { send("/"); } |
} |
[\\] { send("\\"); } |
[/] { *Current_char_p++ = '/'; } |
|
[\\] { *Current_char_p++ = '\\'; } |
|
[\\]{Space}*[\n] { LLDBUG_PR1("[\\CR hint explain continue]"); /* Hint and explain continuation */ } |
[\\]{Space}*[\n] { LLDBUG_PR1("[\\CR hint explain continue]"); /* Hint and explain continuation */ } |
[^/\n\\]+$ { char *aptr = yytext; |
[^/\n\\]+$ {char *aptr = yytext; |
int ii; |
int ii; |
for(ii=0;ii<yyleng;ii++) { |
send(aptr); |
*Current_char_p++ = *aptr++; |
} |
} |
|
} |
|
} |
} |
<S_HINT>{ |
<S_HINT>{ |
{EndLine} { LLDBUG_PR1("[CR hint]"); |
{EndLine} { LLDBUG_PR1("[CR hint]"); |
yylval = (Symbol *) capa_malloc(1, sizeof(Symbol)); |
send("\n"); |
*Current_char_p++ = '\n'; *Current_char_p = '\0'; |
BEGIN S_TEXT; |
yylval->s_str = strsave(String_buf); |
|
BEGIN S_TEXT; RETURN(HINT_LINE); |
|
} |
} |
} |
} |
<S_EXPLAIN>{ |
<S_EXPLAIN>{ |
Line 681 EndLine ([\r][\n]|[\n])
|
Line 682 EndLine ([\r][\n]|[\n])
|
} |
} |
break; |
break; |
} |
} |
|
printf("FIXME!Hint: %s\n",yytext); |
} |
} |
{Space}+ { } |
{Space}+ { } |
[)] { yy_pop_state(); } |
[)] { yy_pop_state(); } |
} |
} |
|
|
<S_IMPORT>{ |
<S_IMPORT>{ |
{FileName}{Space}* { parse_filename(yytext); BEGIN S_SKIP; } |
{FileName}{Space}* { end_mode();send("<import>%s</import>\n",yytext); BEGIN S_SKIP; } |
{Identifier}{Space}* { parse_import_id(yytext); BEGIN S_SKIP; } |
{Identifier}{Space}* { end_mode();send("<import>$%s</import>\n",yytext); BEGIN S_SKIP; } |
} |
} |
|
|
<S_ANSWER>{ |
<S_ANSWER>{ |
Line 737 EndLine ([\r][\n]|[\n])
|
Line 739 EndLine ([\r][\n]|[\n])
|
|
|
<S_VARIABLE,S_TRUE_FALSE_STMT,S_LET,S_ANSWER,S_MAP>{ |
<S_VARIABLE,S_TRUE_FALSE_STMT,S_LET,S_ANSWER,S_MAP>{ |
{Alpha}{AlphaNum}* { LLDBUG_PR2("[ID<%s>]",yytext);LLDBUG_PR2("[SYMB CNT=<%d>]", Symb_count); |
{Alpha}{AlphaNum}* { LLDBUG_PR2("[ID<%s>]",yytext);LLDBUG_PR2("[SYMB CNT=<%d>]", Symb_count); |
/*yylval = find_identifier(yytext);*/ RETURN(IDENTIFIER); |
send("$%s",yytext); |
} |
} |
|
|
{Alpha}{AlphaNum}*{Space}*[(] { char aline[MAX_FUNC_NAME]; |
{Alpha}{AlphaNum}*{Space}*[(] { char aline[MAX_FUNC_NAME]; |
int i; |
int i; |
for(i=0;i < (yyleng-1); i++) { |
send("&%s",yytext); |
if( yytext[i] == ' ' || yytext[i] == '\t' || |
Pcount++; |
yytext[i] == 0 || yytext[i] == '(' ) break; |
|
aline[i] = yytext[i]; |
|
} |
|
aline[i] = 0; |
|
LLDBUG_PR3("[FUNCT<%s:%d>]",aline,Func_idx); |
|
(FuncStack[Func_idx]).s_type = FUNCTION_ID; |
|
(FuncStack[Func_idx]).s_name = strsave(aline); /* free it in parser() */ |
|
Func_idx++; |
|
yyless(yyleng-1); /* <-- push back '(' char */ |
|
RETURN(FUNCTION_ID); |
|
} |
} |
{Alpha}{AlphaNum}*{Space}*[\[] { char aline[MAX_FUNC_NAME]; |
{Alpha}{AlphaNum}*{Space}*[\[] { char aline[MAX_FUNC_NAME]; |
int i; |
int i; |
Line 779 EndLine ([\r][\n]|[\n])
|
Line 771 EndLine ([\r][\n]|[\n])
|
{Number}+[Ee]{Number}+ | |
{Number}+[Ee]{Number}+ | |
{Number}+[Ee]"-"{Number}+ | |
{Number}+[Ee]"-"{Number}+ | |
{Number}+"\."{Number}* | |
{Number}+"\."{Number}* | |
"\."{Number}+ { yylval = (Symbol *) capa_malloc(1, sizeof(Symbol)); /* *** */ |
"\."{Number}+ { |
yylval->s_real = strtod(yytext, (char **) 0); |
|
yylval->s_type = R_CONSTANT; |
|
LLDBUG_PR2("[REAL<%s>]",yytext); |
LLDBUG_PR2("[REAL<%s>]",yytext); |
RETURN(R_CONSTANT); |
send(yytext); |
} |
} |
|
|
{Number}+ { yylval = (Symbol *) capa_malloc(1, sizeof(Symbol)); /* *** */ |
{Number}+ { |
yylval->s_int = strtol(yytext, (char **) 0, 0); |
|
yylval->s_type= I_CONSTANT; |
|
LLDBUG_PR2("[INT<%s>]",yytext); |
LLDBUG_PR2("[INT<%s>]",yytext); |
RETURN(I_CONSTANT); |
send(yytext); |
} |
} |
[\(] { LLDBUG_PR1("[dis let ans map (]"); Pcount++; return(yytext[0]); } |
[\(] { LLDBUG_PR1("[dis let ans map (]"); Pcount++; if (Pcount > 1 ) {send(yytext);} } |
[\[] { LLDBUG_PR1("[dis let ans map '[']"); return(yytext[0]); } |
[\[] { LLDBUG_PR1("[dis let ans map '[']"); return(yytext[0]); } |
[\]] { LLDBUG_PR1("[dis let ans map ']']"); return(yytext[0]); } |
[\]] { LLDBUG_PR1("[dis let ans map ']']"); return(yytext[0]); } |
{Space}+ { /* LLDBUG_PR1("[SP ignored]"); Ignore Spaces */ } |
{Space}+ { /* LLDBUG_PR1("[SP ignored]"); Ignore Spaces */ } |
[\"] { LLDBUG_PR1("[TF,V,LET,ANS,MAP str\" ]"); |
[\"] { LLDBUG_PR1("[TF,V,LET,ANS,MAP str\" ]"); |
Current_char_p = String_buf; |
Current_char_p = String_buf; |
yy_push_state(S_STRING); |
send("\""); |
|
yy_push_state(S_STRING); |
} |
} |
} |
} |
|
|
<S_VARIABLE,S_ANSWER>[:]{Number}+[EeFf] { char num[ONE_TWO_EIGHT], fmt[SMALL_LINE_BUFFER]; |
<S_VARIABLE,S_ANSWER>[:]{Number}+[EeFf] { |
int i; |
end_delayed(); |
LLDBUG_PR2("[FORMAT<%s>]",yytext); |
send("&format("); |
for(i=0;i<yyleng-2;i++) { |
flush_delayed(); |
num[i] = yytext[i+1]; |
send(",\"%s\")",yytext+1); |
} |
|
num[yyleng-2] = 0; /* terminate the numerical string */ |
|
yylval = (Symbol *) capa_malloc(1, sizeof(Symbol)); |
|
i = strtol(num, (char **) 0, 0); |
|
yylval->s_type=FORMAT; |
|
switch( yytext[yyleng-1] ) { |
|
case 'e': sprintf(fmt,"%%.%de", i); |
|
yylval->s_distype = E_FORMAT; break; |
|
case 'E': sprintf(fmt,"%%.%dE", i); |
|
yylval->s_distype = E_FORMAT; break; |
|
case 'f': |
|
case 'F': sprintf(fmt,"%%.%df", i); |
|
yylval->s_distype = F_FORMAT; break; |
|
} |
|
yylval->s_str = strsave(fmt); |
|
RETURN(FORMAT); |
|
} |
} |
|
|
<S_VARIABLE,S_TRUE_FALSE_STMT,S_LET,S_MAP>{ |
<S_VARIABLE,S_TRUE_FALSE_STMT,S_LET,S_MAP>{ |
Line 835 EndLine ([\r][\n]|[\n])
|
Line 808 EndLine ([\r][\n]|[\n])
|
"&&" { LLDBUG_PR1("[&&]"); RETURN(AND_op); } |
"&&" { LLDBUG_PR1("[&&]"); RETURN(AND_op); } |
"||" { LLDBUG_PR1("[||]"); RETURN(OR_op); } |
"||" { LLDBUG_PR1("[||]"); RETURN(OR_op); } |
"//" { if(Pcount==0) BEGIN S_SKIP; } |
"//" { if(Pcount==0) BEGIN S_SKIP; } |
{Operator} { LLDBUG_PR2("[Op(%c) in VAR,TF_STMT,LET]",yytext[0]); return(yytext[0]); } |
{Operator} { LLDBUG_PR2("[Op(%c) in VAR,TF_STMT,LET]",yytext[0]); send(yytext); } |
} |
} |
|
|
|
|
|
|
<S_VARIABLE>{ |
<S_VARIABLE>{ |
[\)] { LLDBUG_PR1("[)]"); Pcount--; if(Pcount == 0) BEGIN S_TEXT; return(yytext[0]); } |
[\)] { LLDBUG_PR1("[)]"); |
|
Pcount--; |
|
if(Pcount == 0) { |
|
BEGIN S_TEXT; |
|
flush_delayed(); |
|
} else { |
|
send(yytext); |
|
} |
|
} |
[\\]{Space}*{EndLine} { LLDBUG_PR2("[\\EoL continue in S_VARIABLE (DIS?)](%s)",yytext); /* continuation on next line */ } |
[\\]{Space}*{EndLine} { LLDBUG_PR2("[\\EoL continue in S_VARIABLE (DIS?)](%s)",yytext); /* continuation on next line */ } |
{EndLine} { LLDBUG_PR1("[EoL within /dis()]\n"); RETURN(EoL); } |
{EndLine} { LLDBUG_PR1("[EoL within /dis()]\n"); } |
. { char warn_msg[WARN_MSG_LENGTH]; |
. { char warn_msg[WARN_MSG_LENGTH]; |
sprintf(warn_msg,"When use a VARIABLE, an unexpected char [%c] is encountered.\n",yytext[0]); |
sprintf(warn_msg,"When use a VARIABLE, an unexpected char [%c] is encountered.\n",yytext[0]); |
capa_msg(MESSAGE_ERROR,warn_msg); |
capa_msg(MESSAGE_ERROR,warn_msg); |
Line 861 EndLine ([\r][\n]|[\n])
|
Line 842 EndLine ([\r][\n]|[\n])
|
} |
} |
|
|
<S_STRING>{ |
<S_STRING>{ |
[\\][\\] { char *aptr = yytext; |
[\\][\\] { /*char *aptr = yytext; |
while( *aptr ) *Current_char_p++ = *aptr++; |
while( *aptr ) *Current_char_p++ = *aptr++;*/ |
|
send(yytext); |
} |
} |
[\\][\"] { *Current_char_p++ = '"'; } |
[\\][\"] { /**Current_char_p++ = '"';*/ send("\\\""); } |
[\\]{Space}*[\n] { LLDBUG_PR2("[\\CR continue in S_STRING](%s)",yytext); /* continuation on next line */ } |
[\\]{Space}*[\n] { LLDBUG_PR2("[\\CR continue in S_STRING](%s)",yytext); /* continuation on next line */ } |
[\"] { /* end of a string constant -- */ |
[\"] { /* end of a string constant -- */ |
yylval = (Symbol *) capa_malloc(1, sizeof(Symbol)); |
send("\""); |
*Current_char_p = '\0'; |
|
yylval->s_str = strsave(String_buf); /* **** */ |
|
yylval->s_type = S_CONSTANT; |
|
/* printf("STRING:%s\n", String_buf); */ |
|
LLDBUG_PR2("[%s\"END str]",String_buf); |
|
yy_pop_state(); |
yy_pop_state(); |
RETURN(S_CONSTANT); } |
} |
{EndLine} { /* check for termination of string constant */ |
{EndLine} { /* check for termination of string constant */ |
char warn_msg[WARN_MSG_LENGTH]; |
char warn_msg[WARN_MSG_LENGTH]; |
|
|
*Current_char_p = '\0'; |
|
sprintf(warn_msg,"STRING not terminated properly, an EoL encountered in the middle.\n%s\n",String_buf); |
sprintf(warn_msg,"STRING not terminated properly, an EoL encountered in the middle.\n%s\n",String_buf); |
capa_msg(MESSAGE_ERROR,warn_msg); |
capa_msg(MESSAGE_ERROR,warn_msg); |
yy_pop_state(); |
yy_pop_state(); |
} |
} |
. { char *aptr = yytext; |
. { /*char *aptr = yytext; |
while( *aptr ) *Current_char_p++ = *aptr++; |
while( *aptr ) *Current_char_p++ = *aptr++;*/ |
|
send(yytext); |
} |
} |
} |
} |
|
|
<S_LET>[\)] { LLDBUG_PR1("[) in LET]"); Pcount--; return(yytext[0]); } |
<S_LET>[\)] { LLDBUG_PR1("[) in LET]"); Pcount--;send(yytext); } |
|
|
<S_SKIP>{ |
<S_SKIP>{ |
[^\n]+$ { } |
[^\n]+$ { } |
{EndLine} { BEGIN S_TEXT; RETURN(EoL); } |
{EndLine} { BEGIN S_TEXT; } |
} |
} |
|
|
<S_LET,S_ANSWER,S_MAP>{ |
<S_LET,S_ANSWER,S_MAP>{ |
[\\]{Space}*{EndLine} { LLDBUG_PR1("[\\EoL let ans map]"); /* continuation */ } |
[\\]{Space}*{EndLine} { LLDBUG_PR1("[\\EoL let ans map]"); /* continuation */ } |
{EndLine} { LLDBUG_PR1("[EoL END let ans map]\n"); if(Pcount == 0) BEGIN S_TEXT; RETURN(EoL); } |
{EndLine} { LLDBUG_PR1("[EoL END let ans map]\n"); if(Pcount == 0) BEGIN S_TEXT; send(yytext); } |
} |
} |
|
|
<S_MAP>{ |
<S_MAP>{ |