contrib/gcc/f/sts.h

   1 /* sts.h -- Private #include File (module.h 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    Owning Modules:
  23       sts.c
  24
  25    Modifications:
  26 */
  27
  28 /* Allow multiple inclusion to work. */
  29
  30 #ifndef _H_f_sts
  31 #define _H_f_sts
  32
  33 /* Simple definitions and enumerations. */
  34
  35
  36 /* Typedefs. */
  37
  38 typedef struct _ffests_ *ffests;
  39 typedef struct _ffests_ ffestsHolder;
  40 typedef unsigned long int ffestsLength;
  41
  42 /* Include files needed by this one. */
  43
  44 #include "malloc.h"
  45
  46 /* Structure definitions. */
  47
  48 struct _ffests_
  49   {
  50     char *text_;
  51     mallocPool pool_;
  52     ffestsLength len_;
  53     ffestsLength max_;
  54   };
  55
  56 /* Global objects accessed by users of this module. */
  57
  58
  59 /* Declare functions with prototypes. */
  60
  61 void ffests_kill (ffests s);
  62 void ffests_new (ffests s, mallocPool pool, ffestsLength size);
  63 void ffests_printf_1D (ffests s, const char *ctl, long arg1);
  64 void ffests_printf_1U (ffests s, const char *ctl, unsigned long arg1);
  65 void ffests_printf_1s (ffests s, const char *ctl, const char *arg1);
  66 void ffests_printf_2Us (ffests s, const char *ctl, unsigned long arg1,
  67                         const char *arg2);
  68 void ffests_putc (ffests s, char c);
  69 void ffests_puts (ffests s, const char *string);
  70 void ffests_puttext (ffests s, const char *text, ffestsLength length);
  71
  72 /* Define macros. */
  73
  74 #define ffests_init_0()
  75 #define ffests_init_1()
  76 #define ffests_init_2()
  77 #define ffests_init_3()
  78 #define ffests_init_4()
  79 #define ffests_length(s) ((s)->len_)
  80 #define ffests_terminate_0()
  81 #define ffests_terminate_1()
  82 #define ffests_terminate_2()
  83 #define ffests_terminate_3()
  84 #define ffests_terminate_4()
  85 #define ffests_text(s) ((s)->text_)
  86
  87 /* End of #include file. */
  88
  89 #endif