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

44
mod/Makefile.am
View File

@ -20,9 +20,9 @@ LIBADD_COMMON =
noinst_LTLIBRARIES =
noinst_LTLIBRARIES += libhcl-core.la
noinst_LTLIBRARIES += libhcl-dic.la
noinst_LTLIBRARIES += libhcl-sys.la
noinst_LTLIBRARIES += libhak-core.la
noinst_LTLIBRARIES += libhak-dic.la
noinst_LTLIBRARIES += libhak-sys.la
else
@ -30,31 +30,31 @@ else
# DYNAMIC MODULES
##################################################
LDFLAGS_COMMON = -L$(abs_builddir)/../lib -L$(libdir) -version-info 1:0:0 -no-undefined
LIBADD_COMMON = -lhcl
LIBADD_COMMON = -lhak
pkgmodexecdir = $(libdir)
pkgmodexec_LTLIBRARIES =
pkgmodexec_LTLIBRARIES += libhcl-core.la
pkgmodexec_LTLIBRARIES += libhcl-dic.la
pkgmodexec_LTLIBRARIES += libhcl-sys.la
pkgmodexec_LTLIBRARIES += libhak-core.la
pkgmodexec_LTLIBRARIES += libhak-dic.la
pkgmodexec_LTLIBRARIES += libhak-sys.la
endif
libhcl_core_la_SOURCES = core.c _core.h
libhcl_core_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhcl_core_la_CFLAGS = $(CFLAGS_COMMON)
libhcl_core_la_LDFLAGS = $(LDFLAGS_COMMON)
libhcl_core_la_LIBADD = $(LIBADD_COMMON)
libhak_core_la_SOURCES = core.c _core.h
libhak_core_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhak_core_la_CFLAGS = $(CFLAGS_COMMON)
libhak_core_la_LDFLAGS = $(LDFLAGS_COMMON)
libhak_core_la_LIBADD = $(LIBADD_COMMON)
libhcl_dic_la_SOURCES = dic.c _dic.h
libhcl_dic_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhcl_dic_la_CFLAGS = $(CFLAGS_COMMON)
libhcl_dic_la_LDFLAGS = $(LDFLAGS_COMMON)
libhcl_dic_la_LIBADD = $(LIBADD_COMMON)
libhak_dic_la_SOURCES = dic.c _dic.h
libhak_dic_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhak_dic_la_CFLAGS = $(CFLAGS_COMMON)
libhak_dic_la_LDFLAGS = $(LDFLAGS_COMMON)
libhak_dic_la_LIBADD = $(LIBADD_COMMON)
libhcl_sys_la_SOURCES = sys.c _sys.h
libhcl_sys_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhcl_sys_la_CFLAGS = $(CFLAGS_COMMON)
libhcl_sys_la_LDFLAGS = $(LDFLAGS_COMMON)
libhcl_sys_la_LIBADD = $(LIBADD_COMMON)
libhak_sys_la_SOURCES = sys.c _sys.h
libhak_sys_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhak_sys_la_CFLAGS = $(CFLAGS_COMMON)
libhak_sys_la_LDFLAGS = $(LDFLAGS_COMMON)
libhak_sys_la_LIBADD = $(LIBADD_COMMON)

168
mod/Makefile.in
View File

