1/* intrin.h -- Public interface for intrin.c
2   Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
3   Contributed by James Craig Burley.
4
5This file is part of GNU Fortran.
6
7GNU Fortran is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 2, or (at your option)
10any later version.
11
12GNU Fortran is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with GNU Fortran; see the file COPYING.  If not, write to
19the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
2002111-1307, USA.
21
22*/
23
24#ifndef GCC_F_INTRIN_H
25#define GCC_F_INTRIN_H
26
27#ifndef FFEINTRIN_DOC
28#define FFEINTRIN_DOC 0	/* 1 means intrinsic documentation only (intdoc.c). */
29#endif
30
31typedef enum
32  {
33    FFEINTRIN_familyNONE,	/* Not in any family. */
34    FFEINTRIN_familyF77,	/* ANSI FORTRAN 77. */
35    FFEINTRIN_familyGNU,	/* GNU Fortran intrinsics. */
36    FFEINTRIN_familyF2C,	/* f2c intrinsics. */
37    FFEINTRIN_familyF90,	/* Fortran 90. */
38    FFEINTRIN_familyF95 = FFEINTRIN_familyF90,
39    FFEINTRIN_familyVXT,	/* VAX/VMS FORTRAN. */
40    FFEINTRIN_familyMIL,	/* MIL STD 1753 (MVBITS, etc), in mil, vxt, and f90. */
41    FFEINTRIN_familyASC,	/* ASCII-related (ACHAR, IACHAR), both f2c and f90. */
42    FFEINTRIN_familyFVZ,	/* in both f2c and VAX/VMS FORTRAN. */
43    FFEINTRIN_familyF2U,	/* libf2c/libU77 UNIX system intrinsics. */
44    FFEINTRIN_familyBADU77,	/* libU77 UNIX system intrinsics with bad form. */
45    FFEINTRIN_family
46  } ffeintrinFamily;
47
48typedef enum
49  {
50#define DEFNAME(UPPER,LOWER,MIXED,GEN,SPEC)
51#define DEFGEN(CODE,NAME,SPEC1,SPEC2) FFEINTRIN_gen ## CODE,
52#define DEFSPEC(CODE,NAME,CALLABLE,FAMILY,IMP)
53#define DEFIMP(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL)
54#define DEFIMPY(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL,Y2KBAD)
55#include "intrin.def"
56#undef DEFNAME
57#undef DEFGEN
58#undef DEFSPEC
59#undef DEFIMP
60#undef DEFIMPY
61    FFEINTRIN_gen
62  } ffeintrinGen;
63
64typedef enum
65  {
66#define DEFNAME(UPPER,LOWER,MIXED,GEN,SPEC)
67#define DEFGEN(CODE,NAME,SPEC1,SPEC2)
68#define DEFSPEC(CODE,NAME,CALLABLE,FAMILY,IMP) FFEINTRIN_spec ## CODE,
69#define DEFIMP(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL)
70#define DEFIMPY(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL,Y2KBAD)
71#include "intrin.def"
72#undef DEFNAME
73#undef DEFGEN
74#undef DEFSPEC
75#undef DEFIMP
76#undef DEFIMPY
77    FFEINTRIN_spec
78  } ffeintrinSpec;
79
80typedef enum
81  {
82#define DEFNAME(UPPER,LOWER,MIXED,GEN,SPEC)
83#define DEFGEN(CODE,NAME,SPEC1,SPEC2)
84#define DEFSPEC(CODE,NAME,CALLABLE,FAMILY,IMP)
85#define DEFIMP(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL) \
86    FFEINTRIN_imp ## CODE,
87#define DEFIMPY(CODE,NAME,GFRTDIRECT,GFRTF2C,GFRTGNU,CONTROL,Y2KBAD) \
88    FFEINTRIN_imp ## CODE,
89#include "intrin.def"
90#undef DEFNAME
91#undef DEFGEN
92#undef DEFSPEC
93#undef DEFIMP
94#undef DEFIMPY
95    FFEINTRIN_imp
96  } ffeintrinImp;
97
98#if !FFEINTRIN_DOC
99
100#include "bld.h"
101#include "info.h"
102
103ffeinfoBasictype ffeintrin_basictype (ffeintrinSpec spec);
104ffeintrinFamily ffeintrin_family (ffeintrinSpec spec);
105void ffeintrin_fulfill_generic (ffebld *expr, ffeinfo *info, ffelexToken t);
106void ffeintrin_fulfill_specific (ffebld *expr, ffeinfo *info,
107				 bool *check_intrin, ffelexToken t);
108ffecomGfrt ffeintrin_gfrt_direct (ffeintrinImp imp);
109ffecomGfrt ffeintrin_gfrt_indirect (ffeintrinImp imp);
110void ffeintrin_init_0 (void);
111#define ffeintrin_init_1()
112#define ffeintrin_init_2()
113#define ffeintrin_init_3()
114#define ffeintrin_init_4()
115bool ffeintrin_is_actualarg (ffeintrinSpec spec);
116bool ffeintrin_is_intrinsic (const char *name, ffelexToken t, bool explicit,
117			     ffeintrinGen *gen, ffeintrinSpec *spec,
118			     ffeintrinImp *imp);
119bool ffeintrin_is_standard (ffeintrinGen gen, ffeintrinSpec spec);
120ffeinfoKindtype ffeintrin_kindtype (ffeintrinSpec spec);
121const char *ffeintrin_name_generic (ffeintrinGen gen);
122const char *ffeintrin_name_implementation (ffeintrinImp imp);
123const char *ffeintrin_name_specific (ffeintrinSpec spec);
124ffeIntrinsicState ffeintrin_state_family (ffeintrinFamily family);
125#define ffeintrin_terminate_0()
126#define ffeintrin_terminate_1()
127#define ffeintrin_terminate_2()
128#define ffeintrin_terminate_3()
129#define ffeintrin_terminate_4()
130
131#endif	/* !FFEINTRIN_DOC */
132
133/* End of #include file. */
134
135#endif /* ! GCC_F_INTRIN_H */
136