Changeset 388 for python/vendor/current/RISCOS
- Timestamp:
- Mar 19, 2014, 11:11:30 AM (11 years ago)
- Location:
- python/vendor/current/RISCOS
- Files:
-
- 1 deleted
- 6 edited
-
Makefile (modified) (1 diff)
-
Modules/config.c (modified) (1 diff)
-
Modules/getpath_riscos.c (modified) (5 diffs)
-
Modules/riscosmodule.c (modified) (17 diffs)
-
Python/dynload_riscos.c (modified) (2 diffs)
-
Python/getmtime_riscos.c (deleted)
-
sleep.c (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
python/vendor/current/RISCOS/Makefile
r2 r388 136 136 @.Python.o.dynload_riscos\ 137 137 @.Python.o.getcwd_riscos\ 138 @.Python.o.getmtime_riscos\139 138 @.o.unixstuff 140 139 -
python/vendor/current/RISCOS/Modules/config.c
r2 r388 50 50 struct _inittab _PyImport_Inittab[] = { 51 51 52 52 {"riscos", initriscos}, 53 53 54 54 /* -- ADDMODULE MARKER 2 -- */ 55 55 56 57 56 /* This module "lives in" with marshal.c */ 57 {"marshal", PyMarshal_Init}, 58 58 59 60 59 /* This lives it with import.c */ 60 {"imp", initimp}, 61 61 62 63 64 65 66 62 /* These entries are here for sys.builtin_module_names */ 63 {"__main__", NULL}, 64 {"__builtin__", NULL}, 65 {"sys", NULL}, 66 {"exceptions", NULL}, 67 67 68 69 68 /* This lives in gcmodule.c */ 69 {"gc", initgc}, 70 70 71 72 71 /* Sentinel */ 72 {0, 0} 73 73 }; -
python/vendor/current/RISCOS/Modules/getpath_riscos.c
r2 r388 6 6 static void 7 7 calculate_path() 8 { 9 10 11 12 13 if (module_search_path) 14 15 16 fprintf(stderr, 17 18 19 20 21 if (!module_search_path) 22 23 24 25 8 { 9 char *pypath = getenv("Python$Path"); 10 if (pypath) { 11 int pathlen = strlen(pypath); 12 module_search_path = malloc(pathlen + 1); 13 if (module_search_path) 14 strncpy(module_search_path, pypath, pathlen + 1); 15 else { 16 fprintf(stderr, 17 "Not enough memory for dynamic PYTHONPATH.\n" 18 "Using default static PYTHONPATH.\n"); 19 } 20 } 21 if (!module_search_path) 22 module_search_path = "<Python$Dir>.Lib"; 23 prefix = "<Python$Dir>"; 24 exec_prefix = prefix; 25 progpath = Py_GetProgramName(); 26 26 } 27 27 … … 31 31 Py_GetPath() 32 32 { 33 34 35 33 if (!module_search_path) 34 calculate_path(); 35 return module_search_path; 36 36 } 37 37 … … 39 39 Py_GetPrefix() 40 40 { 41 42 43 41 if (!module_search_path) 42 calculate_path(); 43 return prefix; 44 44 } 45 45 … … 47 47 Py_GetExecPrefix() 48 48 { 49 50 51 49 if (!module_search_path) 50 calculate_path(); 51 return exec_prefix; 52 52 } 53 53 … … 55 55 Py_GetProgramFullPath() 56 56 { 57 58 59 57 if (!module_search_path) 58 calculate_path(); 59 return progpath; 60 60 } -
python/vendor/current/RISCOS/Modules/riscosmodule.c
r2 r388 20 20 static PyObject *riscos_error(char *s) 21 21 { 22 23 22 PyErr_SetString(PyExc_OSError, s); 23 return NULL; 24 24 } 25 25 26 26 static PyObject *riscos_oserror(void) 27 27 { 28 28 return riscos_error(e->errmess); 29 29 } 30 30 … … 36 36 { 37 37 char *path1; 38 39 40 41 38 if (!PyArg_ParseTuple(args, "s:remove", &path1)) return NULL; 39 if (remove(path1)) return PyErr_SetFromErrno(PyExc_OSError); 40 Py_INCREF(Py_None); 41 return Py_None; 42 42 } 43 43 … … 45 45 riscos_rename(PyObject *self, PyObject *args) 46 46 { 47 48 49 50 51 52 47 char *path1, *path2; 48 if (!PyArg_ParseTuple(args, "ss:rename", &path1, &path2)) 49 return NULL; 50 if (rename(path1,path2)) return PyErr_SetFromErrno(PyExc_OSError); 51 Py_INCREF(Py_None); 52 return Py_None; 53 53 } 54 54 … … 56 56 riscos_system(PyObject *self, PyObject *args) 57 57 { 58 59 60 58 char *command; 59 if (!PyArg_ParseTuple(args, "s:system", &command)) return NULL; 60 return PyInt_FromLong(system(command)); 61 61 } 62 62 … … 64 64 riscos_chdir(PyObject *self, PyObject *args) 65 65 { 66 67 68 69 70 71 66 char *path; 67 if (!PyArg_ParseTuple(args, "s:chdir", &path)) return NULL; 68 e=xosfscontrol_dir(path); 69 if(e) return riscos_oserror(); 70 Py_INCREF(Py_None); 71 return Py_None; 72 72 } 73 73 … … 99 99 riscos_expand(PyObject *self, PyObject *args) 100 100 { 101 102 103 101 char *path; 102 if (!PyArg_ParseTuple(args, "s:expand", &path)) return NULL; 103 return canon(path); 104 104 } 105 105 … … 107 107 riscos_mkdir(PyObject *self, PyObject *args) 108 108 { 109 109 char *path; 110 110 int mode; 111 111 if (!PyArg_ParseTuple(args, "s|i:mkdir", &path, &mode)) return NULL; 112 112 e=xosfile_create_dir(path,0); 113 113 if(e) return riscos_oserror(); 114 115 114 Py_INCREF(Py_None); 115 return Py_None; 116 116 } 117 117 … … 119 119 riscos_listdir(PyObject *self, PyObject *args) 120 120 { 121 121 char *path,buf[256]; 122 122 PyObject *d, *v; 123 123 int c=0,count; 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 124 if (!PyArg_ParseTuple(args, "s:listdir", &path)) return NULL; 125 d=PyList_New(0); 126 if(!d) return NULL; 127 for(;;) 128 { e=xosgbpb_dir_entries(path,(osgbpb_string_list*)buf, 129 1,c,256,0,&count,&c); 130 if(e) 131 { Py_DECREF(d);return riscos_oserror(); 132 } 133 if(count) 134 { v=PyString_FromString(buf); 135 if(!v) { Py_DECREF(d);return 0;} 136 if(PyList_Append(d,v)) {Py_DECREF(d);Py_DECREF(v);return 0;} 137 } 138 if(c==-1) break; 139 } 140 return d; 141 141 } 142 142 … … 152 152 153 153 static PyStructSequence_Field stat_result_fields[] = { 154 155 156 157 158 159 160 161 162 163 164 165 166 167 154 { "st_mode", "protection bits" }, 155 { "st_ino", "inode" }, 156 { "st_dev", "device" }, 157 { "st_nlink", "number of hard links" }, 158 { "st_uid", "user ID of owner" }, 159 { "st_gid", "group ID of owner" }, 160 { "st_size", "total size, in bytes" }, 161 { "st_atime", "time of last access" }, 162 { "st_mtime", "time of last modification" }, 163 { "st_ctime", "time of last change" }, 164 { "st_ftype", "file type" }, 165 { "st_attrs", "attributes" }, 166 { "st_obtype", "object type" }, 167 { 0 } 168 168 }; 169 169 170 170 static PyStructSequence_Desc stat_result_desc = { 171 172 173 174 171 "riscos.stat_result", 172 stat_result__doc__, 173 stat_result_fields, 174 13 175 175 }; 176 176 … … 179 179 static PyObject * 180 180 riscos_stat(PyObject *self, PyObject *args) 181 { 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 PyStructSequence_SET_ITEM(v, 0, 203 204 205 206 207 208 209 PyStructSequence_SET_ITEM(v, 6, 210 211 212 213 214 PyStructSequence_SET_ITEM(v, 10, 215 216 PyStructSequence_SET_ITEM(v, 11, 217 218 PyStructSequence_SET_ITEM(v, 12, 219 220 221 222 223 224 225 226 181 { 182 PyObject *v; 183 char *path; 184 int ob,len; 185 bits t=0; 186 bits ld,ex,at,ft,mode; 187 if (!PyArg_ParseTuple(args, "s:stat", &path)) return NULL; 188 e=xosfile_read_stamped_no_path(path,&ob,&ld,&ex,&len,&at,&ft); 189 if(e) return riscos_oserror(); 190 switch (ob) 191 { case osfile_IS_FILE:mode=0100000;break; /* OCTAL */ 192 case osfile_IS_DIR:mode=040000;break; 193 case osfile_IS_IMAGE:mode=0140000;break; 194 default:return riscos_error("Not found"); 195 } 196 if(ft!=-1) t=unixtime(ld,ex); 197 mode|=(at&7)<<6; 198 mode|=((at&112)*9)>>4; 199 200 v = PyStructSequence_New(&StatResultType); 201 202 PyStructSequence_SET_ITEM(v, 0, 203 PyInt_FromLong((long) mode)); /*st_mode*/ 204 PyStructSequence_SET_ITEM(v, 1, PyInt_FromLong((long) 0)); /*st_ino*/ 205 PyStructSequence_SET_ITEM(v, 2, PyInt_FromLong((long) 0)); /*st_dev*/ 206 PyStructSequence_SET_ITEM(v, 3, PyInt_FromLong((long) 0)); /*st_nlink*/ 207 PyStructSequence_SET_ITEM(v, 4, PyInt_FromLong((long) 0)); /*st_uid*/ 208 PyStructSequence_SET_ITEM(v, 5, PyInt_FromLong((long) 0)); /*st_gid*/ 209 PyStructSequence_SET_ITEM(v, 6, 210 PyInt_FromLong((long) len)); /*st_size*/ 211 PyStructSequence_SET_ITEM(v, 7, PyInt_FromLong((long) t)); /*st_atime*/ 212 PyStructSequence_SET_ITEM(v, 8, PyInt_FromLong((long) t)); /*st_mtime*/ 213 PyStructSequence_SET_ITEM(v, 9, PyInt_FromLong((long) t)); /*st_ctime*/ 214 PyStructSequence_SET_ITEM(v, 10, 215 PyInt_FromLong((long) ft)); /*file type*/ 216 PyStructSequence_SET_ITEM(v, 11, 217 PyInt_FromLong((long) at)); /*attributes*/ 218 PyStructSequence_SET_ITEM(v, 12, 219 PyInt_FromLong((long) ob)); /*object type*/ 220 221 if (PyErr_Occurred()) { 222 Py_DECREF(v); 223 return NULL; 224 } 225 226 return v; 227 227 } 228 228 … … 230 230 riscos_chmod(PyObject *self,PyObject *args) 231 231 { 232 232 char *path; 233 233 bits mode; 234 234 bits attr; 235 235 attr=(mode&0x700)>>8; 236 236 attr|=(mode&7)<<4; 237 if (!PyArg_ParseTuple(args, "si:chmod", &path,(int*)&mode)) return NULL; 238 e=xosfile_write_attr(path,attr); 237 if (!PyArg_ParseTuple(args, "si:chmod", &path,(int*)&mode)) return NULL; 238 e=xosfile_write_attr(path,attr); 239 if(e) return riscos_oserror(); 240 Py_INCREF(Py_None); 241 return Py_None; 242 } 243 244 245 static PyObject * 246 riscos_utime(PyObject *self, PyObject *args) 247 { 248 char *path; 249 long atime, mtime; 250 PyObject* arg; 251 252 if (!PyArg_ParseTuple(args, "sO:utime", &path, &arg)) 253 return NULL; 254 255 if (arg == Py_None) { 256 /* optional time values not given */ 257 Py_BEGIN_ALLOW_THREADS 258 e=xosfile_stamp(path); 259 Py_END_ALLOW_THREADS 239 260 if(e) return riscos_oserror(); 240 Py_INCREF(Py_None); 241 return Py_None; 242 } 243 244 245 static PyObject * 246 riscos_utime(PyObject *self, PyObject *args) 247 { 248 char *path; 249 long atime, mtime; 250 PyObject* arg; 251 252 if (!PyArg_ParseTuple(args, "sO:utime", &path, &arg)) 253 return NULL; 254 255 if (arg == Py_None) { 256 /* optional time values not given */ 257 Py_BEGIN_ALLOW_THREADS 258 e=xosfile_stamp(path); 259 Py_END_ALLOW_THREADS 260 if(e) return riscos_oserror(); 261 } 262 else if (!PyArg_Parse(arg, "(ll)", &atime, &mtime)) { 263 PyErr_SetString(PyExc_TypeError, 264 "utime() arg 2 must be a tuple (atime, mtime)"); 265 return NULL; 266 } 267 else { 268 /* catalogue info*/ 269 fileswitch_object_type obj_type; 270 bits load_addr, exec_addr; 271 int size; 272 fileswitch_attr attr; 273 274 /* read old catalogue info */ 275 Py_BEGIN_ALLOW_THREADS 276 e=xosfile_read_no_path(path, &obj_type, &load_addr, &exec_addr, &size, &attr); 277 Py_END_ALLOW_THREADS 278 if(e) return riscos_oserror(); 279 280 /* check if load and exec address really contain filetype and date */ 281 if ( (load_addr & 0xFFF00000U) != 0xFFF00000U) 282 return riscos_error("can't set date for object with load and exec addresses"); 283 284 /* convert argument mtime to RISC OS load and exec address */ 285 if(acorntime(&exec_addr, &load_addr, (time_t) mtime)) 286 return riscos_oserror(); 287 288 /* write new load and exec address */ 289 Py_BEGIN_ALLOW_THREADS 290 e = xosfile_write(path, load_addr, exec_addr, attr); 291 Py_END_ALLOW_THREADS 292 if(e) return riscos_oserror(); 293 } 294 295 Py_INCREF(Py_None); 296 return Py_None; 261 } 262 else if (!PyArg_Parse(arg, "(ll)", &atime, &mtime)) { 263 PyErr_SetString(PyExc_TypeError, 264 "utime() arg 2 must be a tuple (atime, mtime)"); 265 return NULL; 266 } 267 else { 268 /* catalogue info*/ 269 fileswitch_object_type obj_type; 270 bits load_addr, exec_addr; 271 int size; 272 fileswitch_attr attr; 273 274 /* read old catalogue info */ 275 Py_BEGIN_ALLOW_THREADS 276 e=xosfile_read_no_path(path, &obj_type, &load_addr, &exec_addr, &size, &attr); 277 Py_END_ALLOW_THREADS 278 if(e) return riscos_oserror(); 279 280 /* check if load and exec address really contain filetype and date */ 281 if ( (load_addr & 0xFFF00000U) != 0xFFF00000U) 282 return riscos_error("can't set date for object with load and exec addresses"); 283 284 /* convert argument mtime to RISC OS load and exec address */ 285 if(acorntime(&exec_addr, &load_addr, (time_t) mtime)) 286 return riscos_oserror(); 287 288 /* write new load and exec address */ 289 Py_BEGIN_ALLOW_THREADS 290 e = xosfile_write(path, load_addr, exec_addr, attr); 291 Py_END_ALLOW_THREADS 292 if(e) return riscos_oserror(); 293 } 294 295 Py_INCREF(Py_None); 296 return Py_None; 297 297 } 298 298 … … 300 300 riscos_settype(PyObject *self, PyObject *args) 301 301 { 302 302 char *path,*name; 303 303 int type; 304 305 304 if (!PyArg_ParseTuple(args, "si:settype", &path,&type)) 305 { 306 306 PyErr_Clear(); 307 308 309 310 307 if (!PyArg_ParseTuple(args, "ss:settype", &path,&name)) return NULL; 308 e=xosfscontrol_file_type_from_string(name,(bits*)&type); 309 if(e) return riscos_oserror(); 310 } 311 311 e=xosfile_set_type(path,type); 312 312 if(e) return riscos_oserror(); 313 314 313 Py_INCREF(Py_None); 314 return Py_None; 315 315 } 316 316 … … 369 369 /* XXX This part ignores errors */ 370 370 while(!xos_read_var_val(which,value,sizeof(value)-1,(int)context, 371 371 os_VARTYPE_EXPANDED,&size,(int *)&context,0)) 372 372 { PyObject *v; 373 373 value[size]='\0'; … … 382 382 static PyMethodDef riscos_methods[] = { 383 383 384 {"unlink",riscos_remove, METH_VARARGS},384 {"unlink", riscos_remove, METH_VARARGS}, 385 385 {"remove", riscos_remove, METH_VARARGS}, 386 {"rename",riscos_rename, METH_VARARGS},387 {"system",riscos_system, METH_VARARGS},388 {"rmdir",riscos_remove, METH_VARARGS},389 {"chdir",riscos_chdir, METH_VARARGS},390 {"getcwd",riscos_getcwd, METH_NOARGS},391 392 {"mkdir",riscos_mkdir, METH_VARARGS},393 {"listdir",riscos_listdir, METH_VARARGS},394 {"stat",riscos_stat, METH_VARARGS},395 {"lstat",riscos_stat, METH_VARARGS},396 {"chmod", 397 {"utime",riscos_utime, METH_VARARGS},398 {"settype",riscos_settype, METH_VARARGS},399 400 401 402 403 {NULL, NULL}/* Sentinel */386 {"rename", riscos_rename, METH_VARARGS}, 387 {"system", riscos_system, METH_VARARGS}, 388 {"rmdir", riscos_remove, METH_VARARGS}, 389 {"chdir", riscos_chdir, METH_VARARGS}, 390 {"getcwd", riscos_getcwd, METH_NOARGS}, 391 {"expand", riscos_expand, METH_VARARGS}, 392 {"mkdir", riscos_mkdir, METH_VARARGS}, 393 {"listdir", riscos_listdir, METH_VARARGS}, 394 {"stat", riscos_stat, METH_VARARGS}, 395 {"lstat", riscos_stat, METH_VARARGS}, 396 {"chmod", riscos_chmod, METH_VARARGS}, 397 {"utime", riscos_utime, METH_VARARGS}, 398 {"settype", riscos_settype, METH_VARARGS}, 399 {"getenv", riscos_getenv, METH_VARARGS}, 400 {"putenv", riscos_putenv, METH_VARARGS}, 401 {"delenv", riscos_delenv, METH_VARARGS}, 402 {"getenvdict", riscos_getenvdict, METH_VARARGS}, 403 {NULL, NULL} /* Sentinel */ 404 404 }; 405 405 … … 407 407 ins(PyObject *module, char *symbol, long value) 408 408 { 409 409 return PyModule_AddIntConstant(module, symbol, value); 410 410 } 411 411 … … 415 415 { 416 416 #ifdef F_OK 417 417 if (ins(d, "F_OK", (long)F_OK)) return -1; 418 418 #endif 419 419 #ifdef R_OK 420 420 if (ins(d, "R_OK", (long)R_OK)) return -1; 421 421 #endif 422 422 #ifdef W_OK 423 423 if (ins(d, "W_OK", (long)W_OK)) return -1; 424 424 #endif 425 425 #ifdef X_OK 426 426 if (ins(d, "X_OK", (long)X_OK)) return -1; 427 427 #endif 428 428 #ifdef NGROUPS_MAX 429 429 if (ins(d, "NGROUPS_MAX", (long)NGROUPS_MAX)) return -1; 430 430 #endif 431 431 #ifdef TMP_MAX 432 432 if (ins(d, "TMP_MAX", (long)TMP_MAX)) return -1; 433 433 #endif 434 434 #ifdef WCONTINUED 435 435 if (ins(d, "WCONTINUED", (long)WCONTINUED)) return -1; 436 436 #endif 437 437 #ifdef WNOHANG 438 438 if (ins(d, "WNOHANG", (long)WNOHANG)) return -1; 439 439 #endif 440 440 #ifdef WUNTRACED 441 441 if (ins(d, "WUNTRACED", (long)WUNTRACED)) return -1; 442 442 #endif 443 443 #ifdef O_RDONLY 444 444 if (ins(d, "O_RDONLY", (long)O_RDONLY)) return -1; 445 445 #endif 446 446 #ifdef O_WRONLY 447 447 if (ins(d, "O_WRONLY", (long)O_WRONLY)) return -1; 448 448 #endif 449 449 #ifdef O_RDWR 450 450 if (ins(d, "O_RDWR", (long)O_RDWR)) return -1; 451 451 #endif 452 452 #ifdef O_NDELAY 453 453 if (ins(d, "O_NDELAY", (long)O_NDELAY)) return -1; 454 454 #endif 455 455 #ifdef O_NONBLOCK 456 456 if (ins(d, "O_NONBLOCK", (long)O_NONBLOCK)) return -1; 457 457 #endif 458 458 #ifdef O_APPEND 459 459 if (ins(d, "O_APPEND", (long)O_APPEND)) return -1; 460 460 #endif 461 461 #ifdef O_DSYNC 462 462 if (ins(d, "O_DSYNC", (long)O_DSYNC)) return -1; 463 463 #endif 464 464 #ifdef O_RSYNC 465 465 if (ins(d, "O_RSYNC", (long)O_RSYNC)) return -1; 466 466 #endif 467 467 #ifdef O_SYNC 468 468 if (ins(d, "O_SYNC", (long)O_SYNC)) return -1; 469 469 #endif 470 470 #ifdef O_NOCTTY 471 471 if (ins(d, "O_NOCTTY", (long)O_NOCTTY)) return -1; 472 472 #endif 473 473 #ifdef O_CREAT 474 474 if (ins(d, "O_CREAT", (long)O_CREAT)) return -1; 475 475 #endif 476 476 #ifdef O_EXCL 477 477 if (ins(d, "O_EXCL", (long)O_EXCL)) return -1; 478 478 #endif 479 479 #ifdef O_TRUNC 480 480 if (ins(d, "O_TRUNC", (long)O_TRUNC)) return -1; 481 481 #endif 482 482 #ifdef O_BINARY 483 483 if (ins(d, "O_BINARY", (long)O_BINARY)) return -1; 484 484 #endif 485 485 #ifdef O_TEXT 486 486 if (ins(d, "O_TEXT", (long)O_TEXT)) return -1; 487 487 #endif 488 488 #ifdef O_LARGEFILE 489 489 if (ins(d, "O_LARGEFILE", (long)O_LARGEFILE)) return -1; 490 490 #endif 491 491 492 492 /* MS Windows */ 493 493 #ifdef O_NOINHERIT 494 495 494 /* Don't inherit in child processes. */ 495 if (ins(d, "O_NOINHERIT", (long)O_NOINHERIT)) return -1; 496 496 #endif 497 497 #ifdef _O_SHORT_LIVED 498 499 500 498 /* Optimize for short life (keep in memory). */ 499 /* MS forgot to define this one with a non-underscore form too. */ 500 if (ins(d, "O_SHORT_LIVED", (long)_O_SHORT_LIVED)) return -1; 501 501 #endif 502 502 #ifdef O_TEMPORARY 503 504 503 /* Automatically delete when last handle is closed. */ 504 if (ins(d, "O_TEMPORARY", (long)O_TEMPORARY)) return -1; 505 505 #endif 506 506 #ifdef O_RANDOM 507 508 507 /* Optimize for random access. */ 508 if (ins(d, "O_RANDOM", (long)O_RANDOM)) return -1; 509 509 #endif 510 510 #ifdef O_SEQUENTIAL 511 512 511 /* Optimize for sequential access. */ 512 if (ins(d, "O_SEQUENTIAL", (long)O_SEQUENTIAL)) return -1; 513 513 #endif 514 514 515 515 /* GNU extensions. */ 516 516 #ifdef O_DIRECT 517 518 517 /* Direct disk access. */ 518 if (ins(d, "O_DIRECT", (long)O_DIRECT)) return -1; 519 519 #endif 520 520 #ifdef O_DIRECTORY 521 /* Must be a directory.*/522 521 /* Must be a directory. */ 522 if (ins(d, "O_DIRECTORY", (long)O_DIRECTORY)) return -1; 523 523 #endif 524 524 #ifdef O_NOFOLLOW 525 /* Do not follow links.*/526 527 #endif 528 529 525 /* Do not follow links. */ 526 if (ins(d, "O_NOFOLLOW", (long)O_NOFOLLOW)) return -1; 527 #endif 528 529 /* These come from sysexits.h */ 530 530 #ifdef EX_OK 531 531 if (ins(d, "EX_OK", (long)EX_OK)) return -1; 532 532 #endif /* EX_OK */ 533 533 #ifdef EX_USAGE 534 534 if (ins(d, "EX_USAGE", (long)EX_USAGE)) return -1; 535 535 #endif /* EX_USAGE */ 536 536 #ifdef EX_DATAERR 537 537 if (ins(d, "EX_DATAERR", (long)EX_DATAERR)) return -1; 538 538 #endif /* EX_DATAERR */ 539 539 #ifdef EX_NOINPUT 540 540 if (ins(d, "EX_NOINPUT", (long)EX_NOINPUT)) return -1; 541 541 #endif /* EX_NOINPUT */ 542 542 #ifdef EX_NOUSER 543 543 if (ins(d, "EX_NOUSER", (long)EX_NOUSER)) return -1; 544 544 #endif /* EX_NOUSER */ 545 545 #ifdef EX_NOHOST 546 546 if (ins(d, "EX_NOHOST", (long)EX_NOHOST)) return -1; 547 547 #endif /* EX_NOHOST */ 548 548 #ifdef EX_UNAVAILABLE 549 549 if (ins(d, "EX_UNAVAILABLE", (long)EX_UNAVAILABLE)) return -1; 550 550 #endif /* EX_UNAVAILABLE */ 551 551 #ifdef EX_SOFTWARE 552 552 if (ins(d, "EX_SOFTWARE", (long)EX_SOFTWARE)) return -1; 553 553 #endif /* EX_SOFTWARE */ 554 554 #ifdef EX_OSERR 555 555 if (ins(d, "EX_OSERR", (long)EX_OSERR)) return -1; 556 556 #endif /* EX_OSERR */ 557 557 #ifdef EX_OSFILE 558 558 if (ins(d, "EX_OSFILE", (long)EX_OSFILE)) return -1; 559 559 #endif /* EX_OSFILE */ 560 560 #ifdef EX_CANTCREAT 561 561 if (ins(d, "EX_CANTCREAT", (long)EX_CANTCREAT)) return -1; 562 562 #endif /* EX_CANTCREAT */ 563 563 #ifdef EX_IOERR 564 564 if (ins(d, "EX_IOERR", (long)EX_IOERR)) return -1; 565 565 #endif /* EX_IOERR */ 566 566 #ifdef EX_TEMPFAIL 567 567 if (ins(d, "EX_TEMPFAIL", (long)EX_TEMPFAIL)) return -1; 568 568 #endif /* EX_TEMPFAIL */ 569 569 #ifdef EX_PROTOCOL 570 570 if (ins(d, "EX_PROTOCOL", (long)EX_PROTOCOL)) return -1; 571 571 #endif /* EX_PROTOCOL */ 572 572 #ifdef EX_NOPERM 573 573 if (ins(d, "EX_NOPERM", (long)EX_NOPERM)) return -1; 574 574 #endif /* EX_NOPERM */ 575 575 #ifdef EX_CONFIG 576 576 if (ins(d, "EX_CONFIG", (long)EX_CONFIG)) return -1; 577 577 #endif /* EX_CONFIG */ 578 578 #ifdef EX_NOTFOUND 579 579 if (ins(d, "EX_NOTFOUND", (long)EX_NOTFOUND)) return -1; 580 580 #endif /* EX_NOTFOUND */ 581 581 582 582 return 0; 583 583 } 584 584 … … 587 587 initriscos() 588 588 { 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 } 589 PyObject *m, *d, *stat_m; 590 591 m = Py_InitModule("riscos", riscos_methods); 592 593 if (all_ins(m)) 594 return; 595 596 d = PyModule_GetDict(m); 597 598 Py_INCREF(PyExc_OSError); 599 PyModule_AddObject(m, "error", PyExc_OSError); 600 601 PyStructSequence_InitType(&StatResultType, &stat_result_desc); 602 PyDict_SetItemString(d, "stat_result", (PyObject*) &StatResultType); 603 } -
python/vendor/current/RISCOS/Python/dynload_riscos.c
r2 r388 40 40 41 41 const struct filedescr _PyImport_DynLoadFiletab[] = { 42 43 42 {"/pyd", "rb", C_EXTENSION}, 43 {0, 0} 44 44 }; 45 45 … … 49 49 50 50 dl_funcptr _PyImport_GetDynLoadFunc(const char *fqname, const char *shortname, 51 51 char *pathname, FILE *fp) 52 52 { 53 54 55 53 int err; 54 char errstr[256]; 55 void (*init_function)(void); 56 56 57 58 59 60 61 62 57 err = dlk_load_no_init(pathname, &init_function); 58 if (err) { 59 PyOS_snprintf(errstr, sizeof(errstr), "dlk failure %d", err); 60 PyErr_SetString(PyExc_ImportError, errstr); 61 } 62 return init_function; 63 63 } -
python/vendor/current/RISCOS/sleep.c
r2 r388 10 10 int riscos_sleep(double delay) 11 11 { 12 13 14 12 os_t starttime, endtime, time; /* monotonic times (centiseconds) */ 13 int *pollword, ret; 14 osbool claimed; 15 15 16 17 18 19 20 21 16 /* calculate end time */ 17 starttime = os_read_monotonic_time(); 18 if (starttime + 100.0*delay >INT_MAX) 19 endtime = INT_MAX; 20 else 21 endtime = (os_t)(starttime + 100.0*delay); 22 22 23 24 25 23 /* allocate (in RMA) and set pollword for xupcall_sleep */ 24 pollword = osmodule_alloc(4); 25 *pollword = 1; 26 26 27 28 29 30 31 32 33 34 35 36 27 time = starttime; 28 ret = 0; 29 while ( time<endtime && time>=starttime ) { 30 xupcall_sleep (pollword, &claimed); 31 if (PyErr_CheckSignals()) { 32 ret = 1; 33 break; 34 } 35 time = os_read_monotonic_time(); 36 } 37 37 38 39 40 38 /* deallocate pollword */ 39 osmodule_free(pollword); 40 return ret; 41 41 }
Note:
See TracChangeset
for help on using the changeset viewer.
