Mercurial > cpython-lru_cache-weakref
annotate Modules/cgen.py @ 16798:258dcafe2d0b legacy-trunk
Gustavo Niemeyer <niemeyer@conectiva.com>:
Fixed recno support (keys are integers rather than strings).
Work around DB bug that cause stdin to be closed by rnopen() when the
DB file needed to exist but did not (no longer segfaults).
This closes SF tracker patch #403445.
Also wrapped some long lines and added whitespace around operators -- FLD.
| author | Fred Drake <fdrake@acm.org> |
|---|---|
| date | Tue, 27 Feb 2001 18:56:46 +0000 |
| parents | 5fc18bca7f55 |
| children | a9dd5e6d6805 |
| rev | line source |
|---|---|
|
1746
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1443
diff
changeset
|
1 ######################################################################## |
|
13260
5fc18bca7f55
Change copyright notice.
Guido van Rossum <guido@python.org>
parents:
5380
diff
changeset
|
2 # Copyright (c) 2000, BeOpen.com. |
|
5fc18bca7f55
Change copyright notice.
Guido van Rossum <guido@python.org>
parents:
5380
diff
changeset
|
3 # Copyright (c) 1995-2000, Corporation for National Research Initiatives. |
|
5fc18bca7f55
Change copyright notice.
Guido van Rossum <guido@python.org>
parents:
5380
diff
changeset
|
4 # Copyright (c) 1990-1995, Stichting Mathematisch Centrum. |
|
5fc18bca7f55
Change copyright notice.
Guido van Rossum <guido@python.org>
parents:
5380
diff
changeset
|
5 # All rights reserved. |
|
4503
65d2d8e67da3
New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents:
2807
diff
changeset
|
6 # |
|
13260
5fc18bca7f55
Change copyright notice.
Guido van Rossum <guido@python.org>
parents:
5380
diff
changeset
|
7 # See the file "Misc/COPYRIGHT" for information on usage and |
|
5fc18bca7f55
Change copyright notice.
Guido van Rossum <guido@python.org>
parents:
5380
diff
changeset
|
8 # redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
|
1746
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1443
diff
changeset
|
9 ######################################################################## |
|
1940892d2fe3
Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents:
1443
diff
changeset
|
10 |
| 6 | 11 # Python script to parse cstubs file for gl and generate C stubs. |
|
335
17a29760d062
Reflect changed file name in comments.
Guido van Rossum <guido@python.org>
parents:
86
diff
changeset
|
12 # usage: python cgen.py <cstubs >glmodule.c |
| 6 | 13 # |
| 402 | 14 # NOTE: You must first make a python binary without the "GL" option |
| 15 # before you can run this, when building Python for the first time. | |
| 16 # See comments in the Makefile. | |
| 17 # | |
| 6 | 18 # XXX BUG return arrays generate wrong code |
| 19 # XXX need to change error returns into gotos to free mallocked arrays | |
| 20 | |
| 21 | |
| 22 import string | |
| 23 import sys | |
| 24 | |
| 25 | |
| 26 # Function to print to stderr | |
| 27 # | |
|
2807
5ca5d77afd28
err() should be varargs -- and fix one call
Guido van Rossum <guido@python.org>
parents:
2061
diff
changeset
|
28 def err(*args): |
| 6 | 29 savestdout = sys.stdout |
| 30 try: | |
| 31 sys.stdout = sys.stderr | |
| 32 for i in args: | |
| 33 print i, | |
| 34 print | |
| 35 finally: | |
| 36 sys.stdout = savestdout | |
| 37 | |
| 38 | |
| 39 # The set of digits that form a number | |
| 40 # | |
| 41 digits = '0123456789' | |
| 42 | |
| 43 | |
| 44 # Function to extract a string of digits from the front of the string. | |
| 45 # Returns the leading string of digits and the remaining string. | |
| 46 # If no number is found, returns '' and the original string. | |
| 47 # | |
| 48 def getnum(s): | |
| 49 n = '' | |
| 86 | 50 while s and s[0] in digits: |
| 51 n = n + s[0] | |
| 6 | 52 s = s[1:] |
| 53 return n, s | |
| 54 | |
| 55 | |
| 56 # Function to check if a string is a number | |
| 57 # | |
| 58 def isnum(s): | |
| 59 if not s: return 0 | |
| 60 for c in s: | |
| 61 if not c in digits: return 0 | |
| 62 return 1 | |
| 63 | |
| 64 | |
| 65 # Allowed function return types | |
| 66 # | |
| 67 return_types = ['void', 'short', 'long'] | |
| 68 | |
| 69 | |
| 70 # Allowed function argument types | |
| 71 # | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
72 arg_types = ['char', 'string', 'short', 'u_short', 'float', 'long', 'double'] |
| 6 | 73 |
| 74 | |
| 75 # Need to classify arguments as follows | |
| 76 # simple input variable | |
| 77 # simple output variable | |
| 78 # input array | |
| 79 # output array | |
| 80 # input giving size of some array | |
| 81 # | |
| 82 # Array dimensions can be specified as follows | |
| 83 # constant | |
| 84 # argN | |
| 85 # constant * argN | |
| 86 # retval | |
| 87 # constant * retval | |
| 88 # | |
| 89 # The dimensions given as constants * something are really | |
| 90 # arrays of points where points are 2- 3- or 4-tuples | |
| 91 # | |
| 92 # We have to consider three lists: | |
| 93 # python input arguments | |
| 94 # C stub arguments (in & out) | |
| 95 # python output arguments (really return values) | |
| 96 # | |
| 97 # There is a mapping from python input arguments to the input arguments | |
| 98 # of the C stub, and a further mapping from C stub arguments to the | |
| 99 # python return values | |
| 100 | |
| 101 | |
| 102 # Exception raised by checkarg() and generate() | |
| 103 # | |
| 104 arg_error = 'bad arg' | |
| 105 | |
| 106 | |
| 107 # Function to check one argument. | |
| 108 # Arguments: the type and the arg "name" (really mode plus subscript). | |
| 109 # Raises arg_error if something's wrong. | |
| 110 # Return type, mode, factor, rest of subscript; factor and rest may be empty. | |
| 111 # | |
| 112 def checkarg(type, arg): | |
| 113 # | |
| 114 # Turn "char *x" into "string x". | |
| 115 # | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
116 if type == 'char' and arg[0] == '*': |
| 6 | 117 type = 'string' |
| 118 arg = arg[1:] | |
| 119 # | |
| 120 # Check that the type is supported. | |
| 121 # | |
| 122 if type not in arg_types: | |
| 123 raise arg_error, ('bad type', type) | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
124 if type[:2] == 'u_': |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
125 type = 'unsigned ' + type[2:] |
| 6 | 126 # |
| 127 # Split it in the mode (first character) and the rest. | |
| 128 # | |
| 129 mode, rest = arg[:1], arg[1:] | |
| 130 # | |
| 131 # The mode must be 's' for send (= input) or 'r' for return argument. | |
| 132 # | |
| 133 if mode not in ('r', 's'): | |
| 134 raise arg_error, ('bad arg mode', mode) | |
| 135 # | |
| 136 # Is it a simple argument: if so, we are done. | |
| 137 # | |
| 138 if not rest: | |
| 139 return type, mode, '', '' | |
| 140 # | |
| 141 # Not a simple argument; must be an array. | |
| 142 # The 'rest' must be a subscript enclosed in [ and ]. | |
| 143 # The subscript must be one of the following forms, | |
| 144 # otherwise we don't handle it (where N is a number): | |
| 145 # N | |
| 146 # argN | |
| 147 # retval | |
| 148 # N*argN | |
| 149 # N*retval | |
| 150 # | |
| 151 if rest[:1] <> '[' or rest[-1:] <> ']': | |
| 152 raise arg_error, ('subscript expected', rest) | |
| 153 sub = rest[1:-1] | |
| 154 # | |
| 155 # Is there a leading number? | |
| 156 # | |
| 157 num, sub = getnum(sub) | |
| 158 if num: | |
| 159 # There is a leading number | |
| 160 if not sub: | |
| 161 # The subscript is just a number | |
| 162 return type, mode, num, '' | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
163 if sub[:1] == '*': |
| 6 | 164 # There is a factor prefix |
| 165 sub = sub[1:] | |
| 166 else: | |
| 167 raise arg_error, ('\'*\' expected', sub) | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
168 if sub == 'retval': |
| 6 | 169 # size is retval -- must be a reply argument |
| 170 if mode <> 'r': | |
| 171 raise arg_error, ('non-r mode with [retval]', mode) | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
172 elif not isnum(sub) and (sub[:3] <> 'arg' or not isnum(sub[3:])): |
| 6 | 173 raise arg_error, ('bad subscript', sub) |
| 174 # | |
| 175 return type, mode, num, sub | |
| 176 | |
| 177 | |
| 178 # List of functions for which we have generated stubs | |
| 179 # | |
| 180 functions = [] | |
| 181 | |
| 182 | |
| 183 # Generate the stub for the given function, using the database of argument | |
| 184 # information build by successive calls to checkarg() | |
| 185 # | |
| 186 def generate(type, func, database): | |
| 187 # | |
| 188 # Check that we can handle this case: | |
| 189 # no variable size reply arrays yet | |
| 190 # | |
| 191 n_in_args = 0 | |
| 192 n_out_args = 0 | |
| 193 # | |
| 194 for a_type, a_mode, a_factor, a_sub in database: | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
195 if a_mode == 's': |
| 6 | 196 n_in_args = n_in_args + 1 |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
197 elif a_mode == 'r': |
| 6 | 198 n_out_args = n_out_args + 1 |
| 199 else: | |
| 200 # Can't happen | |
| 201 raise arg_error, ('bad a_mode', a_mode) | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
202 if (a_mode == 'r' and a_sub) or a_sub == 'retval': |
|
2807
5ca5d77afd28
err() should be varargs -- and fix one call
Guido van Rossum <guido@python.org>
parents:
2061
diff
changeset
|
203 err('Function', func, 'too complicated:', |
|
5ca5d77afd28
err() should be varargs -- and fix one call
Guido van Rossum <guido@python.org>
parents:
2061
diff
changeset
|
204 a_type, a_mode, a_factor, a_sub) |
| 6 | 205 print '/* XXX Too complicated to generate code for */' |
| 206 return | |
| 207 # | |
| 208 functions.append(func) | |
| 209 # | |
| 210 # Stub header | |
| 211 # | |
| 212 print | |
| 5353 | 213 print 'static PyObject *' |
| 6 | 214 print 'gl_' + func + '(self, args)' |
| 5353 | 215 print '\tPyObject *self;' |
| 216 print '\tPyObject *args;' | |
| 6 | 217 print '{' |
| 218 # | |
| 219 # Declare return value if any | |
| 220 # | |
| 221 if type <> 'void': | |
| 222 print '\t' + type, 'retval;' | |
| 223 # | |
| 224 # Declare arguments | |
| 225 # | |
| 226 for i in range(len(database)): | |
| 227 a_type, a_mode, a_factor, a_sub = database[i] | |
| 228 print '\t' + a_type, | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
229 brac = ket = '' |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
230 if a_sub and not isnum(a_sub): |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
231 if a_factor: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
232 brac = '(' |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
233 ket = ')' |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
234 print brac + '*', |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
235 print 'arg' + `i+1` + ket, |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
236 if a_sub and isnum(a_sub): |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
237 print '[', a_sub, ']', |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
238 if a_factor: |
| 6 | 239 print '[', a_factor, ']', |
| 240 print ';' | |
| 241 # | |
| 242 # Find input arguments derived from array sizes | |
| 243 # | |
| 244 for i in range(len(database)): | |
| 245 a_type, a_mode, a_factor, a_sub = database[i] | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
246 if a_mode == 's' and a_sub[:3] == 'arg' and isnum(a_sub[3:]): |
| 6 | 247 # Sending a variable-length array |
| 248 n = eval(a_sub[3:]) | |
| 249 if 1 <= n <= len(database): | |
| 250 b_type, b_mode, b_factor, b_sub = database[n-1] | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
251 if b_mode == 's': |
| 6 | 252 database[n-1] = b_type, 'i', a_factor, `i` |
| 253 n_in_args = n_in_args - 1 | |
| 254 # | |
| 255 # Assign argument positions in the Python argument list | |
| 256 # | |
| 257 in_pos = [] | |
| 258 i_in = 0 | |
| 259 for i in range(len(database)): | |
| 260 a_type, a_mode, a_factor, a_sub = database[i] | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
261 if a_mode == 's': |
| 6 | 262 in_pos.append(i_in) |
| 263 i_in = i_in + 1 | |
| 264 else: | |
| 265 in_pos.append(-1) | |
| 266 # | |
| 267 # Get input arguments | |
| 268 # | |
| 269 for i in range(len(database)): | |
| 270 a_type, a_mode, a_factor, a_sub = database[i] | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
271 if a_type[:9] == 'unsigned ': |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
272 xtype = a_type[9:] |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
273 else: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
274 xtype = a_type |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
275 if a_mode == 'i': |
| 6 | 276 # |
| 277 # Implicit argument; | |
| 278 # a_factor is divisor if present, | |
| 279 # a_sub indicates which arg (`database index`) | |
| 280 # | |
| 281 j = eval(a_sub) | |
| 282 print '\tif', | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
283 print '(!geti' + xtype + 'arraysize(args,', |
| 6 | 284 print `n_in_args` + ',', |
| 285 print `in_pos[j]` + ',', | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
286 if xtype <> a_type: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
287 print '('+xtype+' *)', |
| 6 | 288 print '&arg' + `i+1` + '))' |
| 289 print '\t\treturn NULL;' | |
| 290 if a_factor: | |
| 291 print '\targ' + `i+1`, | |
| 292 print '= arg' + `i+1`, | |
| 293 print '/', a_factor + ';' | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
294 elif a_mode == 's': |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
295 if a_sub and not isnum(a_sub): |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
296 # Allocate memory for varsize array |
| 6 | 297 print '\tif ((arg' + `i+1`, '=', |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
298 if a_factor: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
299 print '('+a_type+'(*)['+a_factor+'])', |
| 5353 | 300 print 'PyMem_NEW(' + a_type, ',', |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
301 if a_factor: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
302 print a_factor, '*', |
| 6 | 303 print a_sub, ')) == NULL)' |
| 5353 | 304 print '\t\treturn PyErr_NoMemory();' |
| 6 | 305 print '\tif', |
| 306 if a_factor or a_sub: # Get a fixed-size array array | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
307 print '(!geti' + xtype + 'array(args,', |
| 6 | 308 print `n_in_args` + ',', |
| 309 print `in_pos[i]` + ',', | |
| 310 if a_factor: print a_factor, | |
| 311 if a_factor and a_sub: print '*', | |
| 312 if a_sub: print a_sub, | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
313 print ',', |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
314 if (a_sub and a_factor) or xtype <> a_type: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
315 print '('+xtype+' *)', |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
316 print 'arg' + `i+1` + '))' |
| 6 | 317 else: # Get a simple variable |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
318 print '(!geti' + xtype + 'arg(args,', |
| 6 | 319 print `n_in_args` + ',', |
| 320 print `in_pos[i]` + ',', | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
321 if xtype <> a_type: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
322 print '('+xtype+' *)', |
| 6 | 323 print '&arg' + `i+1` + '))' |
| 324 print '\t\treturn NULL;' | |
| 325 # | |
| 326 # Begin of function call | |
| 327 # | |
| 328 if type <> 'void': | |
| 329 print '\tretval =', func + '(', | |
| 330 else: | |
| 331 print '\t' + func + '(', | |
| 332 # | |
| 333 # Argument list | |
| 334 # | |
| 335 for i in range(len(database)): | |
| 336 if i > 0: print ',', | |
| 337 a_type, a_mode, a_factor, a_sub = database[i] | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
338 if a_mode == 'r' and not a_factor: |
| 6 | 339 print '&', |
| 340 print 'arg' + `i+1`, | |
| 341 # | |
| 342 # End of function call | |
| 343 # | |
| 344 print ');' | |
| 345 # | |
| 346 # Free varsize arrays | |
| 347 # | |
| 348 for i in range(len(database)): | |
| 349 a_type, a_mode, a_factor, a_sub = database[i] | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
350 if a_mode == 's' and a_sub and not isnum(a_sub): |
| 5353 | 351 print '\tPyMem_DEL(arg' + `i+1` + ');' |
| 6 | 352 # |
| 353 # Return | |
| 354 # | |
| 355 if n_out_args: | |
| 356 # | |
| 357 # Multiple return values -- construct a tuple | |
| 358 # | |
| 359 if type <> 'void': | |
| 360 n_out_args = n_out_args + 1 | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
361 if n_out_args == 1: |
| 6 | 362 for i in range(len(database)): |
| 363 a_type, a_mode, a_factor, a_sub = database[i] | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
364 if a_mode == 'r': |
| 6 | 365 break |
| 366 else: | |
| 367 raise arg_error, 'expected r arg not found' | |
| 368 print '\treturn', | |
| 369 print mkobject(a_type, 'arg' + `i+1`) + ';' | |
| 370 else: | |
| 5353 | 371 print '\t{ PyObject *v = PyTuple_New(', |
| 6 | 372 print n_out_args, ');' |
| 373 print '\t if (v == NULL) return NULL;' | |
| 374 i_out = 0 | |
| 375 if type <> 'void': | |
| 5353 | 376 print '\t PyTuple_SetItem(v,', |
| 6 | 377 print `i_out` + ',', |
| 378 print mkobject(type, 'retval') + ');' | |
| 379 i_out = i_out + 1 | |
| 380 for i in range(len(database)): | |
| 381 a_type, a_mode, a_factor, a_sub = database[i] | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
382 if a_mode == 'r': |
| 5353 | 383 print '\t PyTuple_SetItem(v,', |
| 6 | 384 print `i_out` + ',', |
| 385 s = mkobject(a_type, 'arg' + `i+1`) | |
| 386 print s + ');' | |
| 387 i_out = i_out + 1 | |
| 388 print '\t return v;' | |
| 389 print '\t}' | |
| 390 else: | |
| 391 # | |
| 392 # Simple function return | |
| 393 # Return None or return value | |
| 394 # | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
395 if type == 'void': |
| 5353 | 396 print '\tPy_INCREF(Py_None);' |
| 397 print '\treturn Py_None;' | |
| 6 | 398 else: |
| 399 print '\treturn', mkobject(type, 'retval') + ';' | |
| 400 # | |
| 401 # Stub body closing brace | |
| 402 # | |
| 403 print '}' | |
| 404 | |
| 405 | |
| 406 # Subroutine to return a function call to mknew<type>object(<arg>) | |
| 407 # | |
| 408 def mkobject(type, arg): | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
409 if type[:9] == 'unsigned ': |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
410 type = type[9:] |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
411 return 'mknew' + type + 'object((' + type + ') ' + arg + ')' |
| 6 | 412 return 'mknew' + type + 'object(' + arg + ')' |
| 413 | |
| 414 | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
415 defined_archs = [] |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
416 |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
417 # usage: cgen [ -Dmach ... ] [ file ] |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
418 for arg in sys.argv[1:]: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
419 if arg[:2] == '-D': |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
420 defined_archs.append(arg[2:]) |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
421 else: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
422 # Open optional file argument |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
423 sys.stdin = open(arg, 'r') |
|
1048
c1ebfde341a3
Makefile uses $> more often; cgen supports filename argument; added
Guido van Rossum <guido@python.org>
parents:
975
diff
changeset
|
424 |
|
c1ebfde341a3
Makefile uses $> more often; cgen supports filename argument; added
Guido van Rossum <guido@python.org>
parents:
975
diff
changeset
|
425 |
| 6 | 426 # Input line number |
| 427 lno = 0 | |
| 428 | |
| 429 | |
| 430 # Input is divided in two parts, separated by a line containing '%%'. | |
| 431 # <part1> -- literally copied to stdout | |
| 432 # <part2> -- stub definitions | |
| 433 | |
| 434 # Variable indicating the current input part. | |
| 435 # | |
| 436 part = 1 | |
| 437 | |
| 438 # Main loop over the input | |
| 439 # | |
| 440 while 1: | |
| 441 try: | |
| 442 line = raw_input() | |
| 443 except EOFError: | |
| 444 break | |
| 445 # | |
| 446 lno = lno+1 | |
| 447 words = string.split(line) | |
| 448 # | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
449 if part == 1: |
| 6 | 450 # |
| 451 # In part 1, copy everything literally | |
| 452 # except look for a line of just '%%' | |
| 453 # | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
454 if words == ['%%']: |
| 6 | 455 part = part + 1 |
| 456 else: | |
| 457 # | |
| 458 # Look for names of manually written | |
| 459 # stubs: a single percent followed by the name | |
| 460 # of the function in Python. | |
| 461 # The stub name is derived by prefixing 'gl_'. | |
| 462 # | |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
463 if words and words[0][0] == '%': |
| 6 | 464 func = words[0][1:] |
| 465 if (not func) and words[1:]: | |
| 466 func = words[1] | |
| 467 if func: | |
| 468 functions.append(func) | |
| 469 else: | |
| 470 print line | |
|
1443
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
471 continue |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
472 if not words: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
473 continue # skip empty line |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
474 elif words[0] == 'if': |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
475 # if XXX rest |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
476 # if !XXX rest |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
477 if words[1][0] == '!': |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
478 if words[1][1:] in defined_archs: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
479 continue |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
480 elif words[1] not in defined_archs: |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
481 continue |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
482 words = words[2:] |
|
2ec08a9d0325
rgbimgmodule.c, Makefile, config.c: new module to read RGB image files.
Sjoerd Mullender <sjoerd@acm.org>
parents:
1048
diff
changeset
|
483 if words[0] == '#include': |
| 6 | 484 print line |
|
569
6c36c273d57d
Converted to use == equality check syntax.
Guido van Rossum <guido@python.org>
parents:
402
diff
changeset
|
485 elif words[0][:1] == '#': |
| 6 | 486 pass # ignore comment |
| 487 elif words[0] not in return_types: | |
| 488 err('Line', lno, ': bad return type :', words[0]) | |
| 489 elif len(words) < 2: | |
| 490 err('Line', lno, ': no funcname :', line) | |
| 491 else: | |
| 492 if len(words) % 2 <> 0: | |
| 493 err('Line', lno, ': odd argument list :', words[2:]) | |
| 494 else: | |
| 495 database = [] | |
| 496 try: | |
| 497 for i in range(2, len(words), 2): | |
| 498 x = checkarg(words[i], words[i+1]) | |
| 499 database.append(x) | |
| 500 print | |
| 501 print '/*', | |
| 502 for w in words: print w, | |
| 503 print '*/' | |
| 504 generate(words[0], words[1], database) | |
| 505 except arg_error, msg: | |
| 506 err('Line', lno, ':', msg) | |
| 507 | |
| 508 | |
| 509 print | |
| 5353 | 510 print 'static struct PyMethodDef gl_methods[] = {' |
| 6 | 511 for func in functions: |
| 512 print '\t{"' + func + '", gl_' + func + '},' | |
| 513 print '\t{NULL, NULL} /* Sentinel */' | |
| 514 print '};' | |
| 515 print | |
|
4625
202602faefc7
Added `void' to declaration of initgl(), to keep gcc -Wall happy.
Guido van Rossum <guido@python.org>
parents:
4503
diff
changeset
|
516 print 'void' |
| 6 | 517 print 'initgl()' |
| 518 print '{' | |
| 5380 | 519 print '\t(void) Py_InitModule("gl", gl_methods);' |
| 6 | 520 print '}' |