home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / FLEX / FLEX-2.4 / FLEX-2 / flex-2.4.7 / MISC / VMS / VMS.more-stuff / main.dif < prev    next >
Encoding:
Text File  |  1990-11-26  |  3.0 KB  |  150 lines
  1. *** flex/main.c    Fri Oct 12 10:56:35 1990
  2. --- main.c    Fri Nov 23 13:39:07 1990
  3. ***************
  4. *** 104,109 ****
  5. --- 104,110 ----
  6.   static int outfile_created = 0;
  7.   static int use_stdout;
  8.   static char *skelname = NULL;
  9. + static int initialized = 0;
  10.   
  11.   
  12.   int main( argc, argv )
  13. ***************
  14. *** 243,249 ****
  15.           flexfatal( "error occurred when closing backtracking file" );
  16.       }
  17.   
  18. !     if ( printstats )
  19.       {
  20.       endtime = flex_gettime();
  21.   
  22. --- 244,250 ----
  23.           flexfatal( "error occurred when closing backtracking file" );
  24.       }
  25.   
  26. !     if ( printstats && initialized )
  27.       {
  28.       endtime = flex_gettime();
  29.   
  30. ***************
  31. *** 372,382 ****
  32.       fprintf( stderr, "  %d total table entries needed\n", tblsiz );
  33.       }
  34.   
  35. - #ifndef VMS
  36.       exit( status );
  37. - #else
  38. -     exit( status + 1 );
  39. - #endif
  40.       }
  41.   
  42.   
  43. --- 373,379 ----
  44. ***************
  45. *** 395,400 ****
  46. --- 392,402 ----
  47.       {
  48.       int i, sawcmpflag;
  49.       char *arg, *flex_gettime(), *mktemp();
  50. + #ifndef SHORT_FILE_NAMES
  51. +     char *backtrack_fn = "lex.backtrack";
  52. + #else
  53. +     char *backtrack_fn = "lex.bck";
  54. + #endif
  55.   
  56.       printstats = syntaxerror = trace = spprdflt = interactive = caseins = fa
  57. lse;
  58.       backtrack_report = performance_report = ddebug = fulltbl = fullspd = fal
  59. se;
  60. ***************
  61. *** 407,414 ****
  62. --- 409,428 ----
  63.   
  64.       csize = DEFAULT_CSIZE;
  65.   
  66. + #ifndef VMSCMDLN
  67. + 
  68.       program_name = argv[0];
  69.   
  70. + /* If GCC doesn't use the VAXCRTL cmdline parsing this should be #ifdef VAXC
  71.  */
  72. + #ifdef VMS
  73. +     {        /* Fixup the grotesque argv[0] */
  74. +     char *p;
  75. +     if (NULL != (p = strrchr (argv[0], '.'))) *p = '\0';
  76. +     if (NULL != (p = strrchr (argv[0], ']'))) program_name = p + 1;
  77. +     }
  78. + #endif
  79. +     
  80. + 
  81.       /* read flags */
  82.       for ( --argc, ++argv; argc ; --argc, ++argv )
  83.       {
  84. ***************
  85. *** 540,545 ****
  86. --- 554,568 ----
  87.       ;
  88.       }
  89.   
  90. +     num_input_files = argc;
  91. +     input_files = argv;
  92. + 
  93. + #else /* VMSCMDLN */
  94. + 
  95. + #include "vmscmdln.c"
  96. + 
  97. + #endif /* VMSCMDLN */
  98. + 
  99.       if ( (fulltbl || fullspd) && usemecs )
  100.       flexerror( "full table and -Cm don't make sense together" );
  101.   
  102. ***************
  103. *** 567,586 ****
  104.       outfile_created = 1;
  105.       }
  106.   
  107. -     num_input_files = argc;
  108. -     input_files = argv;
  109.       set_input_file( num_input_files > 0 ? input_files[0] : NULL );
  110.   
  111.       if ( backtrack_report )
  112.       {
  113. ! #ifndef SHORT_FILE_NAMES
  114. !     backtrack_file = fopen( "lex.backtrack", "w" );
  115. ! #else
  116. !     backtrack_file = fopen( "lex.bck", "w" );
  117. ! #endif
  118.   
  119.       if ( backtrack_file == NULL )
  120. !         flexerror( "could not create lex.backtrack" );
  121.       }
  122.   
  123.       else
  124. --- 590,603 ----
  125.       outfile_created = 1;
  126.       }
  127.   
  128.       set_input_file( num_input_files > 0 ? input_files[0] : NULL );
  129.   
  130.       if ( backtrack_report )
  131.       {
  132. !     backtrack_file = fopen( backtrack_fn, "w" );
  133.   
  134.       if ( backtrack_file == NULL )
  135. !         lerrsf( "could not create backtrack file %s", backtrack_fn );
  136.       }
  137.   
  138.       else
  139. ***************
  140. *** 657,662 ****
  141. --- 674,681 ----
  142.       }
  143.   
  144.       set_up_initial_allocations();
  145. + 
  146. +     initialized = TRUE;
  147.       }
  148.   
  149.   
  150.