Return to utils.c CVS log

Up to [local] / OpenXM / src / Ti

Annotation of OpenXM/src/Ti/utils.c, Revision 1.1.1.1

1.1       maekawa     1: /*
                      2: ** utils.c                                 Birk Huber, 4/99
                      3: **
                      4: **  A place for general global variables and routines accessible
                      5: **  througout the program.
                      6: **
                      7: ** TiGERS,  Toric Groebner Basis Enumeration by Reverse Search
                      8: ** copyright (c) 1999  Birk Huber
                      9: **
                     10: */
                     11: #include<stdio.h>
                     12: #include<stdlib.h>
                     13:
                     14: int eatwhite(FILE *is){
                     15:  int c;
                     16:  while ((c=fgetc(is))!=EOF){
                     17:   if (c=='%')  while ((c=fgetc(is))!=EOF && c!='\n');
                     18:   if (isspace(c)==0) break;
                     19:  }
                     20:  ungetc(c,is);
                     21: }