contrib/gcc-3.4/gcc/f/stv.c

   1 /* stv.c -- Implementation File (module.c template V1.0)
   2    Copyright (C) 1995 Free Software Foundation, Inc.
   3    Contributed by James Craig Burley.
   4
   5 This file is part of GNU Fortran.
   6
   7 GNU Fortran is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 2, or (at your option)
  10 any later version.
  11
  12 GNU Fortran is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GNU Fortran; see the file COPYING.  If not, write to
  19 the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20 02111-1307, USA.
  21
  22    Related Modules:
  23       None (despite the name, it doesn't really depend on ffest*)
  24
  25    Description:
  26       Various and sundry info.
  27
  28    Modifications:
  29 */
  30
  31 /* Include files. */
  32
  33 #include "proj.h"
  34 #include "stv.h"
  35 #include "lab.h"
  36 #include "where.h"
  37
  38 /* Externals defined here. */
  39
  40 ffestvSavestate ffestv_save_state_;
  41 ffewhereLine ffestv_save_line_;
  42 ffewhereColumn ffestv_save_col_;
  43 ffestvAccessstate ffestv_access_state_;
  44 ffewhereLine ffestv_access_line_;
  45 ffewhereColumn ffestv_access_col_;
  46 ffelabNumber ffestv_num_label_defines_;
  47
  48 /* Simple definitions and enumerations. */
  49
  50
  51 /* Internal typedefs. */
  52
  53
  54 /* Private include files. */
  55
  56
  57 /* Internal structure definitions. */
  58
  59
  60 /* Static objects accessed by functions in this module. */
  61
  62
  63 /* Static functions (internal). */
  64
  65
  66 /* Internal macros. */