void *xmalloc(int size)
{ LIBENV *env = lib_link_env();
LIBMEM *desc;
int size_of_desc = align_datasize(sizeof(LIBMEM));
if (size < 1 || size > INT_MAX - size_of_desc)
xerror("xmalloc: size = %d; invalid parameter\n", size);
size += size_of_desc;
if (xlcmp(xlset(size),
xlsub(env->mem_limit, env->mem_total)) > 0)
xerror("xmalloc: memory limit exceeded\n");
if (env->mem_count == INT_MAX)
xerror("xmalloc: too many memory blocks allocated\n");
desc = malloc(size);
if (desc == NULL)
xerror("xmalloc: no memory available\n");
memset(desc, '?', size);
desc->flag = LIB_MEM_FLAG;
desc->size = size;
desc->prev = NULL;
desc->next = env->mem_ptr;
if (desc->next != NULL) desc->next->prev = desc;
env->mem_ptr = desc;
env->mem_count++;
if (env->mem_cpeak < env->mem_count)
env->mem_cpeak = env->mem_count;
env->mem_total = xladd(env->mem_total, xlset(size));
if (xlcmp(env->mem_tpeak, env->mem_total) < 0)
env->mem_tpeak = env->mem_total;
return (void *)((char *)desc + size_of_desc);
}
void xfree(void *ptr)
{ LIBENV *env = lib_link_env();
LIBMEM *desc;
int size_of_desc = align_datasize(sizeof(LIBMEM));
if (ptr == NULL)
xerror("xfree: ptr = %p; null pointer\n", ptr);
desc = (void *)((char *)ptr - size_of_desc);
if (desc->flag != LIB_MEM_FLAG)
xerror("xfree: ptr = %p; invalid pointer\n", ptr);
if (env->mem_count == 0 ||
xlcmp(env->mem_total, xlset(desc->size)) < 0)
xerror("xfree: memory allocation error\n");
if (desc->prev == NULL)
env->mem_ptr = desc->next;
else
desc->prev->next = desc->next;
if (desc->next == NULL)
;
else
desc->next->prev = desc->prev;
env->mem_count--;
env->mem_total = xlsub(env->mem_total, xlset(desc->size));
memset(desc, '?', size_of_desc);
free(desc);
return;
}
void glp_free(void *ptr)
{ ENV *env = get_env_ptr();
MEM *desc;
int size_of_desc = align_datasize(sizeof(MEM));
if (ptr == NULL)
xerror("glp_free: ptr = %p; null pointer\n", ptr);
desc = (void *)((char *)ptr - size_of_desc);
if (desc->flag != MEM_MAGIC)
xerror("glp_free: ptr = %p; invalid pointer\n", ptr);
if (env->mem_count == 0 ||
xlcmp(env->mem_total, xlset(desc->size)) < 0)
xerror("glp_free: memory allocation error\n");
if (desc->prev == NULL)
env->mem_ptr = desc->next;
else
desc->prev->next = desc->next;
if (desc->next == NULL)
;
else
desc->next->prev = desc->prev;
env->mem_count--;
env->mem_total = xlsub(env->mem_total, xlset(desc->size));
memset(desc, '?', size_of_desc);
free(desc);
return;
}
void glp_mem_limit(int limit)
{ ENV *env = get_env_ptr();
if (limit < 0)
xerror("glp_mem_limit: limit = %d; invalid parameter\n",
limit);
env->mem_limit = xlmul(xlset(limit), xlset(1 << 20));
return;
}
int lib_init_env(void)
{ LIBENV *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 has been already initialized */
if (lib_get_ptr() != NULL) return 1;
/* allocate the environment block */
env = malloc(sizeof(LIBENV));
if (env == NULL) return 2;
/* initialize the environment block */
sprintf(env->version, "%d.%d",
GLP_MAJOR_VERSION, GLP_MINOR_VERSION);
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->term_out = GLP_ON;
env->term_hook = NULL;
env->term_info = NULL;
#if 1
strcpy(env->err_msg, "Error 0");
#endif
#if 0
for (k = 0; k < LIB_MAX_OPEN; k++)
env->file_slot[k] = NULL;
#endif
env->file_ptr = NULL;
env->log_file = NULL;
#if 1
env->err_file = "";
env->err_line = 0;
env->t_init = env->t_last = xlset(0);
memset(env->c_init, 0, sizeof(env->c_init));
#endif
#if 1
env->h_odbc = NULL;
env->h_mysql = NULL;
#endif
/* save the pointer to the environment block */
lib_set_ptr(env);
/* initialization successful */
return 0;
}
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;
}
