sts.h 2.16 KB
Newer Older
Jeff Law committed
1 2
/* sts.h -- Private #include File (module.h template V1.0)
   Copyright (C) 1995 Free Software Foundation, Inc.
3
   Contributed by James Craig Burley.
Jeff Law committed
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

This file is part of GNU Fortran.

GNU Fortran is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

GNU Fortran is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Fortran; see the file COPYING.  If not, write to
the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA.

   Owning Modules:
      sts.c

   Modifications:
*/

/* Allow multiple inclusion to work. */

30 31
#ifndef GCC_F_STS_H
#define GCC_F_STS_H
Jeff Law committed
32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62

/* Simple definitions and enumerations. */


/* Typedefs. */

typedef struct _ffests_ *ffests;
typedef struct _ffests_ ffestsHolder;
typedef unsigned long int ffestsLength;

/* Include files needed by this one. */

#include "malloc.h"

/* Structure definitions. */

struct _ffests_
  {
    char *text_;
    mallocPool pool_;
    ffestsLength len_;
    ffestsLength max_;
  };

/* Global objects accessed by users of this module. */


/* Declare functions with prototypes. */

void ffests_kill (ffests s);
void ffests_new (ffests s, mallocPool pool, ffestsLength size);
63
void ffests_printf (ffests s, const char *ctl, ...) ATTRIBUTE_PRINTF_2;
Jeff Law committed
64
void ffests_putc (ffests s, char c);
Kaveh R. Ghazi committed
65 66
void ffests_puts (ffests s, const char *string);
void ffests_puttext (ffests s, const char *text, ffestsLength length);
Jeff Law committed
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84

/* Define macros. */

#define ffests_init_0()
#define ffests_init_1()
#define ffests_init_2()
#define ffests_init_3()
#define ffests_init_4()
#define ffests_length(s) ((s)->len_)
#define ffests_terminate_0()
#define ffests_terminate_1()
#define ffests_terminate_2()
#define ffests_terminate_3()
#define ffests_terminate_4()
#define ffests_text(s) ((s)->text_)

/* End of #include file. */

85
#endif /* ! GCC_F_STS_H */