← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/gimp/jaunty-security

« back to all changes in this revision

Viewing changes to plug-ins/script-fu/siod/siod.h

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Holbach
  • Date: 2007-05-02 16:33:03 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20070502163303-bvzhjzbpw8qglc4y
Tags: 2.3.16-1ubuntu1
* Resynchronized with Debian, remaining Ubuntu changes:
  - debian/rules: i18n magic.
* debian/control.in:
  - Maintainer: Ubuntu Core Developers <ubuntu-devel@lists.ubuntu.com>
* debian/patches/02_help-message.patch,
  debian/patches/03_gimp.desktop.in.in.patch,
  debian/patches/10_dont_show_wizard.patch: updated.
* debian/patches/04_composite-signedness.patch,
  debian/patches/05_add-letter-spacing.patch: dropped, used upstream.

Show diffs side-by-side

added added

removed removed

Lines of Context:
plug-ins/script-fu/siod/siod.h
1
 
 
2
 
/* Scheme In One Defun, but in C this time.
3
 
 
4
 
 *                   COPYRIGHT (c) 1988-1994 BY                             *
5
 
 *        PARADIGM ASSOCIATES INCORPORATED, CAMBRIDGE, MASSACHUSETTS.       *
6
 
 *        See the source file SLIB.C for more information.                  *
7
 
 
8
 
 $Id: siod.h,v 1.3 1999/09/23 23:42:37 yosh Exp $
9
 
 
10
 
 */
11
 
#ifndef __SIOD_H__
12
 
#define __SIOD_H__
13
 
 
14
 
#include <stdio.h>
15
 
 
16
 
struct obj
17
 
  {
18
 
    short gc_mark;
19
 
    short type;
20
 
    union
21
 
      {
22
 
        struct
23
 
          {
24
 
            struct obj *car;
25
 
            struct obj *cdr;
26
 
          }
27
 
        cons;
28
 
        struct
29
 
          {
30
 
            double data;
31
 
          }
32
 
        flonum;
33
 
        struct
34
 
          {
35
 
            char *pname;
36
 
            struct obj *vcell;
37
 
          }
38
 
        symbol;
39
 
        struct
40
 
          {
41
 
            char *name;
42
 
            struct obj *(*f) (void);
43
 
          }
44
 
        subr0;
45
 
        struct
46
 
          {
47
 
            char *name;
48
 
            struct obj *(*f) (struct obj *);
49
 
          }
50
 
        subr1;
51
 
        struct
52
 
          {
53
 
            char *name;
54
 
            struct obj *(*f) (struct obj *, struct obj *);
55
 
          }
56
 
        subr2;
57
 
        struct
58
 
          {
59
 
            char *name;
60
 
            struct obj *(*f) (struct obj *, struct obj *, struct obj *);
61
 
          }
62
 
        subr3;
63
 
        struct
64
 
          {
65
 
            char *name;
66
 
            struct obj *(*f) (struct obj *, struct obj *, struct obj *,
67
 
                              struct obj *);
68
 
          }
69
 
        subr4;
70
 
        struct
71
 
          {
72
 
            char *name;
73
 
            struct obj *(*f) (struct obj *, struct obj *, struct obj *,
74
 
                              struct obj *, struct obj *);
75
 
          }
76
 
        subr5;
77
 
        struct
78
 
          {
79
 
            char *name;
80
 
            struct obj *(*f) (struct obj **, struct obj **);
81
 
          }
82
 
        subrm;
83
 
        struct
84
 
          {
85
 
            char *name;
86
 
            struct obj *(*f) (void *,...);
87
 
          }
88
 
        subr;
89
 
        struct
90
 
          {
91
 
            struct obj *env;
92
 
            struct obj *code;
93
 
          }
94
 
        closure;
95
 
        struct
96
 
          {
97
 
            long dim;
98
 
            long *data;
99
 
          }
100
 
        long_array;
101
 
        struct
102
 
          {
103
 
            long dim;
104
 
            double *data;
105
 
          }
106
 
        double_array;
107
 
        struct
108
 
          {
109
 
            long dim;
110
 
            char *data;
111
 
          }
112
 
        string;
113
 
        struct
114
 
          {
115
 
            long dim;
116
 
            struct obj **data;
117
 
          }
118
 
        lisp_array;
119
 
        struct
120
 
          {
121
 
            FILE *f;
122
 
            char *name;
123
 
          }
124
 
        c_file;
125
 
      }
126
 
    storage_as;
127
 
  };