@ -101,7 +101,7 @@ am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
mkinstalldirs = $(install_sh) -d
CONFIG_HEADER = $(top_builddir)/lib/hcl-cfg.h
CONFIG_HEADER = $(top_builddir)/lib/hak-cfg.h
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
@ -133,38 +133,38 @@ am__uninstall_files_from_dir = { \
am__installdirs = "$(DESTDIR)$(pkgmodexecdir)"
LTLIBRARIES = $(noinst_LTLIBRARIES) $(pkgmodexec_LTLIBRARIES)
am__DEPENDENCIES_1 =
libhcl_core_la_DEPENDENCIES = $(am__DEPENDENCIES_1)
am_libhcl_core_la_OBJECTS = libhcl_core_la-core.lo
libhcl_core_la_OBJECTS = $(am_libhcl_core_la_OBJECTS)
libhak_core_la_DEPENDENCIES = $(am__DEPENDENCIES_1)
am_libhak_core_la_OBJECTS = libhak_core_la-core.lo
libhak_core_la_OBJECTS = $(am_libhak_core_la_OBJECTS)
AM_V_lt = $(am__v_lt_@AM_V@)
am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
am__v_lt_0 = --silent
am__v_lt_1 =
libhcl_core_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC \
libhak_core_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC \
$(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=link $(CCLD) \
$(libhcl_core_la_CFLAGS) $(CFLAGS) $(libhcl_core_la_LDFLAGS) \
$(libhak_core_la_CFLAGS) $(CFLAGS) $(libhak_core_la_LDFLAGS) \
$(LDFLAGS) -o $@
@ENABLE_STATIC_MODULE_FALSE@am_libhcl_core_la_rpath = -rpath \
@ENABLE_STATIC_MODULE_FALSE@am_libhak_core_la_rpath = -rpath \
@ENABLE_STATIC_MODULE_FALSE@ $(pkgmodexecdir)
@ENABLE_STATIC_MODULE_TRUE@am_libhcl_core_la_rpath =
libhcl_dic_la_DEPENDENCIES = $(am__DEPENDENCIES_1)
am_libhcl_dic_la_OBJECTS = libhcl_dic_la-dic.lo
libhcl_dic_la_OBJECTS = $(am_libhcl_dic_la_OBJECTS)
libhcl_dic_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CCLD) $(libhcl_dic_la_CFLAGS) \
$(CFLAGS) $(libhcl_dic_la_LDFLAGS) $(LDFLAGS) -o $@
@ENABLE_STATIC_MODULE_FALSE@am_libhcl_dic_la_rpath = -rpath \
@ENABLE_STATIC_MODULE_TRUE@am_libhak_core_la_rpath =
libhak_dic_la_DEPENDENCIES = $(am__DEPENDENCIES_1)
am_libhak_dic_la_OBJECTS = libhak_dic_la-dic.lo
libhak_dic_la_OBJECTS = $(am_libhak_dic_la_OBJECTS)
libhak_dic_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CCLD) $(libhak_dic_la_CFLAGS) \
$(CFLAGS) $(libhak_dic_la_LDFLAGS) $(LDFLAGS) -o $@
@ENABLE_STATIC_MODULE_FALSE@am_libhak_dic_la_rpath = -rpath \
@ENABLE_STATIC_MODULE_FALSE@ $(pkgmodexecdir)
@ENABLE_STATIC_MODULE_TRUE@am_libhcl_dic_la_rpath =
libhcl_sys_la_DEPENDENCIES = $(am__DEPENDENCIES_1)
am_libhcl_sys_la_OBJECTS = libhcl_sys_la-sys.lo
libhcl_sys_la_OBJECTS = $(am_libhcl_sys_la_OBJECTS)
libhcl_sys_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CCLD) $(libhcl_sys_la_CFLAGS) \
$(CFLAGS) $(libhcl_sys_la_LDFLAGS) $(LDFLAGS) -o $@
@ENABLE_STATIC_MODULE_FALSE@am_libhcl_sys_la_rpath = -rpath \
@ENABLE_STATIC_MODULE_TRUE@am_libhak_dic_la_rpath =
libhak_sys_la_DEPENDENCIES = $(am__DEPENDENCIES_1)
am_libhak_sys_la_OBJECTS = libhak_sys_la-sys.lo
libhak_sys_la_OBJECTS = $(am_libhak_sys_la_OBJECTS)
libhak_sys_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CCLD) $(libhak_sys_la_CFLAGS) \
$(CFLAGS) $(libhak_sys_la_LDFLAGS) $(LDFLAGS) -o $@
@ENABLE_STATIC_MODULE_FALSE@am_libhak_sys_la_rpath = -rpath \
@ENABLE_STATIC_MODULE_FALSE@ $(pkgmodexecdir)
@ENABLE_STATIC_MODULE_TRUE@am_libhcl_sys_la_rpath =
@ENABLE_STATIC_MODULE_TRUE@am_libhak_sys_la_rpath =
AM_V_P = $(am__v_P_@AM_V@)
am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
am__v_P_0 = false
@ -180,9 +180,9 @@ am__v_at_1 =
DEFAULT_INCLUDES =
depcomp = $(SHELL) $(top_srcdir)/ac/depcomp
am__maybe_remake_depfiles = depfiles
am__depfiles_remade = ./$(DEPDIR)/libhcl_core_la-core.Plo \
./$(DEPDIR)/libhcl_dic_la-dic.Plo \
./$(DEPDIR)/libhcl_sys_la-sys.Plo
am__depfiles_remade = ./$(DEPDIR)/libhak_core_la-core.Plo \
./$(DEPDIR)/libhak_dic_la-dic.Plo \
./$(DEPDIR)/libhak_sys_la-sys.Plo
am__mv = mv -f
COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
$(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
@ -202,10 +202,10 @@ AM_V_CCLD = $(am__v_CCLD_@AM_V@)
am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
am__v_CCLD_0 = @echo " CCLD " $@;
am__v_CCLD_1 =
SOURCES = $(libhcl_core_la_SOURCES) $(libhcl_dic_la_SOURCES) \
$(libhcl_sys_la_SOURCES)
DIST_SOURCES = $(libhcl_core_la_SOURCES) $(libhcl_dic_la_SOURCES) \
$(libhcl_sys_la_SOURCES)
SOURCES = $(libhak_core_la_SOURCES) $(libhak_dic_la_SOURCES) \
$(libhak_sys_la_SOURCES)
DIST_SOURCES = $(libhak_core_la_SOURCES) $(libhak_dic_la_SOURCES) \
$(libhak_sys_la_SOURCES)
am__can_run_installinfo = \
case $$AM_UPDATE_INFO_DIR in \
n|no|NO) false;; \
@ -262,9 +262,9 @@ EXEEXT = @EXEEXT@
FGREP = @FGREP@
FILECMD = @FILECMD@
GREP = @GREP@
HCL_PROJECT_AUTHOR = @HCL_PROJECT_AUTHOR@
HCL_PROJECT_URL = @HCL_PROJECT_URL@
HCL_SYS_LIB_SEARCH_PATH_SPEC = @HCL_SYS_LIB_SEARCH_PATH_SPEC@
HAK_PROJECT_AUTHOR = @HAK_PROJECT_AUTHOR@
HAK_PROJECT_URL = @HAK_PROJECT_URL@
HAK_SYS_LIB_SEARCH_PATH_SPEC = @HAK_SYS_LIB_SEARCH_PATH_SPEC@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
@ -390,28 +390,28 @@ CFLAGS_COMMON =
# STATIC MODULES BUILT INTO MAIN LIBRARY
##################################################
@ENABLE_STATIC_MODULE_TRUE@LDFLAGS_COMMON = -L$(libdir)
@ENABLE_STATIC_MODULE_FALSE@LIBADD_COMMON = -lhcl
@ENABLE_STATIC_MODULE_FALSE@LIBADD_COMMON = -lhak
@ENABLE_STATIC_MODULE_TRUE@LIBADD_COMMON =
@ENABLE_STATIC_MODULE_TRUE@noinst_LTLIBRARIES = libhcl-core.la \
@ENABLE_STATIC_MODULE_TRUE@ libhcl-dic.la libhcl-sys.la
@ENABLE_STATIC_MODULE_TRUE@noinst_LTLIBRARIES = libhak-core.la \
@ENABLE_STATIC_MODULE_TRUE@ libhak-dic.la libhak-sys.la
@ENABLE_STATIC_MODULE_FALSE@pkgmodexecdir = $(libdir)
@ENABLE_STATIC_MODULE_FALSE@pkgmodexec_LTLIBRARIES = libhcl-core.la \
@ENABLE_STATIC_MODULE_FALSE@ libhcl-dic.la libhcl-sys.la
libhcl_core_la_SOURCES = core.c _core.h
libhcl_core_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhcl_core_la_CFLAGS = $(CFLAGS_COMMON)
libhcl_core_la_LDFLAGS = $(LDFLAGS_COMMON)
libhcl_core_la_LIBADD = $(LIBADD_COMMON)
libhcl_dic_la_SOURCES = dic.c _dic.h
libhcl_dic_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhcl_dic_la_CFLAGS = $(CFLAGS_COMMON)
libhcl_dic_la_LDFLAGS = $(LDFLAGS_COMMON)
libhcl_dic_la_LIBADD = $(LIBADD_COMMON)
libhcl_sys_la_SOURCES = sys.c _sys.h
libhcl_sys_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhcl_sys_la_CFLAGS = $(CFLAGS_COMMON)
libhcl_sys_la_LDFLAGS = $(LDFLAGS_COMMON)
libhcl_sys_la_LIBADD = $(LIBADD_COMMON)
@ENABLE_STATIC_MODULE_FALSE@pkgmodexec_LTLIBRARIES = libhak-core.la \
@ENABLE_STATIC_MODULE_FALSE@ libhak-dic.la libhak-sys.la
libhak_core_la_SOURCES = core.c _core.h
libhak_core_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhak_core_la_CFLAGS = $(CFLAGS_COMMON)
libhak_core_la_LDFLAGS = $(LDFLAGS_COMMON)
libhak_core_la_LIBADD = $(LIBADD_COMMON)
libhak_dic_la_SOURCES = dic.c _dic.h
libhak_dic_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhak_dic_la_CFLAGS = $(CFLAGS_COMMON)
libhak_dic_la_LDFLAGS = $(LDFLAGS_COMMON)
libhak_dic_la_LIBADD = $(LIBADD_COMMON)
libhak_sys_la_SOURCES = sys.c _sys.h
libhak_sys_la_CPPFLAGS = $(CPPFLAGS_COMMON)
libhak_sys_la_CFLAGS = $(CFLAGS_COMMON)
libhak_sys_la_LDFLAGS = $(LDFLAGS_COMMON)
libhak_sys_la_LIBADD = $(LIBADD_COMMON)
all: all-am
.SUFFIXES:
@ -488,14 +488,14 @@ clean-pkgmodexecLTLIBRARIES:
echo rm -f $${locs}; \
$(am__rm_f) $${locs}
libhcl-core.la: $(libhcl_core_la_OBJECTS) $(libhcl_core_la_DEPENDENCIES) $(EXTRA_libhcl_core_la_DEPENDENCIES)
$(AM_V_CCLD)$(libhcl_core_la_LINK) $(am_libhcl_core_la_rpath) $(libhcl_core_la_OBJECTS) $(libhcl_core_la_LIBADD) $(LIBS)
libhak-core.la: $(libhak_core_la_OBJECTS) $(libhak_core_la_DEPENDENCIES) $(EXTRA_libhak_core_la_DEPENDENCIES)
$(AM_V_CCLD)$(libhak_core_la_LINK) $(am_libhak_core_la_rpath) $(libhak_core_la_OBJECTS) $(libhak_core_la_LIBADD) $(LIBS)
libhcl-dic.la: $(libhcl_dic_la_OBJECTS) $(libhcl_dic_la_DEPENDENCIES) $(EXTRA_libhcl_dic_la_DEPENDENCIES)
$(AM_V_CCLD)$(libhcl_dic_la_LINK) $(am_libhcl_dic_la_rpath) $(libhcl_dic_la_OBJECTS) $(libhcl_dic_la_LIBADD) $(LIBS)
libhak-dic.la: $(libhak_dic_la_OBJECTS) $(libhak_dic_la_DEPENDENCIES) $(EXTRA_libhak_dic_la_DEPENDENCIES)
$(AM_V_CCLD)$(libhak_dic_la_LINK) $(am_libhak_dic_la_rpath) $(libhak_dic_la_OBJECTS) $(libhak_dic_la_LIBADD) $(LIBS)
libhcl-sys.la: $(libhcl_sys_la_OBJECTS) $(libhcl_sys_la_DEPENDENCIES) $(EXTRA_libhcl_sys_la_DEPENDENCIES)
$(AM_V_CCLD)$(libhcl_sys_la_LINK) $(am_libhcl_sys_la_rpath) $(libhcl_sys_la_OBJECTS) $(libhcl_sys_la_LIBADD) $(LIBS)
libhak-sys.la: $(libhak_sys_la_OBJECTS) $(libhak_sys_la_DEPENDENCIES) $(EXTRA_libhak_sys_la_DEPENDENCIES)
$(AM_V_CCLD)$(libhak_sys_la_LINK) $(am_libhak_sys_la_rpath) $(libhak_sys_la_OBJECTS) $(libhak_sys_la_LIBADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
@ -503,9 +503,9 @@ mostlyclean-compile:
distclean-compile:
-rm -f *.tab.c
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libhcl_core_la-core.Plo@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libhcl_dic_la-dic.Plo@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libhcl_sys_la-sys.Plo@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libhak_core_la-core.Plo@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libhak_dic_la-dic.Plo@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libhak_sys_la-sys.Plo@am__quote@ # am--include-marker
$(am__depfiles_remade):
@$(MKDIR_P) $(@D)
@ -537,26 +537,26 @@ am--depfiles: $(am__depfiles_remade)
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $<
libhcl_core_la-core.lo: core.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhcl_core_la_CPPFLAGS) $(CPPFLAGS) $(libhcl_core_la_CFLAGS) $(CFLAGS) -MT libhcl_core_la-core.lo -MD -MP -MF $(DEPDIR)/libhcl_core_la-core.Tpo -c -o libhcl_core_la-core.lo `test -f 'core.c' || echo '$(srcdir)/'`core.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libhcl_core_la-core.Tpo $(DEPDIR)/libhcl_core_la-core.Plo
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='core.c' object='libhcl_core_la-core.lo' libtool=yes @AMDEPBACKSLASH@
libhak_core_la-core.lo: core.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhak_core_la_CPPFLAGS) $(CPPFLAGS) $(libhak_core_la_CFLAGS) $(CFLAGS) -MT libhak_core_la-core.lo -MD -MP -MF $(DEPDIR)/libhak_core_la-core.Tpo -c -o libhak_core_la-core.lo `test -f 'core.c' || echo '$(srcdir)/'`core.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libhak_core_la-core.Tpo $(DEPDIR)/libhak_core_la-core.Plo
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='core.c' object='libhak_core_la-core.lo' libtool=yes @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhcl_core_la_CPPFLAGS) $(CPPFLAGS) $(libhcl_core_la_CFLAGS) $(CFLAGS) -c -o libhcl_core_la-core.lo `test -f 'core.c' || echo '$(srcdir)/'`core.c
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhak_core_la_CPPFLAGS) $(CPPFLAGS) $(libhak_core_la_CFLAGS) $(CFLAGS) -c -o libhak_core_la-core.lo `test -f 'core.c' || echo '$(srcdir)/'`core.c
libhcl_dic_la-dic.lo: dic.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhcl_dic_la_CPPFLAGS) $(CPPFLAGS) $(libhcl_dic_la_CFLAGS) $(CFLAGS) -MT libhcl_dic_la-dic.lo -MD -MP -MF $(DEPDIR)/libhcl_dic_la-dic.Tpo -c -o libhcl_dic_la-dic.lo `test -f 'dic.c' || echo '$(srcdir)/'`dic.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libhcl_dic_la-dic.Tpo $(DEPDIR)/libhcl_dic_la-dic.Plo
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='dic.c' object='libhcl_dic_la-dic.lo' libtool=yes @AMDEPBACKSLASH@
libhak_dic_la-dic.lo: dic.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhak_dic_la_CPPFLAGS) $(CPPFLAGS) $(libhak_dic_la_CFLAGS) $(CFLAGS) -MT libhak_dic_la-dic.lo -MD -MP -MF $(DEPDIR)/libhak_dic_la-dic.Tpo -c -o libhak_dic_la-dic.lo `test -f 'dic.c' || echo '$(srcdir)/'`dic.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libhak_dic_la-dic.Tpo $(DEPDIR)/libhak_dic_la-dic.Plo
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='dic.c' object='libhak_dic_la-dic.lo' libtool=yes @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhcl_dic_la_CPPFLAGS) $(CPPFLAGS) $(libhcl_dic_la_CFLAGS) $(CFLAGS) -c -o libhcl_dic_la-dic.lo `test -f 'dic.c' || echo '$(srcdir)/'`dic.c
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhak_dic_la_CPPFLAGS) $(CPPFLAGS) $(libhak_dic_la_CFLAGS) $(CFLAGS) -c -o libhak_dic_la-dic.lo `test -f 'dic.c' || echo '$(srcdir)/'`dic.c
libhcl_sys_la-sys.lo: sys.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhcl_sys_la_CPPFLAGS) $(CPPFLAGS) $(libhcl_sys_la_CFLAGS) $(CFLAGS) -MT libhcl_sys_la-sys.lo -MD -MP -MF $(DEPDIR)/libhcl_sys_la-sys.Tpo -c -o libhcl_sys_la-sys.lo `test -f 'sys.c' || echo '$(srcdir)/'`sys.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libhcl_sys_la-sys.Tpo $(DEPDIR)/libhcl_sys_la-sys.Plo
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sys.c' object='libhcl_sys_la-sys.lo' libtool=yes @AMDEPBACKSLASH@
libhak_sys_la-sys.lo: sys.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhak_sys_la_CPPFLAGS) $(CPPFLAGS) $(libhak_sys_la_CFLAGS) $(CFLAGS) -MT libhak_sys_la-sys.lo -MD -MP -MF $(DEPDIR)/libhak_sys_la-sys.Tpo -c -o libhak_sys_la-sys.lo `test -f 'sys.c' || echo '$(srcdir)/'`sys.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/libhak_sys_la-sys.Tpo $(DEPDIR)/libhak_sys_la-sys.Plo
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sys.c' object='libhak_sys_la-sys.lo' libtool=yes @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhcl_sys_la_CPPFLAGS) $(CPPFLAGS) $(libhcl_sys_la_CFLAGS) $(CFLAGS) -c -o libhcl_sys_la-sys.lo `test -f 'sys.c' || echo '$(srcdir)/'`sys.c
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libhak_sys_la_CPPFLAGS) $(CPPFLAGS) $(libhak_sys_la_CFLAGS) $(CFLAGS) -c -o libhak_sys_la-sys.lo `test -f 'sys.c' || echo '$(srcdir)/'`sys.c
mostlyclean-libtool:
-rm -f *.lo
@ -691,9 +691,9 @@ clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
clean-pkgmodexecLTLIBRARIES mostlyclean-am
distclean: distclean-am
-rm -f ./$(DEPDIR)/libhcl_core_la-core.Plo
-rm -f ./$(DEPDIR)/libhcl_dic_la-dic.Plo
-rm -f ./$(DEPDIR)/libhcl_sys_la-sys.Plo
-rm -f ./$(DEPDIR)/libhak_core_la-core.Plo
-rm -f ./$(DEPDIR)/libhak_dic_la-dic.Plo
-rm -f ./$(DEPDIR)/libhak_sys_la-sys.Plo
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-tags
@ -739,9 +739,9 @@ install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -f ./$(DEPDIR)/libhcl_core_la-core.Plo
-rm -f ./$(DEPDIR)/libhcl_dic_la-dic.Plo
-rm -f ./$(DEPDIR)/libhcl_sys_la-sys.Plo
-rm -f ./$(DEPDIR)/libhak_core_la-core.Plo
-rm -f ./$(DEPDIR)/libhak_dic_la-dic.Plo
-rm -f ./$(DEPDIR)/libhak_sys_la-sys.Plo
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic

