1.1 --- a/templates/native.c Thu Dec 08 19:29:12 2016 +0100
1.2 +++ b/templates/native.c Thu Dec 08 21:45:09 2016 +0100
1.3 @@ -680,13 +680,42 @@
1.4
1.5 /* Input/output. */
1.6
1.7 +__attr __fn_native__fopen(__attr __args[])
1.8 +{
1.9 + __attr * const filename = &__args[1];
1.10 + __attr * const mode = &__args[2];
1.11 + /* filename.__data__ interpreted as string */
1.12 + char *fn = __load_via_object(filename->value, __pos___data__).strvalue;
1.13 + /* mode.__data__ interpreted as string */
1.14 + char *s = __load_via_object(mode->value, __pos___data__).strvalue;
1.15 + FILE *f;
1.16 + __attr attr;
1.17 +
1.18 + errno = 0;
1.19 + f = fopen(fn, s);
1.20 +
1.21 + /* Produce an exception if the operation failed. */
1.22 +
1.23 + if (f == NULL)
1.24 + __raise_io_error(__new_int(errno));
1.25 +
1.26 + /* Return the __data__ attribute. */
1.27 +
1.28 + else
1.29 + {
1.30 + attr.context = 0;
1.31 + attr.datavalue = (void *) f;
1.32 + return attr;
1.33 + }
1.34 +}
1.35 +
1.36 __attr __fn_native__fdopen(__attr __args[])
1.37 {
1.38 __attr * const fd = &__args[1];
1.39 __attr * const mode = &__args[2];
1.40 /* fd.__data__ interpreted as int */
1.41 int i = __load_via_object(fd->value, __pos___data__).intvalue;
1.42 - /* str.__data__ interpreted as string */
1.43 + /* mode.__data__ interpreted as string */
1.44 char *s = __load_via_object(mode->value, __pos___data__).strvalue;
1.45 FILE *f;
1.46 __attr attr;