nilopaim
/
tinycobol
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
tinycobol/lib/config.c

308 lines
10 KiB
C
Raw Permalink Blame History

/*
Copyright (C) 1999-2003 Rildo Pragana, Jim Noeth,
Andrew Cameron, David Essex.
Copyright (C) 1993, 1991 Rildo Pragana.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public License
as published by the Free Software Foundation; either version 2.1,
or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 59 Temple Place,
Suite 330, Boston, MA 02111-1307 USA
*/
/*
Cobol Compiler Run Time Library
Managing the configuration file
*/
#include "config.h"
static int config_loaded = 0;
static int keys_loaded = 0;
static struct config_item *configuration=NULL;
/* install pair key / value */
static void install_keyvalue(char *key,char *value){
struct config_item *item;
struct config_item *last;
char *p;
p=key + strlen(value) -1 ;
while ((*p == ' ')||(*p == '\t')||(*p == '\n')) {
*p=0;
p--;
}
value+=strspn(value," \t");
p=value + strlen(value) -1 ;
while ((*p == ' ')||(*p == '\t')||(*p == '\n')) {
*p=0;
p--;
}
item=malloc(sizeof(struct config_item));
memset(item,0,sizeof(struct config_item));
item->key=strdup(key);
item->value=strdup(value);
item->intvalue=atoi(value);
if (configuration) {
last=configuration;
while (last->next) {last=last->next;}
last->next=item;
}
else configuration=item;
}
/* load configuration file */
static int load_config() {
FILE *file;
char config_line[CONFIG_MAXLINE];
char *p,*key,*value;
if (config_loaded)
return 0;
if ((p = getenv (TCOBRT_CONFIG_DIR)) != NULL) {
strcpy (config_line, p);
}
else {
strcpy (config_line, COBDIR_DEFAULT);
}
strcat (config_line, LT_DIRSEP_STR);
strcat (config_line, RTOPTFILE_DEFAULT);
if ((file=fopen(config_line, "r")) == NULL){
return -1;
}
fgets (config_line, CONFIG_MAXLINE, file);
while (!feof (file)) {
p=strchr(config_line,'#');
if (p) p[0]='\0'; /* Strip the comments from line */
key=strtok(config_line,"= \t");
if (key) {
value=strtok(NULL,"");
if (value) {
install_keyvalue(key,value);
}
}
fgets (config_line, CONFIG_MAXLINE, file); /* get next line */
}
fclose(file);
config_loaded = 1;
return 1;
}
static struct config_item *find_config_item(char *key){
struct config_item *item=configuration;
while(item){
if (strcmp(key,item->key)==0) return item;
item = item->next;
}
return NULL;
}
char *tcob_get_str_config(char *key){
struct config_item *item;
load_config();
item = find_config_item(key);
if (item)
return item->value;
return NULL;
}
int tcob_get_int_config(char *key){
struct config_item *item;
load_config();
item = find_config_item(key);
if (item)
return item->intvalue;
return 0;
}
/*
* Default values
*
*/
static struct KeyBinding keyBindings[] = {
/* Key Code , Action on edit , screen status */
{TCOBKEY_DECIMALPT, EDIT_DECIMALPT, TCOBKEY_DECIMALPT},
{TCOBKEY_DECIMALCOMMA, EDIT_NOP, TCOBKEY_DECIMALCOMMA},
{TCOBKEY_ESCAPE, EDIT_TERMINATE, TCOBKEY_ESCAPE}, /* Escape Key */
{TCOBKEY_RETURN, EDIT_TERMINATE, 13}, /* For RETURN, we finish the edit mode */
{KEY_ENTER, EDIT_TERMINATE, 13}, /* ENTER does the same as RETURN */
{KEY_LEFT, EDIT_LEFT, KEY_LEFT},
{KEY_RIGHT, EDIT_RIGHT, KEY_RIGHT},
{KEY_HOME, EDIT_FIRST, KEY_HOME},
{KEY_END, EDIT_LAST, KEY_END},
{KEY_UP, EDIT_UP_FIELD, KEY_UP},
{KEY_DOWN, EDIT_DOWN_FIELD, KEY_NEXT},
{TCOBKEY_TAB, EDIT_NEXT_FIELD, TCOBKEY_TAB}, /* Tab */
{KEY_BTAB, EDIT_PREV_FIELD, KEY_BTAB},
{CTRL('n'), EDIT_NEXT_FIELD, 14},
{CTRL('p'), EDIT_PREV_FIELD, 16},
{CTRL('f'), EDIT_FIRST_FIELD, 6},
{CTRL('l'), EDIT_LAST_FIELD, 12},
{KEY_DC, EDIT_DELETE, KEY_DC},
{KEY_IC, EDIT_INSERT, KEY_IC},
{KEY_BACKSPACE, EDIT_BACKSPACE, KEY_BACKSPACE},
{KEY_PPAGE, EDIT_TERMINATE, KEY_PPAGE},
{KEY_NPAGE, EDIT_TERMINATE, KEY_NPAGE},
{KEY_F(1), EDIT_TERMINATE, KEY_F(1)},
{KEY_F(2), EDIT_TERMINATE, KEY_F(2)},
{KEY_F(3), EDIT_TERMINATE, KEY_F(3)},
{KEY_F(4), EDIT_TERMINATE, KEY_F(4)},
{KEY_F(5), EDIT_TERMINATE, KEY_F(5)},
{KEY_F(6), EDIT_TERMINATE, KEY_F(6)},
{KEY_F(7), EDIT_TERMINATE, KEY_F(7)},
{KEY_F(8), EDIT_TERMINATE, KEY_F(8)},
{KEY_F(9), EDIT_TERMINATE, KEY_F(9)},
{KEY_F(10), EDIT_TERMINATE, KEY_F(10)},
{KEY_F(11), EDIT_TERMINATE, KEY_F(11)},
{KEY_F(12), EDIT_TERMINATE, KEY_F(12)},
{TCOBKEY_AUTOCLEANALL,EDIT_NOP,0},
{0, 0, 0}
};
static int get_key_code(char *key){
if (strcmp("KEY_ESC",key)==0) return TCOBKEY_ESCAPE;
if (strcmp("KEY_RETURN",key)==0) return TCOBKEY_RETURN;
if (strcmp("KEY_ENTER",key)==0) return KEY_ENTER;
if (strcmp("KEY_LEFT",key)==0) return KEY_LEFT;
if (strcmp("KEY_RIGHT",key)==0) return KEY_RIGHT;
if (strcmp("KEY_HOME",key)==0) return KEY_HOME;
if (strcmp("KEY_END",key)==0) return KEY_END;
if (strcmp("KEY_UP",key)==0) return KEY_UP;
if (strcmp("KEY_DOWN",key)==0) return KEY_DOWN;
if (strcmp("KEY_TAB",key)==0) return TCOBKEY_TAB;
if (strcmp("KEY_BTAB",key)==0) return KEY_BTAB;
if (strcmp("KEY_CTRL_A",key)==0) return CTRL('a');
if (strcmp("KEY_CTRL_B",key)==0) return CTRL('b');
if (strcmp("KEY_CTRL_C",key)==0) return CTRL('c');
if (strcmp("KEY_CTRL_D",key)==0) return CTRL('d');
if (strcmp("KEY_CTRL_E",key)==0) return CTRL('e');
if (strcmp("KEY_CTRL_F",key)==0) return CTRL('f');
if (strcmp("KEY_CTRL_G",key)==0) return CTRL('g');
if (strcmp("KEY_CTRL_H",key)==0) return CTRL('h');
if (strcmp("KEY_CTRL_I",key)==0) return CTRL('i');
if (strcmp("KEY_CTRL_J",key)==0) return CTRL('j');
if (strcmp("KEY_CTRL_K",key)==0) return CTRL('k');
if (strcmp("KEY_CTRL_L",key)==0) return CTRL('l');
if (strcmp("KEY_CTRL_M",key)==0) return CTRL('m');
if (strcmp("KEY_CTRL_N",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_O",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_P",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_Q",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_R",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_S",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_T",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_U",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_V",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_W",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_X",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_Y",key)==0) return CTRL('n');
if (strcmp("KEY_CTRL_Z",key)==0) return CTRL('n');
if (strcmp("KEY_DELETE",key)==0) return KEY_DC;
if (strcmp("KEY_INSERT",key)==0) return KEY_IC;
if (strcmp("KEY_BACKSPACE",key)==0) return KEY_BACKSPACE;
if (strcmp("KEY_NPAGE",key)==0) return KEY_NPAGE;
if (strcmp("KEY_PPAGE",key)==0) return KEY_PPAGE;
if (strcmp("KEY_F1",key)==0) return KEY_F(1);
if (strcmp("KEY_F2",key)==0) return KEY_F(2);
if (strcmp("KEY_F3",key)==0) return KEY_F(3);
if (strcmp("KEY_F4",key)==0) return KEY_F(4);
if (strcmp("KEY_F5",key)==0) return KEY_F(5);
if (strcmp("KEY_F6",key)==0) return KEY_F(6);
if (strcmp("KEY_F7",key)==0) return KEY_F(7);
if (strcmp("KEY_F8",key)==0) return KEY_F(8);
if (strcmp("KEY_F9",key)==0) return KEY_F(9);
if (strcmp("KEY_F10",key)==0) return KEY_F(10);
if (strcmp("KEY_F11",key)==0) return KEY_F(11);
if (strcmp("KEY_F12",key)==0) return KEY_F(12);
if (strcmp("KEY_AUTOCLEANALL",key)==0) return TCOBKEY_AUTOCLEANALL;
if (strcmp("KEY_DECIMALPT",key)==0) return TCOBKEY_DECIMALPT;
if (strcmp("KEY_DECIMALCOMMA",key)==0) return TCOBKEY_DECIMALCOMMA;
return -1;
}
int get_edit_code(char *code){
if (strcmp("EDIT_FIRST_FIELD",code)==0) return EDIT_FIRST_FIELD;
if (strcmp("EDIT_LAST_FIELD",code)==0) return EDIT_LAST_FIELD;
if (strcmp("EDIT_UP_FIELD",code)==0) return EDIT_UP_FIELD;
if (strcmp("EDIT_DOWN_FIELD",code)==0) return EDIT_DOWN_FIELD;
if (strcmp("EDIT_NEXT_FIELD",code)==0) return EDIT_NEXT_FIELD;
if (strcmp("EDIT_PREV_FIELD",code)==0) return EDIT_PREV_FIELD;
if (strcmp("EDIT_LEFT",code)==0) return EDIT_LEFT;
if (strcmp("EDIT_RIGHT",code)==0) return EDIT_RIGHT;
if (strcmp("EDIT_FIRST",code)==0) return EDIT_FIRST;
if (strcmp("EDIT_LAST",code)==0) return EDIT_LAST;
if (strcmp("EDIT_INSERT",code)==0) return EDIT_INSERT;
if (strcmp("EDIT_BACKSPACE",code)==0) return EDIT_BACKSPACE;
if (strcmp("EDIT_DELETE",code)==0) return EDIT_DELETE;
if (strcmp("EDIT_TERMINATE",code)==0) return EDIT_TERMINATE;
if (strcmp("EDIT_CLEAR",code)==0) return EDIT_CLEAR;
if (strcmp("EDIT_CLEAR_TOEND",code)==0) return EDIT_CLEAR_TOEND;
if (strcmp("EDIT_DECIMALPT",code)==0) return EDIT_DECIMALPT;
if (strcmp("EDIT_NOP",code)==0) return EDIT_NOP;
return -1;
}
static void install_keybinding(char *key,char *value){
int keycode;
char *edit_name,*terminate_name;
int i,edit_code,terminate_value;
keycode=get_key_code(key);
if (keycode < 0) return ; /* unknown key */
edit_name = strtok(value," \t");
terminate_name = strtok(NULL," \t");
if (edit_name == NULL) return; /* no action defined */
edit_code=get_edit_code(edit_name);
if (terminate_name) terminate_value=atoi(terminate_name);
else terminate_value = 0;
i=0;
while(keyBindings[i].keyCode){
if (keyBindings[i].keyCode==keycode){
keyBindings[i].action=edit_code;
keyBindings[i].screenStatus=terminate_value;
return;
}
i++;
}
return;
}
struct KeyBinding * tcob_get_keybindings(){
struct config_item *item;
load_config();
if (keys_loaded) return keyBindings;
item=configuration;
while(item){
if(strncmp(item->key,"KEY_",4)==0){
install_keybinding(item->key,item->value);
}
item=item->next;
}
keys_loaded=1;
return keyBindings;
}
Reference in New Issue View Git Blame Copy Permalink