Elaboradar  0.1
 Tutto Classi Namespace File Funzioni Variabili Tipi enumerati (enum) Gruppi
setwork.cpp
1 #include <setwork.h>
2 
3 #include <stdlib.h>
4 #include <errno.h>
5 #include <string.h>
6 #include <stdio.h>
7 #include <radarelab/logging.h>
8 
9 int setwork(char *sito)
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 }
65 
66 void unsetwork(){
67 unsetenv((char *)"FIRST_LEVEL_FILE");
68 unsetenv((char *)"FIRST_LEVEL_DIM_FILE");
69 unsetenv((char *)"FILE_T");
70 unsetenv((char *)"VPR_HMAX");;
71 unsetenv((char *)"FILE_ZERO_TERMICO");
72 unsetenv((char *)"DIR_STORE_VPR");
73 unsetenv((char *)"SITO");
74 unsetenv((char *)"VPR_ARCH");
75 unsetenv((char *)"FILE_DEM_SPC");
76 unsetenv((char *)"FILE_DEM_GAT");
77 
78 unsetenv((char *)"TZ");
79 unsetenv((char *)"DIR_OUT_PP_BLOC");
80 unsetenv((char *)"OUTPUT_Z_DIR");
81 unsetenv((char *)"OUTPUT_RAIN_DIR");
82 unsetenv((char *)"BACINI_DIR");
83 unsetenv((char *)"OUTPUT_Z_LOWRIS_DIR");
84 unsetenv((char *)"DIR_QUALITY");
85 unsetenv((char *)"LISTA_FILE");
86 unsetenv((char *)"LAST_FILE");
87 unsetenv((char *)"LOG_FILE");
88 unsetenv((char *)"TEST_VPR");
89 unsetenv((char *)"ANAP_STAT_FILE");
90 unsetenv((char *)"BLOC_STAT_FILE");
91 unsetenv((char *)"ELEV_STAT_FILE");
92 unsetenv((char *)"NOME_SIDME");
93 unsetenv((char *)"MATRICE_BACINI");
94 unsetenv((char *)"BACINI_AUS_FILE");
95 unsetenv((char *)"BACINI_BOLOGNA");
96 unsetenv((char *)"BACINI_HISTORY_FILE");
97 unsetenv((char *)"LAST_VPR");
98 unsetenv((char *)"LAST_VPR_RES");
99 unsetenv((char *)"VPR0_FILE");
100 unsetenv((char *)"VPR0_FILE_RES ");
101 unsetenv((char *)"VPR_HEATING");
102 unsetenv((char *)"VPR_HEATING_RES");
103 unsetenv((char *)"LOG_VPR");
104 
105 return;
106 }
107 void printwork(){
108 LOG_CATEGORY("Environment");
109 LOG_INFO("FIRST_LEVEL_FILE=%s",getenv((char *)"FIRST_LEVEL_FILE"));
110 LOG_INFO("FIRST_LEVEL_DIM_FILE=%s",getenv((char *)"FIRST_LEVEL_DIM_FILE"));
111 LOG_INFO("FILE_T=%s",getenv((char *)"FILE_T"));
112 LOG_INFO("VPR_HMAX=%s",getenv((char *)"VPR_HMAX"));
113 LOG_INFO("FILE_ZERO_TERMICO=%s",getenv((char *)"FILE_ZERO_TERMICO"));
114 LOG_INFO("DIR_STORE_VPR=%s",getenv((char *)"DIR_STORE_VPR"));
115 LOG_INFO("SITO=%s",getenv((char *)"SITO"));
116 LOG_INFO("VPR_ARCH=%s",getenv((char *)"VPR_ARCH"));
117 LOG_INFO("FILE_DEM_SPC=%s",getenv((char *)"FILE_DEM_SPC"));
118 LOG_INFO("FILE_DEM_GAT=%s",getenv((char *)"FILE_DEM_GAT"));
119 
120 LOG_INFO("TZ=%s",getenv((char *)"TZ"));
121 LOG_INFO("DIR_OUT_PP_BLOC=%s",getenv((char *)"DIR_OUT_PP_BLOC"));
122 LOG_INFO("OUTPUT_Z_DIR=%s",getenv((char *)"OUTPUT_Z_DIR"));
123 LOG_INFO("OUTPUT_RAIN_DIR=%s",getenv((char *)"OUTPUT_RAIN_DIR"));
124 LOG_INFO("BACINI_DIR=%s",getenv((char *)"BACINI_DIR"));
125 LOG_INFO("OUTPUT_Z_LOWRIS_DIR=%s",getenv((char *)"OUTPUT_Z_LOWRIS_DIR"));
126 LOG_INFO("DIR_QUALITY=%s",getenv((char *)"DIR_QUALITY"));
127 LOG_INFO("LISTA_FILE=%s",getenv((char *)"LISTA_FILE"));
128 LOG_INFO("LAST_FILE=%s",getenv((char *)"LAST_FILE"));
129 LOG_INFO("LOG_FILE=%s",getenv((char *)"LOG_FILE"));
130 LOG_INFO("TEST_VPR=%s",getenv((char *)"TEST_VPR"));
131 LOG_INFO("ANAP_STAT_FILE=%s",getenv((char *)"ANAP_STAT_FILE"));
132 LOG_INFO("BLOC_STAT_FILE=%s",getenv((char *)"BLOC_STAT_FILE"));
133 LOG_INFO("ELEV_STAT_FILE=%s",getenv((char *)"ELEV_STAT_FILE"));
134 LOG_INFO("NOME_SIDME=%s",getenv((char *)"NOME_SIDME"));
135 LOG_INFO("MATRICE_BACINI=%s",getenv((char *)"MATRICE_BACINI"));
136 LOG_INFO("BACINI_AUS_FILE=%s",getenv((char *)"BACINI_AUS_FILE"));
137 LOG_INFO("BACINI_BOLOGNA=%s",getenv((char *)"BACINI_BOLOGNA"));
138 LOG_INFO("BACINI_HISTORY_FILE=%s",getenv((char *)"BACINI_HISTORY_FILE"));
139 LOG_INFO("LAST_VPR=%s",getenv((char *)"LAST_VPR"));
140 LOG_INFO("LAST_VPR_RES=%s",getenv((char *)"LAST_VPR_RES"));
141 LOG_INFO("VPR0_FILE=%s",getenv((char *)"VPR0_FILE"));
142 LOG_INFO("VPR0_FILE_RES=%s",getenv((char *)"VPR0_FILE_RES "));
143 LOG_INFO("VPR_HEATING=%s",getenv((char *)"VPR_HEATING"));
144 LOG_INFO("VPR_HEATING_RES=%s",getenv((char *)"VPR_HEATING_RES"));
145 LOG_INFO("LOG_VPR=%s",getenv((char *)"LOG_VPR"));
146 
147 }
148 
void printwork()
funzione che stampa l&#39;ambiente lavoro con chiamata a LOG_INFO
Definition: setwork.cpp:107
settaggio ambiente lavoro nel caso non sia settato dall&#39;esterno
void unsetwork()
funzione che ripulisce tutto l&#39;ambiente lavoro
Definition: setwork.cpp:66
int setwork(char *sito)
funzione che setta ambiente lavoro nel caso non sia settato dall&#39;esterno
Definition: setwork.cpp:9