protos.h

1 #ifndef PROTOS_H
2 #include "registry.h"
3 #include "data.h"
4 
5 int init_dim_table()   ;
6 int make_lower( char * s1 ) ;
7 int reg_parse( FILE * infile ) ;
8 int set_dim_len ( char * dimspec , node_t * dim_entry ) ;
9 int set_dim_order ( char * dimorder , node_t * dim_entry ) ;
10 int set_dim_orient ( char * dimorient , node_t * dim_entry ) ;
11 int add_node_to_end ( node_t * node , node_t ** list ) ;
12 int add_node_to_end_4d ( node_t * node , node_t ** list ) ;
13 int init_type_table() ;
14 int set_state_type ( char * typename , node_t * node ) ;
15 int set_state_dims ( char * dims , node_t * node ) ;
16 int gen_state_struct ( char * fname ) ;
17 
18 #if 0
19 int show_node( node_t * p ) ;
20 int show_node1( node_t * p, int indent ) ;
21 int show_nodelist( node_t * p ) ;
22 int show_nodelist1( node_t * p , int indent ) ;
23 #endif
24 
25 int gen_state_struct ( char * fname ) ;
26 int gen_decls ( FILE * fp , char * corename , node_t * node , int sw_ranges, int sw_point , int mask , int layer ) ;
27 int gen_state_subtypes ( char * fname ) ;
28 int gen_state_subtypes1 ( FILE * fp , node_t * node , int sw_ranges, int sw_point , int mask ) ;
29 int print_warning( FILE * fp , char * fname ) ;
30 int close_the_file( FILE * fp  ) ;
31 int make_entries_uniq ( char * fname ) ;
32 int add_warning ( char * fname ) ;
33 
34 node_t * get_type_entry ( char * typename ) ;
35 node_t * get_rconfig_entry( char * name ) ;
36 node_t * get_entry ( char * name , node_t * node ) ;
37 node_t * get_entry_r ( char * name , char * use , node_t * node ) ;
38 node_t * get_dim_entry( char c ) ;
39 node_t * new_node ( int kind ) ;
40 
41 node_t * get_4d_entry ( char * name ) ;
42 node_t * get_dimnode_for_coord ( node_t * node , int coord_axis ) ;
43 int      get_index_for_coord ( node_t * node , int coord_axis ) ;
44 
45 char * my_strtok( char * s1 ) ;
46 char * strtok_rentr( char * s1 , char * s2, char ** tokpos ) ;
47 
48 char * bdy_indicator( int bdy ) ;
49 
50 char * field_name( char * tmp, node_t * p , int tag ) ;
51 char * field_name_bdy( char * tmp, node_t * p , int tag, int bdy  ) ;
52 char * dimension_with_colons( char * pre, char * tmp, node_t * p, char * post) ;
53 char * dimension_with_ones( char * pre, char * tmp, node_t * p, char * post) ;
54 char * dimension_with_ranges( char * ref , char * pre, int bdy , char * tmp, node_t * p, char * post, char * nlstructname ) ;
55 char * arrray_size_expression( char * refarg , char * pre , int bdy , char * tmp , node_t * p , char * post , char * nlstructname  ) ;
56 char * index_with_firstelem( char * pre , char * dref , int bdy , char * tmp , node_t * p , char * post ) ;
57 
58 char * declare_array_as_pointer( char * tmp, node_t * p ) ;
59 char * field_type( char * tmp , node_t * p ) ;
60 
61 int init_core_table() ;
62 int add_core_name ( char * name ) ;
63 int get_num_cores() ;
64 char * get_core_name ( char * name ) ;
65 char * get_corename_i(int i) ;
66 
67 /* For typedef history -ajb */
68 int init_typedef_history() ;
69 int add_typedef_name ( char * name ) ;
70 int get_num_typedefs() ;
71 char * get_typedef_name ( char * name ) ;
72 char * get_typename_i(int i) ;
73 
74 int gen_alloc ( char * dirname ) ;
75 int gen_alloc1 ( char * dirname , char * corename ) ;
76 int gen_alloc2 ( FILE * fp , char * structname , char * corename , node_t * node , int sw ) ;
77 
78 int gen_module_state_description ( char * dirname ) ;
79 int gen_module_state_description1 ( FILE * fp , node_t * node ) ;
80 
81 int gen_scalar_indices ( char * dirname ) ;
82 int gen_scalar_indices1 ( FILE * fp ) ;
83 
84 int gen_actual_args ( char * dirname ) ;
85 int gen_dummy_args ( char * dirname ) ;
86 int gen_dummy_decls ( char * dn ) ;
87 int gen_args ( char * dirname , char * corename , int sw ) ;
88 int gen_args1 ( FILE * fp , char * outstr, char * structname , char * corename , node_t * node , int *linelen , int sw , int deep ) ;
89 
90 int gen_scalar_derefs ( char * dirname ) ;
91 int scalar_derefs ( char * dirname , char * corename ) ;
92 int scalar_derefs1 ( FILE * fp , char * corename , node_t * node, int direction ) ;
93 
94 int set_mark ( int val , node_t * lst ) ;
95 int set_mark_4d ( int val , node_t * lst ) ;
96 
97 int gen_i1_decls ( char * dn ) ;
98 int gen_get_nl_config ( char * dirname ) ;
99 
100 int gen_config_assigns ( char * dirname ) ;
101 int gen_config_reads ( char * dirname ) ;
102 
103 char * set_mem_order( node_t * node , char * str , int n  ) ;
104 
105 int gen_wrf_io ( char * dirname ) ;
106 int set_dim_strs ( node_t *node , char ddim[3][2][NAMELEN], char mdim[3][2][NAMELEN], char pdim[3][2][NAMELEN] , char * prepend, int sw_allow_stagger ) ;
107 int gen_wrf_io2 ( FILE * fp , char * fname , char * structname , char * fourdname , node_t * node , int io_mask , int sw_io ) ;
108 
109 int gen_namelist_defines ( char * dirname , int sw_dimension ) ;
110 int gen_namelist_defaults ( char * dirname ) ;
111 int gen_namelist_script ( char * dirname ) ;
112 
113 int gen_model_data_ord ( char * dirname ) ;
114 
115 int get_elem ( char * structname , char * nlstructname , char * tx , int i , node_t * p , int first_last ) ;
116 
117 int associated_with_4d_array( node_t * p ) ;
118 
119 
120 
121 #define PROTOS_H
122 #endif
123