Lichen

templates/native/identity.c

570:4e9856fce8e3
2017-02-11 Paul Boddie Tidied up table output and made use of convenience macros. attr-strvalue-without-size
     1 /* Native functions for identity operations.     2      3 Copyright (C) 2016 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 "types.h"    20 #include "exceptions.h"    21 #include "ops.h"    22 #include "progconsts.h"    23 #include "progops.h"    24 #include "progtypes.h"    25 #include "main.h"    26     27 /* Identity testing. */    28     29 __attr __fn_native_identity_is_(__attr __args[])    30 {    31     __attr * const x = &__args[1];    32     __attr * const y = &__args[2];    33     34     return x->value == y->value ? __builtins___boolean_True : __builtins___boolean_False;    35 }    36     37 __attr __fn_native_identity_is_not(__attr __args[])    38 {    39     __attr * const x = &__args[1];    40     __attr * const y = &__args[2];    41     42     return x->value != y->value ? __builtins___boolean_True : __builtins___boolean_False;    43 }    44     45 /* Module initialisation. */    46     47 void __main_native_identity()    48 {    49 }