main.cc (f77crash/main.cc)

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18
     19
     20
     21
     22
     23
     24
     25
     26
     27
     28
     29
     30
     31
     32
     33
     34
     35
     36

//#define DEBUG

#include <f77crash/crossrefs.h>

//#include <f77crash/fortran.h>

#include <f77crash/lex.h>

#include <iostream>

#include <limits>

#include <climits>

#include <map>

int

yyparse();

int

main(int argc, char **argv)

{

    initLex();

    if (argc==2) {

        doInputFile(argv[1]);

#       ifdef DEBUG

        yydebug = 1;

#       endif

        int k = yyparse();

        if (k) {

            std::cerr << "Bad parse, return code " << k << std::endl;

        }

        CrossRefs::dump(argv[1]);

    }

}