int glp_init_env(void)
{ ENV *env;
int ok;
/* check if the programming model is supported */
ok = (CHAR_BIT == 8 && sizeof(char) == 1 &&
sizeof(short) == 2 && sizeof(int) == 4 &&
(sizeof(void *) == 4 || sizeof(void *) == 8));
if (!ok)
return 3;
/* check if the environment is already initialized */
if (tls_get_ptr() != NULL)
return 1;
/* allocate and initialize the environment block */
env = malloc(sizeof(ENV));
if (env == NULL)
return 2;
memset(env, 0, sizeof(ENV));
sprintf(env->version, "%d.%d",
GLP_MAJOR_VERSION, GLP_MINOR_VERSION);
env->self = env;
env->term_buf = malloc(TBUF_SIZE);
if (env->term_buf == NULL)
{ free(env);
return 2;
}
env->term_out = GLP_ON;
env->term_hook = NULL;
env->term_info = NULL;
env->tee_file = NULL;
#if 1 /* 23/XI-2015 */
env->err_st = 0;
#endif
env->err_file = NULL;
env->err_line = 0;
env->err_hook = NULL;
env->err_info = NULL;
env->err_buf = malloc(EBUF_SIZE);
if (env->err_buf == NULL)
{ free(env->term_buf);
free(env);
return 2;
}
env->err_buf[0] = '\0';
env->mem_limit = SIZE_T_MAX;
env->mem_ptr = NULL;
env->mem_count = env->mem_cpeak = 0;
env->mem_total = env->mem_tpeak = 0;
#if 1 /* 23/XI-2015 */
env->gmp_pool = NULL;
env->gmp_size = 0;
env->gmp_work = NULL;
#endif
env->h_odbc = env->h_mysql = NULL;
/* save pointer to the environment block */
tls_set_ptr(env);
/* initialization successful */
return 0;
}
ENV *get_env_ptr(void)
{ ENV *env = tls_get_ptr();
/* check if the environment has been initialized */
if (env == NULL)
{ /* not initialized yet; perform initialization */
if (glp_init_env() != 0)
{ /* initialization failed; display an error message */
fprintf(stderr, "GLPK initialization failed\n");
fflush(stderr);
/* and abnormally terminate the program */
abort();
}
/* initialization successful; retrieve the pointer */
env = tls_get_ptr();
}
/* check if the environment block is valid */
if (env->magic != ENV_MAGIC)
{ fprintf(stderr, "Invalid GLPK environment\n");
fflush(stderr);
abort();
}
return env;
}
int glp_init_env(void)
{ ENV *env;
int ok;
/* check if the programming model is supported */
ok = (CHAR_BIT == 8 && sizeof(char) == 1 &&
sizeof(short) == 2 && sizeof(int) == 4 &&
(sizeof(void *) == 4 || sizeof(void *) == 8));
if (!ok) return 3;
/* check if the environment is already initialized */
if (tls_get_ptr() != NULL) return 1;
/* allocate and initialize the environment block */
env = malloc(sizeof(ENV));
if (env == NULL) return 2;
env->magic = ENV_MAGIC;
sprintf(env->version, "%d.%d",
GLP_MAJOR_VERSION, GLP_MINOR_VERSION);
env->term_buf = malloc(TERM_BUF_SIZE);
if (env->term_buf == NULL)
{ free(env);
return 2;
}
env->term_out = GLP_ON;
env->term_hook = NULL;
env->term_info = NULL;
env->tee_file = NULL;
env->err_file = "";
env->err_line = 0;
env->err_hook = NULL;
env->err_info = NULL;
env->mem_limit.hi = 0x7FFFFFFF, env->mem_limit.lo = 0xFFFFFFFF;
env->mem_ptr = NULL;
env->mem_count = env->mem_cpeak = 0;
env->mem_total = env->mem_tpeak = xlset(0);
env->file_ptr = NULL;
env->ioerr_msg = malloc(IOERR_MSG_SIZE);
if (env->ioerr_msg == NULL)
{ free(env->term_buf);
free(env);
return 2;
}
strcpy(env->ioerr_msg, "No error");
env->h_odbc = env->h_mysql = NULL;
/* save pointer to the environment block */
tls_set_ptr(env);
/* initialization successful */
return 0;
}
int glp_free_env(void)
{ ENV *env = tls_get_ptr();
MBD *desc;
/* check if the environment is active */
if (env == NULL)
return 1;
/* check if the environment block is valid */
if (env->self != env)
{ fprintf(stderr, "Invalid GLPK environment\n");
fflush(stderr);
abort();
}
/* close handles to shared libraries */
if (env->h_odbc != NULL)
xdlclose(env->h_odbc);
if (env->h_mysql != NULL)
xdlclose(env->h_mysql);
/* free memory blocks which are still allocated */
while (env->mem_ptr != NULL)
{ desc = env->mem_ptr;
env->mem_ptr = desc->next;
free(desc);
}
/* close text file used for copying terminal output */
if (env->tee_file != NULL)
fclose(env->tee_file);
/* invalidate the environment block */
env->self = NULL;
/* free memory allocated to the environment block */
free(env->term_buf);
free(env->err_buf);
free(env);
/* reset a pointer to the environment block */
tls_set_ptr(NULL);
/* termination successful */
return 0;
}
int glp_free_env(void)
{ ENV *env = tls_get_ptr();
MEM *desc;
/* check if the environment is active */
if (env == NULL) return 1;
/* check if the environment block is valid */
if (env->magic != ENV_MAGIC)
{ fprintf(stderr, "Invalid GLPK environment\n");
fflush(stderr);
abort();
}
/* close handles to shared libraries */
if (env->h_odbc != NULL)
xdlclose(env->h_odbc);
if (env->h_mysql != NULL)
xdlclose(env->h_mysql);
/* close streams which are still open */
while (env->file_ptr != NULL)
xfclose(env->file_ptr);
/* free memory blocks which are still allocated */
while (env->mem_ptr != NULL)
{ desc = env->mem_ptr;
env->mem_ptr = desc->next;
free(desc);
}
/* invalidate the environment block */
env->magic = -1;
/* free memory allocated to the environment block */
free(env->term_buf);
free(env->ioerr_msg);
free(env);
/* reset a pointer to the environment block */
tls_set_ptr(NULL);
/* termination successful */
return 0;
}
