[BACK]Return to lex.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/lex.c between version 1.45 and 1.47

version 1.45, 2010/04/16 07:13:42 version 1.47, 2015/08/04 06:20:45
Line 45 
Line 45 
  * 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/lex.c,v 1.44 2007/08/06 08:15:26 saito Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/lex.c,v 1.46 2010/08/03 04:34:44 noro Exp $
 */  */
 #include <ctype.h>  #include <ctype.h>
 #include "ca.h"  #include "ca.h"
Line 301  int yylex()
Line 301  int yylex()
                 }                  }
                 if ( floatingpoint ) {                  if ( floatingpoint ) {
                         Ungetc(c); REALLOC_NBUF nbuf[i] = 0;                          Ungetc(c); REALLOC_NBUF nbuf[i] = 0;
 #if defined(PARI)  
                         if ( !bigfloat ) {                          if ( !bigfloat ) {
                                 dbl = (double)atof(nbuf+DLENGTH);                                  dbl = (double)atof(nbuf+DLENGTH);
                                 MKReal(dbl,real); r = (Obj)real;                                  MKReal(dbl,real); r = (Obj)real;
                         } else                          } else
                                 strtobf(nbuf,(BF *)&r);                                  strtobf(nbuf,(BF *)&r);
 #else  
                         dbl = (double)atof(nbuf+DLENGTH);  
                         MKReal(dbl,real); r = (Obj)real;  
 #endif  
                 } else {                  } else {
                         Ungetc(c);                          Ungetc(c);
                         i -= DLENGTH; d = (i%DLENGTH?i/DLENGTH+1:i/DLENGTH);                          i -= DLENGTH; d = (i%DLENGTH?i/DLENGTH+1:i/DLENGTH);
Line 510  static int skipspace() {
Line 505  static int skipspace() {
   
 int afternl() {  int afternl() {
         int c,ac,i,quote;          int c,ac,i,quote;
         char *ptr;          char *ptr,*buf0;
         char *av[BUFSIZ];          char *av[BUFSIZ];
         static int ilevel = 0;          static int ilevel = 0;
         char buf[BUFSIZ];          char buf[BUFSIZ];
Line 519  int afternl() {
Line 514  int afternl() {
                 asir_infile->ln++;                  asir_infile->ln++;
         while ( (c = Getc()) == '#' ) {          while ( (c = Getc()) == '#' ) {
                 Gets(buf);                  Gets(buf);
                 for ( quote = 0, ptr = buf; *ptr; ptr++ )  #define LINE "line"
                   if ( !strncmp(buf,LINE,strlen(LINE)) ) buf0 = buf+strlen(LINE);
                   else buf0 = buf;
                   for ( quote = 0, ptr = buf0; *ptr; ptr++ )
                         if ( *ptr == '"' )                          if ( *ptr == '"' )
                                 quote = quote ? 0 : 1;                                  quote = quote ? 0 : 1;
                         else if ( quote && (*ptr == ' ') )                          else if ( quote && (*ptr == ' ') )
                                 *ptr = '_';                                  *ptr = '_';
                 stoarg(buf,&ac,av);                  stoarg(buf0,&ac,av);
                 if ( ac == 3 )                  if ( ac == 3 )
                         if ( (i = atoi(av[2])) == 1 )                          if ( (i = atoi(av[2])) == 1 )
                                 ilevel++;                                  ilevel++;
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.47
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>