e7c7a14400
- improve operator lexer: produce token and precedence on 1 step - merge parser.c and qescript.c Fix other bugs - close display before freeing memory in --free-all - free TTYState in tty_dpy_close() - free VarDef memory in --free-all - fix crash bug on --free-all due to duplicating ModeDef structures Improve variable handling: - move do_describe_variable() to variable.c - add var_alloc and str_alloc flags in VarDef to fix `end` hack - remove ugly kludge to detect allocated strings - type variables retrieved from environment - free variable data on --free-all - bump VERSION to 5.3.4m
115 lines
3.9 KiB
C
115 lines
3.9 KiB
C
/*
|
|
* Module for handling variables in QEmacs
|
|
*
|
|
* Copyright (c) 2000-2020 Charlie Gordon.
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program 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 General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
*/
|
|
|
|
#ifndef QE_VARIABLES_H
|
|
#define QE_VARIABLES_H
|
|
|
|
typedef enum QVarType {
|
|
VAR_UNKNOWN = 0,
|
|
VAR_NUMBER,
|
|
VAR_STRING,
|
|
VAR_CHARS,
|
|
VAR_READONLY,
|
|
VAR_INVALID,
|
|
} QVarType;
|
|
|
|
enum QVarAccess {
|
|
VAR_RO,
|
|
VAR_RW,
|
|
VAR_RW_SAVE,
|
|
};
|
|
|
|
enum QVarDomain {
|
|
VAR_GLOBAL,
|
|
VAR_STATE,
|
|
VAR_BUFFER,
|
|
VAR_WINDOW,
|
|
VAR_MODE,
|
|
VAR_SELF,
|
|
};
|
|
|
|
extern const char * const var_domain[];
|
|
|
|
typedef struct VarDef VarDef;
|
|
struct VarDef {
|
|
const char *name;
|
|
const char *desc;
|
|
unsigned int var_alloc : 1;
|
|
unsigned int str_alloc : 1;
|
|
unsigned int modified : 1;
|
|
enum QVarDomain domain : 4;
|
|
enum QVarType type : 4;
|
|
enum QVarAccess rw : 2;
|
|
unsigned int size : 16;
|
|
union {
|
|
void *ptr;
|
|
int offset;
|
|
char **pstr;
|
|
int *pint;
|
|
char *str;
|
|
int num;
|
|
} value;
|
|
QVarType (*set_value)(EditState *s, VarDef *vp, void *ptr,
|
|
const char *str, int num);
|
|
VarDef *next;
|
|
};
|
|
|
|
#define U_VAR_F(name, type, fun, desc) \
|
|
{ (name), desc, 0, 0, 0, VAR_SELF, type, VAR_RW, 0, { .num = 0 }, fun, NULL },
|
|
#define G_VAR_F(name, var, type, rw, fun, desc) \
|
|
{ (name), desc, 0, 0, 0, VAR_GLOBAL, type, rw, 0, \
|
|
{ .ptr = (void*)&(var) }, fun, NULL },
|
|
#define S_VAR_F(name, fld, type, rw, fun, desc) \
|
|
{ (name), desc, 0, 0, 0, VAR_STATE, type, rw, sizeof(((QEmacsState*)0)->fld), \
|
|
{ .offset = offsetof(QEmacsState, fld) }, fun, NULL },
|
|
#define B_VAR_F(name, fld, type, rw, fun, desc) \
|
|
{ (name), desc, 0, 0, 0, VAR_BUFFER, type, rw, sizeof(((EditBuffer*)0)->fld), \
|
|
{ .offset = offsetof(EditBuffer, fld) }, fun, NULL },
|
|
#define W_VAR_F(name, fld, type, rw, fun, desc) \
|
|
{ (name), desc, 0, 0, 0, VAR_WINDOW, type, rw, sizeof(((EditState*)0)->fld), \
|
|
{ .offset = offsetof(EditState, fld) }, fun, NULL },
|
|
#define M_VAR_F(name, fld, type, rw, fun, desc) \
|
|
{ (name), desc, 0, 0, 0, VAR_MODE, type, rw, sizeof(((ModeDef*)0)->fld), \
|
|
{ .offset = offsetof(ModeDef, fld) }, fun, NULL },
|
|
|
|
#define U_VAR(name,type,desc) U_VAR_F(name, type, NULL, desc)
|
|
#define G_VAR(name,var,type,rw,desc) G_VAR_F(name, var, type, rw, NULL, desc)
|
|
#define S_VAR(name,fld,type,rw,desc) S_VAR_F(name, fld, type, rw, NULL, desc)
|
|
#define B_VAR(name,fld,type,rw,desc) B_VAR_F(name, fld, type, rw, NULL, desc)
|
|
#define W_VAR(name,fld,type,rw,desc) W_VAR_F(name, fld, type, rw, NULL, desc)
|
|
#define M_VAR(name,fld,type,rw,desc) M_VAR_F(name, fld, type, rw, NULL, desc)
|
|
|
|
void qe_register_variables(VarDef *vars, int count);
|
|
void variable_complete(CompleteState *cp);
|
|
int eb_variable_print_entry(EditBuffer *b, VarDef *vp, EditState *s);
|
|
int variable_print_entry(CompleteState *cp, EditState *s, const char *name);
|
|
|
|
QVarType qe_get_variable(EditState *s, const char *name,
|
|
char *buf, int size, int *pnum, int as_source);
|
|
QVarType qe_set_variable(EditState *s, const char *name,
|
|
const char *value, int num);
|
|
|
|
void qe_list_variables(EditState *s, EditBuffer *b);
|
|
|
|
void do_set_variable(EditState *s, const char *name, const char *value);
|
|
void do_show_variable(EditState *s, const char *name);
|
|
void qe_save_variables(EditState *s, EditBuffer *b);
|
|
|
|
#endif /* QE_VARIABLES_H */
|