Guido van Rossum | f70e43a | 1991-02-19 12:39:46 +0000 | [diff] [blame] | 1 | /*********************************************************** |
Guido van Rossum | 6610ad9 | 1995-01-04 19:07:38 +0000 | [diff] [blame] | 2 | Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam, |
| 3 | The Netherlands. |
Guido van Rossum | f70e43a | 1991-02-19 12:39:46 +0000 | [diff] [blame] | 4 | |
| 5 | All Rights Reserved |
| 6 | |
| 7 | Permission to use, copy, modify, and distribute this software and its |
| 8 | documentation for any purpose and without fee is hereby granted, |
| 9 | provided that the above copyright notice appear in all copies and that |
| 10 | both that copyright notice and this permission notice appear in |
| 11 | supporting documentation, and that the names of Stichting Mathematisch |
| 12 | Centrum or CWI not be used in advertising or publicity pertaining to |
| 13 | distribution of the software without specific, written prior permission. |
| 14 | |
| 15 | STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO |
| 16 | THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND |
| 17 | FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE |
| 18 | FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES |
| 19 | WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN |
| 20 | ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT |
| 21 | OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
| 22 | |
| 23 | ******************************************************************/ |
| 24 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 25 | /* File object implementation */ |
| 26 | |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 27 | #include "allobjects.h" |
Guido van Rossum | fa3da8a | 1992-01-27 16:53:23 +0000 | [diff] [blame] | 28 | #include "modsupport.h" |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 29 | #include "structmember.h" |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 30 | #include "ceval.h" |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 31 | |
Guido van Rossum | 295d171 | 1995-02-19 15:55:19 +0000 | [diff] [blame^] | 32 | #ifdef THINK_C |
| 33 | #define HAVE_FOPENRF |
| 34 | #endif |
| 35 | |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 36 | #define BUF(v) GETSTRINGVALUE((stringobject *)v) |
| 37 | |
Guido van Rossum | f1dc566 | 1993-07-05 10:31:29 +0000 | [diff] [blame] | 38 | #include <errno.h> |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 39 | |
| 40 | typedef struct { |
| 41 | OB_HEAD |
| 42 | FILE *f_fp; |
| 43 | object *f_name; |
| 44 | object *f_mode; |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 45 | int (*f_close) PROTO((FILE *)); |
Guido van Rossum | eb183da | 1991-04-04 10:44:06 +0000 | [diff] [blame] | 46 | int f_softspace; /* Flag used by 'print' command */ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 47 | } fileobject; |
| 48 | |
| 49 | FILE * |
| 50 | getfilefile(f) |
| 51 | object *f; |
| 52 | { |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 53 | if (f == NULL || !is_fileobject(f)) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 54 | return NULL; |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 55 | else |
| 56 | return ((fileobject *)f)->f_fp; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 57 | } |
| 58 | |
| 59 | object * |
Guido van Rossum | db3165e | 1993-10-18 17:06:59 +0000 | [diff] [blame] | 60 | getfilename(f) |
| 61 | object *f; |
| 62 | { |
| 63 | if (f == NULL || !is_fileobject(f)) |
| 64 | return NULL; |
| 65 | else |
| 66 | return ((fileobject *)f)->f_name; |
| 67 | } |
| 68 | |
| 69 | object * |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 70 | newopenfileobject(fp, name, mode, close) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 71 | FILE *fp; |
| 72 | char *name; |
| 73 | char *mode; |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 74 | int (*close) FPROTO((FILE *)); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 75 | { |
| 76 | fileobject *f = NEWOBJ(fileobject, &Filetype); |
| 77 | if (f == NULL) |
| 78 | return NULL; |
| 79 | f->f_fp = NULL; |
| 80 | f->f_name = newstringobject(name); |
| 81 | f->f_mode = newstringobject(mode); |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 82 | f->f_close = close; |
Guido van Rossum | eb183da | 1991-04-04 10:44:06 +0000 | [diff] [blame] | 83 | f->f_softspace = 0; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 84 | if (f->f_name == NULL || f->f_mode == NULL) { |
| 85 | DECREF(f); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 86 | return NULL; |
| 87 | } |
| 88 | f->f_fp = fp; |
| 89 | return (object *) f; |
| 90 | } |
| 91 | |
| 92 | object * |
| 93 | newfileobject(name, mode) |
| 94 | char *name, *mode; |
| 95 | { |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 96 | extern int fclose PROTO((FILE *)); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 97 | fileobject *f; |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 98 | f = (fileobject *) newopenfileobject((FILE *)NULL, name, mode, fclose); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 99 | if (f == NULL) |
| 100 | return NULL; |
Guido van Rossum | d7047b3 | 1995-01-02 19:07:15 +0000 | [diff] [blame] | 101 | #ifdef HAVE_FOPENRF |
Guido van Rossum | a08095a | 1991-02-13 23:25:27 +0000 | [diff] [blame] | 102 | if (*mode == '*') { |
| 103 | FILE *fopenRF(); |
| 104 | f->f_fp = fopenRF(name, mode+1); |
| 105 | } |
| 106 | else |
| 107 | #endif |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 108 | { |
| 109 | BGN_SAVE |
| 110 | f->f_fp = fopen(name, mode); |
| 111 | END_SAVE |
| 112 | } |
Guido van Rossum | a08095a | 1991-02-13 23:25:27 +0000 | [diff] [blame] | 113 | if (f->f_fp == NULL) { |
Guido van Rossum | 87e7ea7 | 1991-12-10 14:00:03 +0000 | [diff] [blame] | 114 | err_errno(IOError); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 115 | DECREF(f); |
| 116 | return NULL; |
| 117 | } |
| 118 | return (object *)f; |
| 119 | } |
| 120 | |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 121 | void |
| 122 | setfilebufsize(f, bufsize) |
| 123 | object *f; |
| 124 | int bufsize; |
| 125 | { |
| 126 | if (bufsize >= 0) { |
| 127 | #ifdef HAVE_SETVBUF |
| 128 | int type; |
| 129 | switch (bufsize) { |
| 130 | case 0: |
| 131 | type = _IONBF; |
| 132 | break; |
| 133 | case 1: |
| 134 | type = _IOLBF; |
| 135 | bufsize = BUFSIZ; |
| 136 | break; |
| 137 | default: |
| 138 | type = _IOFBF; |
| 139 | } |
| 140 | setvbuf(((fileobject *)f)->f_fp, (char *)NULL, type, bufsize); |
| 141 | #endif /* HAVE_SETVBUF */ |
| 142 | } |
| 143 | } |
| 144 | |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 145 | static object * |
| 146 | err_closed() |
| 147 | { |
| 148 | err_setstr(ValueError, "I/O operation on closed file"); |
| 149 | return NULL; |
| 150 | } |
| 151 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 152 | /* Methods */ |
| 153 | |
| 154 | static void |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 155 | file_dealloc(f) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 156 | fileobject *f; |
| 157 | { |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 158 | if (f->f_fp != NULL && f->f_close != NULL) { |
| 159 | BGN_SAVE |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 160 | (*f->f_close)(f->f_fp); |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 161 | END_SAVE |
| 162 | } |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 163 | if (f->f_name != NULL) |
| 164 | DECREF(f->f_name); |
| 165 | if (f->f_mode != NULL) |
| 166 | DECREF(f->f_mode); |
| 167 | free((char *)f); |
| 168 | } |
| 169 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 170 | static object * |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 171 | file_repr(f) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 172 | fileobject *f; |
| 173 | { |
| 174 | char buf[300]; |
Guido van Rossum | e35399e | 1993-01-10 18:33:56 +0000 | [diff] [blame] | 175 | sprintf(buf, "<%s file '%.256s', mode '%.10s' at %lx>", |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 176 | f->f_fp == NULL ? "closed" : "open", |
| 177 | getstringvalue(f->f_name), |
Guido van Rossum | e35399e | 1993-01-10 18:33:56 +0000 | [diff] [blame] | 178 | getstringvalue(f->f_mode), |
| 179 | (long)f); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 180 | return newstringobject(buf); |
| 181 | } |
| 182 | |
| 183 | static object * |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 184 | file_close(f, args) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 185 | fileobject *f; |
| 186 | object *args; |
| 187 | { |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 188 | int sts = 0; |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 189 | if (!getnoarg(args)) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 190 | return NULL; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 191 | if (f->f_fp != NULL) { |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 192 | if (f->f_close != NULL) { |
| 193 | BGN_SAVE |
| 194 | errno = 0; |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 195 | sts = (*f->f_close)(f->f_fp); |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 196 | END_SAVE |
| 197 | } |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 198 | f->f_fp = NULL; |
| 199 | } |
Guido van Rossum | febd551 | 1992-03-04 16:39:24 +0000 | [diff] [blame] | 200 | if (sts == EOF) |
Guido van Rossum | 87e7ea7 | 1991-12-10 14:00:03 +0000 | [diff] [blame] | 201 | return err_errno(IOError); |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 202 | if (sts != 0) |
| 203 | return newintobject((long)sts); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 204 | INCREF(None); |
| 205 | return None; |
| 206 | } |
| 207 | |
| 208 | static object * |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 209 | file_seek(f, args) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 210 | fileobject *f; |
| 211 | object *args; |
| 212 | { |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 213 | long offset; |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 214 | int whence; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 215 | int ret; |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 216 | |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 217 | if (f->f_fp == NULL) |
| 218 | return err_closed(); |
| 219 | whence = 0; |
| 220 | if (!getargs(args, "l", &offset)) { |
| 221 | err_clear(); |
| 222 | if (!getargs(args, "(li)", &offset, &whence)) |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 223 | return NULL; |
| 224 | } |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 225 | BGN_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 226 | errno = 0; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 227 | ret = fseek(f->f_fp, offset, whence); |
| 228 | END_SAVE |
| 229 | if (ret != 0) { |
Guido van Rossum | febd551 | 1992-03-04 16:39:24 +0000 | [diff] [blame] | 230 | err_errno(IOError); |
| 231 | clearerr(f->f_fp); |
| 232 | return NULL; |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 233 | } |
| 234 | INCREF(None); |
| 235 | return None; |
| 236 | } |
| 237 | |
Guido van Rossum | d7047b3 | 1995-01-02 19:07:15 +0000 | [diff] [blame] | 238 | #ifdef HAVE_FTRUNCATE |
| 239 | static object * |
| 240 | file_truncate(f, args) |
| 241 | fileobject *f; |
| 242 | object *args; |
| 243 | { |
| 244 | long newsize; |
| 245 | int ret; |
| 246 | |
| 247 | if (f->f_fp == NULL) |
| 248 | return err_closed(); |
| 249 | if (!getargs(args, "l", &newsize)) { |
| 250 | err_clear(); |
| 251 | if (!getnoarg(args)) |
| 252 | return NULL; |
| 253 | BGN_SAVE |
| 254 | errno = 0; |
| 255 | newsize = ftell(f->f_fp); /* default to current position*/ |
| 256 | END_SAVE |
| 257 | if (newsize == -1L) { |
| 258 | err_errno(IOError); |
| 259 | clearerr(f->f_fp); |
| 260 | return NULL; |
| 261 | } |
| 262 | } |
| 263 | BGN_SAVE |
| 264 | errno = 0; |
| 265 | ret = fflush(f->f_fp); |
| 266 | END_SAVE |
| 267 | if (ret == 0) { |
| 268 | BGN_SAVE |
| 269 | errno = 0; |
| 270 | ret = ftruncate(fileno(f->f_fp), newsize); |
| 271 | END_SAVE |
| 272 | } |
| 273 | if (ret != 0) { |
| 274 | err_errno(IOError); |
| 275 | clearerr(f->f_fp); |
| 276 | return NULL; |
| 277 | } |
| 278 | INCREF(None); |
| 279 | return None; |
| 280 | } |
| 281 | #endif /* HAVE_FTRUNCATE */ |
| 282 | |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 283 | static object * |
| 284 | file_tell(f, args) |
| 285 | fileobject *f; |
| 286 | object *args; |
| 287 | { |
| 288 | long offset; |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 289 | if (f->f_fp == NULL) |
| 290 | return err_closed(); |
| 291 | if (!getnoarg(args)) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 292 | return NULL; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 293 | BGN_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 294 | errno = 0; |
| 295 | offset = ftell(f->f_fp); |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 296 | END_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 297 | if (offset == -1L) { |
Guido van Rossum | febd551 | 1992-03-04 16:39:24 +0000 | [diff] [blame] | 298 | err_errno(IOError); |
| 299 | clearerr(f->f_fp); |
| 300 | return NULL; |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 301 | } |
| 302 | return newintobject(offset); |
| 303 | } |
| 304 | |
| 305 | static object * |
Guido van Rossum | ed233a5 | 1992-06-23 09:07:03 +0000 | [diff] [blame] | 306 | file_fileno(f, args) |
| 307 | fileobject *f; |
| 308 | object *args; |
| 309 | { |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 310 | if (f->f_fp == NULL) |
| 311 | return err_closed(); |
Guido van Rossum | ed233a5 | 1992-06-23 09:07:03 +0000 | [diff] [blame] | 312 | if (!getnoarg(args)) |
| 313 | return NULL; |
| 314 | return newintobject((long) fileno(f->f_fp)); |
| 315 | } |
| 316 | |
| 317 | static object * |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 318 | file_flush(f, args) |
| 319 | fileobject *f; |
| 320 | object *args; |
| 321 | { |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 322 | int res; |
| 323 | |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 324 | if (f->f_fp == NULL) |
| 325 | return err_closed(); |
| 326 | if (!getnoarg(args)) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 327 | return NULL; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 328 | BGN_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 329 | errno = 0; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 330 | res = fflush(f->f_fp); |
| 331 | END_SAVE |
| 332 | if (res != 0) { |
Guido van Rossum | febd551 | 1992-03-04 16:39:24 +0000 | [diff] [blame] | 333 | err_errno(IOError); |
| 334 | clearerr(f->f_fp); |
| 335 | return NULL; |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 336 | } |
| 337 | INCREF(None); |
| 338 | return None; |
| 339 | } |
| 340 | |
| 341 | static object * |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 342 | file_isatty(f, args) |
| 343 | fileobject *f; |
| 344 | object *args; |
| 345 | { |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 346 | long res; |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 347 | if (f->f_fp == NULL) |
| 348 | return err_closed(); |
| 349 | if (!getnoarg(args)) |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 350 | return NULL; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 351 | BGN_SAVE |
| 352 | res = isatty((int)fileno(f->f_fp)); |
| 353 | END_SAVE |
| 354 | return newintobject(res); |
Guido van Rossum | a1ab7fa | 1991-06-04 19:37:39 +0000 | [diff] [blame] | 355 | } |
| 356 | |
| 357 | static object * |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 358 | file_read(f, args) |
| 359 | fileobject *f; |
| 360 | object *args; |
| 361 | { |
| 362 | int n, n1, n2, n3; |
| 363 | object *v; |
| 364 | |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 365 | if (f->f_fp == NULL) |
| 366 | return err_closed(); |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 367 | if (args == NULL) |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 368 | n = 0; |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 369 | else { |
| 370 | if (!getargs(args, "i", &n)) |
| 371 | return NULL; |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 372 | if (n < 0) { |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 373 | err_setstr(ValueError, "negative read count"); |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 374 | return NULL; |
| 375 | } |
| 376 | } |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 377 | n2 = n != 0 ? n : BUFSIZ; |
| 378 | v = newsizedstringobject((char *)NULL, n2); |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 379 | if (v == NULL) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 380 | return NULL; |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 381 | n1 = 0; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 382 | BGN_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 383 | for (;;) { |
| 384 | n3 = fread(BUF(v)+n1, 1, n2-n1, f->f_fp); |
| 385 | /* XXX Error check? */ |
| 386 | if (n3 == 0) |
| 387 | break; |
| 388 | n1 += n3; |
| 389 | if (n1 == n) |
| 390 | break; |
| 391 | if (n == 0) { |
| 392 | n2 = n1 + BUFSIZ; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 393 | RET_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 394 | if (resizestring(&v, n2) < 0) |
| 395 | return NULL; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 396 | RES_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 397 | } |
| 398 | } |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 399 | END_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 400 | if (n1 != n2) |
| 401 | resizestring(&v, n1); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 402 | return v; |
| 403 | } |
| 404 | |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 405 | /* Internal routine to get a line. |
| 406 | Size argument interpretation: |
| 407 | > 0: max length; |
| 408 | = 0: read arbitrary line; |
| 409 | < 0: strip trailing '\n', raise EOFError if EOF reached immediately |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 410 | */ |
| 411 | |
Guido van Rossum | 234f942 | 1993-06-17 12:35:49 +0000 | [diff] [blame] | 412 | static object * |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 413 | getline(f, n) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 414 | fileobject *f; |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 415 | int n; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 416 | { |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 417 | register FILE *fp; |
| 418 | register int c; |
| 419 | register char *buf, *end; |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 420 | int n1, n2; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 421 | object *v; |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 422 | |
Guido van Rossum | c10aa77 | 1992-07-31 12:42:38 +0000 | [diff] [blame] | 423 | fp = f->f_fp; |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 424 | n2 = n > 0 ? n : 100; |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 425 | v = newsizedstringobject((char *)NULL, n2); |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 426 | if (v == NULL) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 427 | return NULL; |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 428 | buf = BUF(v); |
| 429 | end = buf + n2; |
Guido van Rossum | 1984f1e | 1992-08-04 12:41:02 +0000 | [diff] [blame] | 430 | |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 431 | BGN_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 432 | for (;;) { |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 433 | if ((c = getc(fp)) == EOF) { |
Guido van Rossum | 76ad8ed | 1991-06-03 10:54:55 +0000 | [diff] [blame] | 434 | clearerr(fp); |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 435 | if (sigcheck()) { |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 436 | RET_SAVE |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 437 | DECREF(v); |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 438 | return NULL; |
| 439 | } |
| 440 | if (n < 0 && buf == BUF(v)) { |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 441 | RET_SAVE |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 442 | DECREF(v); |
Guido van Rossum | 201be05 | 1991-12-24 13:26:41 +0000 | [diff] [blame] | 443 | err_setstr(EOFError, |
| 444 | "EOF when reading a line"); |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 445 | return NULL; |
| 446 | } |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 447 | break; |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 448 | } |
| 449 | if ((*buf++ = c) == '\n') { |
| 450 | if (n < 0) |
| 451 | buf--; |
| 452 | break; |
| 453 | } |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 454 | if (buf == end) { |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 455 | if (n > 0) |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 456 | break; |
| 457 | n1 = n2; |
| 458 | n2 += 1000; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 459 | RET_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 460 | if (resizestring(&v, n2) < 0) |
| 461 | return NULL; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 462 | RES_SAVE |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 463 | buf = BUF(v) + n1; |
| 464 | end = BUF(v) + n2; |
| 465 | } |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 466 | } |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 467 | END_SAVE |
Guido van Rossum | 1984f1e | 1992-08-04 12:41:02 +0000 | [diff] [blame] | 468 | |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 469 | n1 = buf - BUF(v); |
| 470 | if (n1 != n2) |
| 471 | resizestring(&v, n1); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 472 | return v; |
| 473 | } |
| 474 | |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 475 | /* External C interface */ |
| 476 | |
| 477 | object * |
| 478 | filegetline(f, n) |
| 479 | object *f; |
| 480 | int n; |
| 481 | { |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 482 | if (f == NULL) { |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 483 | err_badcall(); |
| 484 | return NULL; |
| 485 | } |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 486 | if (!is_fileobject(f)) { |
| 487 | object *reader; |
| 488 | object *args; |
| 489 | object *result; |
| 490 | reader = getattr(f, "readline"); |
| 491 | if (reader == NULL) |
| 492 | return NULL; |
| 493 | if (n <= 0) |
| 494 | args = mkvalue("()"); |
| 495 | else |
| 496 | args = mkvalue("(i)", n); |
| 497 | if (args == NULL) { |
| 498 | DECREF(reader); |
| 499 | return NULL; |
| 500 | } |
| 501 | result = call_object(reader, args); |
| 502 | DECREF(reader); |
| 503 | DECREF(args); |
| 504 | if (result != NULL && !is_stringobject(result)) { |
| 505 | DECREF(result); |
| 506 | result = NULL; |
| 507 | err_setstr(TypeError, |
| 508 | "object.readline() returned non-string"); |
| 509 | } |
| 510 | if (n < 0 && result != NULL) { |
| 511 | char *s = getstringvalue(result); |
| 512 | int len = getstringsize(result); |
| 513 | if (len == 0) { |
| 514 | DECREF(result); |
| 515 | result = NULL; |
| 516 | err_setstr(EOFError, |
| 517 | "EOF when reading a line"); |
| 518 | } |
| 519 | else if (s[len-1] == '\n') { |
| 520 | if (result->ob_refcnt == 1) |
| 521 | resizestring(&result, len-1); |
| 522 | else { |
| 523 | object *v; |
Guido van Rossum | de788b8 | 1992-12-22 14:24:04 +0000 | [diff] [blame] | 524 | v = newsizedstringobject(s, len-1); |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 525 | DECREF(result); |
| 526 | result = v; |
| 527 | } |
| 528 | } |
| 529 | } |
| 530 | return result; |
| 531 | } |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 532 | if (((fileobject*)f)->f_fp == NULL) |
| 533 | return err_closed(); |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 534 | return getline((fileobject *)f, n); |
| 535 | } |
| 536 | |
| 537 | /* Python method */ |
| 538 | |
| 539 | static object * |
| 540 | file_readline(f, args) |
| 541 | fileobject *f; |
| 542 | object *args; |
| 543 | { |
| 544 | int n; |
| 545 | |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 546 | if (f->f_fp == NULL) |
| 547 | return err_closed(); |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 548 | if (args == NULL) |
| 549 | n = 0; /* Unlimited */ |
| 550 | else { |
| 551 | if (!getintarg(args, &n)) |
| 552 | return NULL; |
| 553 | if (n < 0) { |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 554 | err_setstr(ValueError, "negative readline count"); |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 555 | return NULL; |
| 556 | } |
| 557 | } |
| 558 | |
Guido van Rossum | 51415a7 | 1992-03-27 17:23:38 +0000 | [diff] [blame] | 559 | return getline(f, n); |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 560 | } |
| 561 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 562 | static object * |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 563 | file_readlines(f, args) |
| 564 | fileobject *f; |
| 565 | object *args; |
| 566 | { |
| 567 | object *list; |
| 568 | object *line; |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 569 | |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 570 | if (f->f_fp == NULL) |
| 571 | return err_closed(); |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 572 | if (!getnoarg(args)) |
| 573 | return NULL; |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 574 | if ((list = newlistobject(0)) == NULL) |
| 575 | return NULL; |
| 576 | for (;;) { |
Guido van Rossum | 0bd2441 | 1991-04-04 15:21:57 +0000 | [diff] [blame] | 577 | line = getline(f, 0); |
Guido van Rossum | ce5ba84 | 1991-03-06 13:06:18 +0000 | [diff] [blame] | 578 | if (line != NULL && getstringsize(line) == 0) { |
| 579 | DECREF(line); |
| 580 | break; |
| 581 | } |
| 582 | if (line == NULL || addlistitem(list, line) != 0) { |
| 583 | DECREF(list); |
| 584 | XDECREF(line); |
| 585 | return NULL; |
| 586 | } |
| 587 | DECREF(line); |
| 588 | } |
| 589 | return list; |
| 590 | } |
| 591 | |
| 592 | static object * |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 593 | file_write(f, args) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 594 | fileobject *f; |
| 595 | object *args; |
| 596 | { |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 597 | char *s; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 598 | int n, n2; |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 599 | if (f->f_fp == NULL) |
| 600 | return err_closed(); |
| 601 | if (!getargs(args, "s#", &s, &n)) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 602 | return NULL; |
Guido van Rossum | eb183da | 1991-04-04 10:44:06 +0000 | [diff] [blame] | 603 | f->f_softspace = 0; |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 604 | BGN_SAVE |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 605 | errno = 0; |
Guido van Rossum | d7297e6 | 1992-07-06 14:19:26 +0000 | [diff] [blame] | 606 | n2 = fwrite(s, 1, n, f->f_fp); |
Guido van Rossum | ff4949e | 1992-08-05 19:58:53 +0000 | [diff] [blame] | 607 | END_SAVE |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 608 | if (n2 != n) { |
Guido van Rossum | 87e7ea7 | 1991-12-10 14:00:03 +0000 | [diff] [blame] | 609 | err_errno(IOError); |
Guido van Rossum | febd551 | 1992-03-04 16:39:24 +0000 | [diff] [blame] | 610 | clearerr(f->f_fp); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 611 | return NULL; |
| 612 | } |
| 613 | INCREF(None); |
| 614 | return None; |
| 615 | } |
| 616 | |
Guido van Rossum | 5a2a683 | 1993-10-25 09:59:04 +0000 | [diff] [blame] | 617 | static object * |
| 618 | file_writelines(f, args) |
| 619 | fileobject *f; |
| 620 | object *args; |
| 621 | { |
| 622 | int i, n; |
| 623 | if (f->f_fp == NULL) |
| 624 | return err_closed(); |
| 625 | if (args == NULL || !is_listobject(args)) { |
| 626 | err_setstr(TypeError, |
| 627 | "writelines() requires list of strings"); |
| 628 | return NULL; |
| 629 | } |
| 630 | n = getlistsize(args); |
| 631 | f->f_softspace = 0; |
| 632 | BGN_SAVE |
| 633 | errno = 0; |
| 634 | for (i = 0; i < n; i++) { |
| 635 | object *line = getlistitem(args, i); |
| 636 | int len; |
| 637 | int nwritten; |
| 638 | if (!is_stringobject(line)) { |
| 639 | RET_SAVE |
| 640 | err_setstr(TypeError, |
| 641 | "writelines() requires list of strings"); |
| 642 | return NULL; |
| 643 | } |
| 644 | len = getstringsize(line); |
| 645 | nwritten = fwrite(getstringvalue(line), 1, len, f->f_fp); |
| 646 | if (nwritten != len) { |
| 647 | RET_SAVE |
| 648 | err_errno(IOError); |
| 649 | clearerr(f->f_fp); |
| 650 | return NULL; |
| 651 | } |
| 652 | } |
| 653 | END_SAVE |
| 654 | INCREF(None); |
| 655 | return None; |
| 656 | } |
| 657 | |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 658 | static struct methodlist file_methods[] = { |
Guido van Rossum | 295d171 | 1995-02-19 15:55:19 +0000 | [diff] [blame^] | 659 | {"close", (method)file_close, 0}, |
| 660 | {"flush", (method)file_flush, 0}, |
| 661 | {"fileno", (method)file_fileno, 0}, |
| 662 | {"isatty", (method)file_isatty, 0}, |
| 663 | {"read", (method)file_read, 0}, |
| 664 | {"readline", (method)file_readline, 0}, |
| 665 | {"readlines", (method)file_readlines, 0}, |
| 666 | {"seek", (method)file_seek, 0}, |
Guido van Rossum | d7047b3 | 1995-01-02 19:07:15 +0000 | [diff] [blame] | 667 | #ifdef HAVE_FTRUNCATE |
Guido van Rossum | 295d171 | 1995-02-19 15:55:19 +0000 | [diff] [blame^] | 668 | {"truncate", (method)file_truncate, 0}, |
Guido van Rossum | d7047b3 | 1995-01-02 19:07:15 +0000 | [diff] [blame] | 669 | #endif |
Guido van Rossum | 295d171 | 1995-02-19 15:55:19 +0000 | [diff] [blame^] | 670 | {"tell", (method)file_tell, 0}, |
| 671 | {"write", (method)file_write, 0}, |
| 672 | {"writelines", (method)file_writelines, 0}, |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 673 | {NULL, NULL} /* sentinel */ |
| 674 | }; |
| 675 | |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 676 | #define OFF(x) offsetof(fileobject, x) |
| 677 | |
| 678 | static struct memberlist file_memberlist[] = { |
| 679 | {"softspace", T_INT, OFF(f_softspace)}, |
| 680 | {"mode", T_OBJECT, OFF(f_mode), RO}, |
| 681 | {"name", T_OBJECT, OFF(f_name), RO}, |
| 682 | /* getattr(f, "closed") is implemented without this table */ |
| 683 | {"closed", T_INT, 0, RO}, |
| 684 | {NULL} /* Sentinel */ |
| 685 | }; |
| 686 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 687 | static object * |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 688 | file_getattr(f, name) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 689 | fileobject *f; |
| 690 | char *name; |
| 691 | { |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 692 | object *res; |
| 693 | |
| 694 | res = findmethod(file_methods, (object *)f, name); |
| 695 | if (res != NULL) |
| 696 | return res; |
| 697 | err_clear(); |
| 698 | if (strcmp(name, "closed") == 0) |
| 699 | return newintobject((long)(f->f_fp == 0)); |
| 700 | return getmember((char *)f, file_memberlist, name); |
| 701 | } |
| 702 | |
| 703 | static int |
| 704 | file_setattr(f, name, v) |
| 705 | fileobject *f; |
| 706 | char *name; |
| 707 | object *v; |
| 708 | { |
| 709 | if (v == NULL) { |
| 710 | err_setstr(AttributeError, "can't delete file attributes"); |
| 711 | return -1; |
| 712 | } |
| 713 | return setmember((char *)f, file_memberlist, name, v); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 714 | } |
| 715 | |
| 716 | typeobject Filetype = { |
| 717 | OB_HEAD_INIT(&Typetype) |
| 718 | 0, |
| 719 | "file", |
| 720 | sizeof(fileobject), |
| 721 | 0, |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 722 | (destructor)file_dealloc, /*tp_dealloc*/ |
Guido van Rossum | 7066dd7 | 1992-09-17 17:54:56 +0000 | [diff] [blame] | 723 | 0, /*tp_print*/ |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 724 | (getattrfunc)file_getattr, /*tp_getattr*/ |
| 725 | (setattrfunc)file_setattr, /*tp_setattr*/ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 726 | 0, /*tp_compare*/ |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 727 | (reprfunc)file_repr, /*tp_repr*/ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 728 | }; |
Guido van Rossum | eb183da | 1991-04-04 10:44:06 +0000 | [diff] [blame] | 729 | |
| 730 | /* Interface for the 'soft space' between print items. */ |
| 731 | |
| 732 | int |
| 733 | softspace(f, newflag) |
| 734 | object *f; |
| 735 | int newflag; |
| 736 | { |
| 737 | int oldflag = 0; |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 738 | if (f == NULL) { |
| 739 | /* Do nothing */ |
| 740 | } |
Guido van Rossum | 82d410e | 1993-11-01 16:26:16 +0000 | [diff] [blame] | 741 | else if (is_fileobject(f)) { |
Guido van Rossum | eb183da | 1991-04-04 10:44:06 +0000 | [diff] [blame] | 742 | oldflag = ((fileobject *)f)->f_softspace; |
| 743 | ((fileobject *)f)->f_softspace = newflag; |
| 744 | } |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 745 | else { |
| 746 | object *v; |
| 747 | v = getattr(f, "softspace"); |
| 748 | if (v == NULL) |
| 749 | err_clear(); |
| 750 | else { |
| 751 | if (is_intobject(v)) |
| 752 | oldflag = getintvalue(v); |
| 753 | DECREF(v); |
| 754 | } |
| 755 | v = newintobject((long)newflag); |
| 756 | if (v == NULL) |
| 757 | err_clear(); |
| 758 | else { |
| 759 | if (setattr(f, "softspace", v) != 0) |
| 760 | err_clear(); |
| 761 | DECREF(v); |
| 762 | } |
| 763 | } |
Guido van Rossum | eb183da | 1991-04-04 10:44:06 +0000 | [diff] [blame] | 764 | return oldflag; |
| 765 | } |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 766 | |
| 767 | /* Interfaces to write objects/strings to file-like objects */ |
| 768 | |
| 769 | int |
| 770 | writeobject(v, f, flags) |
| 771 | object *v; |
| 772 | object *f; |
| 773 | int flags; |
| 774 | { |
| 775 | object *writer, *value, *result; |
| 776 | if (f == NULL) { |
| 777 | err_setstr(TypeError, "writeobject with NULL file"); |
| 778 | return -1; |
| 779 | } |
| 780 | else if (is_fileobject(f)) { |
| 781 | FILE *fp = getfilefile(f); |
| 782 | if (fp == NULL) { |
| 783 | err_closed(); |
| 784 | return -1; |
| 785 | } |
| 786 | return printobject(v, fp, flags); |
| 787 | } |
| 788 | writer = getattr(f, "write"); |
| 789 | if (writer == NULL) |
| 790 | return -1; |
Guido van Rossum | c600411 | 1993-11-05 10:22:19 +0000 | [diff] [blame] | 791 | if (flags & PRINT_RAW) |
| 792 | value = strobject(v); |
| 793 | else |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 794 | value = reprobject(v); |
Guido van Rossum | c600411 | 1993-11-05 10:22:19 +0000 | [diff] [blame] | 795 | if (value == NULL) { |
| 796 | DECREF(writer); |
| 797 | return -1; |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 798 | } |
| 799 | result = call_object(writer, value); |
| 800 | DECREF(writer); |
| 801 | DECREF(value); |
| 802 | if (result == NULL) |
| 803 | return -1; |
| 804 | DECREF(result); |
| 805 | return 0; |
| 806 | } |
| 807 | |
| 808 | void |
| 809 | writestring(s, f) |
| 810 | char *s; |
| 811 | object *f; |
| 812 | { |
| 813 | if (f == NULL) { |
| 814 | /* Do nothing */ |
| 815 | } |
| 816 | else if (is_fileobject(f)) { |
| 817 | FILE *fp = getfilefile(f); |
| 818 | if (fp != NULL) |
| 819 | fputs(s, fp); |
| 820 | } |
Guido van Rossum | b6775db | 1994-08-01 11:34:53 +0000 | [diff] [blame] | 821 | else if (!err_occurred()) { |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 822 | object *v = newstringobject(s); |
| 823 | if (v == NULL) { |
| 824 | err_clear(); |
| 825 | } |
| 826 | else { |
Guido van Rossum | 0b0db8e | 1993-01-21 16:07:51 +0000 | [diff] [blame] | 827 | if (writeobject(v, f, PRINT_RAW) != 0) |
Guido van Rossum | 3165fe6 | 1992-09-25 21:59:05 +0000 | [diff] [blame] | 828 | err_clear(); |
| 829 | DECREF(v); |
| 830 | } |
| 831 | } |
| 832 | } |