73 lines
2.1 KiB
C
73 lines
2.1 KiB
C
|
/* Copyright 1989 GROUPE BULL -- See license conditions in file COPYRIGHT
|
||
|
|
* Copyright 1989 Massachusetts Institute of Technology
|
||
|
|
*/
|
||
|
|
/***********************\
|
||
|
|
* *
|
||
|
|
* WOOL_OBJECT String *
|
||
|
|
* DEFINITIONS *
|
||
|
|
* *
|
||
|
|
\***********************/
|
||
|
|
|
||
|
|
#ifndef INCLUDE_WL_STRING_H
|
||
|
|
#define INCLUDE_WL_STRING_H
|
||
|
|
|
||
|
|
/* type */
|
||
|
|
|
||
|
|
/* Note: the placeholder is there so that the string field of a WLString
|
||
|
|
* begins at the same place as the p_name field of a WLAtom, so that a
|
||
|
|
* WLAtom can be handled to any function expecting an WLString as
|
||
|
|
* argument. An WLAtom is less memory_consuming for often used symbols
|
||
|
|
* ( "foo""foo" allocates two strings, 'foo 'foo only one atom), but cannot
|
||
|
|
* be released.
|
||
|
|
*/
|
||
|
|
|
||
|
|
typedef struct _WOOL_String {
|
||
|
|
WOOL_HEADER;
|
||
|
|
WOOL_OBJECT place_holder;
|
||
|
|
char string[1];
|
||
|
|
} *WOOL_String;
|
||
|
|
|
||
|
|
/* exported functions */
|
||
|
|
|
||
|
|
EXT WOOL_String WLString_make();
|
||
|
|
EXT WOOL_String WLString_n_make();
|
||
|
|
EXT WOOL_OBJECT WLString_print();
|
||
|
|
EXT WOOL_OBJECT WLString_equal();
|
||
|
|
EXT WOOL_OBJECT add_strings();
|
||
|
|
EXT WOOL_String WLString_match();
|
||
|
|
|
||
|
|
/* exported objects */
|
||
|
|
|
||
|
|
EXT WOOL_String NIL_STRING;
|
||
|
|
|
||
|
|
/* methods */
|
||
|
|
|
||
|
|
EXT WOOL_METHOD WLString[]
|
||
|
|
#ifdef DO_INIT
|
||
|
|
= {
|
||
|
|
(WOOL_METHOD) 0, /* METHODS_ARRAY */
|
||
|
|
WLNumber_eval, /* WOOL_eval 1 */
|
||
|
|
WLString_print, /* WOOL_print 2 */
|
||
|
|
WLNumber_free, /* WOOL_free 3 */
|
||
|
|
wool_undefined_method_2, /* WOOL_execute 4 */
|
||
|
|
wool_undefined_method_2, /* WOOL_set 5 */
|
||
|
|
wool_undefined_method_1, /* WOOL_get_C_value 6 */
|
||
|
|
wool_undefined_method_1, /* WOOL_open 7 */
|
||
|
|
wool_undefined_method_1, /* WOOL_close 8 */
|
||
|
|
wool_undefined_method_2, /* WOOL_process_event 9 */
|
||
|
|
wool_undefined_method_1, /* WOOL_copy 10 */
|
||
|
|
wool_undefined_method_2, /* WOOL_get_dimensions 11 */
|
||
|
|
wool_undefined_method_2, /* WOOL_draw 12 */
|
||
|
|
WLString_equal, /* WOOL_equal 13 */
|
||
|
|
wool_undefined_method_2,
|
||
|
|
wool_undefined_method_2,
|
||
|
|
wool_undefined_method_1,
|
||
|
|
wool_undefined_method_1,
|
||
|
|
wool_undefined_method_1,
|
||
|
|
wool_undefined_method_1,
|
||
|
|
wool_undefined_method_1
|
||
|
|
}
|
||
|
|
#endif /* DO_INIT */
|
||
|
|
;
|
||
|
|
#endif /* INCLUDE_WL_STRING_H */
|