Lichen

templates/native/system.c

794:7dd8e4815848
2017-03-31 Paul Boddie Introduced a multiple outcome result which can be used to provide a choice of return values to supply the initialiser and alias details.
     1 /* Native functions for system operations.     2      3 Copyright (C) 2016, 2017 Paul Boddie <paul@boddie.org.uk>     4      5 This program is free software; you can redistribute it and/or modify it under     6 the terms of the GNU General Public License as published by the Free Software     7 Foundation; either version 3 of the License, or (at your option) any later     8 version.     9     10 This program is distributed in the hope that it will be useful, but WITHOUT    11 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS    12 FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more    13 details.    14     15 You should have received a copy of the GNU General Public License along with    16 this program.  If not, see <http://www.gnu.org/licenses/>.    17 */    18     19 #include <stdlib.h> /* abs, exit */    20 #include "types.h"    21 #include "exceptions.h"    22 #include "ops.h"    23 #include "progconsts.h"    24 #include "progops.h"    25 #include "progtypes.h"    26 #include "main.h"    27     28 /* Environment support. */    29     30 __attr __fn_native_system_exit(__attr __self, __attr status)    31 {    32     exit(__TOINT(status));    33     return __builtins___none_None;    34 }    35     36 __attr __fn_native_system_get_argv(__attr __self)    37 {    38     /* NOTE: To be written. */    39     return __builtins___none_None;    40 }    41     42 __attr __fn_native_system_get_path(__attr __self)    43 {    44     /* NOTE: To be written. */    45     return __builtins___none_None;    46 }    47     48 /* Module initialisation. */    49     50 void __main_native_system()    51 {    52 }