8
mod/_core.h
View File

@ -24,16 +24,16 @@
THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#ifndef _HCL_MOD_CORE_H_
#define _HCL_MOD_CORE_H_
#ifndef _HAK_MOD_CORE_H_
#define _HAK_MOD_CORE_H_
#include <hcl.h>
#include <hak.h>
#if defined(__cplusplus)
extern "C" {
#endif
HCL_EXPORT int hcl_mod_core (hcl_t* hcl, hcl_mod_t* mod);
HAK_EXPORT int hak_mod_core (hak_t* hak, hak_mod_t* mod);
#if defined(__cplusplus)
}

8
mod/_dic.h
View File

@ -24,16 +24,16 @@
THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#ifndef _HCL_MOD_DIC_H_
#define _HCL_MOD_DIC_H_
#ifndef _HAK_MOD_DIC_H_
#define _HAK_MOD_DIC_H_
#include <hcl.h>
#include <hak.h>
#if defined(__cplusplus)
extern "C" {
#endif
HCL_EXPORT int hcl_mod_dic (hcl_t* hcl, hcl_mod_t* mod);
HAK_EXPORT int hak_mod_dic (hak_t* hak, hak_mod_t* mod);
#if defined(__cplusplus)
}

8
mod/_sys.h
View File

@ -24,16 +24,16 @@
THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#ifndef _HCL_MOD_SYS_H_
#define _HCL_MOD_SYS_H_
#ifndef _HAK_MOD_SYS_H_
#define _HAK_MOD_SYS_H_
#include <hcl.h>
#include <hak.h>
#if defined(__cplusplus)
extern "C" {
#endif
HCL_EXPORT int hcl_mod_sys (hcl_t* hcl, hcl_mod_t* mod);
HAK_EXPORT int hak_mod_sys (hak_t* hak, hak_mod_t* mod);
#if defined(__cplusplus)
}

492
mod/core.c
View File

