Mercurial > emacs
view lwlib/lwlib-int.h @ 16141:9cbc74969e46
Add #n=object, #n#, and #:symbol constructs to reader.
(readevalloop, read, Fread_from_string): Empty list of read objects before
read0 call.
(read1): New variable `uninterned_symbol', which controls how to make
symbols. Support #:, #n=object and #n#.
(make_symbol): New function, used in read1 to make uninterned symbols
(Fintern): Set `obarray' field of interned symbols.
(init_obarray): Explicit set `obarray' field of symbol `nil'.
(syms_of_lread): staticpro read_objects, the list of read objects.
author | Erik Naggum <erik@naggum.no> |
---|---|
date | Mon, 09 Sep 1996 02:30:05 +0000 |
parents | 0a94cd2c51c4 |
children | 397da07a6912 |
line wrap: on
line source
#ifndef LWLIB_INTERNAL_H #define LWLIB_INTERNAL_H #include "lwlib.h" /* extern char *strdup (const char *); extern int strcasecmp (const char *, const char *); */ extern char *safe_strdup (); typedef struct _widget_instance { Widget widget; Widget parent; Boolean pop_up_p; struct _widget_info* info; struct _widget_instance* next; } widget_instance; typedef struct _widget_info { char* type; char* name; LWLIB_ID id; widget_value* val; Boolean busy; lw_callback pre_activate_cb; lw_callback selection_cb; lw_callback post_activate_cb; struct _widget_instance* instances; struct _widget_info* next; } widget_info; typedef Widget (*widget_creation_function) (); typedef struct _widget_creation_entry { char* type; widget_creation_function function; } widget_creation_entry; /* update all other instances of a widget. Can be used in a callback when a widget has been used by the user */ void lw_internal_update_other_instances (); /* get the widget_value for a widget in a given instance */ widget_value* lw_get_widget_value_for_widget (); widget_info *lw_get_widget_info (); #endif /* LWLIB_INTERNAL_H */