Mercurial > cpython-lru_cache-weakref
annotate Modules/flmodule.c @ 17581:c1937faabb23 2.1
Added support for optional explanation parameter to the \versionadded
macro.
Refactored do_cmd_versionadded() and do_cmd_versionchanged() to do most
of the work in a helper function, with the do_cmd_*() wrappers just supplying
a portion of the replacement text.
| author | Fred Drake <fdrake@acm.org> |
|---|---|
| date | Wed, 18 Apr 2001 17:29:14 +0000 |
| parents | 6f6f965c5e2d |
| children | 304b34023876 |
| rev | line source |
|---|---|
| 328 | 1 /* FL module -- interface to Mark Overmars' FORMS Library. */ |
| 2 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
3 /* This code works with FORMS version 2.2 (if you defined |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
4 OBSOLETE_FORMS_CALLS), and 2.3. |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
5 FORMS can be ftp'ed from ftp.cs.ruu.nl (131.211.80.17), directory |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
6 /pub/SGI/FORMS. */ |
| 469 | 7 |
|
947
260d96db112f
Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents:
926
diff
changeset
|
8 /* A half-hearted attempt has been made to allow programs using this |
|
260d96db112f
Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents:
926
diff
changeset
|
9 * module to exploit parallelism (through the threads module). No provisions |
|
260d96db112f
Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents:
926
diff
changeset
|
10 * have been made for multiple threads to use this module at the same time, |
|
260d96db112f
Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents:
926
diff
changeset
|
11 * though. So, a program with a forms thread and a non-forms thread will work |
|
260d96db112f
Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents:
926
diff
changeset
|
12 * fine but a program with two threads using forms will probably crash (unless |
|
260d96db112f
Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents:
926
diff
changeset
|
13 * the program takes precaution to ensure that only one thread can be in |
|
260d96db112f
Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents:
926
diff
changeset
|
14 * this module at any time). This will have to be fixed some time. |
|
13620
5b727ab37092
Spelling fixes supplied by Rob W. W. Hooft. All these are fixes in either
Thomas Wouters <thomas@python.org>
parents:
13572
diff
changeset
|
15 * (A fix will probably also have to synchronize with the gl module). |
|
947
260d96db112f
Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents:
926
diff
changeset
|
16 */ |
|
260d96db112f
Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents:
926
diff
changeset
|
17 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
18 #include "Python.h" |
| 328 | 19 #include "forms.h" |
| 20 #include "structmember.h" | |
| 21 | |
| 22 /* Generic Forms Objects */ | |
| 23 | |
| 24 typedef struct { | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
25 PyObject_HEAD |
| 328 | 26 FL_OBJECT *ob_generic; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
27 PyMethodDef *ob_methods; |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
28 PyObject *ob_callback; |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
29 PyObject *ob_callback_arg; |
| 328 | 30 } genericobject; |
| 31 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
32 staticforward PyTypeObject GenericObjecttype; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
33 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
34 #define is_genericobject(g) ((g)->ob_type == &GenericObjecttype) |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
35 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
36 /* List of all objects (XXX this should be a hash table on address...) */ |
| 328 | 37 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
38 static PyObject *allgenerics = NULL; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
39 static int nfreeslots = 0; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
40 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
41 /* Add an object to the list of known objects */ |
| 328 | 42 |
| 43 static void | |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
44 knowgeneric(genericobject *g) |
| 328 | 45 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
46 int i, n; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
47 /* Create the list if it doesn't already exist */ |
| 328 | 48 if (allgenerics == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
49 allgenerics = PyList_New(0); |
| 328 | 50 if (allgenerics == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
51 PyErr_Clear(); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
52 return; /* Too bad, live without allgenerics... */ |
| 328 | 53 } |
| 54 } | |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
55 if (nfreeslots > 0) { |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
56 /* Search the list for reusable slots (NULL items) */ |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
57 /* XXX This can be made faster! */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
58 n = PyList_Size(allgenerics); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
59 for (i = 0; i < n; i++) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
60 if (PyList_GetItem(allgenerics, i) == NULL) { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
61 Py_INCREF(g); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
62 PyList_SetItem(allgenerics, i, (PyObject *)g); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
63 nfreeslots--; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
64 return; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
65 } |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
66 } |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
67 /* Strange... no free slots found... */ |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
68 nfreeslots = 0; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
69 } |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
70 /* No free entries, append new item to the end */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
71 PyList_Append(allgenerics, (PyObject *)g); |
| 328 | 72 } |
| 73 | |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
74 /* Find an object in the list of known objects */ |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
75 |
| 328 | 76 static genericobject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
77 findgeneric(FL_OBJECT *generic) |
| 328 | 78 { |
| 79 int i, n; | |
| 80 genericobject *g; | |
| 81 | |
| 82 if (allgenerics == NULL) | |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
83 return NULL; /* No objects known yet */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
84 n = PyList_Size(allgenerics); |
| 328 | 85 for (i = 0; i < n; i++) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
86 g = (genericobject *)PyList_GetItem(allgenerics, i); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
87 if (g != NULL && g->ob_generic == generic) |
| 328 | 88 return g; |
| 89 } | |
| 90 return NULL; /* Unknown object */ | |
| 91 } | |
| 92 | |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
93 /* Remove an object from the list of known objects */ |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
94 |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
95 static void |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
96 forgetgeneric(genericobject *g) |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
97 { |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
98 int i, n; |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
99 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
100 Py_XDECREF(g->ob_callback); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
101 g->ob_callback = NULL; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
102 Py_XDECREF(g->ob_callback_arg); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
103 g->ob_callback_arg = NULL; |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
104 if (allgenerics == NULL) |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
105 return; /* No objects known yet */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
106 n = PyList_Size(allgenerics); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
107 for (i = 0; i < n; i++) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
108 if (g == (genericobject *)PyList_GetItem(allgenerics, i)) { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
109 PyList_SetItem(allgenerics, i, (PyObject *)NULL); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
110 nfreeslots++; |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
111 break; |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
112 } |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
113 } |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
114 } |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
115 |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
116 /* Called when a form is about to be freed -- |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
117 remove all the objects that we know about from it. */ |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
118 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
119 static void |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
120 releaseobjects(FL_FORM *form) |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
121 { |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
122 int i, n; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
123 genericobject *g; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
124 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
125 if (allgenerics == NULL) |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
126 return; /* No objects known yet */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
127 n = PyList_Size(allgenerics); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
128 for (i = 0; i < n; i++) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
129 g = (genericobject *)PyList_GetItem(allgenerics, i); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
130 if (g != NULL && g->ob_generic->form == form) { |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
131 fl_delete_object(g->ob_generic); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
132 /* The object is now unreachable for |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
133 do_forms and check_forms, so |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
134 delete it from the list of known objects */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
135 Py_XDECREF(g->ob_callback); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
136 g->ob_callback = NULL; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
137 Py_XDECREF(g->ob_callback_arg); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
138 g->ob_callback_arg = NULL; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
139 PyList_SetItem(allgenerics, i, (PyObject *)NULL); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
140 nfreeslots++; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
141 } |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
142 } |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
143 } |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
144 |
| 328 | 145 |
| 146 /* Methods of generic objects */ | |
| 147 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
148 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
149 generic_set_call_back(genericobject *g, PyObject *args) |
| 328 | 150 { |
| 151 if (args == NULL) { | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
152 Py_XDECREF(g->ob_callback); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
153 Py_XDECREF(g->ob_callback_arg); |
| 328 | 154 g->ob_callback = NULL; |
| 155 g->ob_callback_arg = NULL; | |
| 156 } | |
| 157 else { | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
158 if (!PyTuple_Check(args) || PyTuple_Size(args) != 2) { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
159 PyErr_BadArgument(); |
| 328 | 160 return NULL; |
| 161 } | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
162 Py_XDECREF(g->ob_callback); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
163 Py_XDECREF(g->ob_callback_arg); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
164 g->ob_callback = PyTuple_GetItem(args, 0); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
165 Py_INCREF(g->ob_callback); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
166 g->ob_callback_arg = PyTuple_GetItem(args, 1); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
167 Py_INCREF(g->ob_callback_arg); |
| 328 | 168 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
169 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
170 return Py_None; |
| 328 | 171 } |
| 172 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
173 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
174 generic_call(genericobject *g, PyObject *args, void (*func)(FL_OBJECT *)) |
| 328 | 175 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
176 if (!PyArg_NoArgs(args)) |
| 328 | 177 return NULL; |
| 178 (*func)(g->ob_generic); | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
179 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
180 return Py_None; |
| 328 | 181 } |
| 182 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
183 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
184 generic_delete_object(genericobject *g, PyObject *args) |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
185 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
186 PyObject *res; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
187 res = generic_call(g, args, fl_delete_object); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
188 if (res != NULL) |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
189 forgetgeneric(g); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
190 return res; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
191 } |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
192 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
193 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
194 generic_show_object(genericobject *g, PyObject *args) |
| 328 | 195 { |
| 196 return generic_call(g, args, fl_show_object); | |
| 197 } | |
| 198 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
199 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
200 generic_hide_object(genericobject *g, PyObject *args) |
| 328 | 201 { |
| 202 return generic_call(g, args, fl_hide_object); | |
| 203 } | |
| 204 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
205 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
206 generic_redraw_object(genericobject *g, PyObject *args) |
| 328 | 207 { |
| 208 return generic_call(g, args, fl_redraw_object); | |
| 209 } | |
| 210 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
211 #ifdef OBSOLETE_FORMS_CALLS |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
212 |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
213 /* (un)freeze_object() are obsolete in FORMS 2.2 and unsupported |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
214 in 2.3. Since there's no foolproof way to tell which version we're |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
215 using, we omit them unconditionally. */ |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
216 |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
217 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
218 generic_freeze_object(genericobject *g, PyObject *args) |
| 328 | 219 { |
| 220 return generic_call(g, args, fl_freeze_object); | |
| 221 } | |
| 222 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
223 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
224 generic_unfreeze_object(genericobject *g, PyObject *args) |
| 328 | 225 { |
| 226 return generic_call(g, args, fl_unfreeze_object); | |
| 227 } | |
| 228 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
229 #endif /* OBSOLETE_FORMS_CALLS */ |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
230 |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
231 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
232 generic_activate_object(genericobject *g, PyObject *args) |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
233 { |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
234 return generic_call(g, args, fl_activate_object); |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
235 } |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
236 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
237 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
238 generic_deactivate_object(genericobject *g, PyObject *args) |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
239 { |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
240 return generic_call(g, args, fl_deactivate_object); |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
241 } |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
242 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
243 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
244 generic_set_object_shortcut(genericobject *g, PyObject *args) |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
245 { |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
246 char *str; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
247 if (!PyArg_Parse(args, "s", &str)) |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
248 return NULL; |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
249 fl_set_object_shortcut(g->ob_generic, str); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
250 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
251 return Py_None; |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
252 } |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
253 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
254 static PyMethodDef generic_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
255 {"set_call_back", (PyCFunction)generic_set_call_back}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
256 {"delete_object", (PyCFunction)generic_delete_object}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
257 {"show_object", (PyCFunction)generic_show_object}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
258 {"hide_object", (PyCFunction)generic_hide_object}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
259 {"redraw_object", (PyCFunction)generic_redraw_object}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
260 #ifdef OBSOLETE_FORMS_CALLS |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
261 {"freeze_object", (PyCFunction)generic_freeze_object}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
262 {"unfreeze_object", (PyCFunction)generic_unfreeze_object}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
263 #endif |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
264 {"activate_object", (PyCFunction)generic_activate_object}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
265 {"deactivate_object", (PyCFunction)generic_deactivate_object}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
266 {"set_object_shortcut", (PyCFunction)generic_set_object_shortcut}, |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
267 {NULL, NULL} /* sentinel */ |
| 328 | 268 }; |
| 269 | |
| 270 static void | |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
271 generic_dealloc(genericobject *g) |
| 328 | 272 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
273 fl_free_object(g->ob_generic); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
274 Py_XDECREF(g->ob_callback); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
275 Py_XDECREF(g->ob_callback_arg); |
|
12576
1c7c2dd1beb1
Vladimir Marangozov's long-awaited malloc restructuring.
Guido van Rossum <guido@python.org>
parents:
9588
diff
changeset
|
276 PyObject_Del(g); |
| 328 | 277 } |
| 278 | |
| 279 #define OFF(x) offsetof(FL_OBJECT, x) | |
| 280 | |
| 281 static struct memberlist generic_memberlist[] = { | |
| 282 {"objclass", T_INT, OFF(objclass), RO}, | |
| 283 {"type", T_INT, OFF(type), RO}, | |
| 284 {"boxtype", T_INT, OFF(boxtype)}, | |
| 285 {"x", T_FLOAT, OFF(x)}, | |
| 286 {"y", T_FLOAT, OFF(y)}, | |
| 287 {"w", T_FLOAT, OFF(w)}, | |
| 288 {"h", T_FLOAT, OFF(h)}, | |
| 289 {"col1", T_INT, OFF(col1)}, | |
| 290 {"col2", T_INT, OFF(col2)}, | |
| 291 {"align", T_INT, OFF(align)}, | |
| 292 {"lcol", T_INT, OFF(lcol)}, | |
| 293 {"lsize", T_FLOAT, OFF(lsize)}, | |
| 294 /* "label" is treated specially! */ | |
| 295 {"lstyle", T_INT, OFF(lstyle)}, | |
| 296 {"pushed", T_INT, OFF(pushed), RO}, | |
| 297 {"focus", T_INT, OFF(focus), RO}, | |
| 298 {"belowmouse", T_INT, OFF(belowmouse),RO}, | |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
299 /* {"frozen", T_INT, OFF(frozen), RO}, */ |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
300 {"active", T_INT, OFF(active)}, |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
301 {"input", T_INT, OFF(input)}, |
| 328 | 302 {"visible", T_INT, OFF(visible), RO}, |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
303 {"radio", T_INT, OFF(radio)}, |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
304 {"automatic", T_INT, OFF(automatic)}, |
| 328 | 305 {NULL} /* Sentinel */ |
| 306 }; | |
| 307 | |
|
442
17f4cdf28959
Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents:
437
diff
changeset
|
308 #undef OFF |
|
17f4cdf28959
Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents:
437
diff
changeset
|
309 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
310 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
311 generic_getattr(genericobject *g, char *name) |
| 328 | 312 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
313 PyObject *meth; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
314 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
315 /* XXX Ought to special-case name "__methods__" */ |
| 328 | 316 if (g-> ob_methods) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
317 meth = Py_FindMethod(g->ob_methods, (PyObject *)g, name); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
318 if (meth != NULL) return meth; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
319 PyErr_Clear(); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
320 } |
| 328 | 321 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
322 meth = Py_FindMethod(generic_methods, (PyObject *)g, name); |
| 328 | 323 if (meth != NULL) |
| 324 return meth; | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
325 PyErr_Clear(); |
| 328 | 326 |
| 327 /* "label" is an exception, getmember only works for char pointers, | |
| 328 not for char arrays */ | |
| 329 if (strcmp(name, "label") == 0) | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
330 return PyString_FromString(g->ob_generic->label); |
| 328 | 331 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
332 return PyMember_Get((char *)g->ob_generic, generic_memberlist, name); |
| 328 | 333 } |
| 334 | |
| 335 static int | |
|
13572
e417d9528fd6
Fixed up some ANSIfications.
Sjoerd Mullender <sjoerd@acm.org>
parents:
13514
diff
changeset
|
336 generic_setattr(genericobject *g, char *name, PyObject *v) |
| 328 | 337 { |
| 338 int ret; | |
| 339 | |
| 340 if (v == NULL) { | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
341 PyErr_SetString(PyExc_TypeError, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
342 "can't delete forms object attributes"); |
|
890
b3d639ad666d
fixed bugs in generic_setattr (returned NULL instead of
Guido van Rossum <guido@python.org>
parents:
812
diff
changeset
|
343 return -1; |
| 328 | 344 } |
| 345 | |
| 346 /* "label" is an exception: setmember doesn't set strings; | |
| 347 and FORMS wants you to call a function to set the label */ | |
| 348 if (strcmp(name, "label") == 0) { | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
349 if (!PyString_Check(v)) { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
350 PyErr_SetString(PyExc_TypeError, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
351 "label attr must be string"); |
|
890
b3d639ad666d
fixed bugs in generic_setattr (returned NULL instead of
Guido van Rossum <guido@python.org>
parents:
812
diff
changeset
|
352 return -1; |
| 328 | 353 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
354 fl_set_object_label(g->ob_generic, PyString_AsString(v)); |
| 328 | 355 return 0; |
| 356 } | |
| 357 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
358 ret = PyMember_Set((char *)g->ob_generic, generic_memberlist, name, v); |
| 328 | 359 |
| 360 /* Rather than calling all the various set_object_* functions, | |
| 361 we call fl_redraw_object here. This is sometimes redundant | |
| 362 but I doubt that's a big problem */ | |
| 363 if (ret == 0) | |
| 364 fl_redraw_object(g->ob_generic); | |
| 365 | |
| 366 return ret; | |
| 367 } | |
| 368 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
369 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
370 generic_repr(genericobject *g) |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
371 { |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
372 char buf[100]; |
|
13210
ff243b0f16ee
Trent Mick <trentm@activestate.com>:
Fred Drake <fdrake@acm.org>
parents:
12576
diff
changeset
|
373 sprintf(buf, "<FORMS_object at %p, objclass=%d>", |
|
ff243b0f16ee
Trent Mick <trentm@activestate.com>:
Fred Drake <fdrake@acm.org>
parents:
12576
diff
changeset
|
374 g, g->ob_generic->objclass); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
375 return PyString_FromString(buf); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
376 } |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
377 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
378 static PyTypeObject GenericObjecttype = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
379 PyObject_HEAD_INIT(&PyType_Type) |
|
1746
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
380 0, /*ob_size*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
381 "FORMS_object", /*tp_name*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
382 sizeof(genericobject), /*tp_size*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
383 0, /*tp_itemsize*/ |
| 328 | 384 /* methods */ |
|
1746
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
385 (destructor)generic_dealloc, /*tp_dealloc*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
386 0, /*tp_print*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
387 (getattrfunc)generic_getattr, /*tp_getattr*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
388 (setattrfunc)generic_setattr, /*tp_setattr*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
389 0, /*tp_compare*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
390 (reprfunc)generic_repr, /*tp_repr*/ |
| 328 | 391 }; |
| 392 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
393 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
394 newgenericobject(FL_OBJECT *generic, PyMethodDef *methods) |
| 328 | 395 { |
| 396 genericobject *g; | |
|
12576
1c7c2dd1beb1
Vladimir Marangozov's long-awaited malloc restructuring.
Guido van Rossum <guido@python.org>
parents:
9588
diff
changeset
|
397 g = PyObject_New(genericobject, &GenericObjecttype); |
| 328 | 398 if (g == NULL) |
| 399 return NULL; | |
| 400 g-> ob_generic = generic; | |
| 401 g->ob_methods = methods; | |
| 402 g->ob_callback = NULL; | |
| 403 g->ob_callback_arg = NULL; | |
| 404 knowgeneric(g); | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
405 return (PyObject *)g; |
| 328 | 406 } |
| 407 | |
| 408 /**********************************************************************/ | |
| 409 /* Some common calling sequences */ | |
| 410 | |
| 411 /* void func (object, float) */ | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
412 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
413 call_forms_INf (void (*func)(FL_OBJECT *, float), FL_OBJECT *obj, PyObject *args) |
| 328 | 414 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
415 float parameter; |
| 328 | 416 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
417 if (!PyArg_Parse(args, "f", ¶meter)) return NULL; |
| 328 | 418 |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
419 (*func) (obj, parameter); |
| 328 | 420 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
421 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
422 return Py_None; |
| 328 | 423 } |
| 424 | |
| 425 /* void func (object, float) */ | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
426 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
427 call_forms_INfINf (void (*func)(FL_OBJECT *, float, float), FL_OBJECT *obj, PyObject *args) |
| 328 | 428 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
429 float par1, par2; |
| 328 | 430 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
431 if (!PyArg_Parse(args, "(ff)", &par1, &par2)) return NULL; |
| 328 | 432 |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
433 (*func) (obj, par1, par2); |
| 328 | 434 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
435 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
436 return Py_None; |
| 328 | 437 } |
| 438 | |
| 439 /* void func (object, int) */ | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
440 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
441 call_forms_INi (void (*func)(FL_OBJECT *, int), FL_OBJECT *obj, PyObject *args) |
| 328 | 442 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
443 int parameter; |
| 328 | 444 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
445 if (!PyArg_Parse(args, "i", ¶meter)) return NULL; |
| 328 | 446 |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
447 (*func) (obj, parameter); |
| 328 | 448 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
449 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
450 return Py_None; |
| 328 | 451 } |
| 452 | |
| 469 | 453 /* void func (object, char) */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
454 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
455 call_forms_INc (void (*func)(FL_OBJECT *, int), FL_OBJECT *obj, PyObject *args) |
| 469 | 456 { |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
457 char *a; |
| 469 | 458 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
459 if (!PyArg_Parse(args, "s", &a)) return NULL; |
| 469 | 460 |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
461 (*func) (obj, a[0]); |
| 469 | 462 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
463 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
464 return Py_None; |
| 469 | 465 } |
| 466 | |
| 328 | 467 /* void func (object, string) */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
468 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
469 call_forms_INstr (void (*func)(FL_OBJECT *, char *), FL_OBJECT *obj, PyObject *args) |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
470 { |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
471 char *a; |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
472 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
473 if (!PyArg_Parse(args, "s", &a)) return NULL; |
| 328 | 474 |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
475 (*func) (obj, a); |
| 328 | 476 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
477 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
478 return Py_None; |
| 328 | 479 } |
| 480 | |
| 481 | |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
482 /* void func (object, int, string) */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
483 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
484 call_forms_INiINstr (void (*func)(FL_OBJECT *, int, char *), FL_OBJECT *obj, PyObject *args) |
| 328 | 485 { |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
486 char *b; |
|
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
487 int a; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
488 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
489 if (!PyArg_Parse(args, "(is)", &a, &b)) return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
490 |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
491 (*func) (obj, a, b); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
492 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
493 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
494 return Py_None; |
| 328 | 495 } |
| 496 | |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
497 #ifdef UNUSED |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
498 /* void func (object, int, int) */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
499 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
500 call_forms_INiINi (void (*func)(FL_OBJECT *, int, int), FL_OBJECT *obj, PyObject *args) |
| 328 | 501 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
502 int par1, par2; |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
503 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
504 if (!PyArg_Parse(args, "(ii)", &par1, &par2)) return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
505 |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
506 (*func) (obj, par1, par2); |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
507 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
508 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
509 return Py_None; |
| 328 | 510 } |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
511 #endif |
| 328 | 512 |
| 513 /* int func (object) */ | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
514 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
515 call_forms_Ri (int (*func)(FL_OBJECT *), FL_OBJECT *obj, PyObject *args) |
| 328 | 516 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
517 int retval; |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
518 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
519 if (!PyArg_NoArgs(args)) return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
520 |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
521 retval = (*func) (obj); |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
522 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
523 return PyInt_FromLong ((long) retval); |
| 328 | 524 } |
| 525 | |
| 526 /* char * func (object) */ | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
527 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
528 call_forms_Rstr (char * (*func)(FL_OBJECT *), FL_OBJECT *obj, PyObject *args) |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
529 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
530 char *str; |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
531 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
532 if (!PyArg_NoArgs(args)) return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
533 |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
534 str = (*func) (obj); |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
535 |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
536 if (str == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
537 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
538 return Py_None; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
539 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
540 return PyString_FromString (str); |
| 328 | 541 } |
| 542 | |
| 543 /* int func (object) */ | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
544 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
545 call_forms_Rf (float (*func)(FL_OBJECT *), FL_OBJECT *obj, PyObject *args) |
| 328 | 546 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
547 float retval; |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
548 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
549 if (!PyArg_NoArgs(args)) return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
550 |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
551 retval = (*func) (obj); |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
552 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
553 return PyFloat_FromDouble (retval); |
| 328 | 554 } |
| 555 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
556 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
557 call_forms_OUTfOUTf (void (*func)(FL_OBJECT *, float *, float *), FL_OBJECT *obj, PyObject *args) |
| 328 | 558 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
559 float f1, f2; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
560 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
561 if (!PyArg_NoArgs(args)) return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
562 |
| 328 | 563 (*func) (obj, &f1, &f2); |
| 564 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
565 return Py_BuildValue("(ff)", f1, f2); |
| 328 | 566 } |
| 567 | |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
568 #ifdef UNUSED |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
569 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
570 call_forms_OUTf (void (*func)(FL_OBJECT *, float *), FL_OBJECT *obj, PyObject *args) |
| 328 | 571 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
572 float f; |
| 328 | 573 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
574 if (!PyArg_NoArgs(args)) return NULL; |
| 328 | 575 |
| 576 (*func) (obj, &f); | |
| 577 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
578 return PyFloat_FromDouble (f); |
| 328 | 579 } |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
580 #endif |
| 328 | 581 |
| 582 /**********************************************************************/ | |
| 583 /* Class : browser */ | |
| 584 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
585 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
586 set_browser_topline(genericobject *g, PyObject *args) |
| 328 | 587 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
588 return call_forms_INi (fl_set_browser_topline, g-> ob_generic, args); |
| 328 | 589 } |
| 590 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
591 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
592 clear_browser(genericobject *g, PyObject *args) |
| 328 | 593 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
594 return generic_call (g, args, fl_clear_browser); |
| 328 | 595 } |
| 596 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
597 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
598 add_browser_line (genericobject *g, PyObject *args) |
| 328 | 599 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
600 return call_forms_INstr (fl_add_browser_line, g-> ob_generic, args); |
| 328 | 601 } |
| 602 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
603 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
604 addto_browser (genericobject *g, PyObject *args) |
| 328 | 605 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
606 return call_forms_INstr (fl_addto_browser, g-> ob_generic, args); |
| 328 | 607 } |
| 608 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
609 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
610 insert_browser_line (genericobject *g, PyObject *args) |
| 328 | 611 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
612 return call_forms_INiINstr (fl_insert_browser_line, |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
613 g-> ob_generic, args); |
| 328 | 614 } |
| 615 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
616 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
617 delete_browser_line (genericobject *g, PyObject *args) |
| 328 | 618 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
619 return call_forms_INi (fl_delete_browser_line, g-> ob_generic, args); |
| 328 | 620 } |
| 621 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
622 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
623 replace_browser_line (genericobject *g, PyObject *args) |
| 328 | 624 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
625 return call_forms_INiINstr (fl_replace_browser_line, |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
626 g-> ob_generic, args); |
| 328 | 627 } |
| 628 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
629 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
630 get_browser_line(genericobject *g, PyObject *args) |
| 328 | 631 { |
| 632 int i; | |
| 633 char *str; | |
| 634 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
635 if (!PyArg_Parse(args, "i", &i)) |
| 328 | 636 return NULL; |
| 637 | |
| 638 str = fl_get_browser_line (g->ob_generic, i); | |
| 639 | |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
640 if (str == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
641 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
642 return Py_None; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
643 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
644 return PyString_FromString (str); |
| 328 | 645 } |
| 646 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
647 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
648 load_browser (genericobject *g, PyObject *args) |
| 328 | 649 { |
|
331
21c266f7eca1
Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents:
330
diff
changeset
|
650 /* XXX strictly speaking this is wrong since fl_load_browser |
|
21c266f7eca1
Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents:
330
diff
changeset
|
651 XXX returns int, not void */ |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
652 return call_forms_INstr (fl_load_browser, g-> ob_generic, args); |
| 328 | 653 } |
| 654 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
655 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
656 get_browser_maxline(genericobject *g, PyObject *args) |
| 328 | 657 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
658 return call_forms_Ri (fl_get_browser_maxline, g-> ob_generic, args); |
| 328 | 659 } |
| 660 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
661 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
662 select_browser_line (genericobject *g, PyObject *args) |
| 328 | 663 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
664 return call_forms_INi (fl_select_browser_line, g-> ob_generic, args); |
| 328 | 665 } |
| 666 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
667 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
668 deselect_browser_line (genericobject *g, PyObject *args) |
| 328 | 669 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
670 return call_forms_INi (fl_deselect_browser_line, g-> ob_generic, args); |
| 328 | 671 } |
| 672 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
673 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
674 deselect_browser (genericobject *g, PyObject *args) |
| 328 | 675 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
676 return generic_call (g, args, fl_deselect_browser); |
| 328 | 677 } |
| 678 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
679 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
680 isselected_browser_line (genericobject *g, PyObject *args) |
| 328 | 681 { |
| 682 int i, j; | |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
683 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
684 if (!PyArg_Parse(args, "i", &i)) |
| 328 | 685 return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
686 |
| 328 | 687 j = fl_isselected_browser_line (g->ob_generic, i); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
688 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
689 return PyInt_FromLong (j); |
| 328 | 690 } |
| 691 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
692 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
693 get_browser (genericobject *g, PyObject *args) |
| 328 | 694 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
695 return call_forms_Ri (fl_get_browser, g-> ob_generic, args); |
| 328 | 696 } |
| 697 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
698 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
699 set_browser_fontsize (genericobject *g, PyObject *args) |
| 328 | 700 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
701 return call_forms_INf (fl_set_browser_fontsize, g-> ob_generic, args); |
| 328 | 702 } |
| 703 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
704 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
705 set_browser_fontstyle (genericobject *g, PyObject *args) |
| 328 | 706 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
707 return call_forms_INi (fl_set_browser_fontstyle, g-> ob_generic, args); |
| 328 | 708 } |
| 709 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
710 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
711 set_browser_specialkey (genericobject *g, PyObject *args) |
| 469 | 712 { |
| 713 return call_forms_INc(fl_set_browser_specialkey, g-> ob_generic, args); | |
| 714 } | |
| 715 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
716 static PyMethodDef browser_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
717 {"set_browser_topline", (PyCFunction)set_browser_topline}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
718 {"clear_browser", (PyCFunction)clear_browser}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
719 {"add_browser_line", (PyCFunction)add_browser_line}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
720 {"addto_browser", (PyCFunction)addto_browser}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
721 {"insert_browser_line", (PyCFunction)insert_browser_line}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
722 {"delete_browser_line", (PyCFunction)delete_browser_line}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
723 {"replace_browser_line", (PyCFunction)replace_browser_line}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
724 {"get_browser_line", (PyCFunction)get_browser_line}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
725 {"load_browser", (PyCFunction)load_browser}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
726 {"get_browser_maxline", (PyCFunction)get_browser_maxline}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
727 {"select_browser_line", (PyCFunction)select_browser_line}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
728 {"deselect_browser_line", (PyCFunction)deselect_browser_line}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
729 {"deselect_browser", (PyCFunction)deselect_browser}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
730 {"isselected_browser_line", (PyCFunction)isselected_browser_line}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
731 {"get_browser", (PyCFunction)get_browser}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
732 {"set_browser_fontsize", (PyCFunction)set_browser_fontsize}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
733 {"set_browser_fontstyle", (PyCFunction)set_browser_fontstyle}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
734 {"set_browser_specialkey", (PyCFunction)set_browser_specialkey}, |
| 469 | 735 {NULL, NULL} /* sentinel */ |
| 328 | 736 }; |
| 737 | |
| 738 /* Class: button */ | |
| 739 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
740 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
741 set_button(genericobject *g, PyObject *args) |
| 328 | 742 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
743 return call_forms_INi (fl_set_button, g-> ob_generic, args); |
| 328 | 744 } |
| 745 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
746 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
747 get_button(genericobject *g, PyObject *args) |
| 328 | 748 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
749 return call_forms_Ri (fl_get_button, g-> ob_generic, args); |
| 328 | 750 } |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
751 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
752 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
753 get_button_numb(genericobject *g, PyObject *args) |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
754 { |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
755 return call_forms_Ri (fl_get_button_numb, g-> ob_generic, args); |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
756 } |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
757 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
758 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
759 set_button_shortcut(genericobject *g, PyObject *args) |
| 469 | 760 { |
| 761 return call_forms_INstr (fl_set_button_shortcut, g-> ob_generic, args); | |
| 762 } | |
| 328 | 763 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
764 static PyMethodDef button_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
765 {"set_button", (PyCFunction)set_button}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
766 {"get_button", (PyCFunction)get_button}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
767 {"get_button_numb", (PyCFunction)get_button_numb}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
768 {"set_button_shortcut", (PyCFunction)set_button_shortcut}, |
| 328 | 769 {NULL, NULL} /* sentinel */ |
| 770 }; | |
| 771 | |
| 772 /* Class: choice */ | |
| 773 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
774 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
775 set_choice(genericobject *g, PyObject *args) |
| 328 | 776 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
777 return call_forms_INi (fl_set_choice, g-> ob_generic, args); |
| 328 | 778 } |
| 779 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
780 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
781 get_choice(genericobject *g, PyObject *args) |
| 328 | 782 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
783 return call_forms_Ri (fl_get_choice, g-> ob_generic, args); |
| 328 | 784 } |
| 785 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
786 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
787 clear_choice (genericobject *g, PyObject *args) |
| 328 | 788 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
789 return generic_call (g, args, fl_clear_choice); |
| 328 | 790 } |
| 791 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
792 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
793 addto_choice (genericobject *g, PyObject *args) |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
794 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
795 return call_forms_INstr (fl_addto_choice, g-> ob_generic, args); |
| 328 | 796 } |
| 797 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
798 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
799 replace_choice (genericobject *g, PyObject *args) |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
800 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
801 return call_forms_INiINstr (fl_replace_choice, g-> ob_generic, args); |
| 328 | 802 } |
| 803 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
804 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
805 delete_choice (genericobject *g, PyObject *args) |
| 328 | 806 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
807 return call_forms_INi (fl_delete_choice, g-> ob_generic, args); |
| 328 | 808 } |
| 809 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
810 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
811 get_choice_text (genericobject *g, PyObject *args) |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
812 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
813 return call_forms_Rstr (fl_get_choice_text, g-> ob_generic, args); |
| 328 | 814 } |
| 815 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
816 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
817 set_choice_fontsize (genericobject *g, PyObject *args) |
| 328 | 818 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
819 return call_forms_INf (fl_set_choice_fontsize, g-> ob_generic, args); |
| 328 | 820 } |
| 821 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
822 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
823 set_choice_fontstyle (genericobject *g, PyObject *args) |
| 328 | 824 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
825 return call_forms_INi (fl_set_choice_fontstyle, g-> ob_generic, args); |
| 328 | 826 } |
| 827 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
828 static PyMethodDef choice_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
829 {"set_choice", (PyCFunction)set_choice}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
830 {"get_choice", (PyCFunction)get_choice}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
831 {"clear_choice", (PyCFunction)clear_choice}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
832 {"addto_choice", (PyCFunction)addto_choice}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
833 {"replace_choice", (PyCFunction)replace_choice}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
834 {"delete_choice", (PyCFunction)delete_choice}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
835 {"get_choice_text", (PyCFunction)get_choice_text}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
836 {"set_choice_fontsize", (PyCFunction)set_choice_fontsize}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
837 {"set_choice_fontstyle",(PyCFunction)set_choice_fontstyle}, |
| 328 | 838 {NULL, NULL} /* sentinel */ |
| 839 }; | |
| 840 | |
| 841 /* Class : Clock */ | |
| 842 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
843 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
844 get_clock(genericobject *g, PyObject *args) |
| 328 | 845 { |
| 846 int i0, i1, i2; | |
| 847 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
848 if (!PyArg_NoArgs(args)) |
| 328 | 849 return NULL; |
| 850 | |
| 851 fl_get_clock (g->ob_generic, &i0, &i1, &i2); | |
| 852 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
853 return Py_BuildValue("(iii)", i0, i1, i2); |
| 328 | 854 } |
| 855 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
856 static PyMethodDef clock_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
857 {"get_clock", (PyCFunction)get_clock}, |
| 328 | 858 {NULL, NULL} /* sentinel */ |
| 859 }; | |
| 860 | |
| 861 /* CLass : Counters */ | |
| 862 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
863 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
864 get_counter_value(genericobject *g, PyObject *args) |
| 328 | 865 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
866 return call_forms_Rf (fl_get_counter_value, g-> ob_generic, args); |
| 328 | 867 } |
| 868 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
869 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
870 set_counter_value (genericobject *g, PyObject *args) |
| 328 | 871 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
872 return call_forms_INf (fl_set_counter_value, g-> ob_generic, args); |
| 328 | 873 } |
| 874 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
875 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
876 set_counter_precision (genericobject *g, PyObject *args) |
| 328 | 877 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
878 return call_forms_INi (fl_set_counter_precision, g-> ob_generic, args); |
| 328 | 879 } |
| 880 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
881 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
882 set_counter_bounds (genericobject *g, PyObject *args) |
| 328 | 883 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
884 return call_forms_INfINf (fl_set_counter_bounds, g-> ob_generic, args); |
| 328 | 885 } |
| 886 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
887 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
888 set_counter_step (genericobject *g, PyObject *args) |
| 328 | 889 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
890 return call_forms_INfINf (fl_set_counter_step, g-> ob_generic, args); |
| 328 | 891 } |
| 892 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
893 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
894 set_counter_return (genericobject *g, PyObject *args) |
| 328 | 895 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
896 return call_forms_INi (fl_set_counter_return, g-> ob_generic, args); |
| 328 | 897 } |
| 898 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
899 static PyMethodDef counter_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
900 {"set_counter_value", (PyCFunction)set_counter_value}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
901 {"get_counter_value", (PyCFunction)get_counter_value}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
902 {"set_counter_bounds", (PyCFunction)set_counter_bounds}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
903 {"set_counter_step", (PyCFunction)set_counter_step}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
904 {"set_counter_precision", (PyCFunction)set_counter_precision}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
905 {"set_counter_return", (PyCFunction)set_counter_return}, |
| 469 | 906 {NULL, NULL} /* sentinel */ |
| 328 | 907 }; |
| 908 | |
| 909 | |
| 910 /* Class: Dials */ | |
| 911 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
912 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
913 get_dial_value(genericobject *g, PyObject *args) |
| 328 | 914 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
915 return call_forms_Rf (fl_get_dial_value, g-> ob_generic, args); |
| 328 | 916 } |
| 917 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
918 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
919 set_dial_value (genericobject *g, PyObject *args) |
| 328 | 920 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
921 return call_forms_INf (fl_set_dial_value, g-> ob_generic, args); |
| 328 | 922 } |
| 923 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
924 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
925 set_dial_bounds (genericobject *g, PyObject *args) |
| 328 | 926 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
927 return call_forms_INfINf (fl_set_dial_bounds, g-> ob_generic, args); |
| 328 | 928 } |
| 929 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
930 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
931 get_dial_bounds (genericobject *g, PyObject *args) |
| 328 | 932 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
933 return call_forms_OUTfOUTf (fl_get_dial_bounds, g-> ob_generic, args); |
| 328 | 934 } |
| 935 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
936 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
937 set_dial_step (genericobject *g, PyObject *args) |
| 469 | 938 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
939 return call_forms_INf (fl_set_dial_step, g-> ob_generic, args); |
| 469 | 940 } |
| 941 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
942 static PyMethodDef dial_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
943 {"set_dial_value", (PyCFunction)set_dial_value}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
944 {"get_dial_value", (PyCFunction)get_dial_value}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
945 {"set_dial_bounds", (PyCFunction)set_dial_bounds}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
946 {"get_dial_bounds", (PyCFunction)get_dial_bounds}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
947 {"set_dial_step", (PyCFunction)set_dial_step}, |
| 328 | 948 {NULL, NULL} /* sentinel */ |
| 949 }; | |
| 950 | |
| 951 /* Class : Input */ | |
| 952 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
953 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
954 set_input (genericobject *g, PyObject *args) |
| 328 | 955 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
956 return call_forms_INstr (fl_set_input, g-> ob_generic, args); |
| 328 | 957 } |
| 958 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
959 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
960 get_input (genericobject *g, PyObject *args) |
| 328 | 961 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
962 return call_forms_Rstr (fl_get_input, g-> ob_generic, args); |
| 328 | 963 } |
| 964 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
965 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
966 set_input_color (genericobject *g, PyObject *args) |
| 328 | 967 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
968 return call_forms_INfINf (fl_set_input_color, g-> ob_generic, args); |
| 328 | 969 } |
| 970 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
971 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
972 set_input_return (genericobject *g, PyObject *args) |
| 469 | 973 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
974 return call_forms_INi (fl_set_input_return, g-> ob_generic, args); |
| 469 | 975 } |
| 976 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
977 static PyMethodDef input_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
978 {"set_input", (PyCFunction)set_input}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
979 {"get_input", (PyCFunction)get_input}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
980 {"set_input_color", (PyCFunction)set_input_color}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
981 {"set_input_return", (PyCFunction)set_input_return}, |
| 328 | 982 {NULL, NULL} /* sentinel */ |
| 983 }; | |
| 984 | |
| 985 | |
| 986 /* Class : Menu */ | |
| 987 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
988 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
989 set_menu (genericobject *g, PyObject *args) |
| 328 | 990 { |
|
331
21c266f7eca1
Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents:
330
diff
changeset
|
991 return call_forms_INstr (fl_set_menu, g-> ob_generic, args); |
| 328 | 992 } |
| 993 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
994 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
995 get_menu (genericobject *g, PyObject *args) |
| 328 | 996 { |
|
331
21c266f7eca1
Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents:
330
diff
changeset
|
997 /* XXX strictly speaking this is wrong since fl_get_menu |
|
21c266f7eca1
Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents:
330
diff
changeset
|
998 XXX returns long, not int */ |
|
21c266f7eca1
Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents:
330
diff
changeset
|
999 return call_forms_Ri (fl_get_menu, g-> ob_generic, args); |
| 328 | 1000 } |
| 1001 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1002 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1003 get_menu_text (genericobject *g, PyObject *args) |
|
1262
f820e6917f07
Changes to speed up local variables enormously, by avoiding dictionary
Guido van Rossum <guido@python.org>
parents:
1252
diff
changeset
|
1004 { |
|
f820e6917f07
Changes to speed up local variables enormously, by avoiding dictionary
Guido van Rossum <guido@python.org>
parents:
1252
diff
changeset
|
1005 return call_forms_Rstr (fl_get_menu_text, g-> ob_generic, args); |
|
f820e6917f07
Changes to speed up local variables enormously, by avoiding dictionary
Guido van Rossum <guido@python.org>
parents:
1252
diff
changeset
|
1006 } |
|
f820e6917f07
Changes to speed up local variables enormously, by avoiding dictionary
Guido van Rossum <guido@python.org>
parents:
1252
diff
changeset
|
1007 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1008 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1009 addto_menu (genericobject *g, PyObject *args) |
| 328 | 1010 { |
|
331
21c266f7eca1
Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents:
330
diff
changeset
|
1011 return call_forms_INstr (fl_addto_menu, g-> ob_generic, args); |
| 328 | 1012 } |
| 1013 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1014 static PyMethodDef menu_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1015 {"set_menu", (PyCFunction)set_menu}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1016 {"get_menu", (PyCFunction)get_menu}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1017 {"get_menu_text", (PyCFunction)get_menu_text}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1018 {"addto_menu", (PyCFunction)addto_menu}, |
| 328 | 1019 {NULL, NULL} /* sentinel */ |
| 1020 }; | |
| 1021 | |
| 1022 | |
| 1023 /* Class: Sliders */ | |
| 1024 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1025 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1026 get_slider_value(genericobject *g, PyObject *args) |
| 328 | 1027 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1028 return call_forms_Rf (fl_get_slider_value, g-> ob_generic, args); |
| 328 | 1029 } |
| 1030 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1031 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1032 set_slider_value (genericobject *g, PyObject *args) |
| 328 | 1033 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1034 return call_forms_INf (fl_set_slider_value, g-> ob_generic, args); |
| 328 | 1035 } |
| 1036 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1037 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1038 set_slider_bounds (genericobject *g, PyObject *args) |
| 328 | 1039 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1040 return call_forms_INfINf (fl_set_slider_bounds, g-> ob_generic, args); |
| 328 | 1041 } |
| 1042 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1043 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1044 get_slider_bounds (genericobject *g, PyObject *args) |
| 328 | 1045 { |
| 1046 return call_forms_OUTfOUTf(fl_get_slider_bounds, g-> ob_generic, args); | |
| 1047 } | |
| 1048 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1049 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1050 set_slider_return (genericobject *g, PyObject *args) |
| 328 | 1051 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1052 return call_forms_INf (fl_set_slider_return, g-> ob_generic, args); |
| 328 | 1053 } |
| 1054 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1055 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1056 set_slider_size (genericobject *g, PyObject *args) |
| 328 | 1057 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1058 return call_forms_INf (fl_set_slider_size, g-> ob_generic, args); |
| 328 | 1059 } |
| 1060 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1061 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1062 set_slider_precision (genericobject *g, PyObject *args) |
| 328 | 1063 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1064 return call_forms_INi (fl_set_slider_precision, g-> ob_generic, args); |
| 328 | 1065 } |
| 1066 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1067 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1068 set_slider_step (genericobject *g, PyObject *args) |
| 469 | 1069 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1070 return call_forms_INf (fl_set_slider_step, g-> ob_generic, args); |
| 469 | 1071 } |
| 1072 | |
| 1073 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1074 static PyMethodDef slider_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1075 {"set_slider_value", (PyCFunction)set_slider_value}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1076 {"get_slider_value", (PyCFunction)get_slider_value}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1077 {"set_slider_bounds", (PyCFunction)set_slider_bounds}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1078 {"get_slider_bounds", (PyCFunction)get_slider_bounds}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1079 {"set_slider_return", (PyCFunction)set_slider_return}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1080 {"set_slider_size", (PyCFunction)set_slider_size}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1081 {"set_slider_precision",(PyCFunction)set_slider_precision}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1082 {"set_slider_step", (PyCFunction)set_slider_step}, |
| 328 | 1083 {NULL, NULL} /* sentinel */ |
| 1084 }; | |
| 1085 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1086 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1087 set_positioner_xvalue (genericobject *g, PyObject *args) |
| 328 | 1088 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1089 return call_forms_INf (fl_set_positioner_xvalue, g-> ob_generic, args); |
| 328 | 1090 } |
| 1091 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1092 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1093 set_positioner_xbounds (genericobject *g, PyObject *args) |
| 328 | 1094 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1095 return call_forms_INfINf (fl_set_positioner_xbounds, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1096 g-> ob_generic, args); |
| 328 | 1097 } |
| 1098 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1099 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1100 set_positioner_yvalue (genericobject *g, PyObject *args) |
| 328 | 1101 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1102 return call_forms_INf (fl_set_positioner_yvalue, g-> ob_generic, args); |
| 328 | 1103 } |
| 1104 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1105 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1106 set_positioner_ybounds (genericobject *g, PyObject *args) |
| 328 | 1107 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1108 return call_forms_INfINf (fl_set_positioner_ybounds, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1109 g-> ob_generic, args); |
| 328 | 1110 } |
| 1111 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1112 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1113 get_positioner_xvalue (genericobject *g, PyObject *args) |
| 328 | 1114 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1115 return call_forms_Rf (fl_get_positioner_xvalue, g-> ob_generic, args); |
| 328 | 1116 } |
| 1117 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1118 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1119 get_positioner_xbounds (genericobject *g, PyObject *args) |
| 328 | 1120 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1121 return call_forms_OUTfOUTf (fl_get_positioner_xbounds, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1122 g-> ob_generic, args); |
| 328 | 1123 } |
| 1124 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1125 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1126 get_positioner_yvalue (genericobject *g, PyObject *args) |
| 328 | 1127 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1128 return call_forms_Rf (fl_get_positioner_yvalue, g-> ob_generic, args); |
| 328 | 1129 } |
| 1130 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1131 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1132 get_positioner_ybounds (genericobject *g, PyObject *args) |
| 328 | 1133 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1134 return call_forms_OUTfOUTf (fl_get_positioner_ybounds, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1135 g-> ob_generic, args); |
| 328 | 1136 } |
| 1137 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1138 static PyMethodDef positioner_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1139 {"set_positioner_xvalue", (PyCFunction)set_positioner_xvalue}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1140 {"set_positioner_yvalue", (PyCFunction)set_positioner_yvalue}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1141 {"set_positioner_xbounds", (PyCFunction)set_positioner_xbounds}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1142 {"set_positioner_ybounds", (PyCFunction)set_positioner_ybounds}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1143 {"get_positioner_xvalue", (PyCFunction)get_positioner_xvalue}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1144 {"get_positioner_yvalue", (PyCFunction)get_positioner_yvalue}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1145 {"get_positioner_xbounds", (PyCFunction)get_positioner_xbounds}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1146 {"get_positioner_ybounds", (PyCFunction)get_positioner_ybounds}, |
| 328 | 1147 {NULL, NULL} /* sentinel */ |
| 1148 }; | |
| 1149 | |
| 1150 /* Class timer */ | |
| 1151 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1152 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1153 set_timer (genericobject *g, PyObject *args) |
| 328 | 1154 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1155 return call_forms_INf (fl_set_timer, g-> ob_generic, args); |
| 328 | 1156 } |
| 1157 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1158 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1159 get_timer (genericobject *g, PyObject *args) |
| 328 | 1160 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1161 return call_forms_Rf (fl_get_timer, g-> ob_generic, args); |
| 328 | 1162 } |
| 1163 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1164 static PyMethodDef timer_methods[] = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1165 {"set_timer", (PyCFunction)set_timer}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1166 {"get_timer", (PyCFunction)get_timer}, |
| 328 | 1167 {NULL, NULL} /* sentinel */ |
| 1168 }; | |
| 1169 | |
| 1170 /* Form objects */ | |
| 1171 | |
| 1172 typedef struct { | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1173 PyObject_HEAD |
| 328 | 1174 FL_FORM *ob_form; |
| 1175 } formobject; | |
| 1176 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1177 staticforward PyTypeObject Formtype; |
| 328 | 1178 |
| 1179 #define is_formobject(v) ((v)->ob_type == &Formtype) | |
| 1180 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1181 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1182 form_show_form(formobject *f, PyObject *args) |
| 328 | 1183 { |
| 1184 int place, border; | |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
1185 char *name; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1186 if (!PyArg_Parse(args, "(iis)", &place, &border, &name)) |
| 328 | 1187 return NULL; |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
1188 fl_show_form(f->ob_form, place, border, name); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1189 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1190 return Py_None; |
| 328 | 1191 } |
| 1192 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1193 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1194 form_call(void (*func)(FL_FORM *), FL_FORM *f, PyObject *args) |
| 328 | 1195 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1196 if (!PyArg_NoArgs(args)) return NULL; |
| 328 | 1197 |
| 1198 (*func)(f); | |
| 1199 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1200 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1201 return Py_None; |
| 328 | 1202 } |
| 1203 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1204 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1205 form_call_INiINi(void (*func)(FL_FORM *, int, int), FL_FORM *f, PyObject *args) |
| 328 | 1206 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1207 int a, b; |
| 328 | 1208 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1209 if (!PyArg_Parse(args, "(ii)", &a, &b)) return NULL; |
| 328 | 1210 |
| 1211 (*func)(f, a, b); | |
| 1212 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1213 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1214 return Py_None; |
| 328 | 1215 } |
| 1216 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1217 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1218 form_call_INfINf(void (*func)(FL_FORM *, float, float), FL_FORM *f, PyObject *args) |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1219 { |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1220 float a, b; |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1221 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1222 if (!PyArg_Parse(args, "(ff)", &a, &b)) return NULL; |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1223 |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1224 (*func)(f, a, b); |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1225 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1226 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1227 return Py_None; |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1228 } |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1229 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1230 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1231 form_hide_form(formobject *f, PyObject *args) |
| 328 | 1232 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1233 return form_call(fl_hide_form, f-> ob_form, args); |
| 328 | 1234 } |
| 1235 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1236 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1237 form_redraw_form(formobject *f, PyObject *args) |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1238 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1239 return form_call(fl_redraw_form, f-> ob_form, args); |
| 328 | 1240 } |
| 1241 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1242 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1243 form_set_form_position(formobject *f, PyObject *args) |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1244 { |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1245 return form_call_INiINi(fl_set_form_position, f-> ob_form, args); |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1246 } |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1247 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1248 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1249 form_set_form_size(formobject *f, PyObject *args) |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1250 { |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1251 return form_call_INiINi(fl_set_form_size, f-> ob_form, args); |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1252 } |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1253 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1254 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1255 form_scale_form(formobject *f, PyObject *args) |
|
1319
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1256 { |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1257 return form_call_INfINf(fl_scale_form, f-> ob_form, args); |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1258 } |
|
cd397266dc1c
* Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents:
1313
diff
changeset
|
1259 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1260 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1261 generic_add_object(formobject *f, PyObject *args, FL_OBJECT *(*func)(int, float, float, float, float, char*), PyMethodDef *internal_methods) |
| 328 | 1262 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1263 int type; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1264 float x, y, w, h; |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
1265 char *name; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1266 FL_OBJECT *obj; |
| 328 | 1267 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1268 if (!PyArg_Parse(args,"(iffffs)", &type,&x,&y,&w,&h,&name)) |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1269 return NULL; |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1270 |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1271 fl_addto_form (f-> ob_form); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1272 |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
1273 obj = (*func) (type, x, y, w, h, name); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1274 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1275 fl_end_form(); |
| 328 | 1276 |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1277 if (obj == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1278 PyErr_NoMemory(); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1279 return NULL; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1280 } |
| 328 | 1281 |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1282 return newgenericobject (obj, internal_methods); |
| 328 | 1283 } |
| 1284 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1285 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1286 form_add_button(formobject *f, PyObject *args) |
| 328 | 1287 { |
| 1288 return generic_add_object(f, args, fl_add_button, button_methods); | |
| 1289 } | |
| 1290 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1291 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1292 form_add_lightbutton(formobject *f, PyObject *args) |
| 328 | 1293 { |
| 1294 return generic_add_object(f, args, fl_add_lightbutton, button_methods); | |
| 1295 } | |
| 1296 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1297 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1298 form_add_roundbutton(formobject *f, PyObject *args) |
| 328 | 1299 { |
| 1300 return generic_add_object(f, args, fl_add_roundbutton, button_methods); | |
| 1301 } | |
| 1302 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1303 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1304 form_add_menu (formobject *f, PyObject *args) |
| 328 | 1305 { |
| 1306 return generic_add_object(f, args, fl_add_menu, menu_methods); | |
| 1307 } | |
| 1308 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1309 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1310 form_add_slider(formobject *f, PyObject *args) |
| 328 | 1311 { |
| 1312 return generic_add_object(f, args, fl_add_slider, slider_methods); | |
| 1313 } | |
| 1314 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1315 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1316 form_add_valslider(formobject *f, PyObject *args) |
| 328 | 1317 { |
| 1318 return generic_add_object(f, args, fl_add_valslider, slider_methods); | |
| 1319 } | |
| 1320 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1321 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1322 form_add_dial(formobject *f, PyObject *args) |
| 328 | 1323 { |
| 1324 return generic_add_object(f, args, fl_add_dial, dial_methods); | |
| 1325 } | |
| 1326 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1327 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1328 form_add_counter(formobject *f, PyObject *args) |
| 328 | 1329 { |
| 1330 return generic_add_object(f, args, fl_add_counter, counter_methods); | |
| 1331 } | |
| 1332 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1333 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1334 form_add_clock(formobject *f, PyObject *args) |
| 328 | 1335 { |
| 1336 return generic_add_object(f, args, fl_add_clock, clock_methods); | |
| 1337 } | |
| 1338 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1339 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1340 form_add_box(formobject *f, PyObject *args) |
| 328 | 1341 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1342 return generic_add_object(f, args, fl_add_box, |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1343 (PyMethodDef *)NULL); |
| 328 | 1344 } |
| 1345 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1346 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1347 form_add_choice(formobject *f, PyObject *args) |
| 328 | 1348 { |
| 1349 return generic_add_object(f, args, fl_add_choice, choice_methods); | |
| 1350 } | |
| 1351 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1352 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1353 form_add_browser(formobject *f, PyObject *args) |
| 328 | 1354 { |
| 1355 return generic_add_object(f, args, fl_add_browser, browser_methods); | |
| 1356 } | |
| 1357 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1358 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1359 form_add_positioner(formobject *f, PyObject *args) |
| 328 | 1360 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1361 return generic_add_object(f, args, fl_add_positioner, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1362 positioner_methods); |
| 328 | 1363 } |
| 1364 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1365 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1366 form_add_input(formobject *f, PyObject *args) |
| 328 | 1367 { |
| 1368 return generic_add_object(f, args, fl_add_input, input_methods); | |
| 1369 } | |
| 1370 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1371 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1372 form_add_text(formobject *f, PyObject *args) |
| 328 | 1373 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1374 return generic_add_object(f, args, fl_add_text, |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1375 (PyMethodDef *)NULL); |
| 328 | 1376 } |
| 1377 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1378 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1379 form_add_timer(formobject *f, PyObject *args) |
| 328 | 1380 { |
| 1381 return generic_add_object(f, args, fl_add_timer, timer_methods); | |
| 1382 } | |
| 1383 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1384 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1385 form_freeze_form(formobject *f, PyObject *args) |
| 328 | 1386 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1387 return form_call(fl_freeze_form, f-> ob_form, args); |
| 328 | 1388 } |
| 1389 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1390 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1391 form_unfreeze_form(formobject *f, PyObject *args) |
| 328 | 1392 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1393 return form_call(fl_unfreeze_form, f-> ob_form, args); |
| 328 | 1394 } |
| 1395 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1396 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1397 form_activate_form(formobject *f, PyObject *args) |
| 328 | 1398 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1399 return form_call(fl_activate_form, f-> ob_form, args); |
| 328 | 1400 } |
| 1401 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1402 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1403 form_deactivate_form(formobject *f, PyObject *args) |
| 328 | 1404 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1405 return form_call(fl_deactivate_form, f-> ob_form, args); |
| 328 | 1406 } |
| 1407 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1408 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1409 form_bgn_group(formobject *f, PyObject *args) |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1410 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1411 FL_OBJECT *obj; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1412 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1413 fl_addto_form(f-> ob_form); |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1414 obj = fl_bgn_group(); |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1415 fl_end_form(); |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1416 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1417 if (obj == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1418 PyErr_NoMemory(); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1419 return NULL; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1420 } |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1421 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1422 return newgenericobject (obj, (PyMethodDef *) NULL); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1423 } |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1424 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1425 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1426 form_end_group(formobject *f, PyObject *args) |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1427 { |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1428 fl_addto_form(f-> ob_form); |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1429 fl_end_group(); |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1430 fl_end_form(); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1431 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1432 return Py_None; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1433 } |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1434 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1435 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1436 forms_find_first_or_last(FL_OBJECT *(*func)(FL_FORM *, int, float, float), formobject *f, PyObject *args) |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1437 { |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1438 int type; |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1439 float mx, my; |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1440 FL_OBJECT *generic; |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1441 genericobject *g; |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1442 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1443 if (!PyArg_Parse(args, "(iff)", &type, &mx, &my)) return NULL; |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1444 |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1445 generic = (*func) (f-> ob_form, type, mx, my); |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1446 |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1447 if (generic == NULL) |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1448 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1449 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1450 return Py_None; |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1451 } |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1452 |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1453 g = findgeneric(generic); |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1454 if (g == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1455 PyErr_SetString(PyExc_RuntimeError, |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1456 "forms_find_{first|last} returns unknown object"); |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1457 return NULL; |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1458 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1459 Py_INCREF(g); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1460 return (PyObject *) g; |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1461 } |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1462 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1463 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1464 form_find_first(formobject *f, PyObject *args) |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1465 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1466 return forms_find_first_or_last(fl_find_first, f, args); |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1467 } |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1468 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1469 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1470 form_find_last(formobject *f, PyObject *args) |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1471 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1472 return forms_find_first_or_last(fl_find_last, f, args); |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1473 } |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1474 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1475 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1476 form_set_object_focus(formobject *f, PyObject *args) |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1477 { |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1478 genericobject *g; |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1479 if (args == NULL || !is_genericobject(args)) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1480 PyErr_BadArgument(); |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1481 return NULL; |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1482 } |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1483 g = (genericobject *)args; |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1484 fl_set_object_focus(f->ob_form, g->ob_generic); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1485 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1486 return Py_None; |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1487 } |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1488 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1489 static PyMethodDef form_methods[] = { |
| 328 | 1490 /* adm */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1491 {"show_form", (PyCFunction)form_show_form}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1492 {"hide_form", (PyCFunction)form_hide_form}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1493 {"redraw_form", (PyCFunction)form_redraw_form}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1494 {"set_form_position", (PyCFunction)form_set_form_position}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1495 {"set_form_size", (PyCFunction)form_set_form_size}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1496 {"scale_form", (PyCFunction)form_scale_form}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1497 {"freeze_form", (PyCFunction)form_freeze_form}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1498 {"unfreeze_form", (PyCFunction)form_unfreeze_form}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1499 {"activate_form", (PyCFunction)form_activate_form}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1500 {"deactivate_form", (PyCFunction)form_deactivate_form}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1501 {"bgn_group", (PyCFunction)form_bgn_group}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1502 {"end_group", (PyCFunction)form_end_group}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1503 {"find_first", (PyCFunction)form_find_first}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1504 {"find_last", (PyCFunction)form_find_last}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1505 {"set_object_focus", (PyCFunction)form_set_object_focus}, |
| 328 | 1506 |
| 1507 /* basic objects */ | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1508 {"add_button", (PyCFunction)form_add_button}, |
|
1746
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1509 /* {"add_bitmap", (method)form_add_bitmap}, */ |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1510 {"add_lightbutton", (PyCFunction)form_add_lightbutton}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1511 {"add_roundbutton", (PyCFunction)form_add_roundbutton}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1512 {"add_menu", (PyCFunction)form_add_menu}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1513 {"add_slider", (PyCFunction)form_add_slider}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1514 {"add_positioner", (PyCFunction)form_add_positioner}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1515 {"add_valslider", (PyCFunction)form_add_valslider}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1516 {"add_dial", (PyCFunction)form_add_dial}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1517 {"add_counter", (PyCFunction)form_add_counter}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1518 {"add_box", (PyCFunction)form_add_box}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1519 {"add_clock", (PyCFunction)form_add_clock}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1520 {"add_choice", (PyCFunction)form_add_choice}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1521 {"add_browser", (PyCFunction)form_add_browser}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1522 {"add_input", (PyCFunction)form_add_input}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1523 {"add_timer", (PyCFunction)form_add_timer}, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1524 {"add_text", (PyCFunction)form_add_text}, |
| 328 | 1525 {NULL, NULL} /* sentinel */ |
| 1526 }; | |
| 1527 | |
| 1528 static void | |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1529 form_dealloc(formobject *f) |
| 328 | 1530 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1531 releaseobjects(f->ob_form); |
|
812
94ea6ea7f7d5
in form_dealloc, only hide the form if it's visible
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
1532 if (f->ob_form->visible) |
|
94ea6ea7f7d5
in form_dealloc, only hide the form if it's visible
Guido van Rossum <guido@python.org>
parents:
795
diff
changeset
|
1533 fl_hide_form(f->ob_form); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1534 fl_free_form(f->ob_form); |
|
12576
1c7c2dd1beb1
Vladimir Marangozov's long-awaited malloc restructuring.
Guido van Rossum <guido@python.org>
parents:
9588
diff
changeset
|
1535 PyObject_Del(f); |
| 328 | 1536 } |
| 1537 | |
|
442
17f4cdf28959
Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents:
437
diff
changeset
|
1538 #define OFF(x) offsetof(FL_FORM, x) |
|
17f4cdf28959
Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents:
437
diff
changeset
|
1539 |
|
437
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1540 static struct memberlist form_memberlist[] = { |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1541 {"window", T_LONG, OFF(window), RO}, |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1542 {"w", T_FLOAT, OFF(w)}, |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1543 {"h", T_FLOAT, OFF(h)}, |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1544 {"x", T_FLOAT, OFF(x), RO}, |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1545 {"y", T_FLOAT, OFF(y), RO}, |
|
437
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1546 {"deactivated", T_INT, OFF(deactivated)}, |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1547 {"visible", T_INT, OFF(visible), RO}, |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1548 {"frozen", T_INT, OFF(frozen), RO}, |
|
437
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1549 {"doublebuf", T_INT, OFF(doublebuf)}, |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1550 {NULL} /* Sentinel */ |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1551 }; |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1552 |
|
442
17f4cdf28959
Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents:
437
diff
changeset
|
1553 #undef OFF |
|
17f4cdf28959
Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents:
437
diff
changeset
|
1554 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1555 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1556 form_getattr(formobject *f, char *name) |
| 328 | 1557 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1558 PyObject *meth; |
|
437
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1559 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1560 meth = Py_FindMethod(form_methods, (PyObject *)f, name); |
|
437
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1561 if (meth != NULL) |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1562 return meth; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1563 PyErr_Clear(); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1564 return PyMember_Get((char *)f->ob_form, form_memberlist, name); |
|
437
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1565 } |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1566 |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1567 static int |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1568 form_setattr(formobject *f, char *name, PyObject *v) |
|
437
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1569 { |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1570 if (v == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1571 PyErr_SetString(PyExc_TypeError, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1572 "can't delete form attributes"); |
|
4297
cf9a97bfc023
Correct typo: return -1 for error, not NULL
Guido van Rossum <guido@python.org>
parents:
2061
diff
changeset
|
1573 return -1; |
|
437
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1574 } |
|
402a59ad2493
Finally added form attributes.
Guido van Rossum <guido@python.org>
parents:
392
diff
changeset
|
1575 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1576 return PyMember_Set((char *)f->ob_form, form_memberlist, name, v); |
| 328 | 1577 } |
| 1578 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1579 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1580 form_repr(formobject *f) |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1581 { |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1582 char buf[100]; |
|
13210
ff243b0f16ee
Trent Mick <trentm@activestate.com>:
Fred Drake <fdrake@acm.org>
parents:
12576
diff
changeset
|
1583 sprintf(buf, "<FORMS_form at %p, window=%ld>", |
|
ff243b0f16ee
Trent Mick <trentm@activestate.com>:
Fred Drake <fdrake@acm.org>
parents:
12576
diff
changeset
|
1584 f, f->ob_form->window); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1585 return PyString_FromString(buf); |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1586 } |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1587 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1588 static PyTypeObject Formtype = { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1589 PyObject_HEAD_INIT(&PyType_Type) |
|
1746
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1590 0, /*ob_size*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1591 "FORMS_form", /*tp_name*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1592 sizeof(formobject), /*tp_size*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1593 0, /*tp_itemsize*/ |
| 328 | 1594 /* methods */ |
|
1746
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1595 (destructor)form_dealloc, /*tp_dealloc*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1596 0, /*tp_print*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1597 (getattrfunc)form_getattr, /*tp_getattr*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1598 (setattrfunc)form_setattr, /*tp_setattr*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1599 0, /*tp_compare*/ |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1482
diff
changeset
|
1600 (reprfunc)form_repr, /*tp_repr*/ |
| 328 | 1601 }; |
| 1602 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1603 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1604 newformobject(FL_FORM *form) |
| 328 | 1605 { |
| 1606 formobject *f; | |
|
12576
1c7c2dd1beb1
Vladimir Marangozov's long-awaited malloc restructuring.
Guido van Rossum <guido@python.org>
parents:
9588
diff
changeset
|
1607 f = PyObject_New(formobject, &Formtype); |
| 328 | 1608 if (f == NULL) |
| 1609 return NULL; | |
| 1610 f->ob_form = form; | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1611 return (PyObject *)f; |
| 328 | 1612 } |
| 1613 | |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1614 |
| 328 | 1615 /* The "fl" module */ |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1616 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1617 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1618 forms_make_form(PyObject *dummy, PyObject *args) |
| 328 | 1619 { |
| 1620 int type; | |
| 1621 float w, h; | |
| 1622 FL_FORM *form; | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1623 if (!PyArg_Parse(args, "(iff)", &type, &w, &h)) |
| 328 | 1624 return NULL; |
| 1625 form = fl_bgn_form(type, w, h); | |
| 1626 if (form == NULL) { | |
| 1627 /* XXX Actually, cannot happen! */ | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1628 PyErr_NoMemory(); |
| 328 | 1629 return NULL; |
| 1630 } | |
| 1631 fl_end_form(); | |
| 1632 return newformobject(form); | |
| 1633 } | |
| 1634 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1635 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1636 forms_activate_all_forms(PyObject *f, PyObject *args) |
|
726
e8c6fa9118eb
Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents:
714
diff
changeset
|
1637 { |
|
e8c6fa9118eb
Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents:
714
diff
changeset
|
1638 fl_activate_all_forms(); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1639 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1640 return Py_None; |
|
726
e8c6fa9118eb
Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents:
714
diff
changeset
|
1641 } |
|
e8c6fa9118eb
Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents:
714
diff
changeset
|
1642 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1643 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1644 forms_deactivate_all_forms(PyObject *f, PyObject *args) |
|
726
e8c6fa9118eb
Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents:
714
diff
changeset
|
1645 { |
|
e8c6fa9118eb
Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents:
714
diff
changeset
|
1646 fl_deactivate_all_forms(); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1647 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1648 return Py_None; |
|
726
e8c6fa9118eb
Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents:
714
diff
changeset
|
1649 } |
|
e8c6fa9118eb
Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents:
714
diff
changeset
|
1650 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1651 static PyObject *my_event_callback = NULL; |
| 328 | 1652 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1653 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1654 forms_set_event_call_back(PyObject *dummy, PyObject *args) |
| 328 | 1655 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1656 if (args == Py_None) |
|
1328
e2deca983008
forms_set_event_call_back: argument of None resets event callback to NULL.
Guido van Rossum <guido@python.org>
parents:
1319
diff
changeset
|
1657 args = NULL; |
| 328 | 1658 my_event_callback = args; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1659 Py_XINCREF(args); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1660 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1661 return Py_None; |
| 328 | 1662 } |
| 1663 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1664 static PyObject * |
|
13667
a6c7bfdd6777
Even more ANSIfication: fix as many function pointers and declarations as
Thomas Wouters <thomas@python.org>
parents:
13651
diff
changeset
|
1665 forms_do_or_check_forms(PyObject *dummy, PyObject *args, FL_OBJECT *(*func)(void)) |
| 328 | 1666 { |
| 1667 FL_OBJECT *generic; | |
| 1668 genericobject *g; | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1669 PyObject *arg, *res; |
| 328 | 1670 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1671 if (!PyArg_NoArgs(args)) |
| 328 | 1672 return NULL; |
| 1673 | |
| 1674 for (;;) { | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1675 Py_BEGIN_ALLOW_THREADS |
| 328 | 1676 generic = (*func)(); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1677 Py_END_ALLOW_THREADS |
| 328 | 1678 if (generic == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1679 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1680 return Py_None; |
| 328 | 1681 } |
| 1682 if (generic == FL_EVENT) { | |
| 1683 int dev; | |
| 1684 short val; | |
| 1685 if (my_event_callback == NULL) | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1686 return PyInt_FromLong(-1L); |
| 328 | 1687 dev = fl_qread(&val); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1688 arg = Py_BuildValue("(ih)", dev, val); |
| 328 | 1689 if (arg == NULL) |
| 1690 return NULL; | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1691 res = PyEval_CallObject(my_event_callback, arg); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1692 Py_XDECREF(res); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1693 Py_DECREF(arg); |
| 328 | 1694 if (res == NULL) |
| 1695 return NULL; /* Callback raised exception */ | |
| 1696 continue; | |
| 1697 } | |
| 1698 g = findgeneric(generic); | |
| 1699 if (g == NULL) { | |
|
1079
e4c6a0dd5c2b
* bltinmodule.c: added built-in function cmp(a, b)
Guido van Rossum <guido@python.org>
parents:
1051
diff
changeset
|
1700 /* Object not known to us (some dialogs cause this) */ |
|
712
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1701 continue; /* Ignore it */ |
| 328 | 1702 } |
| 1703 if (g->ob_callback == NULL) { | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1704 Py_INCREF(g); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1705 return ((PyObject *) g); |
| 328 | 1706 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1707 arg = Py_BuildValue("(OO)", (PyObject *)g, g->ob_callback_arg); |
|
1252
c4cd0d9d8281
* Changed many files to use mkvalue() instead of newtupleobject().
Guido van Rossum <guido@python.org>
parents:
1079
diff
changeset
|
1708 if (arg == NULL) |
|
c4cd0d9d8281
* Changed many files to use mkvalue() instead of newtupleobject().
Guido van Rossum <guido@python.org>
parents:
1079
diff
changeset
|
1709 return NULL; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1710 res = PyEval_CallObject(g->ob_callback, arg); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1711 Py_XDECREF(res); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1712 Py_DECREF(arg); |
| 328 | 1713 if (res == NULL) |
| 1714 return NULL; /* Callback raised exception */ | |
| 1715 } | |
| 1716 } | |
| 1717 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1718 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1719 forms_do_forms(PyObject *dummy, PyObject *args) |
| 328 | 1720 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1721 return forms_do_or_check_forms(dummy, args, fl_do_forms); |
| 328 | 1722 } |
| 1723 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1724 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1725 forms_check_forms(PyObject *dummy, PyObject *args) |
| 328 | 1726 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1727 return forms_do_or_check_forms(dummy, args, fl_check_forms); |
| 328 | 1728 } |
| 1729 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1730 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1731 forms_do_only_forms(PyObject *dummy, PyObject *args) |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1732 { |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1733 return forms_do_or_check_forms(dummy, args, fl_do_only_forms); |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1734 } |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1735 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1736 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1737 forms_check_only_forms(PyObject *dummy, PyObject *args) |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1738 { |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1739 return forms_do_or_check_forms(dummy, args, fl_check_only_forms); |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1740 } |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1741 |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1742 #ifdef UNUSED |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1743 static PyObject * |
|
13667
a6c7bfdd6777
Even more ANSIfication: fix as many function pointers and declarations as
Thomas Wouters <thomas@python.org>
parents:
13651
diff
changeset
|
1744 fl_call(void (*func)(void), PyObject *args) |
| 328 | 1745 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1746 if (!PyArg_NoArgs(args)) |
| 328 | 1747 return NULL; |
| 1748 (*func)(); | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1749 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1750 return Py_None; |
| 328 | 1751 } |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1752 #endif |
| 328 | 1753 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1754 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1755 forms_set_graphics_mode(PyObject *dummy, PyObject *args) |
| 469 | 1756 { |
| 1757 int rgbmode, doublebuf; | |
| 1758 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1759 if (!PyArg_Parse(args, "(ii)", &rgbmode, &doublebuf)) |
| 469 | 1760 return NULL; |
| 1761 fl_set_graphics_mode(rgbmode,doublebuf); | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1762 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1763 return Py_None; |
| 469 | 1764 } |
| 1765 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1766 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1767 forms_get_rgbmode(PyObject *dummy, PyObject *args) |
| 469 | 1768 { |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1769 extern int fl_rgbmode; |
| 469 | 1770 |
| 1771 if (args != NULL) { | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1772 PyErr_BadArgument(); |
| 469 | 1773 return NULL; |
| 1774 } | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1775 return PyInt_FromLong((long)fl_rgbmode); |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1776 } |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1777 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1778 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1779 forms_show_errors(PyObject *dummy, PyObject *args) |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1780 { |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1781 int show; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1782 if (!PyArg_Parse(args, "i", &show)) |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1783 return NULL; |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1784 fl_show_errors(show); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1785 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1786 return Py_None; |
| 469 | 1787 } |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1788 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1789 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1790 forms_set_font_name(PyObject *dummy, PyObject *args) |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1791 { |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1792 int numb; |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1793 char *name; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1794 if (!PyArg_Parse(args, "(is)", &numb, &name)) |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1795 return NULL; |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1796 fl_set_font_name(numb, name); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1797 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1798 return Py_None; |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1799 } |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1800 |
| 469 | 1801 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1802 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1803 forms_qdevice(PyObject *self, PyObject *args) |
| 328 | 1804 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1805 short arg1; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1806 if (!PyArg_Parse(args, "h", &arg1)) |
| 328 | 1807 return NULL; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1808 fl_qdevice(arg1); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1809 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1810 return Py_None; |
| 328 | 1811 } |
| 1812 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1813 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1814 forms_unqdevice(PyObject *self, PyObject *args) |
| 328 | 1815 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1816 short arg1; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1817 if (!PyArg_Parse(args, "h", &arg1)) |
| 328 | 1818 return NULL; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1819 fl_unqdevice(arg1); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1820 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1821 return Py_None; |
| 328 | 1822 } |
| 1823 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1824 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1825 forms_isqueued(PyObject *self, PyObject *args) |
| 328 | 1826 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1827 long retval; |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1828 short arg1; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1829 if (!PyArg_Parse(args, "h", &arg1)) |
| 328 | 1830 return NULL; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1831 retval = fl_isqueued(arg1); |
| 328 | 1832 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1833 return PyInt_FromLong(retval); |
| 328 | 1834 } |
| 1835 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1836 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1837 forms_qtest(PyObject *self, PyObject *args) |
| 328 | 1838 { |
| 1839 long retval; | |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1840 retval = fl_qtest(); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1841 return PyInt_FromLong(retval); |
| 328 | 1842 } |
| 1843 | |
| 1844 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1845 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1846 forms_qread(PyObject *self, PyObject *args) |
| 328 | 1847 { |
|
1252
c4cd0d9d8281
* Changed many files to use mkvalue() instead of newtupleobject().
Guido van Rossum <guido@python.org>
parents:
1079
diff
changeset
|
1848 int dev; |
|
c4cd0d9d8281
* Changed many files to use mkvalue() instead of newtupleobject().
Guido van Rossum <guido@python.org>
parents:
1079
diff
changeset
|
1849 short val; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1850 Py_BEGIN_ALLOW_THREADS |
|
1252
c4cd0d9d8281
* Changed many files to use mkvalue() instead of newtupleobject().
Guido van Rossum <guido@python.org>
parents:
1079
diff
changeset
|
1851 dev = fl_qread(&val); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1852 Py_END_ALLOW_THREADS |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1853 return Py_BuildValue("(ih)", dev, val); |
| 328 | 1854 } |
| 1855 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1856 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1857 forms_qreset(PyObject *self, PyObject *args) |
| 328 | 1858 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1859 if (!PyArg_NoArgs(args)) return NULL; |
| 328 | 1860 |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1861 fl_qreset(); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1862 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1863 return Py_None; |
| 328 | 1864 } |
| 1865 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1866 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1867 forms_qenter(PyObject *self, PyObject *args) |
| 328 | 1868 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1869 short arg1, arg2; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1870 if (!PyArg_Parse(args, "(hh)", &arg1, &arg2)) |
| 328 | 1871 return NULL; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1872 fl_qenter(arg1, arg2); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1873 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1874 return Py_None; |
| 328 | 1875 } |
| 1876 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1877 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1878 forms_color(PyObject *self, PyObject *args) |
| 328 | 1879 { |
| 1880 int arg; | |
| 1881 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1882 if (!PyArg_Parse(args, "i", &arg)) return NULL; |
| 328 | 1883 |
| 1884 fl_color((short) arg); | |
| 1885 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1886 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1887 return Py_None; |
| 328 | 1888 } |
| 1889 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1890 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1891 forms_mapcolor(PyObject *self, PyObject *args) |
| 328 | 1892 { |
| 1893 int arg0, arg1, arg2, arg3; | |
| 1894 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1895 if (!PyArg_Parse(args, "(iiii)", &arg0, &arg1, &arg2, &arg3)) |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1896 return NULL; |
| 328 | 1897 |
| 1898 fl_mapcolor(arg0, (short) arg1, (short) arg2, (short) arg3); | |
| 1899 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1900 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1901 return Py_None; |
| 328 | 1902 } |
| 1903 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1904 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1905 forms_getmcolor(PyObject *self, PyObject *args) |
| 328 | 1906 { |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1907 int arg; |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1908 short r, g, b; |
| 328 | 1909 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1910 if (!PyArg_Parse(args, "i", &arg)) return NULL; |
| 328 | 1911 |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1912 fl_getmcolor(arg, &r, &g, &b); |
| 328 | 1913 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1914 return Py_BuildValue("(hhh)", r, g, b); |
| 328 | 1915 } |
| 1916 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1917 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1918 forms_get_mouse(PyObject *self, PyObject *args) |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1919 { |
|
1252
c4cd0d9d8281
* Changed many files to use mkvalue() instead of newtupleobject().
Guido van Rossum <guido@python.org>
parents:
1079
diff
changeset
|
1920 float x, y; |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1921 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1922 if (!PyArg_NoArgs(args)) return NULL; |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1923 |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1924 fl_get_mouse(&x, &y); |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1925 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1926 return Py_BuildValue("(ff)", x, y); |
|
329
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1927 } |
|
f21cb7b53f6c
Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents:
328
diff
changeset
|
1928 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1929 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1930 forms_tie(PyObject *self, PyObject *args) |
| 328 | 1931 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
1932 short arg1, arg2, arg3; |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1933 if (!PyArg_Parse(args, "(hhh)", &arg1, &arg2, &arg3)) |
| 328 | 1934 return NULL; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
1935 fl_tie(arg1, arg2, arg3); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1936 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1937 return Py_None; |
| 328 | 1938 } |
| 1939 | |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1940 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1941 forms_show_message(PyObject *f, PyObject *args) |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1942 { |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
1943 char *a, *b, *c; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1944 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1945 if (!PyArg_Parse(args, "(sss)", &a, &b, &c)) return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1946 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1947 Py_BEGIN_ALLOW_THREADS |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
1948 fl_show_message(a, b, c); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1949 Py_END_ALLOW_THREADS |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1950 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1951 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1952 return Py_None; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1953 } |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1954 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1955 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1956 forms_show_choice(PyObject *f, PyObject *args) |
|
712
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1957 { |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1958 char *m1, *m2, *m3, *b1, *b2, *b3; |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1959 int nb; |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1960 char *format; |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
1961 long rv; |
|
712
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1962 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1963 if (args == NULL || !PyTuple_Check(args)) { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1964 PyErr_BadArgument(); |
|
712
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1965 return NULL; |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1966 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1967 nb = PyTuple_Size(args) - 3; |
|
712
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1968 if (nb <= 0) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1969 PyErr_SetString(PyExc_TypeError, |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1970 "need at least one button label"); |
|
712
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1971 return NULL; |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1972 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1973 if (PyInt_Check(PyTuple_GetItem(args, 3))) { |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1974 PyErr_SetString(PyExc_TypeError, |
|
712
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1975 "'number-of-buttons' argument not needed"); |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1976 return NULL; |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1977 } |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1978 switch (nb) { |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1979 case 1: format = "(ssss)"; break; |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1980 case 2: format = "(sssss)"; break; |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1981 case 3: format = "(ssssss)"; break; |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1982 default: |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1983 PyErr_SetString(PyExc_TypeError, "too many button labels"); |
|
712
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1984 return NULL; |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1985 } |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1986 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1987 if (!PyArg_Parse(args, format, &m1, &m2, &m3, &b1, &b2, &b3)) |
|
712
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1988 return NULL; |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1989 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1990 Py_BEGIN_ALLOW_THREADS |
|
947
260d96db112f
Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents:
926
diff
changeset
|
1991 rv = fl_show_choice(m1, m2, m3, nb, b1, b2, b3); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1992 Py_END_ALLOW_THREADS |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1993 return PyInt_FromLong(rv); |
|
712
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1994 } |
|
00cdb8dedd6f
Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents:
635
diff
changeset
|
1995 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
1996 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
1997 forms_show_question(PyObject *f, PyObject *args) |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
1998 { |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
1999 int ret; |
|
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
2000 char *a, *b, *c; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2001 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2002 if (!PyArg_Parse(args, "(sss)", &a, &b, &c)) return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2003 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2004 Py_BEGIN_ALLOW_THREADS |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
2005 ret = fl_show_question(a, b, c); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2006 Py_END_ALLOW_THREADS |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2007 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2008 return PyInt_FromLong((long) ret); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2009 } |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2010 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2011 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
2012 forms_show_input(PyObject *f, PyObject *args) |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2013 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2014 char *str; |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
2015 char *a, *b; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2016 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2017 if (!PyArg_Parse(args, "(ss)", &a, &b)) return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2018 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2019 Py_BEGIN_ALLOW_THREADS |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
2020 str = fl_show_input(a, b); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2021 Py_END_ALLOW_THREADS |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2022 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2023 if (str == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2024 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2025 return Py_None; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2026 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2027 return PyString_FromString(str); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2028 } |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2029 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2030 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
2031 forms_file_selector(PyObject *f, PyObject *args) |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2032 { |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2033 char *str; |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
2034 char *a, *b, *c, *d; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2035 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2036 if (!PyArg_Parse(args, "(ssss)", &a, &b, &c, &d)) return NULL; |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2037 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2038 Py_BEGIN_ALLOW_THREADS |
|
635
784a09a52375
Use getargs() function.
Guido van Rossum <guido@python.org>
parents:
486
diff
changeset
|
2039 str = fl_show_file_selector(a, b, c, d); |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2040 Py_END_ALLOW_THREADS |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2041 |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2042 if (str == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2043 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2044 return Py_None; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2045 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2046 return PyString_FromString(str); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2047 } |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2048 |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2049 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2050 static PyObject * |
|
13667
a6c7bfdd6777
Even more ANSIfication: fix as many function pointers and declarations as
Thomas Wouters <thomas@python.org>
parents:
13651
diff
changeset
|
2051 forms_file_selector_func(PyObject *args, char *(*func)(void)) |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2052 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2053 char *str; |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2054 |
|
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2055 str = (*func) (); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2056 |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2057 if (str == NULL) { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2058 Py_INCREF(Py_None); |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2059 return Py_None; |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2060 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2061 return PyString_FromString(str); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2062 } |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2063 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2064 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
2065 forms_get_directory(PyObject *f, PyObject *args) |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2066 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2067 return forms_file_selector_func(args, fl_get_directory); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2068 } |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2069 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2070 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
2071 forms_get_pattern(PyObject *f, PyObject *args) |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2072 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2073 return forms_file_selector_func(args, fl_get_pattern); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2074 } |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2075 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2076 static PyObject * |
|
13514
5304b88fe3cc
ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c
Peter Schneider-Kamp <nowonder@nowonder.de>
parents:
13256
diff
changeset
|
2077 forms_get_filename(PyObject *f, PyObject *args) |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2078 { |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2079 return forms_file_selector_func(args, fl_get_filename); |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2080 } |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2081 |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2082 static PyMethodDef forms_methods[] = { |
| 328 | 2083 /* adm */ |
| 2084 {"make_form", forms_make_form}, | |
|
726
e8c6fa9118eb
Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents:
714
diff
changeset
|
2085 {"activate_all_forms", forms_activate_all_forms}, |
|
e8c6fa9118eb
Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents:
714
diff
changeset
|
2086 {"deactivate_all_forms",forms_deactivate_all_forms}, |
| 328 | 2087 /* gl support wrappers */ |
| 2088 {"qdevice", forms_qdevice}, | |
| 2089 {"unqdevice", forms_unqdevice}, | |
| 2090 {"isqueued", forms_isqueued}, | |
| 2091 {"qtest", forms_qtest}, | |
| 2092 {"qread", forms_qread}, | |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2093 /* {"blkqread", forms_blkqread}, */ |
| 328 | 2094 {"qreset", forms_qreset}, |
| 2095 {"qenter", forms_qenter}, | |
|
330
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2096 {"get_mouse", forms_get_mouse}, |
|
1807d60e6231
Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents:
329
diff
changeset
|
2097 {"tie", forms_tie}, |
| 328 | 2098 /* {"new_events", forms_new_events}, */ |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2099 {"color", forms_color}, |
| 328 | 2100 {"mapcolor", forms_mapcolor}, |
| 2101 {"getmcolor", forms_getmcolor}, | |
| 2102 /* interaction */ | |
| 2103 {"do_forms", forms_do_forms}, | |
|
1079
e4c6a0dd5c2b
* bltinmodule.c: added built-in function cmp(a, b)
Guido van Rossum <guido@python.org>
parents:
1051
diff
changeset
|
2104 {"do_only_forms", forms_do_only_forms}, |
| 328 | 2105 {"check_forms", forms_check_forms}, |
|
1079
e4c6a0dd5c2b
* bltinmodule.c: added built-in function cmp(a, b)
Guido van Rossum <guido@python.org>
parents:
1051
diff
changeset
|
2106 {"check_only_forms", forms_check_only_forms}, |
| 328 | 2107 {"set_event_call_back", forms_set_event_call_back}, |
| 2108 /* goodies */ | |
|
1020
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2109 {"show_message", forms_show_message}, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2110 {"show_question", forms_show_question}, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2111 {"show_choice", forms_show_choice}, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2112 {"show_input", forms_show_input}, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2113 {"show_file_selector", forms_file_selector}, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2114 {"file_selector", forms_file_selector}, /* BW compat */ |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2115 {"get_directory", forms_get_directory}, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2116 {"get_pattern", forms_get_pattern}, |
|
7442b20c43fd
Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents:
947
diff
changeset
|
2117 {"get_filename", forms_get_filename}, |
| 469 | 2118 {"set_graphics_mode", forms_set_graphics_mode}, |
| 2119 {"get_rgbmode", forms_get_rgbmode}, | |
|
1051
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
2120 {"show_errors", forms_show_errors}, |
|
f54e64c8b9b7
* Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents:
1020
diff
changeset
|
2121 {"set_font_name", forms_set_font_name}, |
| 328 | 2122 {NULL, NULL} /* sentinel */ |
| 2123 }; | |
| 2124 | |
|
9588
38023a425e48
Add DL_EXPORT() to all modules that could possibly be used
Guido van Rossum <guido@python.org>
parents:
5380
diff
changeset
|
2125 DL_EXPORT(void) |
|
13651
8a063423e0b7
Bunch of minor ANSIfications: 'void initfunc()' -> 'void initfunc(void)',
Thomas Wouters <thomas@python.org>
parents:
13620
diff
changeset
|
2126 initfl(void) |
| 328 | 2127 { |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2128 Py_InitModule("fl", forms_methods); |
|
392
f33a3f69dfcb
Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents:
376
diff
changeset
|
2129 foreground(); |
| 469 | 2130 fl_init(); |
| 328 | 2131 } |
|
4884
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2132 |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2133 |
|
65cb261f7736
Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents:
4503
diff
changeset
|
2134 |