@ -26,122 +26,122 @@
#include "_core.h"
#include "../lib/hcl-prv.h"
#include "../lib/hak-prv.h"
static hcl_pfrc_t pf_core_basic_new (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_basic_new (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t obj, size, inst;
hcl_ooi_t nsize;
hak_oop_t obj, size, inst;
hak_ooi_t nsize;
obj = HCL_STACK_GETARG(hcl, nargs, 0);
if (!HCL_IS_CLASS(hcl, obj))
obj = HAK_STACK_GETARG(hak, nargs, 0);
if (!HAK_IS_CLASS(hak, obj))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "object not class - %O", obj);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "object not class - %O", obj);
return HAK_PF_FAILURE;
}
size = HCL_STACK_GETARG(hcl, nargs, 1);
if (!HCL_OOP_IS_SMOOI(size))
size = HAK_STACK_GETARG(hak, nargs, 1);
if (!HAK_OOP_IS_SMOOI(size))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "size not numeric - %O", size);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "size not numeric - %O", size);
return HAK_PF_FAILURE;
}
nsize = HCL_OOP_TO_SMOOI(size);
nsize = HAK_OOP_TO_SMOOI(size);
if (nsize < 0)
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "size not valid - %zd", nsize);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "size not valid - %zd", nsize);
return HAK_PF_FAILURE;
}
inst = hcl_instantiate(hcl, (hcl_oop_class_t)obj, HCL_NULL, nsize);
if (HCL_UNLIKELY(!inst)) return HCL_PF_FAILURE;
inst = hak_instantiate(hak, (hak_oop_class_t)obj, HAK_NULL, nsize);
if (HAK_UNLIKELY(!inst)) return HAK_PF_FAILURE;
HCL_STACK_SETRET (hcl, nargs, inst);
return HCL_PF_SUCCESS;
HAK_STACK_SETRET (hak, nargs, inst);
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t __basic_at (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs, int span_fixed)
static hak_pfrc_t __basic_at (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs, int span_fixed)
{
hcl_oop_t obj, val;
hcl_oop_t pos;
hcl_oow_t index;
hcl_oop_class_t _class;
hak_oop_t obj, val;
hak_oop_t pos;
hak_oow_t index;
hak_oop_class_t _class;
obj = HCL_STACK_GETARG(hcl, nargs, 0);
pos = HCL_STACK_GETARG(hcl, nargs, 1);
obj = HAK_STACK_GETARG(hak, nargs, 0);
pos = HAK_STACK_GETARG(hak, nargs, 1);
if (!HCL_OOP_IS_POINTER(obj) || !HCL_OBJ_GET_FLAGS_FLEXI(obj))
if (!HAK_OOP_IS_POINTER(obj) || !HAK_OBJ_GET_FLAGS_FLEXI(obj))
{
unindexable:
/* the receiver is a special numeric object or a non-indexable object */
hcl_seterrbfmt (hcl, HCL_EINVAL, "receiver not indexable - %O", obj);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "receiver not indexable - %O", obj);
return HAK_PF_FAILURE;
}
if (hcl_inttooow_noseterr(hcl, pos, &index) <= 0)
if (hak_inttooow_noseterr(hak, pos, &index) <= 0)
{
/* negative integer or not integer */
hcl_seterrbfmt (hcl, HCL_EINVAL, "position not valid - %O", pos);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "position not valid - %O", pos);
return HAK_PF_FAILURE;
}
_class = (hcl_oop_class_t)HCL_CLASSOF(hcl, obj);
_class = (hak_oop_class_t)HAK_CLASSOF(hak, obj);
if (span_fixed)
{
hcl_oow_t size;
size = HCL_OBJ_GET_SIZE(obj);
hak_oow_t size;
size = HAK_OBJ_GET_SIZE(obj);
if (index >= size)
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "position(%zd) out of range - negative or greater than or equal to %zu", index, (hcl_ooi_t)size);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "position(%zd) out of range - negative or greater than or equal to %zu", index, (hak_ooi_t)size);
return HAK_PF_FAILURE;
}
}
else
{
hcl_oow_t fixed, flexi;
hak_oow_t fixed, flexi;
fixed = HCL_CLASS_SPEC_NAMED_INSTVARS(_class->spec);
flexi = HCL_OBJ_GET_SIZE(obj) - fixed;
fixed = HAK_CLASS_SPEC_NAMED_INSTVARS(_class->spec);
flexi = HAK_OBJ_GET_SIZE(obj) - fixed;
if (index >= flexi)
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "position(%zd) out of range - negative or greater than or equal to %zu", index, (hcl_ooi_t)flexi);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "position(%zd) out of range - negative or greater than or equal to %zu", index, (hak_ooi_t)flexi);
return HAK_PF_FAILURE;
}
index += fixed;
}
switch (HCL_OBJ_GET_FLAGS_TYPE(obj))
switch (HAK_OBJ_GET_FLAGS_TYPE(obj))
{
case HCL_OBJ_TYPE_OOP:
val = HCL_OBJ_GET_OOP_VAL(obj, index);
case HAK_OBJ_TYPE_OOP:
val = HAK_OBJ_GET_OOP_VAL(obj, index);
break;
case HCL_OBJ_TYPE_CHAR:
case HAK_OBJ_TYPE_CHAR:
{
hcl_ooch_t c;
c = HCL_OBJ_GET_CHAR_VAL(obj, index);
val = HCL_CHAR_TO_OOP(c);
hak_ooch_t c;
c = HAK_OBJ_GET_CHAR_VAL(obj, index);
val = HAK_CHAR_TO_OOP(c);
break;
}
case HCL_OBJ_TYPE_BYTE:
case HAK_OBJ_TYPE_BYTE:
{
hcl_ooi_t b;
b = HCL_OBJ_GET_BYTE_VAL(obj, index);
val = HCL_SMOOI_TO_OOP(b);
hak_ooi_t b;
b = HAK_OBJ_GET_BYTE_VAL(obj, index);
val = HAK_SMOOI_TO_OOP(b);
break;
}
case HCL_OBJ_TYPE_HALFWORD:
val = hcl_oowtoint(hcl, HCL_OBJ_GET_HALFWORD_VAL(obj, index));
if (HCL_UNLIKELY(!val)) return HCL_PF_FAILURE;
case HAK_OBJ_TYPE_HALFWORD:
val = hak_oowtoint(hak, HAK_OBJ_GET_HALFWORD_VAL(obj, index));
if (HAK_UNLIKELY(!val)) return HAK_PF_FAILURE;
break;
case HCL_OBJ_TYPE_WORD:
val = hcl_oowtoint(hcl, HCL_OBJ_GET_WORD_VAL(obj, index));
if (HCL_UNLIKELY(!val)) return HCL_PF_FAILURE;
case HAK_OBJ_TYPE_WORD:
val = hak_oowtoint(hak, HAK_OBJ_GET_WORD_VAL(obj, index));
if (HAK_UNLIKELY(!val)) return HAK_PF_FAILURE;
break;
default:
@ -149,122 +149,122 @@ static hcl_pfrc_t __basic_at (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs, int s
}
HCL_STACK_SETRET (hcl, nargs, val);
return HCL_PF_SUCCESS;
HAK_STACK_SETRET (hak, nargs, val);
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_core_basic_at (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_basic_at (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
return __basic_at(hcl, mod, nargs, 0);
return __basic_at(hak, mod, nargs, 0);
}
static hcl_pfrc_t pf_core_prim_at (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_prim_at (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
return __basic_at(hcl, mod, nargs, 1);
return __basic_at(hak, mod, nargs, 1);
}
static hcl_pfrc_t __basic_at_put (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs, int span_fixed)
static hak_pfrc_t __basic_at_put (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs, int span_fixed)
{
hcl_oop_t obj, val;
hcl_oop_t pos;
hcl_oow_t index;
hcl_oop_class_t _class;
hak_oop_t obj, val;
hak_oop_t pos;
hak_oow_t index;
hak_oop_class_t _class;
obj = HCL_STACK_GETARG(hcl, nargs, 0);
pos = HCL_STACK_GETARG(hcl, nargs, 1);
val = HCL_STACK_GETARG(hcl, nargs, 2);
obj = HAK_STACK_GETARG(hak, nargs, 0);
pos = HAK_STACK_GETARG(hak, nargs, 1);
val = HAK_STACK_GETARG(hak, nargs, 2);
if (!HCL_OOP_IS_POINTER(obj) || !HCL_OBJ_GET_FLAGS_FLEXI(obj))
if (!HAK_OOP_IS_POINTER(obj) || !HAK_OBJ_GET_FLAGS_FLEXI(obj))
{
unindexable:
hcl_seterrbfmt (hcl, HCL_EINVAL, "receiver not indexable - %O", obj);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "receiver not indexable - %O", obj);
return HAK_PF_FAILURE;
}
if (HCL_OBJ_GET_FLAGS_RDONLY(obj))
if (HAK_OBJ_GET_FLAGS_RDONLY(obj))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "receiver immutable - %O", obj);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "receiver immutable - %O", obj);
return HAK_PF_FAILURE;
}
if (hcl_inttooow_noseterr(hcl, pos, &index) <= 0)
if (hak_inttooow_noseterr(hak, pos, &index) <= 0)
{
/* negative integer or not integer */
hcl_seterrbfmt (hcl, HCL_EINVAL, "position not valid - %O", pos);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "position not valid - %O", pos);
return HAK_PF_FAILURE;
}
_class = (hcl_oop_class_t)HCL_CLASSOF(hcl, obj);
_class = (hak_oop_class_t)HAK_CLASSOF(hak, obj);
if (span_fixed) /* include the fixed part in positioning */
{
hcl_oow_t size;
hak_oow_t size;
size = HCL_OBJ_GET_SIZE(obj);
size = HAK_OBJ_GET_SIZE(obj);
if (index >= size)
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "position(%zd) out of range - negative or greater than or equal to %zu", index, (hcl_ooi_t)size);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "position(%zd) out of range - negative or greater than or equal to %zu", index, (hak_ooi_t)size);
return HAK_PF_FAILURE;
}
}
else
{
hcl_oow_t fixed, flexi;
hak_oow_t fixed, flexi;
fixed = HCL_CLASS_SPEC_NAMED_INSTVARS(_class->spec);
flexi = HCL_OBJ_GET_SIZE(obj) - fixed;
fixed = HAK_CLASS_SPEC_NAMED_INSTVARS(_class->spec);
flexi = HAK_OBJ_GET_SIZE(obj) - fixed;
if (index >= flexi)
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "position(%zd) out of range - negative or greater than or equal to %zu", index, (hcl_ooi_t)HCL_OBJ_GET_SIZE(obj));
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "position(%zd) out of range - negative or greater than or equal to %zu", index, (hak_ooi_t)HAK_OBJ_GET_SIZE(obj));
return HAK_PF_FAILURE;
}
index += fixed;
}
switch (HCL_OBJ_GET_FLAGS_TYPE(obj))
switch (HAK_OBJ_GET_FLAGS_TYPE(obj))
{
case HCL_OBJ_TYPE_OOP:
HCL_OBJ_SET_OOP_VAL(obj, index, val);
case HAK_OBJ_TYPE_OOP:
HAK_OBJ_SET_OOP_VAL(obj, index, val);
break;
case HCL_OBJ_TYPE_CHAR:
case HAK_OBJ_TYPE_CHAR:
{
hcl_ooch_t c;
if (!HCL_OOP_IS_CHAR(val))
hak_ooch_t c;
if (!HAK_OOP_IS_CHAR(val))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "value not character - %O", val);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "value not character - %O", val);
return HAK_PF_FAILURE;
}
c = HCL_OOP_TO_CHAR(val);
HCL_OBJ_SET_CHAR_VAL(obj, index, c);
c = HAK_OOP_TO_CHAR(val);
HAK_OBJ_SET_CHAR_VAL(obj, index, c);
break;
}
case HCL_OBJ_TYPE_BYTE:
case HAK_OBJ_TYPE_BYTE:
{
hcl_ooi_t b;
if (!HCL_OOP_IS_SMOOI(val))
hak_ooi_t b;
if (!HAK_OOP_IS_SMOOI(val))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "value not byte - %O", val);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "value not byte - %O", val);
return HAK_PF_FAILURE;
}
b = HCL_OOP_TO_SMOOI(val);
HCL_OBJ_SET_BYTE_VAL(obj, index, b);
b = HAK_OOP_TO_SMOOI(val);
HAK_OBJ_SET_BYTE_VAL(obj, index, b);
break;
}
case HCL_OBJ_TYPE_HALFWORD:
case HAK_OBJ_TYPE_HALFWORD:
{
hcl_oow_t w;
if (hcl_inttooow(hcl, val, &w) <= -1) return HCL_PF_FAILURE;
HCL_OBJ_SET_HALFWORD_VAL(obj, index, w);
hak_oow_t w;
if (hak_inttooow(hak, val, &w) <= -1) return HAK_PF_FAILURE;
HAK_OBJ_SET_HALFWORD_VAL(obj, index, w);
break;
}
case HCL_OBJ_TYPE_WORD:
case HAK_OBJ_TYPE_WORD:
{
hcl_oow_t w;
if (hcl_inttooow(hcl, val, &w) <= -1) return HCL_PF_FAILURE;
HCL_OBJ_SET_WORD_VAL(obj, index, w);
hak_oow_t w;
if (hak_inttooow(hak, val, &w) <= -1) return HAK_PF_FAILURE;
HAK_OBJ_SET_WORD_VAL(obj, index, w);
break;
}
@ -273,245 +273,245 @@ static hcl_pfrc_t __basic_at_put (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs, i
}
HCL_STACK_SETRET (hcl, nargs, val);
return HCL_PF_SUCCESS;
HAK_STACK_SETRET (hak, nargs, val);
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_core_basic_at_put (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_basic_at_put (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
return __basic_at_put(hcl, mod, nargs, 0);
return __basic_at_put(hak, mod, nargs, 0);
}
static hcl_pfrc_t pf_core_prim_at_put (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_prim_at_put (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
return __basic_at_put(hcl, mod, nargs, 1);
return __basic_at_put(hak, mod, nargs, 1);
}
static hcl_pfrc_t pf_core_basic_size (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_basic_size (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_oop_t src;
hcl_oop_t size;
hak_oop_oop_t src;
hak_oop_t size;
src = (hcl_oop_oop_t)HCL_STACK_GETARG(hcl, nargs, 0);
src = (hak_oop_oop_t)HAK_STACK_GETARG(hak, nargs, 0);
if (!HCL_OOP_IS_POINTER(src))
if (!HAK_OOP_IS_POINTER(src))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "source not sizable - %O", src);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "source not sizable - %O", src);
return HAK_PF_FAILURE;
}
size = hcl_oowtoint(hcl, HCL_OBJ_GET_SIZE(src));
if (!size) return HCL_PF_FAILURE;
size = hak_oowtoint(hak, HAK_OBJ_GET_SIZE(src));
if (!size) return HAK_PF_FAILURE;
HCL_STACK_SETRET (hcl, nargs, size);
return HCL_PF_SUCCESS;
HAK_STACK_SETRET (hak, nargs, size);
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_core_class_name (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_class_name (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t obj;
hak_oop_t obj;
obj = HCL_STACK_GETARG(hcl, nargs, 0);
obj = HAK_STACK_GETARG(hak, nargs, 0);
if (!HCL_IS_CLASS(hcl, obj))
if (!HAK_IS_CLASS(hak, obj))
{
#if 0
hcl_seterrbfmt (hcl, HCL_EINVAL, "receiver not class - %O", obj);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "receiver not class - %O", obj);
return HAK_PF_FAILURE;
#else
obj = (hcl_oop_t)HCL_CLASSOF(hcl, obj);
HCL_ASSERT (hcl, HCL_IS_CLASS(hcl, obj));
obj = (hak_oop_t)HAK_CLASSOF(hak, obj);
HAK_ASSERT (hak, HAK_IS_CLASS(hak, obj));
#endif
}
HCL_STACK_SETRET (hcl, nargs, ((hcl_oop_class_t)obj)->name);
return HCL_PF_SUCCESS;
HAK_STACK_SETRET (hak, nargs, ((hak_oop_class_t)obj)->name);
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_core_class_responds_to (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_class_responds_to (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t obj;
hcl_oop_t msg;
hak_oop_t obj;
hak_oop_t msg;
int x;
obj = HCL_STACK_GETARG(hcl, nargs, 0);
msg = HCL_STACK_GETARG(hcl, nargs, 1);
if (!HCL_IS_CLASS(hcl, obj))
obj = HAK_STACK_GETARG(hak, nargs, 0);
msg = HAK_STACK_GETARG(hak, nargs, 1);
if (!HAK_IS_CLASS(hak, obj))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "receiver not class - %O", msg);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "receiver not class - %O", msg);
return HAK_PF_FAILURE;
}
if (!HCL_OBJ_IS_CHAR_POINTER(msg))
if (!HAK_OBJ_IS_CHAR_POINTER(msg))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "invalid message - %O", msg);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "invalid message - %O", msg);
return HAK_PF_FAILURE;
}
x = hcl_class_responds_to(hcl, obj, msg);
HCL_STACK_SETRET (hcl, nargs, (x? hcl->_true: hcl->_false));
return HCL_PF_SUCCESS;
x = hak_class_responds_to(hak, obj, msg);
HAK_STACK_SETRET (hak, nargs, (x? hak->_true: hak->_false));
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_core_inst_responds_to (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_inst_responds_to (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t obj;
hcl_oop_t msg;
hak_oop_t obj;
hak_oop_t msg;
int x;
obj = HCL_STACK_GETARG(hcl, nargs, 0);
msg = HCL_STACK_GETARG(hcl, nargs, 1);
if (!HCL_OBJ_IS_CHAR_POINTER(msg))
obj = HAK_STACK_GETARG(hak, nargs, 0);
msg = HAK_STACK_GETARG(hak, nargs, 1);
if (!HAK_OBJ_IS_CHAR_POINTER(msg))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "invalid message - %O", msg);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "invalid message - %O", msg);
return HAK_PF_FAILURE;
}
x = hcl_inst_responds_to(hcl, obj, msg);
HCL_STACK_SETRET (hcl, nargs, (x? hcl->_true: hcl->_false));
return HCL_PF_SUCCESS;
x = hak_inst_responds_to(hak, obj, msg);
HAK_STACK_SETRET (hak, nargs, (x? hak->_true: hak->_false));
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_core_slice (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_slice (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t src, slice, a1, a2;
hcl_ooi_t size;
hcl_ooi_t pos;
hcl_ooi_t len;
hcl_ooi_t i;
hak_oop_t src, slice, a1, a2;
hak_ooi_t size;
hak_ooi_t pos;
hak_ooi_t len;
hak_ooi_t i;
src = HCL_STACK_GETARG(hcl, nargs, 0);
a1 = HCL_STACK_GETARG(hcl, nargs, 1);
a2 = HCL_STACK_GETARG(hcl, nargs, 2);
src = HAK_STACK_GETARG(hak, nargs, 0);
a1 = HAK_STACK_GETARG(hak, nargs, 1);
a2 = HAK_STACK_GETARG(hak, nargs, 2);
if (!HCL_OOP_IS_POINTER(src))
if (!HAK_OOP_IS_POINTER(src))
{
unsliceable:
hcl_seterrbfmt (hcl, HCL_EINVAL, "source not sliceable - %O", src);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "source not sliceable - %O", src);
return HAK_PF_FAILURE;
}
if (!HCL_OOP_IS_SMOOI(a1))
if (!HAK_OOP_IS_SMOOI(a1))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "position not numeric - %O", a1);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "position not numeric - %O", a1);
return HAK_PF_FAILURE;
}
if (!HCL_OOP_IS_SMOOI(a2))
if (!HAK_OOP_IS_SMOOI(a2))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "length not numeric - %O", a2);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "length not numeric - %O", a2);
return HAK_PF_FAILURE;
}
size = HCL_OBJ_GET_SIZE(src);
pos = HCL_OOP_TO_SMOOI(a1);
len = HCL_OOP_TO_SMOOI(a2);
size = HAK_OBJ_GET_SIZE(src);
pos = HAK_OOP_TO_SMOOI(a1);
len = HAK_OOP_TO_SMOOI(a2);
if (pos < 0) pos = 0;
else if (pos >= size) pos = size;
if (len >= size - pos) len = size - pos;
/* TODO: check if the object is an indexable object from the class spec... */
/* use HCL_OBJ_GET_CLASS() instead of HCL_CLASSOF() as we know it's an object */
slice = hcl_instantiate(hcl, (hcl_oop_class_t)HCL_OBJ_GET_CLASS(src), HCL_NULL, len);
if (HCL_UNLIKELY(!slice)) return HCL_PF_FAILURE;
/* use HAK_OBJ_GET_CLASS() instead of HAK_CLASSOF() as we know it's an object */
slice = hak_instantiate(hak, (hak_oop_class_t)HAK_OBJ_GET_CLASS(src), HAK_NULL, len);
if (HAK_UNLIKELY(!slice)) return HAK_PF_FAILURE;
/* OR if add by the number of fixed fields??? */
switch (HCL_OBJ_GET_FLAGS_TYPE(src))
switch (HAK_OBJ_GET_FLAGS_TYPE(src))
{
case HCL_OBJ_TYPE_OOP:
for (i = 0; i < len; i++) HCL_OBJ_GET_OOP_VAL(slice, i) = HCL_OBJ_GET_OOP_VAL(src, pos + i);
case HAK_OBJ_TYPE_OOP:
for (i = 0; i < len; i++) HAK_OBJ_GET_OOP_VAL(slice, i) = HAK_OBJ_GET_OOP_VAL(src, pos + i);
break;
case HCL_OBJ_TYPE_CHAR:
for (i = 0; i < len; i++) HCL_OBJ_GET_CHAR_VAL(slice, i) = HCL_OBJ_GET_CHAR_VAL(src, pos + i);
case HAK_OBJ_TYPE_CHAR:
for (i = 0; i < len; i++) HAK_OBJ_GET_CHAR_VAL(slice, i) = HAK_OBJ_GET_CHAR_VAL(src, pos + i);
break;
case HCL_OBJ_TYPE_BYTE:
for (i = 0; i < len; i++) HCL_OBJ_GET_BYTE_VAL(slice, i) = HCL_OBJ_GET_BYTE_VAL(src, pos + i);
case HAK_OBJ_TYPE_BYTE:
for (i = 0; i < len; i++) HAK_OBJ_GET_BYTE_VAL(slice, i) = HAK_OBJ_GET_BYTE_VAL(src, pos + i);
break;
case HCL_OBJ_TYPE_HALFWORD:
for (i = 0; i < len; i++) HCL_OBJ_GET_HALFWORD_VAL(slice, i) = HCL_OBJ_GET_HALFWORD_VAL(src, pos + i);
case HAK_OBJ_TYPE_HALFWORD:
for (i = 0; i < len; i++) HAK_OBJ_GET_HALFWORD_VAL(slice, i) = HAK_OBJ_GET_HALFWORD_VAL(src, pos + i);
break;
case HCL_OBJ_TYPE_WORD:
for (i = 0; i < len; i++) HCL_OBJ_GET_WORD_VAL(slice, i) = HCL_OBJ_GET_WORD_VAL(src, pos + i);
case HAK_OBJ_TYPE_WORD:
for (i = 0; i < len; i++) HAK_OBJ_GET_WORD_VAL(slice, i) = HAK_OBJ_GET_WORD_VAL(src, pos + i);
break;
default:
goto unsliceable;
}
HCL_STACK_SETRET (hcl, nargs, slice);
return HCL_PF_SUCCESS;
HAK_STACK_SETRET (hak, nargs, slice);
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_core_char_to_smooi (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_char_to_smooi (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t rcv, out;
hcl_ooi_t code;
hak_oop_t rcv, out;
hak_ooi_t code;
rcv = HCL_STACK_GETARG(hcl, nargs, 0);
if (!HCL_OOP_IS_CHAR(rcv))
rcv = HAK_STACK_GETARG(hak, nargs, 0);
if (!HAK_OOP_IS_CHAR(rcv))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "receiver not Character - %O", rcv);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "receiver not Character - %O", rcv);
return HAK_PF_FAILURE;
}
code = HCL_OOP_TO_CHAR(rcv);
out = HCL_SMOOI_TO_OOP(code);
HCL_STACK_SETRET (hcl, nargs, out);
return HCL_PF_SUCCESS;
code = HAK_OOP_TO_CHAR(rcv);
out = HAK_SMOOI_TO_OOP(code);
HAK_STACK_SETRET (hak, nargs, out);
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_core_smooi_to_char (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_core_smooi_to_char (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t rcv, out;
hcl_ooi_t code;
hak_oop_t rcv, out;
hak_ooi_t code;
rcv = HCL_STACK_GETARG(hcl, nargs, 0);
if (!HCL_OOP_IS_SMOOI(rcv))
rcv = HAK_STACK_GETARG(hak, nargs, 0);
if (!HAK_OOP_IS_SMOOI(rcv))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "receiver not SmallInteger - %O", rcv);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "receiver not SmallInteger - %O", rcv);
return HAK_PF_FAILURE;
}
code = HCL_OOP_TO_SMOOI(rcv);
out = HCL_CHAR_TO_OOP(code);
HCL_STACK_SETRET (hcl, nargs, out);
return HCL_PF_SUCCESS;
code = HAK_OOP_TO_SMOOI(rcv);
out = HAK_CHAR_TO_OOP(code);
HAK_STACK_SETRET (hak, nargs, out);
return HAK_PF_SUCCESS;
}
static hcl_pfinfo_t pfinfos[] =
static hak_pfinfo_t pfinfos[] =
{
{ "basicAt", { HCL_PFBASE_FUNC, pf_core_basic_at, 2, 2 } },
{ "basicAtPut", { HCL_PFBASE_FUNC, pf_core_basic_at_put, 3, 3 } },
{ "basicNew", { HCL_PFBASE_FUNC, pf_core_basic_new, 2, 2 } },
{ "basicSize", { HCL_PFBASE_FUNC, pf_core_basic_size, 1, 1 } },
{ "charToSmooi", { HCL_PFBASE_FUNC, pf_core_char_to_smooi, 1, 1 } },
{ "className", { HCL_PFBASE_FUNC, pf_core_class_name, 1, 1 } },
{ "classRespondsTo", { HCL_PFBASE_FUNC, pf_core_class_responds_to, 2, 2 } },
{ "instRespondsTo", { HCL_PFBASE_FUNC, pf_core_inst_responds_to, 2, 2 } },
{ "primAt", { HCL_PFBASE_FUNC, pf_core_prim_at, 2, 2 } },
{ "primAtPut", { HCL_PFBASE_FUNC, pf_core_prim_at_put, 3, 3 } },
{ "slice", { HCL_PFBASE_FUNC, pf_core_slice, 3, 3 } },
{ "smooiToChar", { HCL_PFBASE_FUNC, pf_core_smooi_to_char, 1, 1 } },
{ "basicAt", { HAK_PFBASE_FUNC, pf_core_basic_at, 2, 2 } },
{ "basicAtPut", { HAK_PFBASE_FUNC, pf_core_basic_at_put, 3, 3 } },
{ "basicNew", { HAK_PFBASE_FUNC, pf_core_basic_new, 2, 2 } },
{ "basicSize", { HAK_PFBASE_FUNC, pf_core_basic_size, 1, 1 } },
{ "charToSmooi", { HAK_PFBASE_FUNC, pf_core_char_to_smooi, 1, 1 } },
{ "className", { HAK_PFBASE_FUNC, pf_core_class_name, 1, 1 } },
{ "classRespondsTo", { HAK_PFBASE_FUNC, pf_core_class_responds_to, 2, 2 } },
{ "instRespondsTo", { HAK_PFBASE_FUNC, pf_core_inst_responds_to, 2, 2 } },
{ "primAt", { HAK_PFBASE_FUNC, pf_core_prim_at, 2, 2 } },
{ "primAtPut", { HAK_PFBASE_FUNC, pf_core_prim_at_put, 3, 3 } },
{ "slice", { HAK_PFBASE_FUNC, pf_core_slice, 3, 3 } },
{ "smooiToChar", { HAK_PFBASE_FUNC, pf_core_smooi_to_char, 1, 1 } },
};
/* ------------------------------------------------------------------------ */
static hcl_pfbase_t* query (hcl_t* hcl, hcl_mod_t* mod, const hcl_ooch_t* name, hcl_oow_t namelen)
static hak_pfbase_t* query (hak_t* hak, hak_mod_t* mod, const hak_ooch_t* name, hak_oow_t namelen)
{
return hcl_findpfbase(hcl, pfinfos, HCL_COUNTOF(pfinfos), name, namelen);
return hak_findpfbase(hak, pfinfos, HAK_COUNTOF(pfinfos), name, namelen);
}
static void unload (hcl_t* hcl, hcl_mod_t* mod)
static void unload (hak_t* hak, hak_mod_t* mod)
{
}
int hcl_mod_core (hcl_t* hcl, hcl_mod_t* mod)
int hak_mod_core (hak_t* hak, hak_mod_t* mod)
{
mod->query = query;
mod->unload = unload;
mod->ctx = HCL_NULL;
mod->ctx = HAK_NULL;
return 0;
}