128
 
 
129
 
#define CAR(x) ((*x).storage_as.cons.car)
130
 
#define CDR(x) ((*x).storage_as.cons.cdr)
131
 
#define PNAME(x) ((*x).storage_as.symbol.pname)
132
 
#define VCELL(x) ((*x).storage_as.symbol.vcell)
133
 
#define SUBR0(x) (*((*x).storage_as.subr0.f))
134
 
#define SUBR1(x) (*((*x).storage_as.subr1.f))
135
 
#define SUBR2(x) (*((*x).storage_as.subr2.f))
136
 
#define SUBR3(x) (*((*x).storage_as.subr3.f))
137
 
#define SUBR4(x) (*((*x).storage_as.subr4.f))
138
 
#define SUBR5(x) (*((*x).storage_as.subr5.f))
139
 
#define SUBRM(x) (*((*x).storage_as.subrm.f))
140
 
#define SUBRF(x) (*((*x).storage_as.subr.f))
141
 
#define FLONM(x) ((*x).storage_as.flonum.data)
142
 
 
143
 
#define NIL ((struct obj *) 0)
144
 
#define EQ(x,y) ((x) == (y))
145
 
#define NEQ(x,y) ((x) != (y))
146
 
#define NULLP(x) EQ(x,NIL)
147
 
#define NNULLP(x) NEQ(x,NIL)
148
 
 
149
 
#define TYPE(x) (((x) == NIL) ? 0 : ((*(x)).type))
150
 
 
151
 
#define TYPEP(x,y) (TYPE(x) == (y))
152
 
#define NTYPEP(x,y) (TYPE(x) != (y))
153
 
 
154
 
#define tc_nil    0
155
 
#define tc_cons   1
156
 
#define tc_flonum 2
157
 
#define tc_symbol 3
158
 
#define tc_subr_0 4
159
 
#define tc_subr_1 5
160
 
#define tc_subr_2 6
161
 
#define tc_subr_3 7
162
 
#define tc_lsubr  8
163
 
#define tc_fsubr  9
164
 
#define tc_msubr  10
165
 
#define tc_closure 11
166
 
#define tc_free_cell 12
167
 
#define tc_string       13
168
 
#define tc_double_array 14
169
 
#define tc_long_array   15
170
 
#define tc_lisp_array   16
171
 
#define tc_c_file       17
172
 
#define tc_byte_array   18
173
 
#define tc_subr_4 19
174
 
#define tc_subr_5 20
175
 
#define tc_subr_2n 21
176
 
#define FO_comment 35
177
 
#define tc_user_min 50
178
 
#define tc_user_max 100
179
 
 
180
 
#define FO_fetch 127
181
 
#define FO_store 126
182
 
#define FO_list  125
183
 
#define FO_listd 124
184
 
 
185
 
#define tc_table_dim 100
186
 
 
187
 
typedef struct obj *LISP;
188
 
typedef LISP (*SUBR_FUNC) (void);
189
 
 
190
 
#define CONSP(x)   TYPEP(x,tc_cons)
191
 
#define FLONUMP(x) TYPEP(x,tc_flonum)
192
 
#define SYMBOLP(x) TYPEP(x,tc_symbol)
193
 
 
194
 
#define NCONSP(x)   NTYPEP(x,tc_cons)
195
 
#define NFLONUMP(x) NTYPEP(x,tc_flonum)
196
 
