Mercurial > hg > xemacs-beta
annotate lib-src/yow.c @ 939:025200a2163c
[xemacs-hg @ 2002-07-31 07:23:39 by michaels]
2002-07-17 Marcus Crestani <crestani@informatik.uni-tuebingen.de>
Markus Kaltenbach <makalten@informatik.uni-tuebingen.de>
Mike Sperber <mike@xemacs.org>
configure flag to turn these changes on: --use-kkcc
First we added a dumpable flag to lrecord_implementation. It shows,
if the object is dumpable and should be processed by the dumper.
* lrecord.h (struct lrecord_implementation): added dumpable flag
(MAKE_LRECORD_IMPLEMENTATION): fitted the different makro definitions
to the new lrecord_implementation and their calls.
Then we changed mark_object, that it no longer needs a mark method for
those types that have pdump descritions.
* alloc.c:
(mark_object): If the object has a description, the new mark algorithm
is called, and the object is marked according to its description.
Otherwise it uses the mark method like before.
These procedures mark objects according to their descriptions. They
are modeled on the corresponding pdumper procedures.
(mark_with_description):
(get_indirect_count):
(structure_size):
(mark_struct_contents):
These procedures still call mark_object, this is needed while there are
Lisp_Objects without descriptions left.
We added pdump descriptions for many Lisp_Objects:
* extents.c: extent_auxiliary_description
* database.c: database_description
* gui.c: gui_item_description
* scrollbar.c: scrollbar_instance_description
* toolbar.c: toolbar_button_description
* event-stream.c: command_builder_description
* mule-charset.c: charset_description
* device-msw.c: devmode_description
* dialog-msw.c: mswindows_dialog_id_description
* eldap.c: ldap_description
* postgresql.c: pgconn_description
pgresult_description
* tooltalk.c: tooltalk_message_description
tooltalk_pattern_description
* ui-gtk.c: emacs_ffi_description
emacs_gtk_object_description
* events.c:
* events.h:
* event-stream.c:
* event-Xt.c:
* event-gtk.c:
* event-tty.c:
To write a pdump description for Lisp_Event, we converted every struct
in the union event to a Lisp_Object. So we created nine new
Lisp_Objects: Lisp_Key_Data, Lisp_Button_Data, Lisp_Motion_Data,
Lisp_Process_Data, Lisp_Timeout_Data, Lisp_Eval_Data,
Lisp_Misc_User_Data, Lisp_Magic_Data, Lisp_Magic_Eval_Data.
We also wrote makro selectors and mutators for the fields of the new
designed Lisp_Event and added everywhere these new abstractions.
We implemented XD_UNION support in (mark_with_description), so
we can describe exspecially console/device specific data with XD_UNION.
To describe with XD_UNION, we added a field to these objects, which
holds the variant type of the object. This field is initialized in
the appendant constructor. The variant is an integer, it has also to
be described in an description, if XD_UNION is used.
XD_UNION is used in following descriptions:
* console.c: console_description
(get_console_variant): returns the variant
(create_console): added variant initialization
* console.h (console_variant): the different console types
* console-impl.h (struct console): added enum console_variant contype
* device.c: device_description
(Fmake_device): added variant initialization
* device-impl.h (struct device): added enum console_variant devtype
* objects.c: image_instance_description
font_instance_description
(Fmake_color_instance): added variant initialization
(Fmake_font_instance): added variant initialization
* objects-impl.h (struct Lisp_Color_Instance): added color_instance_type
* objects-impl.h (struct Lisp_Font_Instance): added font_instance_type
* process.c: process_description
(make_process_internal): added variant initialization
* process.h (process_variant): the different process types
| author | michaels |
|---|---|
| date | Wed, 31 Jul 2002 07:23:39 +0000 |
| parents | 943eaba38521 |
| children |
| rev | line source |
|---|---|
| 428 | 1 /* |
| 2 * yow.c | |
| 3 * | |
| 4 * Print a quotation from Zippy the Pinhead. | |
| 5 * Qux <Kaufman-David@Yale> March 6, 1986 | |
| 6 * | |
| 7 * With dynamic memory allocation. | |
| 8 */ | |
| 9 | |
| 10 /* Synched up with: FSF 19.28. */ | |
| 11 | |
| 438 | 12 #include <config.h> |
| 428 | 13 |
| 14 #include <stdio.h> | |
| 15 #include <ctype.h> | |
| 16 #include <../src/paths.h> /* For PATH_DATA. */ | |
| 17 | |
| 18 #if __STDC__ || defined(STDC_HEADERS) | |
| 19 #include <stdlib.h> | |
| 20 #include <unistd.h> | |
| 21 #include <string.h> | |
| 22 #include <time.h> /* for time() */ | |
| 23 #endif | |
| 24 | |
| 25 #define BUFSIZE 80 | |
| 26 #define SEP '\0' | |
| 27 | |
| 28 #ifndef YOW_FILE | |
| 29 #define YOW_FILE "yow.lines" | |
| 30 #endif | |
| 31 | |
| 32 void yow (FILE *fp); | |
| 33 void setup_yow (FILE *fp); | |
| 34 | |
| 442 | 35 #ifdef WIN32_NATIVE |
| 428 | 36 #define rootrelativepath(rel) \ |
| 37 ({\ | |
| 38 static char res[BUFSIZE], *p;\ | |
| 39 strcpy (res, argv[0]);\ | |
| 40 p = res + strlen (res);\ | |
| 41 while (p != res && *p != '/' && *p != '\\' && *p != ':') p--;\ | |
| 42 strcpy (p + 1, "../");\ | |
| 43 strcpy (p + 4, rel);\ | |
| 44 &res;}) | |
| 45 #endif | |
| 46 | |
| 47 int | |
| 48 main (int argc, char *argv[]) | |
| 49 { | |
| 50 FILE *fp; | |
| 51 char file[BUFSIZ]; | |
| 52 | |
| 53 if (argc > 2 && !strcmp (argv[1], "-f")) | |
| 54 strcpy (file, argv[2]); | |
| 55 else | |
| 56 #ifdef PATH_DATA | |
| 57 #ifdef vms | |
| 58 sprintf (file, "%s%s", PATH_DATA, YOW_FILE); | |
| 59 #else | |
| 60 sprintf (file, "%s/%s", PATH_DATA, YOW_FILE); | |
| 61 #endif | |
| 62 #else /* !PATH_DATA */ | |
| 63 { | |
| 64 fprintf (stderr, | |
| 65 "%s: the location of the \"%s\" file was not supplied at compile-time.\n\ | |
| 66 You must supply it with the -f command-line option.\n", | |
| 67 argv[0], YOW_FILE); | |
| 68 exit (1); | |
| 69 } | |
| 70 #endif | |
| 71 | |
| 72 if ((fp = fopen(file, "r")) == NULL) { | |
| 73 perror(file); | |
| 74 exit(1); | |
| 75 } | |
| 76 | |
| 77 /* initialize random seed */ | |
| 78 srand((int) (getpid() + time((time_t *) 0))); | |
| 79 | |
| 80 setup_yow(fp); | |
| 81 yow(fp); | |
| 82 fclose(fp); | |
| 83 return 0; | |
| 84 } | |
| 85 | |
| 86 static long len = -1; | |
| 87 static long header_len; | |
| 88 | |
| 89 #define AVG_LEN 40 /* average length of a quotation */ | |
| 90 | |
| 91 /* Sets len and header_len */ | |
| 92 void | |
| 440 | 93 setup_yow (FILE *fp) |
| 428 | 94 { |
| 95 int c; | |
| 96 | |
| 97 /* Get length of file */ | |
| 98 /* Because the header (stuff before the first SEP) can be very long, | |
| 99 * thus biasing our search in favor of the first quotation in the file, | |
| 100 * we explicitly skip that. */ | |
| 101 while ((c = getc(fp)) != SEP) { | |
| 102 if (c == EOF) { | |
| 103 fprintf(stderr, "File contains no separators.\n"); | |
| 104 exit(2); | |
| 105 } | |
| 106 } | |
| 107 header_len = ftell(fp); | |
| 108 if (header_len > AVG_LEN) | |
| 109 header_len -= AVG_LEN; /* allow the first quotation to appear */ | |
| 110 | |
| 111 if (fseek(fp, 0L, 2) == -1) { | |
| 112 perror("fseek 1"); | |
| 113 exit(1); | |
| 114 } | |
| 115 len = ftell(fp) - header_len; | |
| 116 } | |
| 117 | |
| 118 | |
| 119 /* go to a random place in the file and print the quotation there */ | |
| 120 void | |
| 440 | 121 yow (FILE *fp) |
| 428 | 122 { |
| 123 long offset; | |
| 124 int c, i = 0; | |
| 125 char *buf; | |
| 647 | 126 int bufsize; |
| 428 | 127 |
| 128 offset = rand() % len + header_len; | |
| 129 if (fseek(fp, offset, 0) == -1) { | |
| 130 perror("fseek 2"); | |
| 131 exit(1); | |
| 132 } | |
| 133 | |
| 134 /* Read until SEP, read next line, print it. | |
| 135 (Note that we will never print anything before the first separator.) | |
| 136 If we hit EOF looking for the first SEP, just recurse. */ | |
| 137 while ((c = getc(fp)) != SEP) | |
| 138 if (c == EOF) { | |
| 139 yow(fp); | |
| 140 return; | |
| 141 } | |
| 142 | |
| 143 /* Skip leading whitespace, then read in a quotation. | |
| 144 If we hit EOF before we find a non-whitespace char, recurse. */ | |
| 145 while (isspace(c = getc(fp))) | |
| 146 ; | |
| 147 if (c == EOF) { | |
| 148 yow(fp); | |
| 149 return; | |
| 150 } | |
| 151 | |
| 152 bufsize = BUFSIZE; | |
| 153 buf = (char *) malloc(bufsize); | |
| 154 if (buf == (char *)0) { | |
| 155 fprintf(stderr, "can't allocate any memory\n"); | |
| 156 exit (3); | |
| 157 } | |
| 158 | |
| 159 buf[i++] = c; | |
| 160 while ((c = getc(fp)) != SEP && c != EOF) { | |
| 161 buf[i++] = c; | |
| 162 | |
| 163 if (i == bufsize-1) { | |
| 164 /* Yow! Is this quotation too long yet? */ | |
| 165 bufsize *= 2; | |
| 166 buf = (char *)realloc(buf, bufsize); | |
| 167 if (buf == (char *)0) { | |
| 168 fprintf(stderr, "can't allocate more memory\n"); | |
| 169 exit (3); | |
| 170 } | |
| 171 } | |
| 172 } | |
| 173 buf[i++] = 0; | |
| 174 printf("%s\n", buf); | |
| 175 } | |
| 176 |