capa/capa51/pProj/capaLexerDef.flex - diff

Return to capaLexerDef.flex CVS log

Up to [LON-CAPA] / capa / capa51 / pProj

version 1.2, 1999/10/13 18:45:28	version 1.5, 1999/12/07 19:10:47
Line 789 EndLine ([\r][\n]\|[\n])	Line 789 EndLine ([\r][\n]\|[\n])
}	}
}	}

<S_VARIABLE,S_ANSWER>[:]{Number}+[EeFf] { char num[ONE_TWO_EIGHT], fmt[SIXTEEN];	<S_VARIABLE,S_ANSWER>[:]{Number}+[EeFf] { char num[ONE_TWO_EIGHT], fmt[SMALL_LINE_BUFFER];
int i;	int i;
LLDBUG_PR2("[FORMAT<%s>]",yytext);	LLDBUG_PR2("[FORMAT<%s>]",yytext);
for(i=0;i<yyleng-2;i++) {	for(i=0;i<yyleng-2;i++) {
Line 1135 char *	Line 1135 char *
strsave(char *s)	strsave(char *s)
{	{
char *p;	char *p;
	if (s==NULL) {return s;}
p=capa_malloc(strlen(s)+1,1);	p=capa_malloc(strlen(s)+1,1);
strcpy(p,s);	strcpy(p,s);
return (p);	return (p);
Line 1194 capa_msg(int type, char *p)	Line 1195 capa_msg(int type, char *p)
}	}
warn_msg[idx]=0;	warn_msg[idx]=0;
append_error(warn_msg); append_error(p);	append_error(warn_msg); append_error(p);
break;	break;
case MESSAGE_WARN:	case MESSAGE_WARN:
default:	default:
sprintf(tmp_line,", Line %d: WARNING:", Current_line[Input_idx]);	sprintf(tmp_line,", Line %d: WARNING:", Current_line[Input_idx]);