int main(int argc, char** argv)
{
if (argc != 2) return 1;
if (strcmp(argv[1], "c") == 0) gen_c();
if (strcmp(argv[1], "h") == 0) gen_h();
return 0;
}
/* invoke netcdf calls (or generate C or Fortran code) to create netcdf
* from in-memory structure. */
void
define_netcdf(
const char *netcdfname)
{
char *filename; /* output file name */
if (netcdf_name) { /* name given on command line */
filename = netcdf_name;
} else { /* construct name from CDL name */
filename = (char *) emalloc(strlen(netcdfname) + 5);
(void) strcpy(filename,netcdfname);
if (netcdf_flag == -1)
(void) strcat(filename,".cdf"); /* old, deprecated extension */
else
(void) strcat(filename,".nc"); /* new, favored extension */
}
if (netcdf_flag)
gen_netcdf(filename); /* create netcdf */
if (c_flag) /* create C code to create netcdf */
gen_c(filename);
if (fortran_flag) /* create Fortran code to create netcdf */
gen_fortran(filename);
free(filename);
}