#define NSYMBOLP(x) NTYPEP(x,tc_symbol)
197
 
 
198
 
#define TKBUFFERN 5120
199
 
 
200
 
struct gen_readio
201
 
  {
202
 
    int (*getc_fcn) (void *);
203
 
    void (*ungetc_fcn) (int, void *);
204
 
    void *cb_argument;
205
 
  };
206
 
 
207
 
struct gen_printio
208
 
  {
209
 
    int (*putc_fcn) (int, void *);
210
 
    int (*puts_fcn) (char *, void *);
211
 
    void *cb_argument;
212
 
  };
213
 
 
214
 
#define GETC_FCN(x) (*((*x).getc_fcn))((*x).cb_argument)
215
 
#define UNGETC_FCN(c,x) (*((*x).ungetc_fcn))(c,(*x).cb_argument)
216
 
#define PUTC_FCN(c,x) (*((*x).putc_fcn))(c,(*x).cb_argument)
217
 
#define PUTS_FCN(c,x) (*((*x).puts_fcn))(c,(*x).cb_argument)
218
 
 
219
 
struct repl_hooks
220
 
  {
221
 
    void (*repl_puts) (char *);
222
 
      LISP (*repl_read) (void);
223
 
      LISP (*repl_eval) (LISP);
224
 
    void (*repl_print) (LISP);
225
 
  };
226
 
 
227
 
void process_cla (int argc, char **argv, int warnflag);
228
 
void print_welcome (void);
229
 
void print_hs_1 (void);
230
 
void print_hs_2 (void);
231
 
long no_interrupt (long n);
232
 
LISP get_eof_val (void);
233
 
long repl_driver (long want_sigint, long want_init, struct repl_hooks *);
234
 
void set_repl_hooks (void (*puts_f) (char *),
235
 
                     LISP (*read_f) (void),
236
 
                     LISP (*eval_f) (LISP),
237
 
                     void (*print_f) (LISP));
238
 
long repl (struct repl_hooks *);
239
 
LISP my_err (char *message, LISP x);
240
 
LISP errswitch (void);
241
 
char *get_c_string (LISP x);
242
 
char *get_c_string_dim (LISP x, long *);
243
 
char *try_get_c_string (LISP x);
244
 
long get_c_long (LISP x);
245
 
double get_c_double (LISP x);
246
 
LISP lerr (LISP message, LISP x);
247
 
 
248
 
LISP newcell (long type);
249
 
LISP cons (LISP x, LISP y);
250
 
LISP consp (LISP x);
251
 
LISP car (LISP x);
252
 
LISP cdr (LISP x);
253
 
LISP setcar (LISP cell, LISP value);
254
 
LISP setcdr (LISP cell, LISP value);
255
 
LISP flocons (double x);
256
 
LISP numberp (LISP x);
257
 
LISP plus (LISP x, LISP y);
258
 
LISP ltimes (LISP x, LISP y);
259
 
LISP difference (LISP x, LISP y);
260
 
LISP Quotient (LISP x, LISP y);
261
 
LISP greaterp (LISP x, LISP y);
262
 
LISP lessp (LISP x, LISP y);
263
 
LISP eq (LISP x, LISP y);
264
 
LISP eql (LISP x, LISP y);
265
 
LISP symcons (char *pname, LISP vcell);
266
 
LISP symbolp (LISP x);
267
 
LISP symbol_boundp (LISP x, LISP env);
268
 
LISP symbol_value (LISP x, LISP env);
269
 
LISP cintern (char *name);
270
 
LISP rintern (char *name);
271
 
LISP subrcons (long type, char *name, SUBR_FUNC f);
272
 
LISP closure (LISP env, LISP code);
273
 
void gc_protect (LISP * location);
274
 
void gc_protect_n (LISP * location, long n);
275
 
void gc_protect_sym (LISP * location, char *st);
276
 
void gc_unprotect (LISP * location);
277
 
 
278
 
void init_storage (void);
279
 
