diff options
Diffstat (limited to 'Objects/fileobject.c')
| -rw-r--r-- | Objects/fileobject.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/Objects/fileobject.c b/Objects/fileobject.c index 99cdba2..b981bb8 100644 --- a/Objects/fileobject.c +++ b/Objects/fileobject.c @@ -52,6 +52,16 @@ getfilefile(f) } object * +getfilename(f) + object *f; +{ + if (f == NULL || !is_fileobject(f)) + return NULL; + else + return ((fileobject *)f)->f_name; +} + +object * newopenfileobject(fp, name, mode, close) FILE *fp; char *name; |