| version 1.16, 2005/06/16 05:07:24 |
version 1.18, 2013/11/06 06:23:23 |
|
|
| /* $OpenXM: OpenXM/src/k097/d.c,v 1.15 2004/06/30 08:00:18 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/k097/d.c,v 1.17 2006/05/06 09:40:26 takayama Exp $ */ |
| /* simple.c, 1996, 1/1 --- 1/5 */ |
/* simple.c, 1996, 1/1 --- 1/5 */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include <ctype.h> |
#include <ctype.h> |
| Line 605 KCerror(char *s) /* You need this function. Otherwis |
|
| Line 605 KCerror(char *s) /* You need this function. Otherwis |
|
| ungetc(MARK_CHAR,stdin); |
ungetc(MARK_CHAR,stdin); |
| while (fsgetc(Inop) > MARK_CHAR) ; |
while (fsgetc(Inop) > MARK_CHAR) ; |
| } |
} |
| return ; |
return 0; |
| LONGJMP(KCenvOfParser,2); |
LONGJMP(KCenvOfParser,2); |
| exit(1); |
exit(1); |
| } |
} |
|
|
| if (c == EOF) { |
if (c == EOF) { |
| fprintf(stderr,"%d: Unexpected end of file in a comment.\n",Linenumber); |
fprintf(stderr,"%d: Unexpected end of file in a comment.\n",Linenumber); |
| fsungetc(c,Inop); /* should change */ |
fsungetc(c,Inop); /* should change */ |
| return; |
return 0; |
| } |
} |
| if (c == '*') { |
if (c == '*') { |
| c = fsgetc(Inop); |
c = fsgetc(Inop); |
| if (c == '/') return; |
if (c == '/') return 0; |
| } |
} |
| } |
} |
| } |
} |
| Line 1090 void loadFileWithCpp(objectp op) |
|
| Line 1090 void loadFileWithCpp(objectp op) |
|
| /* printf("%s\n",outfile); */ |
/* printf("%s\n",outfile); */ |
| if ((char *)strstr(cpp,"/asir/bin/cpp.exe") == NULL) { |
if ((char *)strstr(cpp,"/asir/bin/cpp.exe") == NULL) { |
| #if defined(__APPLE_CC__) |
#if defined(__APPLE_CC__) |
| sprintf(tmpName,"gcc -E -P %s | sed -e 's/^#.*//g' >%s",sfile,outfile); |
sprintf(tmpName,"cpp -E -P %s | sed -e 's/^#.*//g' >%s",sfile,outfile); |
| #else |
#else |
| argv[0] = cpp; |
argv[0] = cpp; |
| argv[1] = "-P"; |
argv[1] = "-P"; |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to d.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097