home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / contsens / mainf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-01-31  |  1.6 KB  |  57 lines
  1.  
  2. /*   Copyright (C) 1990 Riet Oolman
  3.  
  4. This file is part of GLASS.
  5.  
  6. GLASS is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 1, or (at your option)
  9. any later version.
  10.  
  11. GLASS is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with GLASS; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. /* file: mainf.c
  21.    author: H. Oolman
  22.    last changed: 13-7-1990
  23.    purpose: simple and type context-sevsitive checks for a
  24.             fullGlass description; no making names unique
  25.             only errors, no warnings
  26.    modifications:
  27.         for new version of Glass
  28.         p2c translated, tmc access procs.
  29. */
  30.  
  31. #include "handleds.h"
  32. #include "check.ds.h"
  33. #include "check.var.h"
  34. #include "errorenv.h"
  35. #include "contsens.h"
  36.  
  37. Static def_list glasstext;
  38.  
  39. main(argc, argv)
  40. int argc;
  41. Char *argv[];
  42. {
  43.   takewarning = false;
  44.   if (argc == 2) { takewarning = (cmp_string(argv[1],"-w")==0); }
  45.   if (fscan_def_list(stdin,&glasstext))
  46.   {fprintf(stderr,"error in input of csf: %s \n",tmerrmsg); exit(1);}
  47.   else
  48.   { uniq = true;
  49.     checkglasstext(glasstext);
  50.     if (errordiscovered) { exit(1L); } 
  51.     else { setprint(stdout,0,256);
  52.        print_def_list(glasstext);
  53.            exit(0L);
  54.          };
  55.   }
  56. }
  57.