hyung-hwan/hak
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

renamed hcl to hak

Browse Source
This commit is contained in:
hyung-hwan
2025-09-02 23:58:15 +09:00
parent be77ac8ad2
commit 20d2db0e27
129 changed files with 43690 additions and 43689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
t/t-001.c
View File

@ -1,35 +1,35 @@
#include <hcl.h>
#include <hak.h>
#include "tap.h"
int main(int argc, char* argv[])
{
hcl_t* hcl;
hcl_oop_t v;
hcl_liw_t liw;
hcl_ooi_t i, j;
hak_t* hak;
hak_oop_t v;
hak_liw_t liw;
hak_ooi_t i, j;
int n;
no_plan();
hcl = hcl_openstd(0, HCL_NULL);
OK (hcl != HCL_NULL, "instantiation failure");
hak = hak_openstd(0, HAK_NULL);
OK (hak != HAK_NULL, "instantiation failure");
n = hcl_ignite(hcl, 0);
n = hak_ignite(hak, 0);
OK (n == 0, "ignition failure");
n = hcl_addbuiltinprims(hcl);
n = hak_addbuiltinprims(hak);
OK (n == 0, "registration failure of builtin primitives");
for (j = HCL_TYPE_MIN(hcl_ooi_t); j <= HCL_TYPE_MIN(hcl_ooi_t) + 5 ; j++)
for (j = HAK_TYPE_MIN(hak_ooi_t); j <= HAK_TYPE_MIN(hak_ooi_t) + 5 ; j++)
{
v = hcl_ooitoint(hcl, j);
OK (v != HCL_NULL, "bigint instantiation");
n = hcl_inttoooi(hcl, v, &i);
v = hak_ooitoint(hak, j);
OK (v != HAK_NULL, "bigint instantiation");
n = hak_inttoooi(hak, v, &i);
OK (n < 0, "bigint to ooi conversion not negative");
OK (i == j, "big to ooi conversion result");
}
hcl_close(hcl);
hak_close(hak);
return exit_status();
}