void init_slibu (void);
280
 
 
281
 
void init_subr (char *name, long type, SUBR_FUNC fcn);
282
 
void init_subr_0 (char *name, LISP (*fcn) (void));
283
 
void init_subr_1 (char *name, LISP (*fcn) (LISP));
284
 
void init_subr_2 (char *name, LISP (*fcn) (LISP, LISP));
285
 
void init_subr_2n (char *name, LISP (*fcn) (LISP, LISP));
286
 
void init_subr_3 (char *name, LISP (*fcn) (LISP, LISP, LISP));
287
 
void init_subr_4 (char *name, LISP (*fcn) (LISP, LISP, LISP, LISP));
288
 
void init_subr_5 (char *name, LISP (*fcn) (LISP, LISP, LISP, LISP, LISP));
289
 
void init_lsubr (char *name, LISP (*fcn) (LISP));
290
 
void init_fsubr (char *name, LISP (*fcn) (LISP, LISP));
291
 
void init_msubr (char *name, LISP (*fcn) (LISP *, LISP *));
292
 
 
293
 
LISP assq (LISP x, LISP alist);
294
 
LISP delq (LISP elem, LISP l);
295
 
void set_gc_hooks (long type,
296
 
                   LISP (*rel) (LISP),
297
 
                   LISP (*mark) (LISP),
298
 
                   void (*scan) (LISP),
299
 
                   void (*free) (LISP),
300
 
                   long *kind);
301
 
LISP gc_relocate (LISP x);
302
 
LISP user_gc (LISP args);
303
 
LISP gc_status (LISP args);
304
 
void set_eval_hooks (long type, LISP (*fcn) (LISP, LISP *, LISP *));
305
 
LISP leval (LISP x, LISP env);
306
 
LISP symbolconc (LISP args);
307
 
void set_print_hooks (long type, void (*fcn) (LISP, struct gen_printio *));
308
 
LISP lprin1g (LISP exp, struct gen_printio *f);
309
 
LISP lprin1f (LISP exp, FILE * f);
310
 
LISP lprint (LISP exp, LISP);
311
 
LISP lread (LISP);
312
 
LISP lreadtk (char *, long j);
313
 
LISP lreadf (FILE * f);
314
 
void set_read_hooks (char *all_set, char *end_set,
315
 
                     LISP (*fcn1) (int, struct gen_readio *),
316
 
                     LISP (*fcn2) (char *, long, int *));
317
 
LISP apropos (LISP);
318
 
LISP vload (char *fname, long cflag, long rflag);
319
 
LISP load (LISP fname, LISP cflag, LISP rflag);
320
 
LISP require (LISP fname);
321
 
LISP save_forms (LISP fname, LISP forms, LISP how);
322
 
LISP quit (void);
323
 
LISP nullp (LISP x);
324
 
LISP strcons (long length, char *data);
325
 
LISP read_from_string (LISP x);
326
 
LISP aref1 (LISP a, LISP i);
327
 
LISP aset1 (LISP a, LISP i, LISP v);
328
 
LISP cons_array (LISP dim, LISP kind);
329
 
LISP arcons (long typecode, long n, long initp);
330
 
LISP string_append (LISP args);
331
 
LISP string_length (LISP string);
332
 
LISP string_search (LISP, LISP);
333
 
LISP substring (LISP, LISP, LISP);
334
 
LISP string_trim (LISP);
335
 
LISP string_trim_left (LISP);
336
 
LISP string_trim_right (LISP);
337
 
LISP string_upcase (LISP);
338
 
LISP string_downcase (LISP);
339
 
void init_subrs (void);
340
 
LISP copy_list (LISP);
341
 
long c_sxhash (LISP, long);
342
 
LISP sxhash (LISP, LISP);
343
 
LISP href (LISP, LISP);
344
 
LISP hset (LISP, LISP, LISP);
345
 
LISP fast_print (LISP, LISP);
346
 
LISP fast_read (LISP);
347
 
