mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(defvar_int, defvar_bool, defvar_lisp, defvar_lisp_nopro, defvar_per_buffer):

Browse Source 
Use the new substructure.
This commit is contained in:
Karl Heuer 1994-10-12 05:16:00 +00:00
parent 46b2ac21f0
commit 1a0f90f7f9
1 changed files with 35 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
src/lread.c
View File

@ -1770,59 +1770,63 @@ defalias (sname, string)
#endif /* NOTDEF */
/* Define an "integer variable"; a symbol whose value is forwarded
to a C variable of type int. Sample call: */
to a C variable of type int. Sample call: */
/* DEFVARINT ("indent-tabs-mode", &indent_tabs_mode, "Documentation"); */
void
defvar_int (namestring, address)
char *namestring;
int *address;
{
Lisp_Object sym;
Lisp_Object sym, val;
sym = intern (namestring);
XSETINTFWD (XSYMBOL (sym)->value, address);
val = allocate_misc ();
XMISC (val)->type = Lisp_Misc_Intfwd;
XMISC (val)->u_intfwd.intvar = address;
XSYMBOL (sym)->value = val;
}
/* Similar but define a variable whose value is T if address contains 1,
NIL if address contains 0 */
NIL if address contains 0 */
void
defvar_bool (namestring, address)
char *namestring;
int *address;
{
Lisp_Object sym;
Lisp_Object sym, val;
sym = intern (namestring);
XSETBOOLFWD (XSYMBOL (sym)->value, address);
val = allocate_misc ();
XMISC (val)->type = Lisp_Misc_Boolfwd;
XMISC (val)->u_boolfwd.boolvar = address;
XSYMBOL (sym)->value = val;
}
/* Similar but define a variable whose value is the Lisp Object stored at address. */
/* Similar but define a variable whose value is the Lisp Object stored
at address. Two versions: with and without gc-marking of the C
variable. The nopro version is used when that variable will be
gc-marked for some other reason, since marking the same slot twice
can cause trouble with strings. */
void
defvar_lisp_nopro (namestring, address)
char *namestring;
Lisp_Object *address;
{
Lisp_Object sym, val;
sym = intern (namestring);
val = allocate_misc ();
XMISC (val)->type = Lisp_Misc_Objfwd;
XMISC (val)->u_objfwd.objvar = address;
XSYMBOL (sym)->value = val;
}
void
defvar_lisp (namestring, address)
char *namestring;
Lisp_Object *address;
{
Lisp_Object sym;
sym = intern (namestring);
XSETOBJFWD (XSYMBOL (sym)->value, address);
defvar_lisp_nopro (namestring, address);
staticpro (address);
}
/* Similar but don't request gc-marking of the C variable.
Used when that variable will be gc-marked for some other reason,
since marking the same slot twice can cause trouble with strings. */
void
defvar_lisp_nopro (namestring, address)
char *namestring;
Lisp_Object *address;
{
Lisp_Object sym;
sym = intern (namestring);
XSETOBJFWD (XSYMBOL (sym)->value, address);
}
#ifndef standalone
/* Similar but define a variable whose value is the Lisp Object stored in
@ -1836,14 +1840,17 @@ defvar_per_buffer (namestring, address, type, doc)
Lisp_Object type;
char *doc;
{
Lisp_Object sym;
Lisp_Object sym, val;
int offset;
extern struct buffer buffer_local_symbols;
sym = intern (namestring);
val = allocate_misc ();
offset = (char *)address - (char *)current_buffer;
XSETBUFFER_OBJFWD (XSYMBOL (sym)->value, offset);
XMISC (val)->type = Lisp_Misc_Buffer_Objfwd;
XMISC (val)->u_buffer_objfwd.offset = offset;
XSYMBOL (sym)->value = val;
*(Lisp_Object *)(offset + (char *)&buffer_local_symbols) = sym;
*(Lisp_Object *)(offset + (char *)&buffer_local_types) = type;
if (XINT (*(Lisp_Object *)(offset + (char *)&buffer_local_flags)) == 0)