| 1 |
+ |
#ifndef lint |
| 2 |
+ |
static const char RCSid[] = "$Id$"; |
| 3 |
+ |
#endif |
| 4 |
|
/* Copyright (c) 2003 |
| 5 |
|
* National Research Council Canada |
| 6 |
|
* written by Christoph Reinhart |
| 15 |
|
|
| 16 |
|
int main( int argc, char *argv[]) |
| 17 |
|
{ |
| 18 |
< |
FILE *EPW_FILE; |
| 19 |
< |
FILE* WEA_FILE; |
| 18 |
> |
FILE *EPW_FILE = NULL; |
| 19 |
> |
FILE* WEA_FILE = stdout; |
| 20 |
|
int year, month,day, hour_in,minute=60,i; |
| 21 |
|
int minute_message=1; |
| 22 |
|
int get_ac = 0; |
| 25 |
|
int cc; |
| 26 |
|
char keyword[2000]=""; |
| 27 |
|
char minute_string[2000]=""; |
| 28 |
< |
char epw_file[200]=""; |
| 29 |
< |
char wea_file[200] =""; |
| 28 |
> |
char *epw_file = NULL; |
| 29 |
> |
char *wea_file = NULL; |
| 30 |
|
char city[200] =""; |
| 31 |
|
char country[200] =""; |
| 32 |
|
char latitude[200] ="",longitude[200] ="",time_zone[200] ="",elevation[200] =""; |
| 33 |
|
|
| 34 |
< |
if (argc < 3) |
| 34 |
> |
for ( ; argc > 2 && argv[1][0] == '-'; argc--, argv++) |
| 35 |
> |
if (argv[1][1] == 'a') { |
| 36 |
> |
get_ac = !get_ac; |
| 37 |
> |
} else { |
| 38 |
> |
fprintf(stderr, "epw2wea: unknown option: %s\n", argv[1]); |
| 39 |
> |
exit(1); |
| 40 |
> |
} |
| 41 |
> |
|
| 42 |
> |
if ((argc < 2) | (argc > 3)) |
| 43 |
|
{ |
| 44 |
|
fprintf(stderr,"epw2wea: FATAL ERROR - wrong number of arguments\n"); |
| 45 |
< |
fprintf(stderr,"start program with: epw2wea <file-name.epw> <file-name.wea>\n"); |
| 45 |
> |
fprintf(stderr,"Usage: epw2wea [-a] file-name.epw [file-name.wea]\n"); |
| 46 |
|
exit(1); |
| 47 |
|
} |
| 48 |
< |
if (argc >= 3) |
| 49 |
< |
{ |
| 50 |
< |
strcpy(epw_file, argv[1]); |
| 51 |
< |
strcpy(wea_file, argv[2]); |
| 52 |
< |
if (argc ==4 && argv[3][0] == '-' && argv[3][1] == 'a') /* option -a */ |
| 53 |
< |
get_ac = 1; |
| 54 |
< |
for (i = 3; i < argc; i++) |
| 55 |
< |
if (argv[i][0] == '-' ) |
| 56 |
< |
switch (argv[i][1]) |
| 57 |
< |
{ |
| 58 |
< |
case 'h': /* scaling factor */ |
| 59 |
< |
break; |
| 49 |
< |
} |
| 50 |
< |
else |
| 51 |
< |
{ |
| 52 |
< |
fprintf(stdout,"epw2wea: fatal error - %s bad option for input arguments\n", argv[i]); |
| 53 |
< |
exit(0); |
| 48 |
> |
epw_file = argv[1]; |
| 49 |
> |
EPW_FILE=fopen(epw_file, "r"); |
| 50 |
> |
if (!EPW_FILE) { |
| 51 |
> |
fprintf(stderr, "%s: cannot open for reading\n", epw_file); |
| 52 |
> |
exit(1); |
| 53 |
> |
} |
| 54 |
> |
if (argc == 3) { |
| 55 |
> |
wea_file = argv[2]; |
| 56 |
> |
WEA_FILE=fopen(wea_file, "w"); |
| 57 |
> |
if (!WEA_FILE) { |
| 58 |
> |
fprintf(stderr, "%s: cannot open for writing\n", wea_file); |
| 59 |
> |
exit(1); |
| 60 |
|
} |
| 61 |
|
} |
| 56 |
– |
|
| 57 |
– |
EPW_FILE=fopen(epw_file, "r"); |
| 58 |
– |
WEA_FILE=fopen(wea_file, "w"); |
| 62 |
|
fscanf(EPW_FILE,"%[^,]s",keyword); |
| 63 |
|
if( !strcmp(keyword,"LOCATION") ){ |
| 64 |
|
fscanf(EPW_FILE,",%[^,]s",city); |
