Return to utils.c CVS log | Up to [local] / OpenXM / src / Ti |
File: [local] / OpenXM / src / Ti / Attic / utils.c (download)
Revision 1.1, Fri Oct 8 02:12:13 1999 UTC (24 years, 11 months ago) by maekawa
Initial revision |
/* ** utils.c Birk Huber, 4/99 ** ** A place for general global variables and routines accessible ** througout the program. ** ** TiGERS, Toric Groebner Basis Enumeration by Reverse Search ** copyright (c) 1999 Birk Huber ** */ #include<stdio.h> #include<stdlib.h> int eatwhite(FILE *is){ int c; while ((c=fgetc(is))!=EOF){ if (c=='%') while ((c=fgetc(is))!=EOF && c!='\n'); if (isspace(c)==0) break; } ungetc(c,is); }