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