100
mod/dic.c
View File

@ -27,111 +27,111 @@
#include "_dic.h"
static hcl_pfrc_t pf_dic_get (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_dic_get (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t dic;
hcl_oop_t key;
hcl_oop_cons_t pair;
hak_oop_t dic;
hak_oop_t key;
hak_oop_cons_t pair;
dic = HCL_STACK_GETARG(hcl, nargs, 0);
key = HCL_STACK_GETARG(hcl, nargs, 1);
dic = HAK_STACK_GETARG(hak, nargs, 0);
key = HAK_STACK_GETARG(hak, nargs, 1);
if (!HCL_IS_DIC(hcl,dic))
if (!HAK_IS_DIC(hak,dic))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not an dictionary - %O", dic);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "parameter not an dictionary - %O", dic);
return HAK_PF_FAILURE;
}
pair = hcl_getatdic(hcl, (hcl_oop_dic_t)dic, key);
pair = hak_getatdic(hak, (hak_oop_dic_t)dic, key);
if (!pair)
{
HCL_STACK_SETRETTOERROR (hcl, nargs, HCL_ENOENT);
return HCL_PF_SUCCESS;
HAK_STACK_SETRETTOERROR (hak, nargs, HAK_ENOENT);
return HAK_PF_SUCCESS;
}
HCL_STACK_SETRET (hcl, nargs, HCL_CONS_CDR(pair));
return HCL_PF_SUCCESS;
HAK_STACK_SETRET (hak, nargs, HAK_CONS_CDR(pair));
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_dic_put (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_dic_put (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t dic;
hcl_oop_t key, val;
hcl_oop_cons_t pair;
hak_oop_t dic;
hak_oop_t key, val;
hak_oop_cons_t pair;
dic = HCL_STACK_GETARG(hcl, nargs, 0);
key = HCL_STACK_GETARG(hcl, nargs, 1);
val = HCL_STACK_GETARG(hcl, nargs, 2);
dic = HAK_STACK_GETARG(hak, nargs, 0);
key = HAK_STACK_GETARG(hak, nargs, 1);
val = HAK_STACK_GETARG(hak, nargs, 2);
if (!HCL_IS_DIC(hcl,dic))
if (!HAK_IS_DIC(hak,dic))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not an dictionary - %O", dic);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "parameter not an dictionary - %O", dic);
return HAK_PF_FAILURE;
}
pair = hcl_putatdic(hcl, (hcl_oop_dic_t)dic, key, val);
pair = hak_putatdic(hak, (hak_oop_dic_t)dic, key, val);
if (!pair)
{
HCL_STACK_SETRETTOERRNUM (hcl, nargs);
return HCL_PF_SUCCESS;
HAK_STACK_SETRETTOERRNUM (hak, nargs);
return HAK_PF_SUCCESS;
}
HCL_STACK_SETRET (hcl, nargs, HCL_CONS_CDR(pair));
return HCL_PF_SUCCESS;
HAK_STACK_SETRET (hak, nargs, HAK_CONS_CDR(pair));
return HAK_PF_SUCCESS;
}
static int walker (hcl_t* hcl, hcl_oop_dic_t dic, hcl_oop_cons_t pair, void* ctx)
static int walker (hak_t* hak, hak_oop_dic_t dic, hak_oop_cons_t pair, void* ctx)
{
HCL_DEBUG2 (hcl, "walker ===> %O =====> %O\n", HCL_CONS_CAR(pair), HCL_CONS_CDR(pair));
HAK_DEBUG2 (hak, "walker ===> %O =====> %O\n", HAK_CONS_CAR(pair), HAK_CONS_CDR(pair));
return 0;
}
static hcl_pfrc_t pf_dic_walk (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_dic_walk (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
/* TODO: write a proper function
* (dic.apply #{ ... } callable-or-lambda)
*/
hcl_oop_t arg;
hak_oop_t arg;
arg = HCL_STACK_GETARG(hcl, nargs, 0);
if (!HCL_IS_DIC(hcl,arg))
arg = HAK_STACK_GETARG(hak, nargs, 0);
if (!HAK_IS_DIC(hak,arg))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not a dictionary - %O", arg);
return HCL_PF_FAILURE;
hak_seterrbfmt (hak, HAK_EINVAL, "parameter not a dictionary - %O", arg);
return HAK_PF_FAILURE;
}
hcl_walkdic (hcl, (hcl_oop_dic_t)arg, walker, HCL_NULL);
HCL_STACK_SETRET (hcl, nargs, hcl->_true);
return HCL_PF_SUCCESS;
hak_walkdic (hak, (hak_oop_dic_t)arg, walker, HAK_NULL);
HAK_STACK_SETRET (hak, nargs, hak->_true);
return HAK_PF_SUCCESS;
}
static hcl_pfinfo_t pfinfos[] =
static hak_pfinfo_t pfinfos[] =
{
{ "get", { HCL_PFBASE_FUNC, pf_dic_get, 2, 2 } },
/* { "make", { HCL_PFBASE_FUNC, pf_dic_make, 1, 1 } }, */
{ "put", { HCL_PFBASE_FUNC, pf_dic_put, 3, 3 } },
{ "walk", { HCL_PFBASE_FUNC, pf_dic_walk, 2, 2 } },
{ "get", { HAK_PFBASE_FUNC, pf_dic_get, 2, 2 } },
/* { "make", { HAK_PFBASE_FUNC, pf_dic_make, 1, 1 } }, */
{ "put", { HAK_PFBASE_FUNC, pf_dic_put, 3, 3 } },
{ "walk", { HAK_PFBASE_FUNC, pf_dic_walk, 2, 2 } },
};
/* ------------------------------------------------------------------------ */
static hcl_pfbase_t* query (hcl_t* hcl, hcl_mod_t* mod, const hcl_ooch_t* name, hcl_oow_t namelen)
static hak_pfbase_t* query (hak_t* hak, hak_mod_t* mod, const hak_ooch_t* name, hak_oow_t namelen)
{
return hcl_findpfbase(hcl, pfinfos, HCL_COUNTOF(pfinfos), name, namelen);
return hak_findpfbase(hak, pfinfos, HAK_COUNTOF(pfinfos), name, namelen);
}
static void unload (hcl_t* hcl, hcl_mod_t* mod)
static void unload (hak_t* hak, hak_mod_t* mod)
{
}
int hcl_mod_dic (hcl_t* hcl, hcl_mod_t* mod)
int hak_mod_dic (hak_t* hak, hak_mod_t* mod)
{
mod->query = query;
mod->unload = unload;
mod->ctx = HCL_NULL;
mod->ctx = HAK_NULL;
return 0;
}

88
mod/sys.c
View File

@ -40,28 +40,28 @@
# include <time.h>
#endif
static hcl_pfrc_t pf_sys_time (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_sys_time (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_ntime_t now;
hcl_oop_t tv;
hcl->vmprim.vm_gettime(hcl, &now); /* should I use time() instead? */
tv = hcl_oowtoint(hcl, now.sec);
if (!tv) return HCL_PF_FAILURE;
HCL_STACK_SETRET (hcl, nargs, tv);
return HCL_PF_SUCCESS;
hak_ntime_t now;
hak_oop_t tv;
hak->vmprim.vm_gettime(hak, &now); /* should I use time() instead? */
tv = hak_oowtoint(hak, now.sec);
if (!tv) return HAK_PF_FAILURE;
HAK_STACK_SETRET (hak, nargs, tv);
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_sys_stime (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_sys_stime (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t t;
hcl_ooi_t ti;
hak_oop_t t;
hak_ooi_t ti;
t = HCL_STACK_GETARG(hcl, nargs, 0);
if (hcl_inttoooi(hcl, t, &ti) == 0)
t = HAK_STACK_GETARG(hak, nargs, 0);
if (hak_inttoooi(hak, t, &ti) == 0)
{
const hcl_ooch_t* orgmsg = hcl_backuperrmsg(hcl);
hcl_seterrbfmt (hcl, HCL_EINVAL, "unacceptiable time value - %O - %js", t, orgmsg);
return HCL_PF_FAILURE;
const hak_ooch_t* orgmsg = hak_backuperrmsg(hak);
hak_seterrbfmt (hak, HAK_EINVAL, "unacceptiable time value - %O - %js", t, orgmsg);
return HAK_PF_FAILURE;
}
/* ---------------------------------------------------------------- */
@ -70,7 +70,7 @@ static hcl_pfrc_t pf_sys_stime (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
struct timeval tv;
tv.tv_sec = ti;
tv.tv_usec = 0;
settimeofday (&tv, HCL_NULL);
settimeofday (&tv, HAK_NULL);
}
#elif defined(__DOS__)
{
@ -103,21 +103,21 @@ static hcl_pfrc_t pf_sys_stime (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
#endif
/* ---------------------------------------------------------------- */
HCL_STACK_SETRET (hcl, nargs, hcl->_nil);
return HCL_PF_SUCCESS;
HAK_STACK_SETRET (hak, nargs, hak->_nil);
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_sys_srandom (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_sys_srandom (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
hcl_oop_t seed;
hcl_oow_t seedw;
hak_oop_t seed;
hak_oow_t seedw;
seed = HCL_STACK_GETARG(hcl, nargs, 0);
if (hcl_inttooow(hcl, seed, &seedw) == 0)
seed = HAK_STACK_GETARG(hak, nargs, 0);
if (hak_inttooow(hak, seed, &seedw) == 0)
{
const hcl_ooch_t* orgmsg = hcl_backuperrmsg(hcl);
hcl_seterrbfmt (hcl, HCL_EINVAL, "unacceptiable seed - %O - %js", seed, orgmsg);
return HCL_PF_FAILURE;
const hak_ooch_t* orgmsg = hak_backuperrmsg(hak);
hak_seterrbfmt (hak, HAK_EINVAL, "unacceptiable seed - %O - %js", seed, orgmsg);
return HAK_PF_FAILURE;
}
#if defined(__DOS__)
@ -126,48 +126,48 @@ static hcl_pfrc_t pf_sys_srandom (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
srandom (seedw);
#endif
HCL_STACK_SETRET (hcl, nargs, hcl->_nil);
return HCL_PF_SUCCESS;
HAK_STACK_SETRET (hak, nargs, hak->_nil);
return HAK_PF_SUCCESS;
}
static hcl_pfrc_t pf_sys_random (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
static hak_pfrc_t pf_sys_random (hak_t* hak, hak_mod_t* mod, hak_ooi_t nargs)
{
long int r;
hcl_ooi_t rv;
hak_ooi_t rv;
#if defined(__DOS__)
r = rand();
#else
r = random();
#endif
rv = (hcl_ooi_t)(r % HCL_SMOOI_MAX);
HCL_STACK_SETRET (hcl, nargs, HCL_SMOOI_TO_OOP(rv));
return HCL_PF_SUCCESS;
rv = (hak_ooi_t)(r % HAK_SMOOI_MAX);
HAK_STACK_SETRET (hak, nargs, HAK_SMOOI_TO_OOP(rv));
return HAK_PF_SUCCESS;
}
static hcl_pfinfo_t pfinfos[] =
static hak_pfinfo_t pfinfos[] =
{
{ "random", { HCL_PFBASE_FUNC, pf_sys_random, 0, 0 } },
{ "srandom", { HCL_PFBASE_FUNC, pf_sys_srandom, 1, 1 } },
{ "stime", { HCL_PFBASE_FUNC, pf_sys_stime, 1, 1 } },
{ "time", { HCL_PFBASE_FUNC, pf_sys_time, 0, 0 } }
{ "random", { HAK_PFBASE_FUNC, pf_sys_random, 0, 0 } },
{ "srandom", { HAK_PFBASE_FUNC, pf_sys_srandom, 1, 1 } },
{ "stime", { HAK_PFBASE_FUNC, pf_sys_stime, 1, 1 } },
{ "time", { HAK_PFBASE_FUNC, pf_sys_time, 0, 0 } }
};
/* ------------------------------------------------------------------------ */
static hcl_pfbase_t* query (hcl_t* hcl, hcl_mod_t* mod, const hcl_ooch_t* name, hcl_oow_t namelen)
static hak_pfbase_t* query (hak_t* hak, hak_mod_t* mod, const hak_ooch_t* name, hak_oow_t namelen)
{
return hcl_findpfbase(hcl, pfinfos, HCL_COUNTOF(pfinfos), name, namelen);
return hak_findpfbase(hak, pfinfos, HAK_COUNTOF(pfinfos), name, namelen);
}
static void unload (hcl_t* hcl, hcl_mod_t* mod)
static void unload (hak_t* hak, hak_mod_t* mod)
{
}
int hcl_mod_sys (hcl_t* hcl, hcl_mod_t* mod)
int hak_mod_sys (hak_t* hak, hak_mod_t* mod)
{
mod->query = query;
mod->unload = unload;
mod->ctx = HCL_NULL;
mod->ctx = HAK_NULL;
return 0;
}