lang/fortran/comp/names.h

   1 #define CONST_IDENT_MAX 30
   2 #define IO_IDENT_MAX 30
   3 #define ARGUMENT_MAX 30
   4 #define USER_LABEL_MAX 30
   5
   6 #define EQUIV_INIT_NAME "equiv"
   7
   8 #define write_nv_ident(fp,a) wr_nv_ident_help ((fp), (struct Addrblock *) (a))
   9 #define nv_type(x) nv_type_help ((struct Addrblock *) x)
  10
  11 extern char *c_keywords[];
  12
  13 char *new_io_ident (/* char * */);
  14 char *new_func_length (/* char * */);
  15 char *new_arg_length (/* Namep */);
  16 void declare_new_addr (/* struct Addrblock * */);
  17 char *nv_ident_help (/* struct Addrblock * */);
  18 int nv_type_help (/* struct Addrblock */);
  19 char *user_label (/* int */);
  20 char *temp_name (/* int, char */);
  21 char *c_type_decl (/* int, int */);
  22 char *equiv_name (/* int, char * */);