Elaboradar 0.1
Caricamento in corso...
Ricerca in corso...
Nessun risultato

◆ setwork()

int setwork ( char *  sito)

funzione che setta ambiente lavoro nel caso non sia settato dall'esterno

Parametri
sito(gat o spc)
Restituisce
ier_code of the last putenv call (????)

Definizione alla linea 9 del file setwork.cpp.

10{
11 char *lv,*lvad,*v0,*v0ad,*vh,*vhad,*logv;
12 int ier;
13
14 /*settaggio var amb tempo GTM*/
15 if (getenv("TZ")==NULL) ier=putenv((char *)"TZ=GTM");
16 /*settaggio var amb files e directories di lavoro nel caso non siano settate*/
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");
35
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";
44 }
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";
53 }
54
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);
62
63 return ier;
64}

Referenzia setwork().

Referenziato da setwork().