LISP equal (LISP, LISP);
348
 
LISP assoc (LISP x, LISP alist);
349
 
LISP make_list (LISP x, LISP v);
350
 
void set_fatal_exit_hook (void (*fcn) (void));
351
 
LISP parse_number (LISP x);
352
 
LISP intern (LISP x);
353
 
void init_trace (void);
354
 
long repl_c_string (char *, long want_sigint, long want_init, long want_print);
355
 
char *siod_version (void);
356
 
LISP nreverse (LISP);
357
 
LISP number2string (LISP, LISP, LISP, LISP);
358
 
LISP string2number (LISP, LISP);
359
 
LISP siod_verbose (LISP);
360
 
int siod_verbose_check (int);
361
 
LISP setvar (LISP, LISP, LISP);
362
 
long allocate_user_tc (void);
363
 
LISP cadr (LISP);
364
 
LISP caar (LISP);
365
 
LISP cddr (LISP);
366
 
LISP caaar (LISP);
367
 
LISP caadr (LISP);
368
 
LISP cadar (LISP);
369
 
LISP caddr (LISP);
370
 
LISP cdaar (LISP);
371
 
LISP cdadr (LISP);
372
 
LISP cddar (LISP);
373
 
LISP cdddr (LISP);
374
 
void chk_string (LISP, char **, long *);
375
 
LISP a_true_value (void);
376
 
LISP lapply (LISP fcn, LISP args);
377
 
LISP mallocl (void *lplace, long size);
378
 
void gput_st (struct gen_printio *, char *);
379
 
void put_st (char *st);
380
 
LISP listn (long n,...);
381
 
char *must_malloc (unsigned long size);
382
 
LISP lstrbreakup (LISP str, LISP lmarker);
383
 
LISP lstrunbreakup (LISP elems, LISP lmarker);
384
 
LISP nconc (LISP, LISP);
385
 
LISP poparg (LISP *, LISP);
386
 
FILE *get_c_file (LISP p, FILE * deflt);
387
 
char *last_c_errmsg (int);
388
 
LISP llast_c_errmsg (int);
389
 
 
390
 
#define SAFE_STRCPY(_to,_from) safe_strcpy((_to),sizeof(_to),(_from))
391
 
#define SAFE_STRCAT(_to,_from) safe_strcat((_to),sizeof(_to),(_from))
392
 
#define SAFE_STRLEN(_buff) safe_strlen((_buff),sizeof(_buff))
393
 
 
394
 
char *safe_strcpy (char *s1, size_t size1, const char *s2);
395
 
char *safe_strcat (char *s1, size_t size1, const char *s2);
396
 
 
397
 
size_t safe_strlen (const char *s, size_t size);
398
 
LISP memq (LISP x, LISP il);
399
 
LISP lstrbreakup (LISP, LISP);
400
 
LISP lstrbreakup (LISP, LISP);
401
 
LISP nth (LISP, LISP);
402
 
LISP butlast (LISP);
403
 
LISP last (LISP);
404
 
LISP readtl (struct gen_readio *f);
405
 
LISP funcall1 (LISP, LISP);
406
 
LISP funcall2 (LISP, LISP, LISP);
407
 
LISP apply1 (LISP, LISP, LISP);
408
 
LISP lgetc (LISP p);
409
 
LISP lungetc (LISP i, LISP p);
410
 
LISP lputc (LISP c, LISP p);
411
 
LISP lputs (LISP str, LISP p);
412
 
 
413
 
int assemble_options (LISP,...);
414
 
LISP ccall_catch (LISP tag, LISP (*fcn) (void *), void *);
415
 
LISP lref_default (LISP li, LISP x, LISP fcn);
416
 
 
417
 
 
418
 
LISP symalist (char *item,...);
419
 
 
420
 
LISP encode_st_mode (LISP l);
421
 
LISP encode_open_flags (LISP l);
422
 
 
423
 
 
424
 
#endif /* __SIOD_H__ */