|
◆ setwork()
int setwork |
( |
char * |
sito | ) |
|
funzione che setta ambiente lavoro nel caso non sia settato dall'esterno
- Parametri
-
- Restituisce
- ier_code of the last putenv call (????)
Definizione alla linea 9 del file setwork.cpp.
11 char *lv,*lvad,*v0,*v0ad,*vh,*vhad,*logv;
15 if (getenv( "TZ")==NULL) ier=putenv(( char *) "TZ=GTM");
17 if (getenv( "DIR_OUT_PP_BLOC")==NULL) ier=putenv(( char *) "DIR_OUT_PP_BLOC=./");
18 if (getenv( "OUTPUT_Z_DIR")==NULL) ier=putenv(( char *) "OUTPUT_Z_DIR=./");
19 if (getenv( "OUTPUT_RAIN_DIR")==NULL) ier=putenv(( char *) "OUTPUT_RAIN_DIR=./");
20 if (getenv( "BACINI_DIR")==NULL) ier=putenv(( char *) "BACINI_DIR=./");
21 if (getenv( "OUTPUT_Z_LOWRIS_DIR")==NULL) ier=putenv(( char *) "OUTPUT_Z_LOWRIS_DIR=./");
22 if (getenv( "DIR_QUALITY")==NULL) ier=putenv(( char *) "DIR_QUALITY=./");
23 if (getenv( "LISTA_FILE")==NULL) ier=putenv(( char *) "LISTA_FILE=lista_dbp");
24 if (getenv( "LAST_FILE")==NULL) ier=putenv(( char *) "LAST_FILE=anap_last");
25 if (getenv( "LOG_FILE")==NULL) ier=putenv(( char *) "LOG_FILE=log_file");
26 if (getenv( "TEST_VPR")==NULL) ier=putenv(( char *) "TEST_VPR=test_vpr");
27 if (getenv( "ANAP_STAT_FILE")==NULL) ier=putenv(( char *) "ANAP_STAT_FILE=stat_anap");
28 if (getenv( "BLOC_STAT_FILE")==NULL) ier=putenv(( char *) "BLOC_STAT_FILE=stat_bloc");
29 if (getenv( "ELEV_STAT_FILE")==NULL) ier=putenv(( char *) "ELEV_STAT_FILE=stat_elev");
30 if (getenv( "NOME_SIDME")==NULL) ier=putenv(( char *) "NOME_SIDME=sidme.list");
31 if (getenv( "MATRICE_BACINI")==NULL) ier=putenv(( char *) "MATRICE_BACINI=grid_bac.dat");
32 if (getenv( "BACINI_AUS_FILE")==NULL) ier=putenv(( char *) "BACINI_AUS_FILE=Bac_aus_file");
33 if (getenv( "BACINI_BOLOGNA")==NULL) ier=putenv(( char *) "BACINI_BOLOGNA=bacini_xdr_tmp");
34 if (getenv( "BACINI_HISTORY_FILE")==NULL) ier=putenv(( char *) "BACINI_HISTORY_FILE=Bacini.History");
36 if (!strcmp(sito, "SPC")){
37 lv=( char *) "LAST_VPR=last_vpr_SPC";
38 lvad=( char *) "LAST_VPR_RES=last_vpr_GAT";
39 v0=( char *) "VPR0_FILE=vpr_SPC";
40 v0ad=( char *) "VPR0_FILE_RES=vpr_GAT";
41 vh=( char *) "VPR_HEATING=vpr_heat_SPC";
42 vhad=( char *) "VPR_HEATING_RES=vpr_heat_GAT";
43 logv=( char *) "LOG_VPR=log_vpr_SPC";
45 if (!strcmp(sito, "GAT")){
46 lv=( char *) "LAST_VPR=last_vpr_GAT";
47 lvad=( char *) "LAST_VPR_RES=last_vpr_SPC";
48 v0=( char *) "VPR0_FILE=vpr_GAT";
49 v0ad=( char *) "VPR0_FILE_RES=vpr_SPC";
50 vh=( char *) "VPR_HEATING=vpr_heat_GAT";
51 vhad=( char *) "VPR_HEATING_RES=vpr_heat_SPC";
52 logv=( char *) "LOG_VPR=log_vpr_GAT";
55 if (getenv( "LAST_VPR")==NULL) ier=putenv(lv);
56 if (getenv( "LAST_VPR_RES")==NULL) ier=putenv(lvad);
57 if (getenv( "VPR0_FILE")==NULL) ier=putenv(v0);
58 if (getenv( "VPR0_FILE_RES ")==NULL) ier=putenv(v0ad);
59 if (getenv( "VPR_HEATING")==NULL) ier=putenv(vh);
60 if (getenv( "VPR_HEATING_RES")==NULL) ier=putenv(vhad);
61 if (getenv( "LOG_VPR")==NULL) ier=putenv(logv);
|