std/bool.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include "../src/err.h"
   4 #include "../api/vm.h"
   5 #include "../api/bool.h"
   6
   7 static inline bool get_bool_arg(UwUVMArgs *args, size_t i)
   8 {
   9         return uwubool_get(uwuvm_get_arg(args, i));
  10 }
  11
  12 #include "../api/str.h"
  13 UwUVMValue uwu_if(UwUVMArgs *args)
  14 {
  15         if (args->num != 3)
  16                 error("error: :bool:if requires exactly 3 arguments\n");
  17
  18         return uwuvm_copy_value(get_bool_arg(args, 0)
  19                 ? uwuvm_get_arg(args, 1)
  20                 : uwuvm_get_arg(args, 2)
  21         );
  22 }
  23
  24 UwUVMValue uwu_and(UwUVMArgs *args)
  25 {
  26         if (args->num < 1)
  27                 error("error: :bool:and requires at least one argument\n");
  28
  29         for (size_t i = 0; i < args->num; i++)
  30                 if (! get_bool_arg(args, i))
  31                         return uwubool_create(false);
  32
  33         return uwubool_create(true);
  34 }
  35
  36 UwUVMValue uwu_or(UwUVMArgs *args)
  37 {
  38         if (args->num < 1)
  39                 error("error: :bool:or requires at least one argument\n");
  40
  41         for (size_t i = 0; i < args->num; i++)
  42                 if (get_bool_arg(args, i))
  43                         return uwubool_create(true);
  44
  45         return uwubool_create(false);
  46 }
  47
  48 UwUVMValue uwu_equal(UwUVMArgs *args)
  49 {
  50         if (args->num < 2)
  51                 error("error: :bool:equal requires at least 2 arguments\n");
  52
  53         bool value = get_bool_arg(args, 0);
  54
  55         for (size_t i = 1; i < args->num; i++)
  56                 if (get_bool_arg(args, i) != value)
  57                         return uwubool_create(false);
  58
  59         return uwubool_create(true);
  60 }
  61
  62 UwUVMValue uwu_not(UwUVMArgs *args)
  63 {
  64         if (args->num != 1)
  65                 error("error: :bool:not requires exactly 1 argument\n");
  66
  67         return uwubool_create(! get_bool_arg(args, 0));
  68 }
  69
  70 UwUVMValue uwu_true(UwUVMArgs *args)
  71 {
  72         if (args->num != 0)
  73                 error("error: :bool:true does not take any arguments\n");
  74
  75         return uwubool_create(true);
  76 }
  77
  78 UwUVMValue uwu_false(UwUVMArgs *args)
  79 {
  80         if (args->num != 0)
  81                 error("error: :bool:false does not take any arguments\n");
  82
  83         return uwubool_create(false);
  84 }
  85
  86 UwUVMValue uwu_is(UwUVMArgs *args)
  87 {
  88         if (args->num < 1)
  89                 error("error: :bool:is requires at least 1 argument\n");
  90
  91         for (size_t i = 0; i < args->num; i++) {
  92                 UwUVMValue value = uwuvm_get_arg(args, i);
  93                 return uwubool_create(value.type != VT_NAT || value.value.nat_value.type != &uwubool_type);
  94         }
  95
  96         return uwubool_create(true);
  97 }