From ea1947ffcc606d757357398b24e74a3f4ecefa07 Mon Sep 17 00:00:00 2001 From: neonloop Date: Wed, 20 Oct 2021 14:54:27 +0000 Subject: Initial commit from steward-fu release --- core/bgdrtm/src/Makefile | 710 +++++++++++++ core/bgdrtm/src/Makefile.am | 15 + core/bgdrtm/src/Makefile.in | 710 +++++++++++++ core/bgdrtm/src/copy.c | 226 ++++ core/bgdrtm/src/dcbr.c | 551 ++++++++++ core/bgdrtm/src/dirs.c | 430 ++++++++ core/bgdrtm/src/fmath.c | 149 +++ core/bgdrtm/src/instance.c | 763 ++++++++++++++ core/bgdrtm/src/interpreter.c | 2192 +++++++++++++++++++++++++++++++++++++++ core/bgdrtm/src/misc.c | 317 ++++++ core/bgdrtm/src/strings.c | 1037 ++++++++++++++++++ core/bgdrtm/src/sysprocs.c | 577 +++++++++++ core/bgdrtm/src/varspace_file.c | 357 +++++++ 13 files changed, 8034 insertions(+) create mode 100644 core/bgdrtm/src/Makefile create mode 100644 core/bgdrtm/src/Makefile.am create mode 100644 core/bgdrtm/src/Makefile.in create mode 100644 core/bgdrtm/src/copy.c create mode 100644 core/bgdrtm/src/dcbr.c create mode 100644 core/bgdrtm/src/dirs.c create mode 100644 core/bgdrtm/src/fmath.c create mode 100644 core/bgdrtm/src/instance.c create mode 100644 core/bgdrtm/src/interpreter.c create mode 100644 core/bgdrtm/src/misc.c create mode 100644 core/bgdrtm/src/strings.c create mode 100644 core/bgdrtm/src/sysprocs.c create mode 100644 core/bgdrtm/src/varspace_file.c (limited to 'core/bgdrtm/src') diff --git a/core/bgdrtm/src/Makefile b/core/bgdrtm/src/Makefile new file mode 100644 index 0000000..031c34c --- /dev/null +++ b/core/bgdrtm/src/Makefile @@ -0,0 +1,710 @@ +# Makefile.in generated by automake 1.12.1 from Makefile.am. +# bgdrtm/src/Makefile. Generated from Makefile.in by configure. + +# Copyright (C) 1994-2012 Free Software Foundation, Inc. + +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + + + +#AUTOMAKE_OPTIONS = no-dependencies foreign + + +am__make_dryrun = \ + { \ + am__dry=no; \ + case $$MAKEFLAGS in \ + *\\[\ \ ]*) \ + echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ + | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ + *) \ + for am__flg in $$MAKEFLAGS; do \ + case $$am__flg in \ + *=*|--*) ;; \ + *n*) am__dry=yes; break;; \ + esac; \ + done;; \ + esac; \ + test $$am__dry = yes; \ + } +pkgdatadir = $(datadir)/bennu +pkgincludedir = $(includedir)/bennu +pkglibdir = $(libdir)/bennu +pkglibexecdir = $(libexecdir)/bennu +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = x86_64-pc-none +host_triplet = arm-unknown-linux-gnu +target_triplet = arm-unknown-linux-gnu +subdir = bgdrtm/src +DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ + $(top_srcdir)/depcomp +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ + $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ + $(top_srcdir)/configure.in +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(install_sh) -d +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; +am__install_max = 40 +am__nobase_strip_setup = \ + srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` +am__nobase_strip = \ + for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" +am__nobase_list = $(am__nobase_strip_setup); \ + for p in $$list; do echo "$$p $$p"; done | \ + sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ + $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ + if (++n[$$2] == $(am__install_max)) \ + { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ + END { for (dir in files) print dir, files[dir] }' +am__base_list = \ + sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ + sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' +am__uninstall_files_from_dir = { \ + test -z "$$files" \ + || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ + || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ + $(am__cd) "$$dir" && rm -f $$files; }; \ + } +am__installdirs = "$(DESTDIR)$(libdir)" +LTLIBRARIES = $(lib_LTLIBRARIES) +am__DEPENDENCIES_1 = +libbgdrtm_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ + $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) +am_libbgdrtm_la_OBJECTS = libbgdrtm_la-fmath.lo libbgdrtm_la-dcbr.lo \ + libbgdrtm_la-sysprocs.lo libbgdrtm_la-strings.lo \ + libbgdrtm_la-dirs.lo libbgdrtm_la-copy.lo libbgdrtm_la-misc.lo \ + libbgdrtm_la-instance.lo libbgdrtm_la-interpreter.lo \ + libbgdrtm_la-varspace_file.lo libbgdrtm_la-debug.lo \ + libbgdrtm_la-b_crypt.lo libbgdrtm_la-files.lo \ + libbgdrtm_la-xctype.lo +libbgdrtm_la_OBJECTS = $(am_libbgdrtm_la_OBJECTS) +libbgdrtm_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(libbgdrtm_la_CFLAGS) \ + $(CFLAGS) $(libbgdrtm_la_LDFLAGS) $(LDFLAGS) -o $@ +DEFAULT_INCLUDES = -I. +depcomp = $(SHELL) $(top_srcdir)/depcomp +am__depfiles_maybe = depfiles +am__mv = mv -f +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ + --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ + $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +CCLD = $(CC) +LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ + --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ + $(LDFLAGS) -o $@ +SOURCES = $(libbgdrtm_la_SOURCES) +DIST_SOURCES = $(libbgdrtm_la_SOURCES) +am__can_run_installinfo = \ + case $$AM_UPDATE_INFO_DIR in \ + n|no|NO) false;; \ + *) (install-info --version) >/dev/null 2>&1;; \ + esac +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = ${SHELL} /home/steward/Github/miyoo_src/bennugd/core/missing --run aclocal-1.12 +AMTAR = $${TAR-tar} +AR = /opt/miyoo/usr/bin/arm-linux-ar +AS = as +AUTOCONF = ${SHELL} /home/steward/Github/miyoo_src/bennugd/core/missing --run autoconf +AUTOHEADER = ${SHELL} /home/steward/Github/miyoo_src/bennugd/core/missing --run autoheader +AUTOMAKE = ${SHELL} /home/steward/Github/miyoo_src/bennugd/core/missing --run automake-1.12 +AWK = mawk +CC = /opt/miyoo/usr/bin/arm-linux-gcc +CCDEPMODE = depmode=gcc3 +CFLAGS = -DTARGET_MIYOO -mcpu=arm926ej-s -mtune=arm926ej-s -O3 -DARM -D_ARM_ASSEM_ -I/opt/miyoo/arm-miyoo-linux-uclibcgnueabi/sysroot/usr/include/SDL -finline-functions -fno-strict-aliasing +COMMON_CFLAGS = -DTARGET_MIYOO -mcpu=arm926ej-s -mtune=arm926ej-s -O3 -DARM -D_ARM_ASSEM_ -I/opt/miyoo/arm-miyoo-linux-uclibcgnueabi/sysroot/usr/include/SDL -finline-functions -fno-strict-aliasing -Wall -DTARGET_LINUX -DUSE_LIBDES -DTARGET_MIYOO -mcpu=arm926ej-s -mtune=arm926ej-s -O3 -DARM -D_ARM_ASSEM_ -I/opt/miyoo/arm-miyoo-linux-uclibcgnueabi/sysroot/usr/include/SDL -I/home/steward/Github/miyoo_src/bennugd/core/../3rdparty/des-4.04b +COMMON_LDFLAGS = -D_REENTRANT -lc -ldl -D_REENTRANT -L/home/steward/Github/miyoo_src/bennugd/core/../3rdparty/des-4.04b -ldes +CPP = /opt/miyoo/usr/bin/arm-linux-gcc -E +CPPFLAGS = +CRYPT_LDFLAGS = +CYGPATH_W = echo +DEFS = -DPACKAGE_NAME=\"bennu\" -DPACKAGE_TARNAME=\"bennu\" -DPACKAGE_VERSION=\"1.0.0\" -DPACKAGE_STRING=\"bennu\ 1.0.0\" -DPACKAGE_BUGREPORT=\"\" -DPACKAGE_URL=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DHAVE_DLFCN_H=1 -DLT_OBJDIR=\".libs/\" -DPACKAGE=\"bennu\" -DVERSION=\"1.0.0\" +DEPDIR = .deps +DLLTOOL = false +DSYMUTIL = +DUMPBIN = +ECHO_C = +ECHO_N = -n +ECHO_T = +EGREP = /bin/grep -E +EXEEXT = +FGREP = /bin/grep -F +GREP = /bin/grep +INSTALL = /usr/bin/install -c +INSTALL_DATA = ${INSTALL} -m 644 +INSTALL_PROGRAM = ${INSTALL} +INSTALL_SCRIPT = ${INSTALL} +INSTALL_STRIP_PROGRAM = $(install_sh) -c -s +LD = /opt/miyoo/usr/bin/arm-linux-ld +LDFLAGS = -D_REENTRANT +LIBOBJS = +LIBS = +LIBTOOL = $(SHELL) $(top_builddir)/libtool +LIPO = +LN_S = ln -s +LTLIBOBJS = +MAINT = # +MAKEINFO = ${SHELL} /home/steward/Github/miyoo_src/bennugd/core/missing --run makeinfo +MANIFEST_TOOL = : +MKDIR_P = /bin/mkdir -p +NM = /opt/miyoo/bin//arm-linux-nm -B +NMEDIT = +OBJDUMP = arm-linux-objdump +OBJEXT = o +OTOOL = +OTOOL64 = +PACKAGE = bennu +PACKAGE_BUGREPORT = +PACKAGE_NAME = bennu +PACKAGE_STRING = bennu 1.0.0 +PACKAGE_TARNAME = bennu +PACKAGE_URL = +PACKAGE_VERSION = 1.0.0 +PATH_SEPARATOR = : +PKG_CONFIG = /usr/bin/pkg-config +PKG_CONFIG_LIBDIR = /opt/miyoo/arm-miyoo-linux-uclibcgnueabi/sysroot/usr/lib/pkgconfig +PKG_CONFIG_PATH = /opt/miyoo/arm-miyoo-linux-uclibcgnueabi/sysroot/usr/lib/pkgconfig +RANLIB = /opt/miyoo/usr/bin/arm-linux-ranlib +SED = /bin/sed +SET_MAKE = +SHELL = /bin/bash +STRIP = /opt/miyoo/usr/bin/arm-linux-strip +VERSION = 1.0.0 +WINDRES = +ZLIB_CFLAGS = +ZLIB_LIBS = -lz +abs_builddir = /home/steward/Github/miyoo_src/bennugd/core/bgdrtm/src +abs_srcdir = /home/steward/Github/miyoo_src/bennugd/core/bgdrtm/src +abs_top_builddir = /home/steward/Github/miyoo_src/bennugd/core +abs_top_srcdir = /home/steward/Github/miyoo_src/bennugd/core +ac_ct_AR = +ac_ct_CC = +ac_ct_DUMPBIN = +am__include = include +am__leading_dot = . +am__quote = +am__tar = $${TAR-tar} chof - "$$tardir" +am__untar = $${TAR-tar} xf - +bindir = ${exec_prefix}/bin +build = x86_64-pc-none +build_alias = x86_64 +build_cpu = x86_64 +build_os = none +build_vendor = pc +builddir = . +datadir = ${datarootdir} +datarootdir = ${prefix}/share +docdir = ${datarootdir}/doc/${PACKAGE_TARNAME} +dvidir = ${docdir} +exec_prefix = ${prefix} +host = arm-unknown-linux-gnu +host_alias = arm-linux +host_cpu = arm +host_os = linux-gnu +host_vendor = unknown +htmldir = ${docdir} +includedir = ${prefix}/include +infodir = ${datarootdir}/info +install_sh = ${SHELL} /home/steward/Github/miyoo_src/bennugd/core/install-sh +libdir = ${exec_prefix}/lib +libexecdir = ${exec_prefix}/libexec +localedir = ${datarootdir}/locale +localstatedir = ${prefix}/var +mandir = ${datarootdir}/man +mkdir_p = /bin/mkdir -p +oldincludedir = /usr/include +pdfdir = ${docdir} +prefix = /opt/miyoo/usr +program_transform_name = s&^&arm-linux-& +psdir = ${docdir} +sbindir = ${exec_prefix}/sbin +sharedstatedir = ${prefix}/com +srcdir = . +sysconfdir = ${prefix}/etc +target = arm-unknown-linux-gnu +target_alias = arm-linux +target_cpu = arm +target_os = linux-gnu +target_vendor = unknown +top_build_prefix = ../../ +top_builddir = ../.. +top_srcdir = ../.. +lib_LTLIBRARIES = libbgdrtm.la +libbgdrtm_la_SOURCES = fmath.c dcbr.c sysprocs.c strings.c dirs.c copy.c misc.c instance.c interpreter.c varspace_file.c ../../common/debug.c ../../common/b_crypt.c ../../common/files.c ../../common/xctype.c +libbgdrtm_la_CFLAGS = $(COMMON_CFLAGS) $(ZLIB_CFLAGS) -I../../include -I../include -D__BGDRTM__ -DDEBUG +libbgdrtm_la_LDFLAGS = -s -module -no-undefined -avoid-version -export-all-symbols +libbgdrtm_la_LIBADD = $(COMMON_LDFLAGS) $(ZLIB_LIBS) $(CRYPT_LDFLAGS) -lm +CLEANFILES = libbgdrtm.la +all: all-am + +.SUFFIXES: +.SUFFIXES: .c .lo .o .obj +$(srcdir)/Makefile.in: # $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu bgdrtm/src/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --gnu bgdrtm/src/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: # $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): # $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): +install-libLTLIBRARIES: $(lib_LTLIBRARIES) + @$(NORMAL_INSTALL) + @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ + list2=; for p in $$list; do \ + if test -f $$p; then \ + list2="$$list2 $$p"; \ + else :; fi; \ + done; \ + test -z "$$list2" || { \ + echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ + } + +uninstall-libLTLIBRARIES: + @$(NORMAL_UNINSTALL) + @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ + for p in $$list; do \ + $(am__strip_dir) \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ + done + +clean-libLTLIBRARIES: + -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) + @list='$(lib_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } +libbgdrtm.la: $(libbgdrtm_la_OBJECTS) $(libbgdrtm_la_DEPENDENCIES) $(EXTRA_libbgdrtm_la_DEPENDENCIES) + $(libbgdrtm_la_LINK) -rpath $(libdir) $(libbgdrtm_la_OBJECTS) $(libbgdrtm_la_LIBADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + +distclean-compile: + -rm -f *.tab.c + +include ./$(DEPDIR)/libbgdrtm_la-b_crypt.Plo +include ./$(DEPDIR)/libbgdrtm_la-copy.Plo +include ./$(DEPDIR)/libbgdrtm_la-dcbr.Plo +include ./$(DEPDIR)/libbgdrtm_la-debug.Plo +include ./$(DEPDIR)/libbgdrtm_la-dirs.Plo +include ./$(DEPDIR)/libbgdrtm_la-files.Plo +include ./$(DEPDIR)/libbgdrtm_la-fmath.Plo +include ./$(DEPDIR)/libbgdrtm_la-instance.Plo +include ./$(DEPDIR)/libbgdrtm_la-interpreter.Plo +include ./$(DEPDIR)/libbgdrtm_la-misc.Plo +include ./$(DEPDIR)/libbgdrtm_la-strings.Plo +include ./$(DEPDIR)/libbgdrtm_la-sysprocs.Plo +include ./$(DEPDIR)/libbgdrtm_la-varspace_file.Plo +include ./$(DEPDIR)/libbgdrtm_la-xctype.Plo + +.c.o: + $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< + $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po +# source='$<' object='$@' libtool=no \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(COMPILE) -c $< + +.c.obj: + $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` + $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po +# source='$<' object='$@' libtool=no \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(COMPILE) -c `$(CYGPATH_W) '$<'` + +.c.lo: + $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< + $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo +# source='$<' object='$@' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LTCOMPILE) -c -o $@ $< + +libbgdrtm_la-fmath.lo: fmath.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-fmath.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-fmath.Tpo -c -o libbgdrtm_la-fmath.lo `test -f 'fmath.c' || echo '$(srcdir)/'`fmath.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-fmath.Tpo $(DEPDIR)/libbgdrtm_la-fmath.Plo +# source='fmath.c' object='libbgdrtm_la-fmath.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-fmath.lo `test -f 'fmath.c' || echo '$(srcdir)/'`fmath.c + +libbgdrtm_la-dcbr.lo: dcbr.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-dcbr.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-dcbr.Tpo -c -o libbgdrtm_la-dcbr.lo `test -f 'dcbr.c' || echo '$(srcdir)/'`dcbr.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-dcbr.Tpo $(DEPDIR)/libbgdrtm_la-dcbr.Plo +# source='dcbr.c' object='libbgdrtm_la-dcbr.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-dcbr.lo `test -f 'dcbr.c' || echo '$(srcdir)/'`dcbr.c + +libbgdrtm_la-sysprocs.lo: sysprocs.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-sysprocs.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-sysprocs.Tpo -c -o libbgdrtm_la-sysprocs.lo `test -f 'sysprocs.c' || echo '$(srcdir)/'`sysprocs.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-sysprocs.Tpo $(DEPDIR)/libbgdrtm_la-sysprocs.Plo +# source='sysprocs.c' object='libbgdrtm_la-sysprocs.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-sysprocs.lo `test -f 'sysprocs.c' || echo '$(srcdir)/'`sysprocs.c + +libbgdrtm_la-strings.lo: strings.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-strings.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-strings.Tpo -c -o libbgdrtm_la-strings.lo `test -f 'strings.c' || echo '$(srcdir)/'`strings.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-strings.Tpo $(DEPDIR)/libbgdrtm_la-strings.Plo +# source='strings.c' object='libbgdrtm_la-strings.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-strings.lo `test -f 'strings.c' || echo '$(srcdir)/'`strings.c + +libbgdrtm_la-dirs.lo: dirs.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-dirs.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-dirs.Tpo -c -o libbgdrtm_la-dirs.lo `test -f 'dirs.c' || echo '$(srcdir)/'`dirs.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-dirs.Tpo $(DEPDIR)/libbgdrtm_la-dirs.Plo +# source='dirs.c' object='libbgdrtm_la-dirs.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-dirs.lo `test -f 'dirs.c' || echo '$(srcdir)/'`dirs.c + +libbgdrtm_la-copy.lo: copy.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-copy.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-copy.Tpo -c -o libbgdrtm_la-copy.lo `test -f 'copy.c' || echo '$(srcdir)/'`copy.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-copy.Tpo $(DEPDIR)/libbgdrtm_la-copy.Plo +# source='copy.c' object='libbgdrtm_la-copy.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-copy.lo `test -f 'copy.c' || echo '$(srcdir)/'`copy.c + +libbgdrtm_la-misc.lo: misc.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-misc.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-misc.Tpo -c -o libbgdrtm_la-misc.lo `test -f 'misc.c' || echo '$(srcdir)/'`misc.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-misc.Tpo $(DEPDIR)/libbgdrtm_la-misc.Plo +# source='misc.c' object='libbgdrtm_la-misc.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-misc.lo `test -f 'misc.c' || echo '$(srcdir)/'`misc.c + +libbgdrtm_la-instance.lo: instance.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-instance.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-instance.Tpo -c -o libbgdrtm_la-instance.lo `test -f 'instance.c' || echo '$(srcdir)/'`instance.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-instance.Tpo $(DEPDIR)/libbgdrtm_la-instance.Plo +# source='instance.c' object='libbgdrtm_la-instance.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-instance.lo `test -f 'instance.c' || echo '$(srcdir)/'`instance.c + +libbgdrtm_la-interpreter.lo: interpreter.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-interpreter.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-interpreter.Tpo -c -o libbgdrtm_la-interpreter.lo `test -f 'interpreter.c' || echo '$(srcdir)/'`interpreter.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-interpreter.Tpo $(DEPDIR)/libbgdrtm_la-interpreter.Plo +# source='interpreter.c' object='libbgdrtm_la-interpreter.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-interpreter.lo `test -f 'interpreter.c' || echo '$(srcdir)/'`interpreter.c + +libbgdrtm_la-varspace_file.lo: varspace_file.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-varspace_file.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-varspace_file.Tpo -c -o libbgdrtm_la-varspace_file.lo `test -f 'varspace_file.c' || echo '$(srcdir)/'`varspace_file.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-varspace_file.Tpo $(DEPDIR)/libbgdrtm_la-varspace_file.Plo +# source='varspace_file.c' object='libbgdrtm_la-varspace_file.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-varspace_file.lo `test -f 'varspace_file.c' || echo '$(srcdir)/'`varspace_file.c + +libbgdrtm_la-debug.lo: ../../common/debug.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-debug.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-debug.Tpo -c -o libbgdrtm_la-debug.lo `test -f '../../common/debug.c' || echo '$(srcdir)/'`../../common/debug.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-debug.Tpo $(DEPDIR)/libbgdrtm_la-debug.Plo +# source='../../common/debug.c' object='libbgdrtm_la-debug.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-debug.lo `test -f '../../common/debug.c' || echo '$(srcdir)/'`../../common/debug.c + +libbgdrtm_la-b_crypt.lo: ../../common/b_crypt.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-b_crypt.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-b_crypt.Tpo -c -o libbgdrtm_la-b_crypt.lo `test -f '../../common/b_crypt.c' || echo '$(srcdir)/'`../../common/b_crypt.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-b_crypt.Tpo $(DEPDIR)/libbgdrtm_la-b_crypt.Plo +# source='../../common/b_crypt.c' object='libbgdrtm_la-b_crypt.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-b_crypt.lo `test -f '../../common/b_crypt.c' || echo '$(srcdir)/'`../../common/b_crypt.c + +libbgdrtm_la-files.lo: ../../common/files.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-files.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-files.Tpo -c -o libbgdrtm_la-files.lo `test -f '../../common/files.c' || echo '$(srcdir)/'`../../common/files.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-files.Tpo $(DEPDIR)/libbgdrtm_la-files.Plo +# source='../../common/files.c' object='libbgdrtm_la-files.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-files.lo `test -f '../../common/files.c' || echo '$(srcdir)/'`../../common/files.c + +libbgdrtm_la-xctype.lo: ../../common/xctype.c + $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-xctype.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-xctype.Tpo -c -o libbgdrtm_la-xctype.lo `test -f '../../common/xctype.c' || echo '$(srcdir)/'`../../common/xctype.c + $(am__mv) $(DEPDIR)/libbgdrtm_la-xctype.Tpo $(DEPDIR)/libbgdrtm_la-xctype.Plo +# source='../../common/xctype.c' object='libbgdrtm_la-xctype.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-xctype.lo `test -f '../../common/xctype.c' || echo '$(srcdir)/'`../../common/xctype.c + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + +ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in files) print i; }; }'`; \ + mkid -fID $$unique +tags: TAGS + +TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + set x; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in files) print i; }; }'`; \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: CTAGS +CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in files) print i; }; }'`; \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" + +cscopelist: $(HEADERS) $(SOURCES) $(LISP) + list='$(SOURCES) $(HEADERS) $(LISP)'; \ + case "$(srcdir)" in \ + [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ + *) sdir=$(subdir)/$(srcdir) ;; \ + esac; \ + for i in $$list; do \ + if test -f "$$i"; then \ + echo "$(subdir)/$$i"; \ + else \ + echo "$$sdir/$$i"; \ + fi; \ + done >> $(top_builddir)/cscope.files + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-am +all-am: Makefile $(LTLIBRARIES) +installdirs: + for dir in "$(DESTDIR)$(libdir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + if test -z '$(STRIP)'; then \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + install; \ + else \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ + fi +mostlyclean-generic: + +clean-generic: + -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ + mostlyclean-am + +distclean: distclean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +html-am: + +info: info-am + +info-am: + +install-data-am: + +install-dvi: install-dvi-am + +install-dvi-am: + +install-exec-am: install-libLTLIBRARIES + +install-html: install-html-am + +install-html-am: + +install-info: install-info-am + +install-info-am: + +install-man: + +install-pdf: install-pdf-am + +install-pdf-am: + +install-ps: install-ps-am + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-libLTLIBRARIES + +.MAKE: install-am install-strip + +.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ + clean-libLTLIBRARIES clean-libtool cscopelist ctags distclean \ + distclean-compile distclean-generic distclean-libtool \ + distclean-tags distdir dvi dvi-am html html-am info info-am \ + install install-am install-data install-data-am install-dvi \ + install-dvi-am install-exec install-exec-am install-html \ + install-html-am install-info install-info-am \ + install-libLTLIBRARIES install-man install-pdf install-pdf-am \ + install-ps install-ps-am install-strip installcheck \ + installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ + tags uninstall uninstall-am uninstall-libLTLIBRARIES + + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/core/bgdrtm/src/Makefile.am b/core/bgdrtm/src/Makefile.am new file mode 100644 index 0000000..642c4a4 --- /dev/null +++ b/core/bgdrtm/src/Makefile.am @@ -0,0 +1,15 @@ +## Process this file with automake to produce Makefile.in + +#AUTOMAKE_OPTIONS = no-dependencies foreign + +lib_LTLIBRARIES = libbgdrtm.la + +libbgdrtm_la_SOURCES = fmath.c dcbr.c sysprocs.c strings.c dirs.c copy.c misc.c instance.c interpreter.c varspace_file.c ../../common/debug.c ../../common/b_crypt.c ../../common/files.c ../../common/xctype.c +libbgdrtm_la_CFLAGS = $(COMMON_CFLAGS) $(ZLIB_CFLAGS) -I../../include -I../include -D__BGDRTM__ -DDEBUG +libbgdrtm_la_LDFLAGS = -s -module -no-undefined -avoid-version -export-all-symbols +libbgdrtm_la_LIBADD = $(COMMON_LDFLAGS) $(ZLIB_LIBS) $(CRYPT_LDFLAGS) -lm + +## Make sure these will be cleaned even when they're not built by +## default. +CLEANFILES = libbgdrtm.la + diff --git a/core/bgdrtm/src/Makefile.in b/core/bgdrtm/src/Makefile.in new file mode 100644 index 0000000..34750f1 --- /dev/null +++ b/core/bgdrtm/src/Makefile.in @@ -0,0 +1,710 @@ +# Makefile.in generated by automake 1.12.1 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994-2012 Free Software Foundation, Inc. + +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +#AUTOMAKE_OPTIONS = no-dependencies foreign + +VPATH = @srcdir@ +am__make_dryrun = \ + { \ + am__dry=no; \ + case $$MAKEFLAGS in \ + *\\[\ \ ]*) \ + echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ + | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ + *) \ + for am__flg in $$MAKEFLAGS; do \ + case $$am__flg in \ + *=*|--*) ;; \ + *n*) am__dry=yes; break;; \ + esac; \ + done;; \ + esac; \ + test $$am__dry = yes; \ + } +pkgdatadir = $(datadir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkglibexecdir = $(libexecdir)/@PACKAGE@ +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +target_triplet = @target@ +subdir = bgdrtm/src +DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ + $(top_srcdir)/depcomp +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ + $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ + $(top_srcdir)/configure.in +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(install_sh) -d +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; +am__install_max = 40 +am__nobase_strip_setup = \ + srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` +am__nobase_strip = \ + for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" +am__nobase_list = $(am__nobase_strip_setup); \ + for p in $$list; do echo "$$p $$p"; done | \ + sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ + $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ + if (++n[$$2] == $(am__install_max)) \ + { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ + END { for (dir in files) print dir, files[dir] }' +am__base_list = \ + sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ + sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' +am__uninstall_files_from_dir = { \ + test -z "$$files" \ + || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ + || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ + $(am__cd) "$$dir" && rm -f $$files; }; \ + } +am__installdirs = "$(DESTDIR)$(libdir)" +LTLIBRARIES = $(lib_LTLIBRARIES) +am__DEPENDENCIES_1 = +libbgdrtm_la_DEPENDENCIES = $(am__DEPENDENCIES_1) \ + $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) +am_libbgdrtm_la_OBJECTS = libbgdrtm_la-fmath.lo libbgdrtm_la-dcbr.lo \ + libbgdrtm_la-sysprocs.lo libbgdrtm_la-strings.lo \ + libbgdrtm_la-dirs.lo libbgdrtm_la-copy.lo libbgdrtm_la-misc.lo \ + libbgdrtm_la-instance.lo libbgdrtm_la-interpreter.lo \ + libbgdrtm_la-varspace_file.lo libbgdrtm_la-debug.lo \ + libbgdrtm_la-b_crypt.lo libbgdrtm_la-files.lo \ + libbgdrtm_la-xctype.lo +libbgdrtm_la_OBJECTS = $(am_libbgdrtm_la_OBJECTS) +libbgdrtm_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(libbgdrtm_la_CFLAGS) \ + $(CFLAGS) $(libbgdrtm_la_LDFLAGS) $(LDFLAGS) -o $@ +DEFAULT_INCLUDES = -I.@am__isrc@ +depcomp = $(SHELL) $(top_srcdir)/depcomp +am__depfiles_maybe = depfiles +am__mv = mv -f +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ + --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ + $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +CCLD = $(CC) +LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ + --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ + $(LDFLAGS) -o $@ +SOURCES = $(libbgdrtm_la_SOURCES) +DIST_SOURCES = $(libbgdrtm_la_SOURCES) +am__can_run_installinfo = \ + case $$AM_UPDATE_INFO_DIR in \ + n|no|NO) false;; \ + *) (install-info --version) >/dev/null 2>&1;; \ + esac +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = @ACLOCAL@ +AMTAR = @AMTAR@ +AR = @AR@ +AS = @AS@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +COMMON_CFLAGS = @COMMON_CFLAGS@ +COMMON_LDFLAGS = @COMMON_LDFLAGS@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CRYPT_LDFLAGS = @CRYPT_LDFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +DLLTOOL = @DLLTOOL@ +DSYMUTIL = @DSYMUTIL@ +DUMPBIN = @DUMPBIN@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +FGREP = @FGREP@ +GREP = @GREP@ +INSTALL = @INSTALL@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +LD = @LD@ +LDFLAGS = @LDFLAGS@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LIPO = @LIPO@ +LN_S = @LN_S@ +LTLIBOBJS = @LTLIBOBJS@ +MAINT = @MAINT@ +MAKEINFO = @MAKEINFO@ +MANIFEST_TOOL = @MANIFEST_TOOL@ +MKDIR_P = @MKDIR_P@ +NM = @NM@ +NMEDIT = @NMEDIT@ +OBJDUMP = @OBJDUMP@ +OBJEXT = @OBJEXT@ +OTOOL = @OTOOL@ +OTOOL64 = @OTOOL64@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_URL = @PACKAGE_URL@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +PKG_CONFIG = @PKG_CONFIG@ +PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ +PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ +RANLIB = @RANLIB@ +SED = @SED@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +VERSION = @VERSION@ +WINDRES = @WINDRES@ +ZLIB_CFLAGS = @ZLIB_CFLAGS@ +ZLIB_LIBS = @ZLIB_LIBS@ +abs_builddir = @abs_builddir@ +abs_srcdir = @abs_srcdir@ +abs_top_builddir = @abs_top_builddir@ +abs_top_srcdir = @abs_top_srcdir@ +ac_ct_AR = @ac_ct_AR@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +builddir = @builddir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +docdir = @docdir@ +dvidir = @dvidir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +htmldir = @htmldir@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localedir = @localedir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +pdfdir = @pdfdir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +psdir = @psdir@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +srcdir = @srcdir@ +sysconfdir = @sysconfdir@ +target = @target@ +target_alias = @target_alias@ +target_cpu = @target_cpu@ +target_os = @target_os@ +target_vendor = @target_vendor@ +top_build_prefix = @top_build_prefix@ +top_builddir = @top_builddir@ +top_srcdir = @top_srcdir@ +lib_LTLIBRARIES = libbgdrtm.la +libbgdrtm_la_SOURCES = fmath.c dcbr.c sysprocs.c strings.c dirs.c copy.c misc.c instance.c interpreter.c varspace_file.c ../../common/debug.c ../../common/b_crypt.c ../../common/files.c ../../common/xctype.c +libbgdrtm_la_CFLAGS = $(COMMON_CFLAGS) $(ZLIB_CFLAGS) -I../../include -I../include -D__BGDRTM__ -DDEBUG +libbgdrtm_la_LDFLAGS = -s -module -no-undefined -avoid-version -export-all-symbols +libbgdrtm_la_LIBADD = $(COMMON_LDFLAGS) $(ZLIB_LIBS) $(CRYPT_LDFLAGS) -lm +CLEANFILES = libbgdrtm.la +all: all-am + +.SUFFIXES: +.SUFFIXES: .c .lo .o .obj +$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu bgdrtm/src/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --gnu bgdrtm/src/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): +install-libLTLIBRARIES: $(lib_LTLIBRARIES) + @$(NORMAL_INSTALL) + @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ + list2=; for p in $$list; do \ + if test -f $$p; then \ + list2="$$list2 $$p"; \ + else :; fi; \ + done; \ + test -z "$$list2" || { \ + echo " $(MKDIR_P) '$(DESTDIR)$(libdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libdir)" || exit 1; \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ + } + +uninstall-libLTLIBRARIES: + @$(NORMAL_UNINSTALL) + @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ + for p in $$list; do \ + $(am__strip_dir) \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ + done + +clean-libLTLIBRARIES: + -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) + @list='$(lib_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } +libbgdrtm.la: $(libbgdrtm_la_OBJECTS) $(libbgdrtm_la_DEPENDENCIES) $(EXTRA_libbgdrtm_la_DEPENDENCIES) + $(libbgdrtm_la_LINK) -rpath $(libdir) $(libbgdrtm_la_OBJECTS) $(libbgdrtm_la_LIBADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + +distclean-compile: + -rm -f *.tab.c + +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-b_crypt.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-copy.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-dcbr.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-debug.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-dirs.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-files.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-fmath.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-instance.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-interpreter.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-misc.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-strings.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-sysprocs.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-varspace_file.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libbgdrtm_la-xctype.Plo@am__quote@ + +.c.o: +@am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(COMPILE) -c $< + +.c.obj: +@am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` + +.c.lo: +@am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< + +libbgdrtm_la-fmath.lo: fmath.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-fmath.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-fmath.Tpo -c -o libbgdrtm_la-fmath.lo `test -f 'fmath.c' || echo '$(srcdir)/'`fmath.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-fmath.Tpo $(DEPDIR)/libbgdrtm_la-fmath.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='fmath.c' object='libbgdrtm_la-fmath.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-fmath.lo `test -f 'fmath.c' || echo '$(srcdir)/'`fmath.c + +libbgdrtm_la-dcbr.lo: dcbr.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-dcbr.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-dcbr.Tpo -c -o libbgdrtm_la-dcbr.lo `test -f 'dcbr.c' || echo '$(srcdir)/'`dcbr.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-dcbr.Tpo $(DEPDIR)/libbgdrtm_la-dcbr.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dcbr.c' object='libbgdrtm_la-dcbr.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-dcbr.lo `test -f 'dcbr.c' || echo '$(srcdir)/'`dcbr.c + +libbgdrtm_la-sysprocs.lo: sysprocs.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-sysprocs.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-sysprocs.Tpo -c -o libbgdrtm_la-sysprocs.lo `test -f 'sysprocs.c' || echo '$(srcdir)/'`sysprocs.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-sysprocs.Tpo $(DEPDIR)/libbgdrtm_la-sysprocs.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='sysprocs.c' object='libbgdrtm_la-sysprocs.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-sysprocs.lo `test -f 'sysprocs.c' || echo '$(srcdir)/'`sysprocs.c + +libbgdrtm_la-strings.lo: strings.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-strings.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-strings.Tpo -c -o libbgdrtm_la-strings.lo `test -f 'strings.c' || echo '$(srcdir)/'`strings.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-strings.Tpo $(DEPDIR)/libbgdrtm_la-strings.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='strings.c' object='libbgdrtm_la-strings.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-strings.lo `test -f 'strings.c' || echo '$(srcdir)/'`strings.c + +libbgdrtm_la-dirs.lo: dirs.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-dirs.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-dirs.Tpo -c -o libbgdrtm_la-dirs.lo `test -f 'dirs.c' || echo '$(srcdir)/'`dirs.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-dirs.Tpo $(DEPDIR)/libbgdrtm_la-dirs.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='dirs.c' object='libbgdrtm_la-dirs.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-dirs.lo `test -f 'dirs.c' || echo '$(srcdir)/'`dirs.c + +libbgdrtm_la-copy.lo: copy.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-copy.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-copy.Tpo -c -o libbgdrtm_la-copy.lo `test -f 'copy.c' || echo '$(srcdir)/'`copy.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-copy.Tpo $(DEPDIR)/libbgdrtm_la-copy.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='copy.c' object='libbgdrtm_la-copy.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-copy.lo `test -f 'copy.c' || echo '$(srcdir)/'`copy.c + +libbgdrtm_la-misc.lo: misc.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-misc.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-misc.Tpo -c -o libbgdrtm_la-misc.lo `test -f 'misc.c' || echo '$(srcdir)/'`misc.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-misc.Tpo $(DEPDIR)/libbgdrtm_la-misc.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='misc.c' object='libbgdrtm_la-misc.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-misc.lo `test -f 'misc.c' || echo '$(srcdir)/'`misc.c + +libbgdrtm_la-instance.lo: instance.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-instance.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-instance.Tpo -c -o libbgdrtm_la-instance.lo `test -f 'instance.c' || echo '$(srcdir)/'`instance.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-instance.Tpo $(DEPDIR)/libbgdrtm_la-instance.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='instance.c' object='libbgdrtm_la-instance.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-instance.lo `test -f 'instance.c' || echo '$(srcdir)/'`instance.c + +libbgdrtm_la-interpreter.lo: interpreter.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-interpreter.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-interpreter.Tpo -c -o libbgdrtm_la-interpreter.lo `test -f 'interpreter.c' || echo '$(srcdir)/'`interpreter.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-interpreter.Tpo $(DEPDIR)/libbgdrtm_la-interpreter.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='interpreter.c' object='libbgdrtm_la-interpreter.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-interpreter.lo `test -f 'interpreter.c' || echo '$(srcdir)/'`interpreter.c + +libbgdrtm_la-varspace_file.lo: varspace_file.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-varspace_file.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-varspace_file.Tpo -c -o libbgdrtm_la-varspace_file.lo `test -f 'varspace_file.c' || echo '$(srcdir)/'`varspace_file.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-varspace_file.Tpo $(DEPDIR)/libbgdrtm_la-varspace_file.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='varspace_file.c' object='libbgdrtm_la-varspace_file.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-varspace_file.lo `test -f 'varspace_file.c' || echo '$(srcdir)/'`varspace_file.c + +libbgdrtm_la-debug.lo: ../../common/debug.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-debug.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-debug.Tpo -c -o libbgdrtm_la-debug.lo `test -f '../../common/debug.c' || echo '$(srcdir)/'`../../common/debug.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-debug.Tpo $(DEPDIR)/libbgdrtm_la-debug.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='../../common/debug.c' object='libbgdrtm_la-debug.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-debug.lo `test -f '../../common/debug.c' || echo '$(srcdir)/'`../../common/debug.c + +libbgdrtm_la-b_crypt.lo: ../../common/b_crypt.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-b_crypt.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-b_crypt.Tpo -c -o libbgdrtm_la-b_crypt.lo `test -f '../../common/b_crypt.c' || echo '$(srcdir)/'`../../common/b_crypt.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-b_crypt.Tpo $(DEPDIR)/libbgdrtm_la-b_crypt.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='../../common/b_crypt.c' object='libbgdrtm_la-b_crypt.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-b_crypt.lo `test -f '../../common/b_crypt.c' || echo '$(srcdir)/'`../../common/b_crypt.c + +libbgdrtm_la-files.lo: ../../common/files.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-files.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-files.Tpo -c -o libbgdrtm_la-files.lo `test -f '../../common/files.c' || echo '$(srcdir)/'`../../common/files.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-files.Tpo $(DEPDIR)/libbgdrtm_la-files.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='../../common/files.c' object='libbgdrtm_la-files.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-files.lo `test -f '../../common/files.c' || echo '$(srcdir)/'`../../common/files.c + +libbgdrtm_la-xctype.lo: ../../common/xctype.c +@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -MT libbgdrtm_la-xctype.lo -MD -MP -MF $(DEPDIR)/libbgdrtm_la-xctype.Tpo -c -o libbgdrtm_la-xctype.lo `test -f '../../common/xctype.c' || echo '$(srcdir)/'`../../common/xctype.c +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libbgdrtm_la-xctype.Tpo $(DEPDIR)/libbgdrtm_la-xctype.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='../../common/xctype.c' object='libbgdrtm_la-xctype.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libbgdrtm_la_CFLAGS) $(CFLAGS) -c -o libbgdrtm_la-xctype.lo `test -f '../../common/xctype.c' || echo '$(srcdir)/'`../../common/xctype.c + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + +ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in files) print i; }; }'`; \ + mkid -fID $$unique +tags: TAGS + +TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + set x; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in files) print i; }; }'`; \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: CTAGS +CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in files) print i; }; }'`; \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" + +cscopelist: $(HEADERS) $(SOURCES) $(LISP) + list='$(SOURCES) $(HEADERS) $(LISP)'; \ + case "$(srcdir)" in \ + [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ + *) sdir=$(subdir)/$(srcdir) ;; \ + esac; \ + for i in $$list; do \ + if test -f "$$i"; then \ + echo "$(subdir)/$$i"; \ + else \ + echo "$$sdir/$$i"; \ + fi; \ + done >> $(top_builddir)/cscope.files + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-am +all-am: Makefile $(LTLIBRARIES) +installdirs: + for dir in "$(DESTDIR)$(libdir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + if test -z '$(STRIP)'; then \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + install; \ + else \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ + fi +mostlyclean-generic: + +clean-generic: + -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ + mostlyclean-am + +distclean: distclean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +html-am: + +info: info-am + +info-am: + +install-data-am: + +install-dvi: install-dvi-am + +install-dvi-am: + +install-exec-am: install-libLTLIBRARIES + +install-html: install-html-am + +install-html-am: + +install-info: install-info-am + +install-info-am: + +install-man: + +install-pdf: install-pdf-am + +install-pdf-am: + +install-ps: install-ps-am + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-libLTLIBRARIES + +.MAKE: install-am install-strip + +.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ + clean-libLTLIBRARIES clean-libtool cscopelist ctags distclean \ + distclean-compile distclean-generic distclean-libtool \ + distclean-tags distdir dvi dvi-am html html-am info info-am \ + install install-am install-data install-data-am install-dvi \ + install-dvi-am install-exec install-exec-am install-html \ + install-html-am install-info install-info-am \ + install-libLTLIBRARIES install-man install-pdf install-pdf-am \ + install-ps install-ps-am install-strip installcheck \ + installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ + tags uninstall uninstall-am uninstall-libLTLIBRARIES + + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/core/bgdrtm/src/copy.c b/core/bgdrtm/src/copy.c new file mode 100644 index 0000000..ca2c587 --- /dev/null +++ b/core/bgdrtm/src/copy.c @@ -0,0 +1,226 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +/* + * FILE : i_copy.c + * DESCRIPTION : Struct copy functions based on varspace type info + * + * HISTORY: 0.85 - First version + */ + +#include +#include +#include + +#include +#include + +#include "xstrings.h" +#include "bgdrtm.h" + +static int copytype( void * dst, void * src, DCB_TYPEDEF * var ); + +/* + * FUNCTION : copyvars + * + * Copy data using a varspace's type information. It updates the + * destination pointer while walking the variables. + * + * PARAMS : + * dst Pointer to the destination memory + * src Pointer to the data + * var Pointer to the type array + * nvars Number of variables (length of var array) + * + * RETURN VALUE : + * Number of bytes actually copied + * + */ + +int copyvars( void * dst, void * src, DCB_VAR * var, int nvars ) +{ + int result = 0; + int partial; + + for ( ; nvars > 0; nvars--, var++ ) + { + partial = copytype( dst, src, &var->Type ); + src = (( uint8_t* )src ) + partial; + dst = (( uint8_t* )dst ) + partial; + result += partial; + } + return result; +} + + +/* + * FUNCTION : copytypes + * + * Copy data from memory using type information stored in memory + * + * PARAMS : + * dst Pointer to the destination memory + * src Pointer to the source + * var Pointer to the type array + * nvars Number of variables (length of var array) + * + * RETURN VALUE : + * Number of bytes actually coppied + * + */ + +int copytypes( void * dst, void * src, DCB_TYPEDEF * var, int nvars, int reps ) +{ + int result = 0; + int partial; + DCB_TYPEDEF * _var = var; + int _nvars = nvars ; + + for ( ; reps > 0; reps-- ) + { + var = _var; + nvars = _nvars; + for ( ; nvars > 0; nvars--, var++ ) + { + partial = copytype( dst, src, var ); + result += partial; + src = (( uint8_t* )src ) + partial; + dst = (( uint8_t* )dst ) + partial; + } + } + return result; +} + +/* + * FUNCTION : copytype + * + * Copy one variable using the given type information. + * + * PARAMS : + * dst Pointer to the file object + * src Pointer to the data + * var Pointer to the variable type + * + * RETURN VALUE : + * Number of bytes actually written + * + */ + +static int copytype( void * dst, void * src, DCB_TYPEDEF * var ) +{ + int count = 1; + int result = 0; + int n = 0; + + for ( ;; ) + { + switch ( var->BaseType[n] ) + { + case TYPE_FLOAT: + case TYPE_INT: + case TYPE_DWORD: + case TYPE_POINTER: + memcpy( dst, src, 4 * count ); + return 4 * count; + + case TYPE_WORD: + case TYPE_SHORT: + memcpy( dst, src, 2 * count ); + return 2 * count; + + case TYPE_BYTE: + case TYPE_SBYTE: + case TYPE_CHAR: + memcpy( dst, src, count ); + return count; + + case TYPE_STRING: + while ( count-- ) + { + string_discard( *( int * )dst ); + string_use( *( int * )src ); + *(( int * )dst ) = *(( int * )src ); + dst = (( int * )dst ) + 1; + src = (( int * )src ) + 1; + result += 4; + } + return result; + + case TYPE_ARRAY: + count *= var->Count[n]; + n++; + continue; + + case TYPE_STRUCT: + for ( ; count ; count-- ) + { + int partial = copyvars( dst, src, dcb.varspace_vars[var->Members], dcb.varspace[var->Members].NVars ); + src = (( uint8_t* )src ) + partial; + dst = (( uint8_t* )dst ) + partial; + result += partial; + } + break; + + default: + fprintf( stderr, "ERROR: Runtime error - Could not copy datatype\n" ) ; + exit( 1 ); + break; + } + break; + } + return result; +} + +/** + * POINTER #COPY# (POINTER DEST, POINTER SRC, POINTER VARSPACE, INT VARS) + * + * Copy struct data from src to dst, using the information varspace given + **/ + +int bgd_copy_struct( INSTANCE * my, int * params ) +{ + return ( int ) copytypes(( void * )params[0], ( void * )params[1], ( DCB_TYPEDEF * )params[2], params[3], params[4] ); +} + +int bgd_internal_memcopy( INSTANCE * my, int * params ) +{ + memmove(( void * )params[0], ( void * )params[1], params[2] ) ; + return 1 ; +} + +int bgd_internal_copy_string_array( INSTANCE * my, int * params ) +{ + int n = params[ 2 ]; + while( n-- ) + { + ((int *)( params[ 0 ] )) [ n ] = ((int *)( params[ 1 ] )) [ n ]; + string_use( ((int *)( params[ 0 ] )) [ n ] ); + } + + return 1 ; +} diff --git a/core/bgdrtm/src/dcbr.c b/core/bgdrtm/src/dcbr.c new file mode 100644 index 0000000..4f4bd24 --- /dev/null +++ b/core/bgdrtm/src/dcbr.c @@ -0,0 +1,551 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +#include +#include +#include +#ifndef WIN32 +#include +#else +#include +#endif +#include "bgdrtm.h" +#include "dcb.h" +#include "dirs.h" +#include "files.h" +#include "xstrings.h" + +#define SYSPROCS_ONLY_DECLARE +#include "sysprocs.h" + +/* --------------------------------------------------------------------------- */ + +void * globaldata = 0 ; +void * localdata = 0 ; +int local_size = 0 ; +int * localstr = 0 ; +int local_strings = 0 ; + +PROCDEF * procs = NULL ; +PROCDEF * mainproc = NULL ; +int procdef_count = 0 ; + +/* ---------------------------------------------------------------------- */ + +DCB_SYSPROC_CODE2 * sysproc_code_ref = NULL ; + +/* ---------------------------------------------------------------------- */ + +void sysprocs_fixup( void ) +{ + SYSPROC * proc = sysprocs ; + DCB_SYSPROC_CODE2 * s = NULL ; + int n; + + while ( proc->func ) + { + proc->code = -1; + + s = sysproc_code_ref ; + for ( n = 0; n < dcb.data.NSysProcsCodes; n++, s++ ) + { + if ( + proc->type == s->Type && proc->params == s->Params && + s->Id == getid( proc->name ) && !strcmp( (const char *)s->ParamTypes, proc->paramtypes ) ) + { + proc->code = s->Code ; + break ; + } + } + proc++ ; + } +} + +/* ---------------------------------------------------------------------- */ + +PROCDEF * procdef_get( int n ) +{ + if ( n >= 0 && n < procdef_count ) + return &procs[n] ; + + return NULL ; +} + +/* ---------------------------------------------------------------------- */ + +PROCDEF * procdef_get_by_name( char * name ) +{ + int n; + for ( n = 0 ; n < procdef_count; n++ ) + if ( strcmp( procs[n].name, name ) == 0 ) + return &procs[n]; + + return NULL ; +} + +/* ---------------------------------------------------------------------- */ + +DCB_HEADER dcb ; + +/* ---------------------------------------------------------------------- */ + +static char * trim( char * ptr ) +{ + char * ostr = ptr; + char * bptr = ptr; + + while ( *ptr == ' ' || *ptr == '\n' || *ptr == '\r' || *ptr == '\t' ) ptr++; + + while ( *ptr ) *bptr++ = *ptr++; + + while ( bptr > ostr && ( bptr[-1] == ' ' || bptr[-1] == '\n' || bptr[-1] == '\r' || bptr[-1] == '\t' ) ) bptr--; + + *bptr = 0; + + return ( ostr ); +} + +/* ---------------------------------------------------------------------- */ + +static int load_file( const char * filename, int n ) +{ + char line[2048] ; + int allocated = 16 ; + int count = 0 ; + char ** lines ; + file * fp ; + + fp = file_open( filename, "r0" ) ; + if ( !fp ) + { + dcb.sourcefiles[n] = 0 ; + dcb.sourcelines[n] = 0 ; + dcb.sourcecount[n] = 0 ; + return 0 ; + } + + lines = ( char ** ) calloc( 16, sizeof( char* ) ) ; + + while ( !file_eof( fp ) ) + { + file_qgets( fp, line, 2048 ) ; + trim( line ); + if ( allocated == count ) + { + allocated += 16 ; + lines = realloc( lines, sizeof( char* ) * allocated ) ; + } + lines[count++] = strdup( line ) ; + } + file_close( fp ) ; + + dcb.sourcefiles[n] = ( uint8_t * ) strdup( filename ); + dcb.sourcelines[n] = ( uint8_t ** ) lines ; + dcb.sourcecount[n] = count ; + return 1 ; +} + +/* ---------------------------------------------------------------------- */ + +int dcb_load( const char * filename ) +{ + file * fp ; + + /* check for existence of the DCB FILE */ + if ( !file_exists( filename ) ) return 0 ; + + fp = file_open( filename, "rb0" ) ; + if ( !fp ) + { + fprintf( stderr, "ERROR: Runtime error - Could not open file (%s)\n", filename ) ; + exit( 1 ); + } + + return dcb_load_from( fp, filename, 0 ); +} + +/* ---------------------------------------------------------------------- */ + +DCB_VAR * read_and_arrange_varspace( file * fp, int count ) +{ + int n, n1; + DCB_VAR * vars = ( DCB_VAR * ) calloc( count, sizeof( DCB_VAR ) ) ; + + for ( n = 0; n < count; n++ ) + { + file_read( fp, &vars[n], sizeof( DCB_VAR ) ) ; + ARRANGE_DWORD( &vars[n].ID ); + ARRANGE_DWORD( &vars[n].Offset ); + for ( n1 = 0; n1 < MAX_TYPECHUNKS; n1++ ) ARRANGE_DWORD( &vars[n].Type.Count[n1] ); + ARRANGE_DWORD( &vars[n].Type.Members ); + } + + return vars; +} + +/* ---------------------------------------------------------------------- */ + +int dcb_load_from( file * fp, char * filename, int offset ) +{ + unsigned int n ; + uint32_t size; + + /* Lee el contenido del fichero */ + + file_seek( fp, offset, SEEK_SET ); + file_read( fp, &dcb, sizeof( DCB_HEADER_DATA ) ) ; + + ARRANGE_DWORD( &dcb.data.Version ); + ARRANGE_DWORD( &dcb.data.NProcs ); + ARRANGE_DWORD( &dcb.data.NFiles ); + ARRANGE_DWORD( &dcb.data.NID ); + ARRANGE_DWORD( &dcb.data.NStrings ); + ARRANGE_DWORD( &dcb.data.NLocVars ); + ARRANGE_DWORD( &dcb.data.NLocStrings ); + ARRANGE_DWORD( &dcb.data.NGloVars ); + + ARRANGE_DWORD( &dcb.data.SGlobal ); + ARRANGE_DWORD( &dcb.data.SLocal ); + ARRANGE_DWORD( &dcb.data.SText ); + + ARRANGE_DWORD( &dcb.data.NImports ); + + ARRANGE_DWORD( &dcb.data.NSourceFiles ); + + ARRANGE_DWORD( &dcb.data.NSysProcsCodes ); + + ARRANGE_DWORD( &dcb.data.OProcsTab ); + ARRANGE_DWORD( &dcb.data.OID ); + ARRANGE_DWORD( &dcb.data.OStrings ); + ARRANGE_DWORD( &dcb.data.OText ); + ARRANGE_DWORD( &dcb.data.OGlobal ); + ARRANGE_DWORD( &dcb.data.OGloVars ); + ARRANGE_DWORD( &dcb.data.OLocal ); + ARRANGE_DWORD( &dcb.data.OLocVars ); + ARRANGE_DWORD( &dcb.data.OLocStrings ); + ARRANGE_DWORD( &dcb.data.OVarSpaces ); + ARRANGE_DWORD( &dcb.data.OFilesTab ); + ARRANGE_DWORD( &dcb.data.OImports ); + + ARRANGE_DWORD( &dcb.data.OSourceFiles ); + ARRANGE_DWORD( &dcb.data.OSysProcsCodes ); + + if ( memcmp( dcb.data.Header, DCB_MAGIC, sizeof( DCB_MAGIC ) - 1 ) != 0 || dcb.data.Version < 0x0700 ) return 0 ; + + globaldata = calloc( dcb.data.SGlobal + 4, 1 ) ; + localdata = calloc( dcb.data.SLocal + 4, 1 ) ; + localstr = ( int * ) calloc( dcb.data.NLocStrings + 4, sizeof( int ) ) ; + dcb.proc = ( DCB_PROC * ) calloc(( 1 + dcb.data.NProcs ), sizeof( DCB_PROC ) ) ; + procs = ( PROCDEF * ) calloc(( 1 + dcb.data.NProcs ), sizeof( PROCDEF ) ) ; + + procdef_count = dcb.data.NProcs ; + local_size = dcb.data.SLocal ; + local_strings = dcb.data.NLocStrings ; + + /* Recupera las zonas de datos globales */ + + file_seek( fp, offset + dcb.data.OGlobal, SEEK_SET ) ; + file_read( fp, globaldata, dcb.data.SGlobal ) ; /* **** */ + + file_seek( fp, offset + dcb.data.OLocal, SEEK_SET ) ; + file_read( fp, localdata, dcb.data.SLocal ) ; /* **** */ + + if ( dcb.data.NLocStrings ) + { + file_seek( fp, offset + dcb.data.OLocStrings, SEEK_SET ) ; + file_readUint32A( fp, (uint32_t *)localstr, dcb.data.NLocStrings ) ; + } + + file_seek( fp, offset + dcb.data.OProcsTab, SEEK_SET ) ; + for ( n = 0 ; n < dcb.data.NProcs ; n++ ) + { + file_read( fp, &dcb.proc[n], sizeof( DCB_PROC_DATA ) ) ; + + ARRANGE_DWORD( &dcb.proc[n].data.ID ); + ARRANGE_DWORD( &dcb.proc[n].data.Flags ); + ARRANGE_DWORD( &dcb.proc[n].data.NParams ); + + ARRANGE_DWORD( &dcb.proc[n].data.NPriVars ); + ARRANGE_DWORD( &dcb.proc[n].data.NPriStrings ); + + ARRANGE_DWORD( &dcb.proc[n].data.NPubVars ); + ARRANGE_DWORD( &dcb.proc[n].data.NPubStrings ); + + ARRANGE_DWORD( &dcb.proc[n].data.NSentences ); + + ARRANGE_DWORD( &dcb.proc[n].data.SPrivate ); + ARRANGE_DWORD( &dcb.proc[n].data.SPublic ); + + ARRANGE_DWORD( &dcb.proc[n].data.SCode ); + + ARRANGE_DWORD( &dcb.proc[n].data.OExitCode ); + ARRANGE_DWORD( &dcb.proc[n].data.OErrorCode ); + + ARRANGE_DWORD( &dcb.proc[n].data.OSentences ); + + ARRANGE_DWORD( &dcb.proc[n].data.OPriVars ); + ARRANGE_DWORD( &dcb.proc[n].data.OPriStrings ); + ARRANGE_DWORD( &dcb.proc[n].data.OPrivate ); + + ARRANGE_DWORD( &dcb.proc[n].data.OPubVars ); + ARRANGE_DWORD( &dcb.proc[n].data.OPubStrings ); + ARRANGE_DWORD( &dcb.proc[n].data.OPublic ); + + ARRANGE_DWORD( &dcb.proc[n].data.OCode ); + } + + /* Recupera las cadenas */ + + dcb.data.OStrings += offset; + dcb.data.OText += offset; + + string_load( fp, dcb.data.OStrings, dcb.data.OText, dcb.data.NStrings, dcb.data.SText ); + + /* Recupera los ficheros incluídos */ + + if ( dcb.data.NFiles ) + { + DCB_FILE dcbfile; + char fname[__MAX_PATH]; + + xfile_init( dcb.data.NFiles ); + file_seek( fp, offset + dcb.data.OFilesTab, SEEK_SET ) ; + for ( n = 0 ; n < dcb.data.NFiles; n++ ) + { + file_read( fp, &dcbfile, sizeof( DCB_FILE ) ) ; + + ARRANGE_DWORD( &dcbfile.SName ); + ARRANGE_DWORD( &dcbfile.SFile ); + ARRANGE_DWORD( &dcbfile.OFile ); + + file_read( fp, &fname, dcbfile.SName ) ; + file_add_xfile( fp, filename, offset + dcbfile.OFile, fname, dcbfile.SFile ) ; + } + } + + /* Recupera los imports */ + + if ( dcb.data.NImports ) + { + dcb.imports = ( uint32_t * )calloc( dcb.data.NImports, sizeof( uint32_t ) ) ; + file_seek( fp, offset + dcb.data.OImports, SEEK_SET ) ; + file_readUint32A( fp, dcb.imports, dcb.data.NImports ) ; + } + + /* Recupera los datos de depurado */ + + if ( dcb.data.NID ) + { + dcb.id = ( DCB_ID * ) calloc( dcb.data.NID, sizeof( DCB_ID ) ) ; + file_seek( fp, offset + dcb.data.OID, SEEK_SET ) ; + + for ( n = 0; n < dcb.data.NID; n++ ) + { + file_read( fp, &dcb.id[n], sizeof( DCB_ID ) ) ; + ARRANGE_DWORD( &dcb.id[n].Code ); + } + } + + if ( dcb.data.NGloVars ) + { + file_seek( fp, offset + dcb.data.OGloVars, SEEK_SET ) ; + dcb.glovar = read_and_arrange_varspace( fp, dcb.data.NGloVars ); + } + + if ( dcb.data.NLocVars ) + { + file_seek( fp, offset + dcb.data.OLocVars, SEEK_SET ) ; + dcb.locvar = read_and_arrange_varspace( fp, dcb.data.NLocVars ); + } + + if ( dcb.data.NVarSpaces ) + { + dcb.varspace = ( DCB_VARSPACE * ) calloc( dcb.data.NVarSpaces, sizeof( DCB_VARSPACE ) ) ; + dcb.varspace_vars = ( DCB_VAR ** ) calloc( dcb.data.NVarSpaces, sizeof( DCB_VAR * ) ) ; + file_seek( fp, offset + dcb.data.OVarSpaces, SEEK_SET ) ; + + for ( n = 0; n < dcb.data.NVarSpaces; n++ ) + { + file_read( fp, &dcb.varspace[n], sizeof( DCB_VARSPACE ) ) ; + ARRANGE_DWORD( &dcb.varspace[n].NVars ); + ARRANGE_DWORD( &dcb.varspace[n].OVars ); + } + + for ( n = 0; n < dcb.data.NVarSpaces; n++ ) + { + dcb.varspace_vars[n] = 0 ; + if ( !dcb.varspace[n].NVars ) continue ; + file_seek( fp, offset + dcb.varspace[n].OVars, SEEK_SET ) ; + dcb.varspace_vars[n] = read_and_arrange_varspace( fp, dcb.varspace[n].NVars ); + } + } + + if ( dcb.data.NSourceFiles ) + { + char fname[__MAX_PATH] ; + + dcb.sourcecount = ( uint32_t * ) calloc( dcb.data.NSourceFiles, sizeof( uint32_t ) ) ; + dcb.sourcelines = ( uint8_t *** ) calloc( dcb.data.NSourceFiles, sizeof( char ** ) ) ; + dcb.sourcefiles = ( uint8_t ** ) calloc( dcb.data.NSourceFiles, sizeof( char * ) ) ; + file_seek( fp, offset + dcb.data.OSourceFiles, SEEK_SET ) ; + for ( n = 0; n < dcb.data.NSourceFiles; n++ ) + { + file_readUint32( fp, &size ) ; + file_read( fp, fname, size ) ; + if ( !load_file( fname, n ) ) fprintf( stdout, "WARNING: Runtime warning - file not found (%s)\n", fname ) ; + } + } + + /* ZZZZZZZZZZZZZZZZZZZZZZZZZZ */ + + /* Recupera los procesos */ + + for ( n = 0 ; n < dcb.data.NProcs ; n++ ) + { + procs[n].params = dcb.proc[n].data.NParams ; + procs[n].string_count = dcb.proc[n].data.NPriStrings ; + procs[n].pubstring_count = dcb.proc[n].data.NPubStrings ; + procs[n].private_size = dcb.proc[n].data.SPrivate ; + procs[n].public_size = dcb.proc[n].data.SPublic ; + procs[n].code_size = dcb.proc[n].data.SCode ; + procs[n].id = dcb.proc[n].data.ID ; + procs[n].flags = dcb.proc[n].data.Flags ; + procs[n].type = n ; + procs[n].name = getid_name( procs[n].id ) ; + procs[n].breakpoint = 0; + + if ( dcb.proc[n].data.SPrivate ) + { + procs[n].pridata = ( int * )calloc( dcb.proc[n].data.SPrivate, sizeof( char ) ) ; /* El size ya esta calculado en bytes */ + file_seek( fp, offset + dcb.proc[n].data.OPrivate, SEEK_SET ) ; + file_read( fp, procs[n].pridata, dcb.proc[n].data.SPrivate ) ; /* *** */ + } + + if ( dcb.proc[n].data.SPublic ) + { + procs[n].pubdata = ( int * )calloc( dcb.proc[n].data.SPublic, sizeof( char ) ) ; /* El size ya esta calculado en bytes */ + file_seek( fp, offset + dcb.proc[n].data.OPublic, SEEK_SET ) ; + file_read( fp, procs[n].pubdata, dcb.proc[n].data.SPublic ) ; /* *** */ + } + + if ( dcb.proc[n].data.SCode ) + { + procs[n].code = ( int * ) calloc( dcb.proc[n].data.SCode, sizeof( char ) ) ; /* El size ya esta calculado en bytes */ + file_seek( fp, offset + dcb.proc[n].data.OCode, SEEK_SET ) ; + file_readUint32A( fp, (uint32_t *)procs[n].code, dcb.proc[n].data.SCode / sizeof(uint32_t) ) ; + + if ( dcb.proc[n].data.OExitCode ) + procs[n].exitcode = dcb.proc[n].data.OExitCode ; + else + procs[n].exitcode = 0 ; + + if ( dcb.proc[n].data.OErrorCode ) + procs[n].errorcode = dcb.proc[n].data.OErrorCode ; + else + procs[n].errorcode = 0 ; + } + + if ( dcb.proc[n].data.NPriStrings ) + { + procs[n].strings = ( int * )calloc( dcb.proc[n].data.NPriStrings, sizeof( int ) ) ; + file_seek( fp, offset + dcb.proc[n].data.OPriStrings, SEEK_SET ) ; + file_readUint32A( fp, (uint32_t *)procs[n].strings, dcb.proc[n].data.NPriStrings ) ; + } + + if ( dcb.proc[n].data.NPubStrings ) + { + procs[n].pubstrings = ( int * )calloc( dcb.proc[n].data.NPubStrings, sizeof( int ) ) ; + file_seek( fp, offset + dcb.proc[n].data.OPubStrings, SEEK_SET ) ; + file_readUint32A( fp, (uint32_t *)procs[n].pubstrings, dcb.proc[n].data.NPubStrings ) ; + } + + if ( dcb.proc[n].data.NPriVars ) + { + file_seek( fp, offset + dcb.proc[n].data.OPriVars, SEEK_SET ) ; + dcb.proc[n].privar = read_and_arrange_varspace( fp, dcb.proc[n].data.NPriVars ); + } + + if ( dcb.proc[n].data.NPubVars ) + { + file_seek( fp, offset + dcb.proc[n].data.OPubVars, SEEK_SET ) ; + dcb.proc[n].pubvar = read_and_arrange_varspace( fp, dcb.proc[n].data.NPubVars ); + } + } + + /* Recupero tabla de fixup de sysprocs */ + + sysproc_code_ref = calloc( dcb.data.NSysProcsCodes, sizeof( DCB_SYSPROC_CODE2 ) ) ; + file_seek( fp, offset + dcb.data.OSysProcsCodes, SEEK_SET ) ; + for ( n = 0; n < dcb.data.NSysProcsCodes; n++ ) + { + DCB_SYSPROC_CODE sdcb; + file_read( fp, &sdcb, sizeof( DCB_SYSPROC_CODE ) ) ; + + ARRANGE_DWORD( &sdcb.Id ); + ARRANGE_DWORD( &sdcb.Type ); + ARRANGE_DWORD( &sdcb.Params ); + ARRANGE_DWORD( &sdcb.Code ); + + sysproc_code_ref[n].Id = sdcb.Id ; + sysproc_code_ref[n].Type = sdcb.Type ; + sysproc_code_ref[n].Params = sdcb.Params ; + sysproc_code_ref[n].Code = sdcb.Code ; + sysproc_code_ref[n].ParamTypes = ( uint8_t * ) calloc( sdcb.Params + 1, sizeof( char ) ); + if ( sdcb.Params ) file_read( fp, sysproc_code_ref[n].ParamTypes, sdcb.Params ) ; + } + + sysprocs_fixup(); + + mainproc = procdef_get_by_name( "MAIN" ); + + return 1 ; +} + +/* ---------------------------------------------------------------------- */ + +char * getid_name( unsigned int code ) +{ + unsigned int n ; + for ( n = 0 ; n < dcb.data.NID ; n++ ) + if ( dcb.id[n].Code == code ) + return (char *)dcb.id[n].Name ; + return "(?)" ; +} + +/* ---------------------------------------------------------------------- */ + +int getid( char * name ) +{ + unsigned int n ; + for ( n = 0 ; n < dcb.data.NID ; n++ ) + if ( strcmp( (const char *)dcb.id[n].Name, name ) == 0 ) + return dcb.id[n].Code ; + return -1 ; +} + +/* ---------------------------------------------------------------------- */ diff --git a/core/bgdrtm/src/dirs.c b/core/bgdrtm/src/dirs.c new file mode 100644 index 0000000..bb306c8 --- /dev/null +++ b/core/bgdrtm/src/dirs.c @@ -0,0 +1,430 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +/* + * FILE : dirs.c + * DESCRIPTION : directory functions + * + * HISTORY: + * + */ + +#include "bgdrtm.h" +#include "dirs.h" +#include "xstrings.h" + +#include +#include +#include + +/* ------------------------------------------------------------------------------------ */ +/* + * FUNCTION : dir_path_convert + * + * Convert a path to the valid OS format + * + * PARAMS : + * char * path: path to convert + * + * RETURN VALUE : + * char *: converted path + * + */ + +char * dir_path_convert( const char * dir ) +{ + char *c, *p ; + + p = strdup( dir ) ; + if ( !p ) return NULL; + + c = p ; + /* Convert characters */ + while ( *p ) + { + if ( *p == PATH_CHAR_ISEP ) *p = PATH_CHAR_SEP ; + p++ ; + } + return c; +} + + +/* ------------------------------------------------------------------------------------ */ +/* + * FUNCTION : dir_current + * + * Retrieve current directory + * + * PARAMS : + * + * RETURN VALUE : + * STRING ID pointing to a system string with the current dir + * + */ + +char * dir_current( void ) +{ + return ( getcwd( NULL, 0 ) ) ; +} + +/* ------------------------------------------------------------------------------------ */ +/* + * FUNCTION : dir_change + * + * Retrieve current directory + * + * PARAMS : + * char * dir: the new current directory + * + * RETURN VALUE : + * 0 - FAILURE + * NON_ZERO - SUCCESS + * + */ + +int dir_change( const char * dir ) +{ + char *c = dir_path_convert( dir ) ; + if ( !c ) return 0; + int r = chdir( c ) ; + free( c ) ; + return r ; +} + +/* ------------------------------------------------------------------------------------ */ +/* + * FUNCTION : dir_create + * + * Retrieve current directory + * + * PARAMS : + * char * dir: the directory to create + * + * RETURN VALUE : + * 0 - FAILURE + * NON_ZERO - SUCCESS + * + */ + +int dir_create( const char * dir ) +{ + char *c = dir_path_convert( dir ) ; + if ( !c ) return 0; +#ifdef WIN32 + int r = mkdir( c ) ; +#else + int r = mkdir( c, 0777 ) ; +#endif + free( c ) ; + return r ; +} + +/* ------------------------------------------------------------------------------------ */ +/* + * FUNCTION : dir_delete + * + * Retrieve current directory + * + * PARAMS : + * char * dir: the directory to delete + * + * RETURN VALUE : + * 0 - FAILURE + * NON_ZERO - SUCCESS + * + */ + +int dir_delete( const char * dir ) +{ + char *c = dir_path_convert( dir ) ; + if ( !c ) return 0; + int r = rmdir( c ) ; + free( c ) ; + return r ; +} + +/* ------------------------------------------------------------------------------------ */ +/* + * FUNCTION : dir_deletefile + * + * Remove a given file + * + * PARAMS : + * char * filename: the file to delete + * + * RETURN VALUE : + * 0 - FAILURE + * NON_ZERO - SUCCESS + * + */ + +int dir_deletefile( const char * filename ) +{ + char *c = dir_path_convert( filename ) ; + if ( !c ) return 0; + int r = unlink( c ) ; + free( c ) ; + return ( r == -1 ) ? 0 : 1 ; +} + +/* ------------------------------------------------------------------------------------ */ + +__DIR_ST * dir_open( const char * path ) +{ + __DIR_ST * hDir = malloc( sizeof( __DIR_ST ) ); + if ( !hDir ) return NULL; + + hDir->path = strdup( path ); + if ( !hDir->path ) + { + free ( hDir ); + return NULL; + } + +#ifdef _WIN32 + hDir->handle = FindFirstFile( hDir->path, &hDir->data ); + hDir->eod = ( hDir->handle == INVALID_HANDLE_VALUE ); + + if ( !hDir->handle ) + { + free( hDir->path ); + free( hDir ); + return NULL; + } +#else + const char * ptr = hDir->path; + char * fptr; + int r; + + hDir->pattern = malloc( strlen( path ) * 4 ); + if ( !hDir->pattern ) + { + free ( hDir->path ); + free ( hDir ); + return NULL; + } + + /* Clean the path creating a case-insensitive match pattern */ + + fptr = hDir->pattern; + while ( *ptr ) + { + if ( *ptr == '\\' ) + { + *fptr++ = '/'; + } + else if ( *ptr >= 'a' && *ptr <= 'z' ) + { + *fptr++ = '['; + *fptr++ = *ptr; + *fptr++ = toupper( *ptr ); + *fptr++ = ']'; + } + else if ( *ptr >= 'A' && *ptr <= 'Z' ) + { + *fptr++ = '['; + *fptr++ = tolower( *ptr ); + *fptr++ = *ptr; + *fptr++ = ']'; + } + else + *fptr++ = *ptr; + ptr++; + } + *fptr = 0; + + /* Convert '*.*' to '*' */ + if ( fptr > hDir->pattern + 2 && fptr[ -1 ] == '*' && fptr[ -2 ] == '.' && fptr[ -3 ] == '*' ) fptr[ -2 ] = 0; + +#if defined(TARGET_MAC) || defined(TARGET_BEOS) + r = glob( hDir->pattern, GLOB_ERR | GLOB_NOSORT, NULL, &hDir->globd ); +#else + r = glob( hDir->pattern, GLOB_ERR | GLOB_PERIOD | GLOB_NOSORT, NULL, &hDir->globd ); +#endif + + if ( r ) + { + free( hDir->pattern ); + free( hDir->path ); + free( hDir ); + return NULL; + } + + hDir->currFile = 0; +#endif + + return hDir; +} + +/* ------------------------------------------------------------------------------------ */ + +void dir_close ( __DIR_ST * hDir ) +{ + free ( hDir->path ); + +#ifdef _WIN32 + FindClose( hDir->handle ); +#else + globfree( &hDir->globd ); + free( hDir->pattern ); +#endif + + free ( hDir ); +} + +/* ------------------------------------------------------------------------------------ */ + +__DIR_FILEINFO_ST * dir_read( __DIR_ST * hDir ) +{ + char realpath[__MAX_PATH]; + char * ptr ; + +#ifdef _WIN32 + SYSTEMTIME time; + + if ( hDir->eod ) return NULL; + + /* Fill the FILEINFO struct */ + strcpy( realpath, hDir->path ); + ptr = realpath + strlen( realpath ); + while ( ptr >= realpath ) + { + if ( *ptr == '\\' || *ptr == '/' ) + { + ptr[ 1 ] = 0; + break; + } + ptr--; + } + + memset( &hDir->info, '\0', sizeof( hDir->info ) ); + + strcat( realpath, hDir->data.cFileName ); + GetFullPathName( realpath, __MAX_PATH, hDir->info.fullpath, &ptr ); + if ( ptr ) * ptr = '\0'; + + strcpy ( hDir->info.filename, hDir->data.cFileName ); + + hDir->info.attributes = (( hDir->data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY ) ? DIR_FI_ATTR_DIRECTORY : 0 ) | + (( hDir->data.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN ) ? DIR_FI_ATTR_HIDDEN : 0 ) | + (( hDir->data.dwFileAttributes & FILE_ATTRIBUTE_READONLY ) ? DIR_FI_ATTR_READONLY : 0 ); + + hDir->info.size = hDir->data.nFileSizeLow; + + /* Format and store the creation time */ + FileTimeToSystemTime( &hDir->data.ftCreationTime, &time ); + + hDir->info.crtime.tm_sec = time.wSecond; + hDir->info.crtime.tm_min = time.wMinute; + hDir->info.crtime.tm_hour = time.wHour; + hDir->info.crtime.tm_mday = time.wDay; + hDir->info.crtime.tm_mon = time.wMonth - 1; + hDir->info.crtime.tm_year = time.wYear - 1900; + hDir->info.crtime.tm_wday = time.wDayOfWeek; + hDir->info.crtime.tm_yday = time.wMonth; + hDir->info.crtime.tm_isdst = -1; + + /* Format and store the last write time */ + FileTimeToSystemTime( &hDir->data.ftLastWriteTime, &time ); + + hDir->info.mtime.tm_sec = time.wSecond; + hDir->info.mtime.tm_min = time.wMinute; + hDir->info.mtime.tm_hour = time.wHour; + hDir->info.mtime.tm_mday = time.wDay; + hDir->info.mtime.tm_mon = time.wMonth - 1; + hDir->info.mtime.tm_year = time.wYear - 1900; + hDir->info.mtime.tm_wday = time.wDayOfWeek; + hDir->info.mtime.tm_yday = time.wMonth; + hDir->info.mtime.tm_isdst = -1; + + /* Format and store the last access time */ + FileTimeToSystemTime( &hDir->data.ftLastAccessTime, &time ); + + hDir->info.atime.tm_sec = time.wSecond; + hDir->info.atime.tm_min = time.wMinute; + hDir->info.atime.tm_hour = time.wHour; + hDir->info.atime.tm_mday = time.wDay; + hDir->info.atime.tm_mon = time.wMonth - 1; + hDir->info.atime.tm_year = time.wYear - 1900; + hDir->info.atime.tm_wday = time.wDayOfWeek; + hDir->info.atime.tm_yday = time.wMonth; + hDir->info.atime.tm_isdst = -1; + + /* Continue last search */ + if (!FindNextFile( hDir->handle, &hDir->data )) hDir->eod = 1; +#else + struct stat s; + + if ( hDir->currFile == hDir->globd.gl_pathc ) return NULL; + + memset( &hDir->info, '\0', sizeof( hDir->info ) ); + + stat( hDir->globd.gl_pathv[ hDir->currFile ], &s ); + + ptr = strrchr( hDir->globd.gl_pathv[ hDir->currFile ], '/' ); + if ( !ptr ) + { + strcpy ( hDir->info.filename, hDir->globd.gl_pathv[ hDir->currFile ] ); + strcpy ( hDir->info.fullpath, getcwd( realpath, sizeof( realpath ) ) ); + } + else + { + strcpy ( hDir->info.filename, ptr + 1 ); + if ( hDir->globd.gl_pathv[ hDir->currFile ][0] == '/' ) + { + strcpy ( hDir->info.fullpath, hDir->globd.gl_pathv[ hDir->currFile ] ); + hDir->info.fullpath[ ptr - hDir->globd.gl_pathv[ hDir->currFile ] + 1 ] = '\0'; + } + else + { + strcpy ( hDir->info.fullpath, getcwd( realpath, sizeof( realpath ) ) ); + strcat ( hDir->info.fullpath, "/" ); + strcat ( hDir->info.fullpath, hDir->globd.gl_pathv[ hDir->currFile ] ); + ptr = strrchr( hDir->info.fullpath, '/' ); + *(ptr + 1) = '\0'; + } + } + + hDir->info.attributes = (( S_ISDIR( s.st_mode ) ) ? DIR_FI_ATTR_DIRECTORY : 0 ) | + (( hDir->info.filename[0] == '.' ) ? DIR_FI_ATTR_HIDDEN : 0 ) | + (( !( s.st_mode & 0444 ) ) ? DIR_FI_ATTR_READONLY : 0 ); + + hDir->info.size = s.st_size; + + hDir->info.mtime = *localtime( &s.st_mtime ) ; + hDir->info.atime = *localtime( &s.st_atime ) ; + hDir->info.ctime = *localtime( &s.st_ctime ) ; + + hDir->currFile++; + +#endif + + return ( &hDir->info ); +} + +/* ------------------------------------------------------------------------------------ */ diff --git a/core/bgdrtm/src/fmath.c b/core/bgdrtm/src/fmath.c new file mode 100644 index 0000000..cdf3e1a --- /dev/null +++ b/core/bgdrtm/src/fmath.c @@ -0,0 +1,149 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +#include + +#include "fmath.h" + +#include "bgdcore.h" + +/* --------------------------------------------------------------------------- */ +/* Fixed-point math routines, based on Allegro */ + +//#define FIXED_PREC 12 + +#define FIXED_PREC 10000 + +//#define FIXED_PREC_MED 5000 +//#define FIXED_PREC_DEC 1000 + +/* --------------------------------------------------------------------------- */ + +static fixed * cos_table = NULL ; + +/* --------------------------------------------------------------------------- */ + +fixed ftofix( float x ) +{ + return ( long )( x * FIXED_PREC ); +} + +/* --------------------------------------------------------------------------- */ + +float fixtof( fixed x ) +{ + return ( ( float ) x ) / FIXED_PREC ; +} + +/* --------------------------------------------------------------------------- */ + +fixed itofix( int x ) +{ + return x * FIXED_PREC ; +} + +/* --------------------------------------------------------------------------- */ + +int fixtoi( fixed x ) +{ + return x / FIXED_PREC ; +} + +/* --------------------------------------------------------------------------- */ + +int fixceil( fixed x ) +{ + int xd; + + if ( x < 0 ) + { + xd = x % FIXED_PREC ; + x -= ( FIXED_PREC + xd ) ; + } + else if ( x > 0 ) + { + xd = x % FIXED_PREC ; + x += ( FIXED_PREC - xd ) ; + } + + return x ; +} + +/* --------------------------------------------------------------------------- */ + +fixed fcos( int x ) +{ + if ( x < 0 ) x = -x ; + if ( x > 360000 ) x %= 360000 ; + if ( x > 270000 ) return cos_table[360000 - x] ; + if ( x > 180000 ) return -cos_table[x - 180000] ; + if ( x > 90000 ) return -cos_table[180000 - x] ; + return cos_table[x] ; +} + +/* --------------------------------------------------------------------------- */ + +fixed fsin( int x ) +{ + if ( x < 0 ) return -fsin( -x ) ; + if ( x > 360000 ) x %= 360000 ; + if ( x > 270000 ) return -cos_table[x - 270000] ; + if ( x > 180000 ) return -cos_table[270000 - x] ; + if ( x > 90000 ) return cos_table[x - 90000] ; + return cos_table[90000 - x] ; +} + +/* --------------------------------------------------------------------------- */ + +fixed fmul( int x, int y ) +{ + return ftofix( fixtof( x ) * fixtof( y ) ) ; +} + +/* --------------------------------------------------------------------------- */ + +fixed fdiv( int x, int y ) +{ + return ftofix( fixtof( x ) / fixtof( y ) ) ; +} + +/* --------------------------------------------------------------------------- */ + +void init_cos_tables() +{ + int i ; + + if ( !cos_table ) cos_table = ( fixed * ) malloc( 90001 * sizeof( fixed ) ); + + for ( i = 0 ; i <= 90000 ; i++ ) + { + cos_table[i] = ftofix( cos( i * M_PI / 180000.0 ) ) ; + } +} + +/* --------------------------------------------------------------------------- */ diff --git a/core/bgdrtm/src/instance.c b/core/bgdrtm/src/instance.c new file mode 100644 index 0000000..a91633c --- /dev/null +++ b/core/bgdrtm/src/instance.c @@ -0,0 +1,763 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +#include +#include +#include + +#ifdef TARGET_BEOS +#include +#else +#include +#endif + +#include "offsets.h" +#include "bgdrtm.h" +#include "sysprocs_p.h" +#include "instance.h" +#include "xstrings.h" + +#undef STACK_SIZE +#define STACK_SIZE 4096 + +/* ---------------------------------------------------------------------- */ + +#define INSTANCE_MIN_PRIORITY -32768 +#define INSTANCE_MAX_PRIORITY 32767 +#define INSTANCE_NORMALIZE_PRIORITY 32768 + +/* ---------------------------------------------------------------------- */ +/* Módulo de gestión de instancias, con las funciones de incialización y */ +/* destrucción, duplicado, etc. */ +/* ---------------------------------------------------------------------- */ + +#define HASH(id) (unsigned int)((id)&0x0000ffff) +#define HASH_PRIORITY(id) (unsigned int)(((id) + INSTANCE_NORMALIZE_PRIORITY) & 0x0000ffff) +#define HASH_INSTANCE(id) (unsigned int)(((( uint32_t )(id)) >> 2 ) & 0x0000ffff) +#define HASH_SIZE 65536 + +INSTANCE ** hashed_by_id = NULL; +INSTANCE ** hashed_by_instance = NULL; +INSTANCE ** hashed_by_type = NULL; +INSTANCE ** hashed_by_priority = NULL; + +INSTANCE * first_instance = NULL ; + +/* Priority lists */ + +static INSTANCE * iterator_by_priority = NULL ; +static int iterator_pos = HASH_SIZE; + +static int instance_maxid = FIRST_INSTANCE_ID ; + +static int instance_min_actual_prio = INSTANCE_MAX_PRIORITY ; +static int instance_max_actual_prio = INSTANCE_MIN_PRIORITY ; + +/* ---------------------------------------------------------------------- */ +/* By id */ +/* ---------------------------------------------------------------------- */ + +void instance_add_to_list_by_id( INSTANCE * r, uint32_t id ) +{ + if ( !hashed_by_id ) hashed_by_id = calloc( HASH_SIZE, sizeof( INSTANCE * ) ); + hashed_by_id[HASH( id )] = r; +} + +/* ---------------------------------------------------------------------- */ + +void instance_remove_from_list_by_id( INSTANCE * r, uint32_t id ) +{ + hashed_by_id[HASH( id )] = NULL; +} + +/* ---------------------------------------------------------------------- */ +/* By instance */ +/* ---------------------------------------------------------------------- */ + +void instance_add_to_list_by_instance( INSTANCE * r ) +{ + unsigned int hash = HASH_INSTANCE( r ); + + if ( !hashed_by_instance ) hashed_by_instance = calloc( HASH_SIZE, sizeof( INSTANCE * ) ); + + r->prev_by_instance = NULL ; + r->next_by_instance = hashed_by_instance[hash]; + if ( r->next_by_instance ) r->next_by_instance->prev_by_instance = r ; + hashed_by_instance[hash] = r; +} + +/* ---------------------------------------------------------------------- */ + +void instance_remove_from_list_by_instance( INSTANCE * r ) +{ + unsigned int hash = HASH_INSTANCE( r ); + + if ( r->prev_by_instance ) r->prev_by_instance->next_by_instance = r->next_by_instance ; + if ( r->next_by_instance ) r->next_by_instance->prev_by_instance = r->prev_by_instance ; + + if ( hashed_by_instance[hash] == r ) hashed_by_instance[hash] = r->next_by_instance ; +} + +/* ---------------------------------------------------------------------- */ +/* By type */ +/* ---------------------------------------------------------------------- */ + +void instance_add_to_list_by_type( INSTANCE * r, uint32_t type ) +{ + unsigned int hash = HASH( type ); + + if ( !hashed_by_type ) hashed_by_type = calloc( HASH_SIZE, sizeof( INSTANCE * ) ); + + r->prev_by_type = NULL ; + r->next_by_type = hashed_by_type[hash]; + if ( r->next_by_type ) r->next_by_type->prev_by_type = r ; + hashed_by_type[hash] = r; +} + +/* ---------------------------------------------------------------------- */ + +void instance_remove_from_list_by_type( INSTANCE * r, uint32_t type ) +{ + unsigned int hash = HASH( type ); + + if ( r->prev_by_type ) r->prev_by_type->next_by_type = r->next_by_type ; + if ( r->next_by_type ) r->next_by_type->prev_by_type = r->prev_by_type ; + + if ( hashed_by_type[hash] == r ) hashed_by_type[hash] = r->next_by_type ; +} + +/* ---------------------------------------------------------------------- */ +/* By priority */ +/* ---------------------------------------------------------------------- */ + +void instance_add_to_list_by_priority( INSTANCE * r, int32_t priority ) +{ + unsigned int hash ; + + if ( priority < INSTANCE_MIN_PRIORITY ) priority = LOCINT32( r, PRIORITY ) = INSTANCE_MIN_PRIORITY; + if ( priority > INSTANCE_MAX_PRIORITY ) priority = LOCINT32( r, PRIORITY ) = INSTANCE_MAX_PRIORITY; + + hash = HASH_PRIORITY( priority ); + + if ( !hashed_by_priority ) hashed_by_priority = calloc( HASH_SIZE, sizeof( INSTANCE * ) ); + + r->prev_by_priority = NULL ; + r->next_by_priority = hashed_by_priority[hash]; + if ( r->next_by_priority ) r->next_by_priority->prev_by_priority = r ; + hashed_by_priority[hash] = r; + r->last_priority = priority ; + + if ( priority < instance_min_actual_prio ) instance_min_actual_prio = priority ; + if ( priority > instance_max_actual_prio ) instance_max_actual_prio = priority ; +} + +/* ---------------------------------------------------------------------- */ + +void instance_remove_from_list_by_priority( INSTANCE * r ) +{ + unsigned int hash = HASH_PRIORITY( r->last_priority ); + + /* Update iterator_by_priority if necessary */ + + if ( iterator_by_priority == r ) instance_next_by_priority() ; + + if ( r->prev_by_priority ) r->prev_by_priority->next_by_priority = r->next_by_priority ; + if ( r->next_by_priority ) r->next_by_priority->prev_by_priority = r->prev_by_priority ; + + if ( hashed_by_priority[hash] == r ) hashed_by_priority[hash] = r->next_by_priority ; + + if ( !hashed_by_priority[hash] ) + { + if ( r->last_priority == instance_min_actual_prio ) + { + while ( instance_min_actual_prio < instance_max_actual_prio && !hashed_by_priority[ instance_min_actual_prio + INSTANCE_NORMALIZE_PRIORITY ] ) + instance_min_actual_prio++; + } + + if ( r->last_priority == instance_max_actual_prio ) + { + while ( instance_max_actual_prio > instance_min_actual_prio && !hashed_by_priority[ instance_max_actual_prio + INSTANCE_NORMALIZE_PRIORITY ] ) + instance_max_actual_prio--; + } + } +} + +/* ---------------------------------------------------------------------- */ + +/* + * FUNCTION : instance_dirty + * + * Adds an instance to the dirty instances list. This is a list of all + * instances which priority changed since the last execution. + * + * PARAMS : + * i Pointer to the instance + * + * RETURN VALUE : + * None + */ + +void instance_dirty( INSTANCE * i ) +{ + instance_remove_from_list_by_priority( i ); + instance_add_to_list_by_priority( i, LOCINT32( i, PRIORITY ) ); +} + +/* ---------------------------------------------------------------------- */ + +/* + * FUNCTION : instance_get + * + * Returns a instance, given its ID. + * + * PARAMS : + * id Integer ID of the instance + * + * RETURN VALUE : + * Pointer to the found instance or NULL if not found + */ + +INSTANCE * instance_get( int id ) +{ + if ( !hashed_by_id || !id ) return NULL; + return ( hashed_by_id[HASH( id )] ); +} + +/* ---------------------------------------------------------------------- */ + +/* + * FUNCTION : instance_getid + * + * Allocate and return a free instance identifier code. + * + * PARAMS : + * None + * + * RETURN VALUE : + * A new, unused instance identifier + * -1 if error + */ + +int instance_getid() +{ + int id = instance_maxid++ ; + + if ( !hashed_by_id ) hashed_by_id = calloc( HASH_SIZE, sizeof( INSTANCE * ) ); + + if ( id <= LAST_INSTANCE_ID && !hashed_by_id[ HASH( id ) ] ) return id; + + if ( instance_maxid > LAST_INSTANCE_ID ) + { + for ( instance_maxid = FIRST_INSTANCE_ID; instance_maxid <= LAST_INSTANCE_ID; instance_maxid++ ) + { + if ( !hashed_by_id[HASH( instance_maxid )] ) return instance_maxid++; + } + } + else + { + for ( ; instance_maxid <= LAST_INSTANCE_ID; instance_maxid++ ) + { + if ( !hashed_by_id[HASH( instance_maxid )] ) return instance_maxid++; + } + for ( instance_maxid = FIRST_INSTANCE_ID; instance_maxid < id; instance_maxid++ ) + { + if ( !hashed_by_id[HASH( instance_maxid )] ) return instance_maxid++; + } + } + return -1; +} + +/* ---------------------------------------------------------------------- */ + +/* + * FUNCTION : instance_duplicate + * + * Create a copy of an instance, using the same local/private data + * - Updates the instance list, adding the new instance + * - Marks all local and private strings + * - Updates all parents local family variables + * + * The new instance uses the same code pointer as the father + * (it begins execution at the same line, instead of the first one) + * + * PARAMS : + * father Pointer to the original instance + * + * RETURN VALUE : + * Pointer to the new instance + */ + +INSTANCE * instance_duplicate( INSTANCE * father ) +{ + INSTANCE * r, * brother ; + int n, pid ; + uint32_t type ; + + if ( ( pid = instance_getid() ) == -1 ) return NULL; + + r = ( INSTANCE * ) calloc( 1, sizeof( INSTANCE ) ) ; + assert( r ) ; + + r->pridata = ( int * ) malloc( father->private_size + 4 ) ; + r->pubdata = ( int * ) malloc( father->public_size + 4 ) ; + r->locdata = ( int * ) malloc( local_size + 4 ) ; + r->code = father->code ; + r->codeptr = father->codeptr ; + r->exitcode = father->exitcode ; + r->errorcode = father->errorcode ; + r->proc = father->proc ; + r->call_level = father->call_level ; + + r->switchval = 0; + r->switchval_string = 0; + r->cased = 0; + + r->breakpoint = 0 ; + + r->private_size = father->private_size ; + r->public_size = father->public_size ; + r->first_run = 1 ; + + if ( father->private_size > 0 ) memcpy( r->pridata, father->pridata, r->private_size ) ; + if ( father->public_size > 0 ) memcpy( r->pubdata, father->pubdata, r->public_size ) ; + if ( local_size > 0 ) memcpy( r->locdata, father->locdata, local_size ) ; + + /* Inicializa datos de jerarquia */ + + /* Crea el proceso clónico como si lo hubiera llamado el padre */ + + type = LOCDWORD( father, PROCESS_TYPE ) ; + LOCDWORD( r, PROCESS_ID ) = pid ; + LOCDWORD( r, SON ) = 0 ; + LOCDWORD( r, SMALLBRO ) = 0 ; + + LOCDWORD( r, FATHER ) = LOCDWORD( father, PROCESS_ID ) ; + brother = instance_get( LOCDWORD( father, SON ) ) ; + if ( brother ) + { + LOCDWORD( r, BIGBRO ) = LOCDWORD( brother, PROCESS_ID ) ; + LOCDWORD( brother, SMALLBRO ) = pid ; + } + else + { + LOCDWORD( r, BIGBRO ) = 0 ; + } + LOCDWORD( father, SON ) = pid ; + + /* Actualiza las cuentas de uso de las cadenas */ + + for ( n = 0; n < r->proc->string_count; n++ ) string_use( PRIDWORD( r, r->proc->strings[n] ) ) ; /* Strings privadas */ + for ( n = 0; n < r->proc->pubstring_count; n++ ) string_use( PUBDWORD( r, r->proc->pubstrings[n] ) ) ; /* Strings publicas */ + for ( n = 0; n < local_strings; n++ ) string_use( LOCDWORD( r, localstr[n] ) ) ; /* Strings locales */ + + r->prev = NULL ; + r->next = first_instance ; + if ( first_instance ) first_instance->prev = r; + first_instance = r ; + + instance_add_to_list_by_id( r, pid ); + instance_add_to_list_by_instance( r ); + instance_add_to_list_by_type( r, type ); + instance_add_to_list_by_priority( r, LOCINT32( r, PRIORITY ) ); + + /* The called_by pointer should be set only when the caller + * is waiting for this process to return */ + + r->called_by = NULL; + + r->stack = malloc( father->stack[0] ); + memmove(r->stack, father->stack, (int)father->stack_ptr - (int)father->stack); + r->stack_ptr = &r->stack[1]; + + /* Initialize list pointers */ + + LOCDWORD( r, STATUS ) = STATUS_RUNNING; + + if ( instance_create_hook_count ) + for ( n = 0; n < instance_create_hook_count; n++ ) + instance_create_hook_list[n]( r ); + + return r ; +} + +/* ---------------------------------------------------------------------- */ + +/* + * FUNCTION : instance_new + * + * Create a new instance, using the default local/private data + * - Updates the instance list, adding the new instance + * - Marks all local and private strings + * - Updates all parents local family variables + * + * PARAMS : + * proc Pointer to the procedure definition + * father Pointer to the father instance (may be NULL) + * + * RETURN VALUE : + * Pointer to the new instance + */ + +INSTANCE * instance_new( PROCDEF * proc, INSTANCE * father ) +{ + INSTANCE * r, * brother; + int n, pid; + + if ( ( pid = instance_getid() ) == -1 ) return NULL; + + r = ( INSTANCE * ) calloc( 1, sizeof( INSTANCE ) ) ; + assert( r ) ; + + r->pridata = ( int * ) malloc( proc->private_size + 4 ) ; + r->pubdata = ( int * ) malloc( proc->public_size + 4 ) ; + r->locdata = ( int * ) malloc( local_size + 4 ) ; + r->code = proc->code ; + r->codeptr = proc->code ; + r->exitcode = proc->exitcode ; + r->errorcode = proc->errorcode ; + r->proc = proc ; + r->call_level = 0 ; + + r->switchval = 0; + r->switchval_string = 0; + r->cased = 0; + + r->breakpoint = 0 ; + + r->private_size = proc->private_size ; + r->public_size = proc->public_size ; + r->first_run = 1 ; + + if ( proc->private_size > 0 ) memcpy( r->pridata, proc->pridata, proc->private_size ) ; + if ( proc->public_size > 0 ) memcpy( r->pubdata, proc->pubdata, proc->public_size ) ; + if ( local_size > 0 ) memcpy( r->locdata, localdata, local_size ) ; + + /* Inicializa datos de jerarquia */ + + LOCDWORD( r, PROCESS_TYPE ) = proc->type ; + LOCDWORD( r, PROCESS_ID ) = pid ; + LOCDWORD( r, SON ) = 0 ; + LOCDWORD( r, SMALLBRO ) = 0 ; + + if ( father ) + { + LOCDWORD( r, FATHER ) = LOCDWORD( father, PROCESS_ID ) ; + brother = instance_get( LOCDWORD( father, SON ) ) ; + if ( brother ) + { + LOCDWORD( r, BIGBRO ) = LOCDWORD( brother, PROCESS_ID ) ; + LOCDWORD( brother, SMALLBRO ) = pid ; + } + else + { + LOCDWORD( r, BIGBRO ) = 0 ; + } + LOCDWORD( father, SON ) = pid ; + } + else + { + LOCDWORD( r, FATHER ) = 0 ; + LOCDWORD( r, BIGBRO ) = 0 ; + } + + /* Cuenta los usos de las variables tipo cadena */ + + for ( n = 0; n < proc->string_count; n++ ) string_use( PRIDWORD( r, proc->strings[n] ) ) ; /* Strings privadas */ + for ( n = 0; n < proc->pubstring_count; n++ ) string_use( PUBDWORD( r, proc->pubstrings[n] ) ) ; /* Strings publicas */ + for ( n = 0; n < local_strings; n++ ) string_use( LOCDWORD( r, localstr[n] ) ) ; /* Strings locales */ + + r->prev = NULL ; + r->next = first_instance ; + if ( first_instance ) first_instance->prev = r; + first_instance = r ; + + instance_add_to_list_by_id( r, pid ); + instance_add_to_list_by_instance( r ); + instance_add_to_list_by_type( r, proc->type ); + instance_add_to_list_by_priority( r, 0 ); + + /* The called_by pointer should be set only when the caller + * is waiting for this process to return */ + + r->called_by = NULL; + + r->stack = malloc( STACK_SIZE ); + r->stack_ptr = &r->stack[1]; + r->stack[0] = STACK_SIZE; + + /* Initialize list pointers */ + + LOCDWORD( r, STATUS ) = STATUS_RUNNING; + + if ( instance_create_hook_count ) + for ( n = 0; n < instance_create_hook_count; n++ ) + instance_create_hook_list[n]( r ); + + return r ; +} + +/* ---------------------------------------------------------------------- */ + +INSTANCE * instance_getfather( INSTANCE * i ) +{ + return instance_get( LOCDWORD( i, FATHER ) ) ; +} + +/* ---------------------------------------------------------------------- */ + +INSTANCE * instance_getson( INSTANCE * i ) +{ + return instance_get( LOCDWORD( i, SON ) ) ; +} + +/* ---------------------------------------------------------------------- */ + +INSTANCE * instance_getbigbro( INSTANCE * i ) +{ + return instance_get( LOCDWORD( i, BIGBRO ) ) ; +} + +/* ---------------------------------------------------------------------- */ + +INSTANCE * instance_getsmallbro( INSTANCE * i ) +{ + return instance_get( LOCDWORD( i, SMALLBRO ) ) ; +} + +/* ---------------------------------------------------------------------- */ + +/* + * FUNCTION : instance_destroy_all + * + * Destroy all instances. Simply calls instance_destroy + * for any and every instance in existence. + * + * PARAMS : + * except Don't destroy this instance (used for LET_ME_ALONE) + * + * RETURN VALUE : + * None + */ + +void instance_destroy_all( INSTANCE * except ) +{ + INSTANCE * i, * next ; + + i = first_instance ; + while ( i ) + { + next = i->next ; + if ( i != except ) instance_destroy( i ) ; + i = next ; + } +} + +/* ---------------------------------------------------------------------- */ + +/* + * FUNCTION : instance_destroy + * + * Destroy an instance, effectively + * - Updates any instance list, removing the given instance + * - Discards all local and private strings + * - Updates all parents local family variables + * - Frees any memory involved + * + * PARAMS : + * r Pointer to the instance + * + * RETURN VALUE : + * None + */ + +void instance_destroy( INSTANCE * r ) +{ + INSTANCE * father, * bigbro, * smallbro; + int n ; + + LOCDWORD( r, STATUS ) = STATUS_RUNNING; + + if ( instance_destroy_hook_count ) + for ( n = 0; n < instance_destroy_hook_count; n++ ) + instance_destroy_hook_list[n]( r ); + + /* Actualiza la cuenta de referencia de las variables tipo string */ + + for ( n = 0 ; n < r->proc->string_count ; n++ ) string_discard( PRIDWORD( r, r->proc->strings[n] ) ) ; /* Strings privadas */ + for ( n = 0 ; n < r->proc->pubstring_count ; n++ ) string_discard( PUBDWORD( r, r->proc->pubstrings[n] ) ) ; /* Strings publicas */ + for ( n = 0 ; n < local_strings ; n++ ) string_discard( LOCDWORD( r, localstr[n] ) ) ; /* Strings locales */ + + /* Actualiza árbol de jerarquias */ + + bigbro = instance_get( LOCDWORD( r, BIGBRO ) ) ; /* Tengo hermano mayor? */ + if ( bigbro ) LOCDWORD( bigbro, SMALLBRO ) = LOCDWORD( r, SMALLBRO ) ; /* El hermano menor de mi hermano mayor es mi hermano menor */ + + smallbro = instance_get( LOCDWORD( r, SMALLBRO ) ) ; /* Tengo hermano menor? */ + if ( smallbro ) LOCDWORD( smallbro, BIGBRO ) = LOCDWORD( r, BIGBRO ) ; /* El hermano mayor de mi hermano menor es mi hermano mayor */ + + father = instance_get( LOCDWORD( r, FATHER ) ) ; /* Tengo padre? */ + if ( father && instance_get( LOCDWORD( father, SON ) ) == r ) LOCDWORD( father, SON ) = LOCDWORD( r, BIGBRO ); /* Si tengo padre y soy el hijo menor, mi hermano mayor pasa a ser el menor hijo de mi padre */ + + /* Quita la instancia de la lista */ + + if ( r->prev ) r->prev->next = r->next ; + if ( r->next ) r->next->prev = r->prev ; + + if ( first_instance == r ) first_instance = r->next ; + + /* Remove the instance from all hash lists */ + + instance_remove_from_list_by_id( r, LOCDWORD( r, PROCESS_ID ) ); + instance_remove_from_list_by_instance( r ); + instance_remove_from_list_by_type( r, LOCDWORD( r, PROCESS_TYPE ) ); + instance_remove_from_list_by_priority( r ); + + if ( r->stack ) free( r->stack ) ; + + if ( r->locdata ) free( r->locdata ) ; + if ( r->pubdata ) free( r->pubdata ) ; + if ( r->pridata ) free( r->pridata ) ; + free( r ) ; +} + +/* ---------------------------------------------------------------------- */ + +/* + * FUNCTION : instance_exists + * + * Given an instance pointer, returns TRUE if it is still valid. + * + * PARAMS : + * i Pointer to the instance + * + * RETURN VALUE : + * 1 if the instance pointer is in the global instance list, 0 otherwise + */ + +int instance_exists( INSTANCE * r ) +{ + INSTANCE * i ; + + if ( !hashed_by_instance || !r ) return 0; + + i = hashed_by_instance[HASH_INSTANCE( r )]; + while ( i ) + { + if ( r == i ) return 1 ; + i = i->next_by_instance ; + } + + return 0 ; +} + +/* ---------------------------------------------------------------------- */ + +/* + * FUNCTION : instance_next_by_priority + * + * Gets the next instance pointer until no more instances are + * returned. Instances are returned sorted by priority. + * + * PARAMS : + * None + * + * RETURN VALUE : + * Pointer to the next priority on the list or NULL + * if there is no more instances. The next call in this + * case will return a pointer to the first instance + * (the one with the lower priority) + */ + +INSTANCE * instance_next_by_priority() +{ + INSTANCE * r = iterator_by_priority ; + + if ( iterator_by_priority ) iterator_by_priority = iterator_by_priority->next_by_priority; + + if ( !iterator_by_priority ) + { + if ( !hashed_by_priority ) return NULL; + + if ( iterator_pos < ( instance_min_actual_prio + INSTANCE_NORMALIZE_PRIORITY ) || + iterator_pos > ( instance_max_actual_prio + INSTANCE_NORMALIZE_PRIORITY ) + ) + iterator_pos = instance_max_actual_prio + INSTANCE_NORMALIZE_PRIORITY + 1; + + while ( --iterator_pos >= ( instance_min_actual_prio + INSTANCE_NORMALIZE_PRIORITY ) && !( iterator_by_priority = hashed_by_priority[iterator_pos] ) ); + } + + return ( r ) ; +} + +/* ---------------------------------------------------------------------- */ + +/* + * FUNCTION : instance_get_by_type + * + * Returns a instance, given its type. + * + * PARAMS : + * type Integer type of the first instance + * context Pointer to an INSTANCE * use as context (internal use) + * + * RETURN VALUE : + * Pointer to the found instance or NULL if not found + */ + +/* +context = NULL = start scan +context = pointer = continue scan +context = -1 = end scan +*/ + +INSTANCE * instance_get_by_type( uint32_t type, INSTANCE ** context ) +{ + INSTANCE * i; + + if ( !context || !hashed_by_type || !type /* || type >= FIRST_INSTANCE_ID */ ) return NULL; + + if ( !*context ) /* start scan */ + i = hashed_by_type[HASH( type )]; + else if ( ( i = *context ) == ( INSTANCE * ) -1 ) /* End scan */ + return ( *context = NULL ); + + if ( i ) /* Valid instance, continue scan */ + { + if ( i->next_by_type ) + *context = i->next_by_type ; + else + *context = ( INSTANCE * ) -1 ; /* Next call will be "end scan" */ + + return i; + } + + /* Here only if hashed_by_type[HASH( type )] is NULL */ + return ( *context = NULL ) ; /* return is null, then end scan */ +} + +/* ---------------------------------------------------------------------- */ diff --git a/core/bgdrtm/src/interpreter.c b/core/bgdrtm/src/interpreter.c new file mode 100644 index 0000000..4904987 --- /dev/null +++ b/core/bgdrtm/src/interpreter.c @@ -0,0 +1,2192 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +#include +#include +#include + +#include "bgdrtm.h" +#include "dcb.h" + +#include "sysprocs_p.h" +#include "pslang.h" +#include "instance.h" +#include "offsets.h" +#include "xstrings.h" + +#include + +/* ---------------------------------------------------------------------- */ +/* Interpreter's main module */ +/* ---------------------------------------------------------------------- */ + +int debug_mode = 0 ; + +int exit_value = 0 ; +int must_exit = 0 ; + +int force_debug = 0 ; +int debug_next = 0 ; + +int trace_sentence = -1; +INSTANCE * trace_instance = NULL; + +/* ---------------------------------------------------------------------- */ + +static INSTANCE * last_instance_run = NULL; + +/* ---------------------------------------------------------------------- */ + +static int stack_dump( INSTANCE * r ) +{ + register int * ptr = &r->stack[1] ; + register int i = 0; + + while ( ptr < r->stack_ptr ) + { + if ( i == 5 ) + { + i = 0; + printf( "\n" ); + } + printf( "%08X ", *ptr++ ) ; + i++; + } + + return i; +} + +/* ---------------------------------------------------------------------- */ + +int instance_go_all() +{ + INSTANCE * i = NULL; + int i_count = 0 ; + int n; + int status; + + must_exit = 0 ; + + while ( first_instance ) + { + if ( debug_mode ) + { + /* Hook */ + if ( handler_hook_count ) + for ( n = 0; n < handler_hook_count; n++ ) + handler_hook_list[n].hook(); + /* Hook */ + if ( must_exit ) break ; + + } + else + { + if ( last_instance_run ) + { + if ( instance_exists( last_instance_run ) ) + { + i = last_instance_run; + } + else + { + last_instance_run = NULL; + i = instance_next_by_priority(); + } + } + else + { + i = instance_next_by_priority(); + i_count = 0 ; + } + + while ( i ) + { + status = LOCDWORD( i, STATUS ); + /* If instance is KILLED or DEAD or return from some debug command, then execute it again. + No exec_hook is executed. + */ + if ( status == STATUS_KILLED || status == STATUS_DEAD || last_instance_run ) + { + /* Run instance */ + } + else if ( status == STATUS_RUNNING && LOCINT32( i, FRAME_PERCENT ) < 100 ) + { + /* Run instance */ + /* Hook */ + if ( process_exec_hook_count ) + for ( n = 0; n < process_exec_hook_count; n++ ) + process_exec_hook_list[n]( i ); + /* Hook */ + } + else + { + i = instance_next_by_priority(); + last_instance_run = NULL; + continue; + } + + i_count++; + + last_instance_run = NULL; + + instance_go( i ); + + if ( force_debug ) + { + debug_mode = 1; + last_instance_run = trace_instance; + break; + } + + if ( must_exit ) break; + + i = instance_next_by_priority(); + } + + if ( must_exit ) break ; + + /* If frame is complete, then update internal vars and execute main hooks. */ + + if ( !i_count && !force_debug ) + { + /* Honors the signal-changed status of the process and + * saves so it is used in this loop the next frame + */ + + i = first_instance ; + while ( i ) + { + status = LOCDWORD( i, STATUS ); + if ( status == STATUS_RUNNING ) LOCINT32( i, FRAME_PERCENT ) -= 100 ; + LOCDWORD( i, SAVED_STATUS ) = status ; + + if ( LOCINT32( i, SAVED_PRIORITY ) != LOCINT32( i, PRIORITY ) ) + { + LOCINT32( i, SAVED_PRIORITY ) = LOCINT32( i, PRIORITY ); + instance_dirty( i ); + } + + i = i->next ; + } + + if ( !first_instance ) break ; + + /* Hook */ + if ( handler_hook_count ) + for ( n = 0; n < handler_hook_count; n++ ) + handler_hook_list[n].hook(); + /* Hook */ + + continue ; + } + } + } + + return exit_value; + +} + +/* ---------------------------------------------------------------------- */ + +int instance_go( INSTANCE * r ) +{ + if ( !r ) return 0 ; + + register int * ptr = r->codeptr ; + + int n, return_value = LOCDWORD( r, PROCESS_ID ) ; + SYSPROC * p = NULL ; + INSTANCE * i = NULL ; + static char buffer[16]; + char * str = NULL ; + int status ; + + /* Pointer to the current process's code (it may be a called one) */ + + int child_is_alive = 0; + + /* ------------------------------------------------------------------------------- */ + /* Restore if exit by debug */ + + if ( debug > 0 ) + { + printf( "\n>>> Instance:%s ProcID:%d StackUsed:%d/%d\n", r->proc->name, + LOCDWORD( r, PROCESS_ID ), + ( r->stack_ptr - r->stack ) / sizeof( r->stack[0] ), + ( r->stack[0] & ~STACK_RETURN_VALUE ) + ) ; + } + + /* Hook */ + if ( instance_pre_execute_hook_count ) + for ( n = 0; n < instance_pre_execute_hook_count; n++ ) + instance_pre_execute_hook_list[n]( r ); + /* Hook */ + + if (( r->proc->breakpoint || r->breakpoint ) && trace_instance != r ) debug_next = 1; + + trace_sentence = -1; + + while ( !must_exit ) + { + /* If I was killed or I'm waiting status, then exit */ + status = LOCDWORD( r, STATUS ); + if (( status & ~STATUS_WAITING_MASK ) == STATUS_KILLED || ( status & STATUS_WAITING_MASK ) ) + { + r->codeptr = ptr; + return_value = LOCDWORD( r, PROCESS_ID ); + goto break_all ; + } + + if ( debug_next && trace_sentence != -1 ) + { + force_debug = 1; + debug_next = 0; + r->codeptr = ptr ; + return_value = LOCDWORD( r, PROCESS_ID ); + break; + } + + /* debug output */ + if ( debug > 0 ) + { + if ( debug > 2 ) + { + int c = 45 - stack_dump( r ) * 9; + if ( debug > 1 ) printf( "%*.*s[%4u] ", c, c, "", ( ptr - r->code ) ) ; + } + else if ( debug > 1 ) printf( "[%4u] ", ( ptr - r->code ) ) ; + mnemonic_dump( *ptr, ptr[1] ) ; + fflush(stdout); + } + + switch ( *ptr ) + { + /* Stack manipulation */ + + case MN_DUP: + *r->stack_ptr = r->stack_ptr[-1] ; + r->stack_ptr++; + ptr++ ; + break ; + + case MN_PUSH: + *r->stack_ptr++ = ptr[1] ; + ptr += 2 ; + break ; + + case MN_POP: + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_INDEX: + case MN_INDEX | MN_UNSIGNED: + case MN_INDEX | MN_STRING: + case MN_INDEX | MN_WORD: + case MN_INDEX | MN_WORD | MN_UNSIGNED: + case MN_INDEX | MN_BYTE: + case MN_INDEX | MN_BYTE | MN_UNSIGNED: + case MN_INDEX | MN_FLOAT: /* Add float, I don't know why it was missing (SplinterGU) */ + r->stack_ptr[-1] += ptr[1] ; + ptr += 2 ; + break ; + + case MN_ARRAY: + r->stack_ptr[-2] += ( ptr[1] * r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr += 2 ; + break ; + + /* Process calls */ + + case MN_CLONE: + i = instance_duplicate( r ) ; + i->codeptr = ptr + 2 ; + ptr = r->code + ptr[1] ; + continue ; + + case MN_CALL: + case MN_PROC: + { + PROCDEF * proc = procdef_get( ptr[1] ) ; + + if ( !proc ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Unknown process\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + + /* Process uses FRAME or locals, must create an instance */ + i = instance_new( proc, r ) ; + + assert ( i ) ; + + for ( n = 0; n < proc->params; n++ ) + PRIDWORD( i, 4 * n ) = r->stack_ptr[-proc->params+n] ; + + r->stack_ptr -= proc->params ; + + /* I go to waiting status (by default) */ + LOCDWORD( r, STATUS ) |= STATUS_WAITING_MASK; + i->called_by = r; + + /* Run the process/function */ + if ( *ptr == MN_CALL ) + { + r->stack[0] |= STACK_RETURN_VALUE; + r->stack_ptr++; + *r->stack_ptr = instance_go( i ); + } + else + { + r->stack[0] &= ~STACK_RETURN_VALUE; + instance_go( i ); + } + + child_is_alive = instance_exists( i ); + + ptr += 2 ; + + /* If the process is a function in a frame, save the stack and leave */ + /* If the process/function still running, then it is in a FRAME. + If the process/function is running code, then it his status is RUNNING */ + if ( child_is_alive && + ( + (( status = LOCDWORD( r, STATUS ) ) & STATUS_WAITING_MASK ) || + ( status & ~STATUS_WAITING_MASK ) == STATUS_FROZEN || + ( status & ~STATUS_WAITING_MASK ) == STATUS_SLEEPING + ) + ) + { + /* I go to sleep and return from this process/function */ + i->called_by = r; + + /* Save the instruction pointer */ + /* This instance don't run other code until the child return */ + r->codeptr = ptr ; + + /* If it don't was a CALL, then I set a flag in "len" for no return value */ + if ( ptr[-2] == MN_CALL ) + r->stack[0] |= STACK_RETURN_VALUE; + else + r->stack[0] &= ~STACK_RETURN_VALUE; + + if ( debug_next && trace_sentence != -1 ) + { + force_debug = 1; + debug_next = 0; + } + return 0; + } + + /* Wake up! */ + LOCDWORD( r, STATUS ) &= ~STATUS_WAITING_MASK; + if ( child_is_alive ) i->called_by = NULL; + + break ; + } + + case MN_SYSCALL: + p = sysproc_get( ptr[1] ) ; + if ( !p ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Unknown system function\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + + r->stack_ptr -= p->params ; + *r->stack_ptr = ( *p->func )( r, r->stack_ptr ) ; + r->stack_ptr++ ; + ptr += 2 ; + break ; + + case MN_SYSPROC: + p = sysproc_get( ptr[1] ) ; + if ( !p ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Unknown system process\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + r->stack_ptr -= p->params ; + ( *p->func )( r, r->stack_ptr ) ; + ptr += 2 ; + break ; + + /* Access to variables address */ + + case MN_PRIVATE: + case MN_PRIVATE | MN_UNSIGNED: + case MN_PRIVATE | MN_WORD: + case MN_PRIVATE | MN_BYTE: + case MN_PRIVATE | MN_WORD | MN_UNSIGNED: + case MN_PRIVATE | MN_BYTE | MN_UNSIGNED: + case MN_PRIVATE | MN_STRING: + case MN_PRIVATE | MN_FLOAT: + *r->stack_ptr++ = ( uint32_t ) & PRIDWORD( r, ptr[1] ); + ptr += 2 ; + break ; + + case MN_PUBLIC: + case MN_PUBLIC | MN_UNSIGNED: + case MN_PUBLIC | MN_WORD: + case MN_PUBLIC | MN_BYTE: + case MN_PUBLIC | MN_WORD | MN_UNSIGNED: + case MN_PUBLIC | MN_BYTE | MN_UNSIGNED: + case MN_PUBLIC | MN_STRING: + case MN_PUBLIC | MN_FLOAT: + *r->stack_ptr++ = ( uint32_t ) & PUBDWORD( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_LOCAL: + case MN_LOCAL | MN_UNSIGNED: + case MN_LOCAL | MN_WORD: + case MN_LOCAL | MN_BYTE: + case MN_LOCAL | MN_WORD | MN_UNSIGNED: + case MN_LOCAL | MN_BYTE | MN_UNSIGNED: + case MN_LOCAL | MN_STRING: + case MN_LOCAL | MN_FLOAT: + *r->stack_ptr++ = ( uint32_t ) & LOCDWORD( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_GLOBAL: + case MN_GLOBAL | MN_UNSIGNED: + case MN_GLOBAL | MN_WORD: + case MN_GLOBAL | MN_BYTE: + case MN_GLOBAL | MN_WORD | MN_UNSIGNED: + case MN_GLOBAL | MN_BYTE | MN_UNSIGNED: + case MN_GLOBAL | MN_STRING: + case MN_GLOBAL | MN_FLOAT: + *r->stack_ptr++ = ( uint32_t ) & GLODWORD( ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_REMOTE: + case MN_REMOTE | MN_UNSIGNED: + case MN_REMOTE | MN_WORD: + case MN_REMOTE | MN_BYTE: + case MN_REMOTE | MN_WORD | MN_UNSIGNED: + case MN_REMOTE | MN_BYTE | MN_UNSIGNED: + case MN_REMOTE | MN_STRING: + case MN_REMOTE | MN_FLOAT: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = ( uint32_t ) & LOCDWORD( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_REMOTE_PUBLIC: + case MN_REMOTE_PUBLIC | MN_UNSIGNED: + case MN_REMOTE_PUBLIC | MN_WORD: + case MN_REMOTE_PUBLIC | MN_BYTE: + case MN_REMOTE_PUBLIC | MN_WORD | MN_UNSIGNED: + case MN_REMOTE_PUBLIC | MN_BYTE | MN_UNSIGNED: + case MN_REMOTE_PUBLIC | MN_STRING: + case MN_REMOTE_PUBLIC | MN_FLOAT: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = ( uint32_t ) & PUBDWORD( i, ptr[1] ) ; + ptr += 2 ; + break ; + + /* Access to variables DWORD type */ + + case MN_GET_PRIV: + case MN_GET_PRIV | MN_FLOAT: + case MN_GET_PRIV | MN_UNSIGNED: + *r->stack_ptr++ = PRIDWORD( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_GET_PUBLIC: + case MN_GET_PUBLIC | MN_FLOAT: + case MN_GET_PUBLIC | MN_UNSIGNED: + *r->stack_ptr++ = PUBDWORD( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_GET_LOCAL: + case MN_GET_LOCAL | MN_FLOAT: + case MN_GET_LOCAL | MN_UNSIGNED: + *r->stack_ptr++ = LOCDWORD( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_GET_GLOBAL: + case MN_GET_GLOBAL | MN_FLOAT: + case MN_GET_GLOBAL | MN_UNSIGNED: + *r->stack_ptr++ = GLODWORD( ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_GET_REMOTE: + case MN_GET_REMOTE | MN_FLOAT: + case MN_GET_REMOTE | MN_UNSIGNED: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = LOCDWORD( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_GET_REMOTE_PUBLIC: + case MN_GET_REMOTE_PUBLIC | MN_FLOAT: + case MN_GET_REMOTE_PUBLIC | MN_UNSIGNED: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = PUBDWORD( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_PTR: + case MN_PTR | MN_UNSIGNED: + case MN_PTR | MN_FLOAT: + r->stack_ptr[-1] = *( int32_t * )r->stack_ptr[-1] ; + ptr++ ; + break ; + + /* Access to variables STRING type */ + + case MN_PUSH | MN_STRING: + *r->stack_ptr++ = ptr[1]; + string_use( r->stack_ptr[-1] ); + ptr += 2 ; + break ; + + case MN_GET_PRIV | MN_STRING: + *r->stack_ptr++ = PRIDWORD( r, ptr[1] ) ; + string_use( r->stack_ptr[-1] ); + ptr += 2 ; + break ; + + case MN_GET_PUBLIC | MN_STRING: + *r->stack_ptr++ = PUBDWORD( r, ptr[1] ) ; + string_use( r->stack_ptr[-1] ); + ptr += 2 ; + break ; + + case MN_GET_LOCAL | MN_STRING: + *r->stack_ptr++ = LOCDWORD( r, ptr[1] ) ; + string_use( r->stack_ptr[-1] ); + ptr += 2 ; + break ; + + case MN_GET_GLOBAL | MN_STRING: + *r->stack_ptr++ = GLODWORD( ptr[1] ) ; + string_use( r->stack_ptr[-1] ); + ptr += 2 ; + break ; + + case MN_GET_REMOTE | MN_STRING: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = LOCDWORD( i, ptr[1] ) ; + string_use( r->stack_ptr[-1] ); + ptr += 2 ; + break ; + + case MN_GET_REMOTE_PUBLIC | MN_STRING: + i = instance_get( r->stack_ptr[-1] ); + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = PUBDWORD( i, ptr[1] ) ; + string_use( r->stack_ptr[-1] ); + ptr += 2 ; + break ; + + case MN_STRING | MN_PTR: + r->stack_ptr[-1] = *( int32_t * )r->stack_ptr[-1] ; + string_use( r->stack_ptr[-1] ); + ptr++ ; + break ; + + case MN_STRING | MN_POP: + string_discard( r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* Access to variables WORD type */ + + case MN_WORD | MN_GET_PRIV: + *r->stack_ptr++ = PRIINT16( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_PRIV | MN_UNSIGNED: + *r->stack_ptr++ = PRIWORD( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_PUBLIC: + *r->stack_ptr++ = PUBINT16( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_PUBLIC | MN_UNSIGNED: + *r->stack_ptr++ = PUBWORD( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_LOCAL: + *r->stack_ptr++ = LOCINT16( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_LOCAL | MN_UNSIGNED: + *r->stack_ptr++ = LOCWORD( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_GLOBAL: + *r->stack_ptr++ = GLOINT16( ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_GLOBAL | MN_UNSIGNED: + *r->stack_ptr++ = GLOWORD( ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_REMOTE: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = LOCINT16( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_REMOTE | MN_UNSIGNED: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = LOCWORD( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_REMOTE_PUBLIC: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = PUBINT16( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_GET_REMOTE_PUBLIC | MN_UNSIGNED: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = PUBWORD( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_WORD | MN_PTR: + r->stack_ptr[-1] = *( int16_t * )r->stack_ptr[-1] ; + ptr++ ; + break ; + + case MN_WORD | MN_PTR | MN_UNSIGNED: + r->stack_ptr[-1] = *( uint16_t * )r->stack_ptr[-1] ; + ptr++ ; + break ; + + /* Access to variables BYTE type */ + + case MN_BYTE | MN_GET_PRIV: + *r->stack_ptr++ = PRIINT8( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_PRIV | MN_UNSIGNED: + *r->stack_ptr++ = PRIBYTE( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_PUBLIC: + *r->stack_ptr++ = PUBINT8( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_PUBLIC | MN_UNSIGNED: + *r->stack_ptr++ = PUBBYTE( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_LOCAL: + *r->stack_ptr++ = LOCINT8( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_LOCAL | MN_UNSIGNED: + *r->stack_ptr++ = LOCBYTE( r, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_GLOBAL: + *r->stack_ptr++ = GLOINT8( ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_GLOBAL | MN_UNSIGNED: + *r->stack_ptr++ = GLOBYTE( ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_REMOTE: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = LOCINT8( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_REMOTE | MN_UNSIGNED: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = LOCBYTE( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_REMOTE_PUBLIC: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = PUBINT8( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_GET_REMOTE_PUBLIC | MN_UNSIGNED: + i = instance_get( r->stack_ptr[-1] ) ; + if ( !i ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Process %d not active\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), r->stack_ptr[-1] ) ; + exit( 0 ); + } + else + r->stack_ptr[-1] = PUBBYTE( i, ptr[1] ) ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_PTR: + r->stack_ptr[-1] = *(( int8_t * )r->stack_ptr[-1] ) ; + ptr++ ; + break ; + + case MN_BYTE | MN_PTR | MN_UNSIGNED: + r->stack_ptr[-1] = *(( uint8_t * )r->stack_ptr[-1] ) ; + ptr++ ; + break ; + + /* Floating point math */ + + case MN_FLOAT | MN_NEG: + *( float * )&r->stack_ptr[-1] = -*(( float * ) & r->stack_ptr[-1] ) ; + ptr++ ; + break ; + + case MN_FLOAT | MN_NOT: + *( float * )&r->stack_ptr[-1] = ( float ) !*(( float * ) & r->stack_ptr[-1] ) ; + ptr++ ; + break ; + + case MN_FLOAT | MN_ADD: + *( float * )&r->stack_ptr[-2] += *(( float * ) & r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_FLOAT | MN_SUB: + *( float * )&r->stack_ptr[-2] -= *(( float * ) & r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_FLOAT | MN_MUL: + *( float * )&r->stack_ptr[-2] *= *(( float * ) & r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_FLOAT | MN_DIV: + *( float * )&r->stack_ptr[-2] /= *(( float * ) & r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_FLOAT2INT: + *( int32_t * )&( r->stack_ptr[-ptr[1] - 1] ) = ( int32_t ) * ( float * ) & ( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_INT2FLOAT: + case MN_INT2FLOAT | MN_UNSIGNED: + *( float * )&( r->stack_ptr[-ptr[1] - 1] ) = ( float ) * ( int32_t * ) & ( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_INT2FLOAT | MN_UNSIGNED | MN_WORD: + *( float * )&( r->stack_ptr[-ptr[1] - 1] ) = ( float ) * ( uint16_t * ) & ( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_INT2FLOAT | MN_UNSIGNED | MN_BYTE: + *( float * )&( r->stack_ptr[-ptr[1] - 1] ) = ( float ) * ( uint8_t * ) & ( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_INT2WORD: + case MN_INT2WORD | MN_UNSIGNED: + *( uint32_t * )&( r->stack_ptr[-ptr[1] - 1] ) = ( int32_t )( uint16_t ) * ( int32_t * ) & ( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2; + break; + + case MN_INT2BYTE: + case MN_INT2BYTE | MN_UNSIGNED: + *( uint32_t * )&( r->stack_ptr[-ptr[1] - 1] ) = ( int32_t )( uint8_t ) * ( int32_t * ) & ( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2; + break; + + /* Mathematical operations */ + + case MN_NEG: + case MN_NEG | MN_UNSIGNED: + r->stack_ptr[-1] = -r->stack_ptr[-1] ; + ptr++ ; + break ; + + case MN_NOT: + case MN_NOT | MN_UNSIGNED: + r->stack_ptr[-1] = !( r->stack_ptr[-1] ) ; + ptr++ ; + break ; + + case MN_ADD: + r->stack_ptr[-2] += r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_SUB: + r->stack_ptr[-2] -= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_MUL | MN_WORD: + case MN_MUL | MN_BYTE: + case MN_MUL: + r->stack_ptr[-2] *= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_MUL | MN_WORD | MN_UNSIGNED: + case MN_MUL | MN_BYTE | MN_UNSIGNED: + case MN_MUL | MN_UNSIGNED: + r->stack_ptr[-2] = ( uint32_t )r->stack_ptr[-2] * ( uint32_t )r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_DIV | MN_WORD: + case MN_DIV | MN_BYTE: + case MN_DIV: + if ( r->stack_ptr[-1] == 0 ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Division by zero\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + r->stack_ptr[-2] /= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_DIV | MN_WORD | MN_UNSIGNED: + case MN_DIV | MN_BYTE | MN_UNSIGNED: + case MN_DIV | MN_UNSIGNED: + if ( r->stack_ptr[-1] == 0 ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Division by zero\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + r->stack_ptr[-2] = ( uint32_t )r->stack_ptr[-2] / ( uint32_t )r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_MOD | MN_WORD: + case MN_MOD | MN_BYTE: + case MN_MOD: + if ( r->stack_ptr[-1] == 0 ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Division by zero\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + r->stack_ptr[-2] %= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_MOD | MN_WORD | MN_UNSIGNED: + case MN_MOD | MN_BYTE | MN_UNSIGNED: + case MN_MOD | MN_UNSIGNED: + if ( r->stack_ptr[-1] == 0 ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Division by zero\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + r->stack_ptr[-2] = ( uint32_t )r->stack_ptr[-2] % ( uint32_t )r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* Bitwise operations */ + + case MN_ROR: + ( r->stack_ptr[-2] ) = (( int32_t )r->stack_ptr[-2] ) >> r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_ROR | MN_UNSIGNED: + r->stack_ptr[-2] = (( uint32_t ) r->stack_ptr[-2] ) >> r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_ROR: + r->stack_ptr[-2] = (( int16_t ) r->stack_ptr[-2] ) >> r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_ROR | MN_UNSIGNED: + r->stack_ptr[-2] = (( uint16_t ) r->stack_ptr[-2] ) >> r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_ROR: + r->stack_ptr[-2] = (( int8_t ) r->stack_ptr[-2] >> r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_ROR | MN_UNSIGNED: + r->stack_ptr[-2] = (( uint8_t ) r->stack_ptr[-2] ) >> r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_ROL: + ( r->stack_ptr[-2] ) = (( int32_t )r->stack_ptr[-2] ) << r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* All the next ROL operations, don't could be necessaries, but well... */ + + case MN_ROL | MN_UNSIGNED: + ( r->stack_ptr[-2] ) = ( uint32_t )( r->stack_ptr[-2] << r->stack_ptr[-1] ); + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_ROL: + ( r->stack_ptr[-2] ) = (( int16_t )r->stack_ptr[-2] ) << r->stack_ptr[-1]; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_ROL | MN_UNSIGNED: + ( r->stack_ptr[-2] ) = ( uint16_t )( r->stack_ptr[-2] << r->stack_ptr[-1] ); + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_ROL: + ( r->stack_ptr[-2] ) = (( int8_t )r->stack_ptr[-2] ) << r->stack_ptr[-1]; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_ROL | MN_UNSIGNED: + ( r->stack_ptr[-2] ) = ( uint8_t )( r->stack_ptr[-2] << r->stack_ptr[-1] ); + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BAND: + case MN_BAND | MN_UNSIGNED: + r->stack_ptr[-2] &= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BOR: + case MN_BOR | MN_UNSIGNED: + r->stack_ptr[-2] |= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BXOR: + case MN_BXOR | MN_UNSIGNED: + r->stack_ptr[-2] ^= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BNOT: + case MN_BNOT | MN_UNSIGNED: + r->stack_ptr[-1] = ~( r->stack_ptr[-1] ) ; + ptr++ ; + break ; + + case MN_BYTE | MN_BNOT: + r->stack_ptr[-1] = ( int8_t ) ~( r->stack_ptr[-1] ) ; + ptr++ ; + break ; + + case MN_BYTE | MN_BNOT | MN_UNSIGNED: + r->stack_ptr[-1] = ( uint8_t ) ~( r->stack_ptr[-1] ) ; + ptr++ ; + break ; + + case MN_WORD | MN_BNOT: + r->stack_ptr[-1] = ( int16_t ) ~( r->stack_ptr[-1] ) ; + ptr++ ; + break ; + + case MN_WORD | MN_BNOT | MN_UNSIGNED: + r->stack_ptr[-1] = ( uint16_t ) ~( r->stack_ptr[-1] ) ; + ptr++ ; + break ; + + /* Logical operations */ + + case MN_AND: + r->stack_ptr[-2] = r->stack_ptr[-2] && r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_OR: + r->stack_ptr[-2] = r->stack_ptr[-2] || r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_XOR: + r->stack_ptr[-2] = ( r->stack_ptr[-2] != 0 ) ^( r->stack_ptr[-1] != 0 ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* Comparisons */ + + case MN_EQ: + r->stack_ptr[-2] = ( r->stack_ptr[-2] == r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_NE: + r->stack_ptr[-2] = ( r->stack_ptr[-2] != r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_GTE: + r->stack_ptr[-2] = ( r->stack_ptr[-2] >= r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_GTE | MN_UNSIGNED: + r->stack_ptr[-2] = (( uint32_t )r->stack_ptr[-2] >= ( uint32_t )r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_LTE: + r->stack_ptr[-2] = ( r->stack_ptr[-2] <= r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_LTE | MN_UNSIGNED: + r->stack_ptr[-2] = (( uint32_t )r->stack_ptr[-2] <= ( uint32_t )r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_LT: + r->stack_ptr[-2] = ( r->stack_ptr[-2] < r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_LT | MN_UNSIGNED: + r->stack_ptr[-2] = (( uint32_t )r->stack_ptr[-2] < ( uint32_t )r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_GT: + r->stack_ptr[-2] = ( r->stack_ptr[-2] > r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_GT | MN_UNSIGNED: + r->stack_ptr[-2] = (( uint32_t )r->stack_ptr[-2] > ( uint32_t )r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* Floating point comparisons */ + + case MN_EQ | MN_FLOAT: + r->stack_ptr[-2] = ( *( float * ) & r->stack_ptr[-2] == *( float * ) & r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_NE | MN_FLOAT: + r->stack_ptr[-2] = ( *( float * ) & r->stack_ptr[-2] != *( float * ) & r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_GTE | MN_FLOAT: + r->stack_ptr[-2] = ( *( float * ) & r->stack_ptr[-2] >= *( float * ) & r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_LTE | MN_FLOAT: + r->stack_ptr[-2] = ( *( float * ) & r->stack_ptr[-2] <= *( float * ) & r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_LT | MN_FLOAT: + r->stack_ptr[-2] = ( *( float * ) & r->stack_ptr[-2] < *( float * ) & r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_GT | MN_FLOAT: + r->stack_ptr[-2] = ( *( float * ) & r->stack_ptr[-2] > *( float * ) & r->stack_ptr[-1] ) ; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* String comparisons */ + + case MN_EQ | MN_STRING : + n = string_comp( r->stack_ptr[-2], r->stack_ptr[-1] ) == 0 ; + string_discard( r->stack_ptr[-2] ); + string_discard( r->stack_ptr[-1] ); + r->stack_ptr[-2] = n; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_NE | MN_STRING : + n = string_comp( r->stack_ptr[-2], r->stack_ptr[-1] ) != 0 ; + string_discard( r->stack_ptr[-2] ); + string_discard( r->stack_ptr[-1] ); + r->stack_ptr[-2] = n; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_GTE | MN_STRING : + n = string_comp( r->stack_ptr[-2], r->stack_ptr[-1] ) >= 0 ; + string_discard( r->stack_ptr[-2] ); + string_discard( r->stack_ptr[-1] ); + r->stack_ptr[-2] = n; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_LTE | MN_STRING : + n = string_comp( r->stack_ptr[-2], r->stack_ptr[-1] ) <= 0 ; + string_discard( r->stack_ptr[-2] ); + string_discard( r->stack_ptr[-1] ); + r->stack_ptr[-2] = n; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_LT | MN_STRING : + n = string_comp( r->stack_ptr[-2], r->stack_ptr[-1] ) < 0 ; + string_discard( r->stack_ptr[-2] ); + string_discard( r->stack_ptr[-1] ); + r->stack_ptr[-2] = n; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_GT | MN_STRING : + n = string_comp( r->stack_ptr[-2], r->stack_ptr[-1] ) > 0 ; + string_discard( r->stack_ptr[-2] ); + string_discard( r->stack_ptr[-1] ); + r->stack_ptr[-2] = n; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* String operations */ + + case MN_VARADD | MN_STRING: + n = *( int32_t * )( r->stack_ptr[-2] ) ; + *( int32_t * )( r->stack_ptr[-2] ) = string_add( n, r->stack_ptr[-1] ) ; + string_use( *( int32_t * )( r->stack_ptr[-2] ) ); + string_discard( n ); + string_discard( r->stack_ptr[-1] ); + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_LETNP | MN_STRING: + string_discard( *( int32_t * )( r->stack_ptr[-2] ) ); + ( *( int32_t * )( r->stack_ptr[-2] ) ) = r->stack_ptr[-1]; + r->stack_ptr -= 2 ; + ptr++ ; + break ; + + case MN_LET | MN_STRING: + string_discard( *( int32_t * )( r->stack_ptr[-2] ) ); + ( *( int32_t * )( r->stack_ptr[-2] ) ) = r->stack_ptr[-1]; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_ADD | MN_STRING: + n = string_add( r->stack_ptr[-2], r->stack_ptr[-1] ); + string_use( n ) ; + string_discard( r->stack_ptr[-2] ); + string_discard( r->stack_ptr[-1] ); + r->stack_ptr-- ; + r->stack_ptr[-1] = n ; + ptr++ ; + break ; + + case MN_INT2STR: + r->stack_ptr[-ptr[1] - 1] = string_itoa( r->stack_ptr[-ptr[1] - 1] ) ; + string_use( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_INT2STR | MN_UNSIGNED: + r->stack_ptr[-ptr[1] - 1] = string_uitoa( r->stack_ptr[-ptr[1] - 1] ) ; + string_use( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_INT2STR | MN_WORD: + r->stack_ptr[-ptr[1] - 1] = string_itoa( r->stack_ptr[-ptr[1] - 1] ) ; + string_use( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_INT2STR | MN_UNSIGNED | MN_WORD: + r->stack_ptr[-ptr[1] - 1] = string_uitoa( r->stack_ptr[-ptr[1] - 1] ) ; + string_use( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_INT2STR | MN_BYTE: + r->stack_ptr[-ptr[1] - 1] = string_itoa( r->stack_ptr[-ptr[1] - 1] ) ; + string_use( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_INT2STR | MN_UNSIGNED | MN_BYTE: + r->stack_ptr[-ptr[1] - 1] = string_uitoa( r->stack_ptr[-ptr[1] - 1] ) ; + string_use( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_FLOAT2STR: + r->stack_ptr[-ptr[1] - 1] = string_ftoa( *( float * ) & r->stack_ptr[-ptr[1] - 1] ) ; + string_use( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_CHR2STR: + buffer[0] = ( uint8_t )r->stack_ptr[-ptr[1] - 1] ; + buffer[1] = 0 ; + r->stack_ptr[-ptr[1] - 1] = string_new( buffer ) ; + string_use( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_STRI2CHR: + n = string_char( r->stack_ptr[-2], r->stack_ptr[-1] ) ; + string_discard( r->stack_ptr[-2] ); + r->stack_ptr-- ; + r->stack_ptr[-1] = n ; + ptr++ ; + break ; + + case MN_STR2CHR: + n = r->stack_ptr[-ptr[1] - 1] ; + r->stack_ptr[-1] = *string_get( n ) ; + string_discard( n ); + ptr += 2 ; + break ; + + case MN_POINTER2STR: + r->stack_ptr[-ptr[1] - 1] = string_ptoa( *( void ** ) & r->stack_ptr[-ptr[1] - 1] ) ; + string_use( r->stack_ptr[-ptr[1] - 1] ) ; + ptr += 2 ; + break ; + + case MN_STR2FLOAT: + n = r->stack_ptr[-ptr[1] - 1] ; + str = ( char * )string_get( n ) ; + *( float * )( &r->stack_ptr[-ptr[1] - 1] ) = str ? ( float )atof( str ) : 0.0f ; + string_discard( n ) ; + ptr += 2 ; + break ; + + case MN_STR2INT: + n = r->stack_ptr[-ptr[1] - 1] ; + str = ( char * )string_get( n ) ; + r->stack_ptr[-ptr[1] - 1] = str ? atoi( str ) : 0 ; + string_discard( n ) ; + ptr += 2 ; + break ; + + /* Fixed-length strings operations*/ + + case MN_A2STR: + str = *( char ** )( &r->stack_ptr[-ptr[1] - 1] ) ; + n = string_new( str ); + string_use( n ); + r->stack_ptr[-ptr[1] - 1] = n ; + ptr += 2 ; + break ; + + case MN_STR2A: + n = r->stack_ptr[-1]; + strncpy( *( char ** )( &r->stack_ptr[-2] ), string_get( n ), ptr[1] ) ; + (( char * )( r->stack_ptr[-2] ) )[ptr[1]] = 0; + r->stack_ptr[-2] = r->stack_ptr[-1]; + r->stack_ptr--; + ptr += 2 ; + break ; + + case MN_STRACAT: + n = r->stack_ptr[-1]; + strncat( *( char ** )( &r->stack_ptr[-2] ), string_get( n ), (ptr[1]-1) - strlen( *( char ** )( &r->stack_ptr[-2] ) ) ) ; + (( char * )( r->stack_ptr[-2] ) )[ptr[1]-1] = 0; + r->stack_ptr[-2] = r->stack_ptr[-1]; + r->stack_ptr--; + ptr += 2 ; + break ; + + /* Direct operations with variables DWORD type */ + + case MN_LETNP: + case MN_LETNP | MN_UNSIGNED: + ( *( int32_t * )( r->stack_ptr[-2] ) ) = r->stack_ptr[-1] ; + r->stack_ptr -= 2 ; + ptr++ ; + break ; + + case MN_LET: + case MN_LET | MN_UNSIGNED: + ( *( int32_t * )( r->stack_ptr[-2] ) ) = r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_INC: + case MN_INC | MN_UNSIGNED: + ( *( int32_t * )( r->stack_ptr[-1] ) ) += ptr[1] ; + ptr += 2 ; + break ; + + case MN_DEC: + case MN_DEC | MN_UNSIGNED: + ( *( int32_t * )( r->stack_ptr[-1] ) ) -= ptr[1] ; + ptr += 2 ; + break ; + + case MN_POSTDEC: + case MN_POSTDEC | MN_UNSIGNED: + ( *( int32_t * )( r->stack_ptr[-1] ) ) -= ptr[1] ; + r->stack_ptr[-1] = *( int32_t * )( r->stack_ptr[-1] ) + ptr[1] ; + ptr += 2 ; + break ; + + case MN_POSTINC: + case MN_POSTINC | MN_UNSIGNED: + *(( int32_t * )( r->stack_ptr[-1] ) ) += ptr[1] ; + r->stack_ptr[-1] = *( int32_t * )( r->stack_ptr[-1] ) - ptr[1] ; + ptr += 2 ; + break ; + + case MN_VARADD: + case MN_VARADD | MN_UNSIGNED: + *( int32_t * )( r->stack_ptr[-2] ) += r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VARSUB: + case MN_VARSUB | MN_UNSIGNED: + *( int32_t * )( r->stack_ptr[-2] ) -= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VARMUL: + case MN_VARMUL | MN_UNSIGNED: + *( int32_t * )( r->stack_ptr[-2] ) *= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VARDIV: + case MN_VARDIV | MN_UNSIGNED: + if ( r->stack_ptr[-1] == 0 ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Division by zero\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + *( int32_t * )( r->stack_ptr[-2] ) /= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VARMOD: + case MN_VARMOD | MN_UNSIGNED: + if ( r->stack_ptr[-1] == 0 ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Division by zero\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + *( int32_t * )( r->stack_ptr[-2] ) %= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VAROR: + case MN_VAROR | MN_UNSIGNED: + *( int32_t * )( r->stack_ptr[-2] ) |= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VARXOR: + case MN_VARXOR | MN_UNSIGNED: + *( int32_t * )( r->stack_ptr[-2] ) ^= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VARAND: + case MN_VARAND | MN_UNSIGNED: + *( int32_t * )( r->stack_ptr[-2] ) &= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VARROR: + *( int32_t * )( r->stack_ptr[-2] ) >>= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VARROR | MN_UNSIGNED: + *( uint32_t * )( r->stack_ptr[-2] ) >>= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VARROL: + *( int32_t * )( r->stack_ptr[-2] ) <<= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_VARROL | MN_UNSIGNED: + *( uint32_t * )( r->stack_ptr[-2] ) <<= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* Direct operations with variables WORD type */ + + case MN_WORD | MN_LETNP: + case MN_WORD | MN_LETNP | MN_UNSIGNED: + ( *( int16_t * )( r->stack_ptr[-2] ) ) = r->stack_ptr[-1] ; + r->stack_ptr -= 2 ; + ptr++ ; + break ; + + case MN_WORD | MN_LET: + case MN_WORD | MN_LET | MN_UNSIGNED: + ( *( int16_t * )( r->stack_ptr[-2] ) ) = r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_INC: + case MN_WORD | MN_INC | MN_UNSIGNED: + ( *( int16_t * )( r->stack_ptr[-1] ) ) += ptr[1] ; + ptr += 2 ; + break ; + + case MN_WORD | MN_DEC: + case MN_WORD | MN_DEC | MN_UNSIGNED: + ( *( int16_t * )( r->stack_ptr[-1] ) ) -= ptr[1] ; + ptr += 2 ; + break ; + + case MN_WORD | MN_POSTDEC: + case MN_WORD | MN_POSTDEC | MN_UNSIGNED: + ( *( int16_t * )( r->stack_ptr[-1] ) ) -= ptr[1] ; + r->stack_ptr[-1] = *( int16_t * )( r->stack_ptr[-1] ) + ptr[1] ; + ptr += 2 ; + break ; + + case MN_WORD | MN_POSTINC: + case MN_WORD | MN_POSTINC | MN_UNSIGNED: + *(( int16_t * )( r->stack_ptr[-1] ) ) += ptr[1] ; + r->stack_ptr[-1] = *( int16_t * )( r->stack_ptr[-1] ) - ptr[1] ; + ptr += 2 ; + break ; + + case MN_WORD | MN_VARADD: + case MN_WORD | MN_VARADD | MN_UNSIGNED: + *( int16_t * )( r->stack_ptr[-2] ) += r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VARSUB: + case MN_WORD | MN_VARSUB | MN_UNSIGNED: + *( int16_t * )( r->stack_ptr[-2] ) -= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VARMUL: + case MN_WORD | MN_VARMUL | MN_UNSIGNED: + *( int16_t * )( r->stack_ptr[-2] ) *= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VARDIV: + case MN_WORD | MN_VARDIV | MN_UNSIGNED: + if (( int16_t )r->stack_ptr[-1] == 0 ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Division by zero\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + *( int16_t * )( r->stack_ptr[-2] ) /= ( int16_t )r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VARMOD: + case MN_WORD | MN_VARMOD | MN_UNSIGNED: + if (( int16_t )r->stack_ptr[-1] == 0 ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Division by zero\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + *( int16_t * )( r->stack_ptr[-2] ) %= ( int16_t )r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VAROR: + case MN_WORD | MN_VAROR | MN_UNSIGNED: + *( int16_t * )( r->stack_ptr[-2] ) |= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VARXOR: + case MN_WORD | MN_VARXOR | MN_UNSIGNED: + *( int16_t * )( r->stack_ptr[-2] ) ^= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VARAND: + case MN_WORD | MN_VARAND | MN_UNSIGNED: + *( int16_t * )( r->stack_ptr[-2] ) &= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VARROR: + *( int16_t * )( r->stack_ptr[-2] ) >>= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VARROR | MN_UNSIGNED: + *( uint16_t * )( r->stack_ptr[-2] ) >>= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VARROL: + *( int16_t * )( r->stack_ptr[-2] ) <<= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_WORD | MN_VARROL | MN_UNSIGNED: + *( uint16_t * )( r->stack_ptr[-2] ) <<= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* Direct operations with variables BYTE type */ + + case MN_BYTE | MN_LETNP: + case MN_BYTE | MN_LETNP | MN_UNSIGNED: + ( *( uint8_t * )( r->stack_ptr[-2] ) ) = r->stack_ptr[-1] ; + r->stack_ptr -= 2 ; + ptr++ ; + break ; + + case MN_BYTE | MN_LET: + case MN_BYTE | MN_LET | MN_UNSIGNED: + ( *( uint8_t * )( r->stack_ptr[-2] ) ) = r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_INC: + case MN_BYTE | MN_INC | MN_UNSIGNED: + ( *( uint8_t * )( r->stack_ptr[-1] ) ) += ptr[1] ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_DEC: + case MN_BYTE | MN_DEC | MN_UNSIGNED: + ( *( uint8_t * )( r->stack_ptr[-1] ) ) -= ptr[1] ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_POSTDEC: + case MN_BYTE | MN_POSTDEC | MN_UNSIGNED: + ( *( uint8_t * )( r->stack_ptr[-1] ) ) -= ptr[1] ; + r->stack_ptr[-1] = *( uint8_t * )( r->stack_ptr[-1] ) + ptr[1] ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_POSTINC: + case MN_BYTE | MN_POSTINC | MN_UNSIGNED: + *(( uint8_t * )( r->stack_ptr[-1] ) ) += ptr[1] ; + r->stack_ptr[-1] = *( uint8_t * )( r->stack_ptr[-1] ) - ptr[1] ; + ptr += 2 ; + break ; + + case MN_BYTE | MN_VARADD: + case MN_BYTE | MN_VARADD | MN_UNSIGNED: + *( uint8_t * )( r->stack_ptr[-2] ) += r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VARSUB: + case MN_BYTE | MN_VARSUB | MN_UNSIGNED: + *( uint8_t * )( r->stack_ptr[-2] ) -= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VARMUL: + case MN_BYTE | MN_VARMUL | MN_UNSIGNED: + *( uint8_t * )( r->stack_ptr[-2] ) *= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VARDIV: + case MN_BYTE | MN_VARDIV | MN_UNSIGNED: + if (( uint8_t )r->stack_ptr[-1] == 0 ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Division by zero\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + *( uint8_t * )( r->stack_ptr[-2] ) /= ( uint8_t )r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VARMOD: + case MN_BYTE | MN_VARMOD | MN_UNSIGNED: + if (( uint8_t )r->stack_ptr[-1] == 0 ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Division by zero\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + *( uint8_t * )( r->stack_ptr[-2] ) %= ( uint8_t )r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VAROR: + case MN_BYTE | MN_VAROR | MN_UNSIGNED: + *( uint8_t * )( r->stack_ptr[-2] ) |= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VARXOR: + case MN_BYTE | MN_VARXOR | MN_UNSIGNED: + *( uint8_t * )( r->stack_ptr[-2] ) ^= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VARAND: + case MN_BYTE | MN_VARAND | MN_UNSIGNED: + *( uint8_t * )( r->stack_ptr[-2] ) &= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VARROR: + *( int8_t * )( r->stack_ptr[-2] ) >>= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VARROR | MN_UNSIGNED: + *( uint8_t * )( r->stack_ptr[-2] ) >>= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VARROL: + *( int8_t * )( r->stack_ptr[-2] ) <<= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_BYTE | MN_VARROL | MN_UNSIGNED: + *( uint8_t * )( r->stack_ptr[-2] ) <<= r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* Direct operations with variables FLOAT type */ + + case MN_FLOAT | MN_LETNP: + ( *( float * )( r->stack_ptr[-2] ) ) = *( float * ) & r->stack_ptr[-1] ; + r->stack_ptr -= 2 ; + ptr++ ; + break ; + + case MN_FLOAT | MN_LET : + ( *( float * )( r->stack_ptr[-2] ) ) = *( float * ) & r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_FLOAT | MN_INC: + ( *( float * )( r->stack_ptr[-1] ) ) += ptr[1] ; + ptr += 2 ; + break ; + + case MN_FLOAT | MN_DEC: + ( *( float * )( r->stack_ptr[-1] ) ) -= ptr[1] ; + ptr += 2 ; + break ; + + case MN_FLOAT | MN_POSTDEC: + ( *( float * )( r->stack_ptr[-1] ) ) -= ptr[1] ; + r->stack_ptr[-1] = *( uint32_t * )( r->stack_ptr[-1] ) + ptr[1] ; + ptr += 2 ; + break ; + + case MN_FLOAT | MN_POSTINC: + *(( float * )( r->stack_ptr[-1] ) ) += ptr[1] ; + r->stack_ptr[-1] = *( uint32_t * )( r->stack_ptr[-1] ) - ptr[1] ; + ptr += 2 ; + break ; + + case MN_FLOAT | MN_VARADD: + *( float * )( r->stack_ptr[-2] ) += *( float * ) & r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_FLOAT | MN_VARSUB: + *( float * )( r->stack_ptr[-2] ) -= *( float * ) & r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_FLOAT | MN_VARMUL: + *( float * )( r->stack_ptr[-2] ) *= *( float * ) & r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + case MN_FLOAT | MN_VARDIV: + *( float * )( r->stack_ptr[-2] ) /= *( float * ) & r->stack_ptr[-1] ; + r->stack_ptr-- ; + ptr++ ; + break ; + + /* Jumps */ + + case MN_JUMP: + ptr = r->code + ptr[1] ; + continue ; + + case MN_JTRUE: + r->stack_ptr-- ; + if ( *r->stack_ptr ) + { + ptr = r->code + ptr[1] ; + continue ; + } + ptr += 2 ; + break ; + + case MN_JFALSE: + r->stack_ptr-- ; + if ( !*r->stack_ptr ) + { + ptr = r->code + ptr[1] ; + continue ; + } + ptr += 2 ; + break ; + + case MN_JTTRUE: + if ( r->stack_ptr[-1] ) + { + ptr = r->code + ptr[1] ; + continue ; + } + ptr += 2 ; + break ; + + case MN_JTFALSE: + if ( !r->stack_ptr[-1] ) + { + ptr = r->code + ptr[1] ; + continue ; + } + ptr += 2 ; + break ; + + case MN_NCALL: + *r->stack_ptr++ = ptr - r->code + 2 ; /* Push next address */ + ptr = r->code + ptr[1] ; /* Call function */ + r->call_level++; + break ; + + /* Switch */ + + case MN_SWITCH: + r->switchval = *--r->stack_ptr ; + r->cased = 0 ; + ptr++ ; + break ; + + case MN_SWITCH | MN_STRING: + if ( r->switchval_string != 0 ) string_discard( r->switchval_string ); + r->switchval_string = *--r->stack_ptr; + r->cased = 0; + ptr++; + break; + + case MN_CASE: + if ( r->switchval == *--r->stack_ptr ) r->cased = 2 ; + ptr++ ; + break ; + + case MN_CASE | MN_STRING: + if ( string_comp( r->switchval_string, *--r->stack_ptr ) == 0 ) r->cased = 2 ; + string_discard( *r->stack_ptr ); + string_discard( r->stack_ptr[-1] ); + ptr++; + break; + + case MN_CASE_R: + r->stack_ptr -= 2 ; + if ( r->switchval >= r->stack_ptr[0] && r->switchval <= r->stack_ptr[1] ) r->cased = 1 ; + ptr++ ; + break ; + + case MN_CASE_R | MN_STRING: + r->stack_ptr -= 2; + if ( string_comp( r->switchval_string, r->stack_ptr[0] ) >= 0 && + string_comp( r->switchval_string, r->stack_ptr[1] ) <= 0 ) + r->cased = 1; + string_discard( r->stack_ptr[0] ); + string_discard( r->stack_ptr[1] ); + ptr++; + break; + + case MN_JNOCASE: + if ( r->cased < 1 ) + { + ptr = r->code + ptr[1] ; + continue ; + } + ptr += 2 ; + break ; + + /* Process control */ + + case MN_TYPE: + { + PROCDEF * proct = procdef_get( ptr[1] ) ; + if ( !proct ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Invalid type\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + exit( 0 ); + } + *r->stack_ptr++ = proct->type ; + ptr += 2 ; + break ; + } + + case MN_FRAME: + LOCINT32( r, FRAME_PERCENT ) += r->stack_ptr[-1]; + r->stack_ptr-- ; + r->codeptr = ptr + 1 ; + return_value = LOCDWORD( r, PROCESS_ID ); + + if ( !( r->proc->flags & PROC_FUNCTION ) && + r->called_by && instance_exists( r->called_by ) && ( LOCDWORD( r->called_by, STATUS ) & STATUS_WAITING_MASK ) ) + { + /* We're returning and the parent is waiting: wake it up */ + if ( r->called_by->stack && ( r->called_by->stack[0] & STACK_RETURN_VALUE ) ) + r->called_by->stack_ptr[-1] = return_value; + + LOCDWORD( r->called_by, STATUS ) &= ~STATUS_WAITING_MASK; + r->called_by = NULL; + } + goto break_all ; + + case MN_END: + if ( r->call_level > 0 ) + { + ptr = r->code + *--r->stack_ptr ; + r->call_level--; + continue; + } + + if ( LOCDWORD( r, STATUS ) != STATUS_DEAD ) LOCDWORD( r, STATUS ) = STATUS_KILLED ; + goto break_all ; + + case MN_RETURN: + if ( r->call_level > 0 ) + { + ptr = r->code + *--r->stack_ptr ; + r->call_level--; + continue; + } + + if ( LOCDWORD( r, STATUS ) != STATUS_DEAD ) LOCDWORD( r, STATUS ) = STATUS_KILLED ; + r->stack_ptr-- ; + return_value = *r->stack_ptr ; + goto break_all ; + + /* Handlers */ + + case MN_EXITHNDLR: + r->exitcode = ptr[1] ; + ptr += 2 ; + break; + + case MN_ERRHNDLR: + r->errorcode = ptr[1] ; + ptr += 2 ; + break; + + /* Others */ + + case MN_DEBUG: + if ( dcb.data.NSourceFiles ) + { + if ( debug > 0 ) printf( "\n::: DEBUG from %s(%d)\n", r->proc->name, LOCDWORD( r, PROCESS_ID ) ) ; + debug_next = 1; + } + ptr++; + break ; + + case MN_SENTENCE: + trace_sentence = ptr[1]; + trace_instance = r; + ptr += 2 ; + break ; + + default: + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Mnemonic 0x%02X not implemented\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), *ptr ) ; + exit( 0 ); + } + + if ( r->stack_ptr < r->stack ) + { + fprintf( stderr, "ERROR: Runtime error in %s(%d) - Critical Stack Problem StackBase=%p StackPTR=%p\n", r->proc->name, LOCDWORD( r, PROCESS_ID ), (void *)r->stack, (void *)r->stack_ptr ) ; + exit( 0 ); + } + +#ifdef EXIT_ON_EMPTY_STACK + if ( r->stack_ptr == r->stack ) + { + r->codeptr = ptr ; + if ( LOCDWORD( r, STATUS ) != STATUS_RUNNING && LOCDWORD( r, STATUS ) != STATUS_DEAD ) break ; + } +#endif + + } + + /* *** GENERAL EXIT *** */ +break_all: + + if ( !*ptr || *ptr == MN_RETURN || *ptr == MN_END || LOCDWORD( r, STATUS ) == STATUS_KILLED ) + { + /* Check for waiting parent */ + if ( r->called_by && instance_exists( r->called_by ) && ( LOCDWORD( r->called_by, STATUS ) & STATUS_WAITING_MASK ) ) + { + /* We're returning and the parent is waiting: wake it up */ + if ( r->called_by->stack && ( r->called_by->stack[0] & STACK_RETURN_VALUE ) ) + r->called_by->stack_ptr[-1] = return_value; + + LOCDWORD( r->called_by, STATUS ) &= ~STATUS_WAITING_MASK; + } + r->called_by = NULL; + + /* The process should be destroyed immediately, it is a function-type one */ + /* Run ONEXIT */ + if (( LOCDWORD( r, STATUS ) & ~STATUS_WAITING_MASK ) != STATUS_DEAD && r->exitcode ) + { + LOCDWORD( r, STATUS ) = STATUS_DEAD; + r->codeptr = r->code + r->exitcode; + instance_go( r ); + if ( !instance_exists( r ) ) r = NULL; + } + else + { + instance_destroy( r ); + r = NULL ; + } + } + + /* Hook */ + if ( r && instance_pos_execute_hook_count ) + { + for ( n = 0; n < instance_pos_execute_hook_count; n++ ) + instance_pos_execute_hook_list[n]( r ); + } + /* Hook */ + if ( r && LOCDWORD( r, STATUS ) != STATUS_KILLED && r->first_run ) r->first_run = 0; + + if ( debug_next && trace_sentence != -1 ) + { + force_debug = 1; + debug_next = 0; + } + + return return_value; +} + +/* ---------------------------------------------------------------------- */ diff --git a/core/bgdrtm/src/misc.c b/core/bgdrtm/src/misc.c new file mode 100644 index 0000000..aeaf1f1 --- /dev/null +++ b/core/bgdrtm/src/misc.c @@ -0,0 +1,317 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +/* --------------------------------------------------------------------------- */ +/* + * INCLUDES + */ + +#include +#include +#include +#include +#include + +#include "bgdrtm.h" +#include "offsets.h" +#include "dcb.h" +#include "sysprocs_p.h" +#include "xstrings.h" + +#include "fmath.h" + +#if defined(TARGET_GP2X_WIZ) || defined(TARGET_CAANOO) + #include + #include + #include + + #include +#endif + +/* --------------------------------------------------------------------------- */ + +char * appname = NULL; +char * appexename = NULL; +char * appexepath = NULL; +char * appexefullpath = NULL; + +/* --------------------------------------------------------------------------- */ + +int debug = 0; /* 1 if running in debug mode */ + +/* --------------------------------------------------------------------------- */ + +/* os versions */ +#ifdef _WIN32 +#define _OS_ID OS_WIN32 +#endif + +#ifdef TARGET_LINUX +#define _OS_ID OS_LINUX +#endif + +#ifdef TARGET_BEOS +#define _OS_ID OS_BEOS +#endif + +#ifdef TARGET_MAC +#define _OS_ID OS_MACOS +#endif + +#ifdef TARGET_GP32 +#define _OS_ID OS_GP32 +#endif + +#ifdef TARGET_DC +#define _OS_ID OS_DC +#endif + +#ifdef TARGET_BSD +#define _OS_ID OS_BSD +#endif + +#ifdef TARGET_GP2X +#ifdef _OS_ID +#undef _OS_ID +#endif +#define _OS_ID OS_GP2X +#endif + +#ifdef TARGET_GP2X_WIZ +#ifdef _OS_ID +#undef _OS_ID +#endif +#define _OS_ID OS_GP2X_WIZ +#endif + +#ifdef TARGET_CAANOO +#ifdef _OS_ID +#undef _OS_ID +#endif +#define _OS_ID OS_CAANOO +#endif + +#ifdef TARGET_DINGUX_A320 +#ifdef _OS_ID +#undef _OS_ID +#endif +#define _OS_ID OS_DINGUX_A320 +#endif + +#ifdef TARGET_WII +#ifdef _OS_ID +#undef _OS_ID +#endif +#define _OS_ID OS_WII +#endif + +#ifdef TARGET_ANDROID +#ifdef _OS_ID +#undef _OS_ID +#endif +#define _OS_ID OS_ANDROID +#endif + +#ifdef TARGET_IOS +#ifdef _OS_ID +#undef _OS_ID +#endif +#define _OS_ID OS_IOS +#endif + +/* --------------------------------------------------------------------------- */ + +#if defined(TARGET_GP2X_WIZ) || defined(TARGET_CAANOO) + +#define TIMER_BASE3 0x1980 +#define TIMER_REG(x) __bgdrtm_memregl[(TIMER_BASE3 + x) >> 2] + +volatile unsigned long *__bgdrtm_memregl = NULL; +int __bgdrtm_memdev = -1; + +#ifdef TARGET_CAANOO +static unsigned long caanoo_firmware_version = 0; +#endif + +void bgdrtm_ptimer_init(void) +{ +#if defined(TARGET_GP2X_WIZ) + TIMER_REG(0x44) = 0x922; +#else + if ( caanoo_firmware_version < 1000006 ) /* firmware version < 1.0.6 */ + { + TIMER_REG(0x44) = 0x922; + } + else + { + TIMER_REG(0x44) = 0x0FF2; + } +#endif + TIMER_REG(0x40) = 0x0c; + TIMER_REG(0x08) = 0x6b; +} + +unsigned long bgdrtm_ptimer_get_ticks_us(void) +{ + TIMER_REG(0x08) = 0x4b; /* run timer, latch value */ + return TIMER_REG(0); +} + +void bgdrtm_ptimer_cleanup(void) +{ + TIMER_REG(0x40) = 0x0c; + TIMER_REG(0x08) = 0x23; + TIMER_REG(0x00) = 0; + TIMER_REG(0x40) = 0; + TIMER_REG(0x44) = 0; +} + +#endif + +/* --------------------------------------------------------------------------- */ +/* + * FUNCTION : strncmpi + * + * Compare two strings (case-insensitive version) + * + * PARAMS: + * str1 first string + * str2 second string + * + * RETURN VALUE: + * Result of the comparison + */ + +int strncmpi( char * str1, char * str2, int sz ) +{ + while (( *str1 || *str2 ) && sz ) + { +#ifdef _WIN32 + if ( toupper( *str1 ) != toupper( *str2 ) ) return toupper( *str1 ) - toupper( *str2 ); +#else + if ( *str1 != *str2 ) return *str1 - *str2; +#endif + str1++; str2++; sz--; + } + + return 0 ; +} + +/* --------------------------------------------------------------------------- */ + +void bgdrtm_entry( int argc, char * argv[] ) +{ + int i; + int * args = (int *)&GLODWORD( ARGV_TABLE ); + char * os_id; + + GLODWORD( ARGC ) = argc ; + + for ( i = 0 ; i < argc && i < 32; i++ ) + { + args[i] = string_new( argv[i] ) ; + string_use( args[i] ) ; + } + + if ( ( os_id = getenv( "OS_ID" ) ) ) + GLODWORD( OS_ID ) = atol( os_id ) ; + else + GLODWORD( OS_ID ) = _OS_ID ; + +#if defined(TARGET_GP2X_WIZ) || defined(TARGET_CAANOO) + +#ifdef TARGET_CAANOO + { + FILE * fp = fopen( "/usr/gp2x/version", "r" ); + if ( fp ) + { + char *p1, *p2; + char b[32] = ""; + + fgets( b, sizeof(b), fp ); + fclose( fp ); + + if ( ( p2 = strchr( b, '.' ) ) ) + { + *p2++ = '\0'; + caanoo_firmware_version = atol( b ) * 1000000L; + if ( ( p1 = strchr( p2, '.' ) ) ) + { + *p1++ = '\0'; + caanoo_firmware_version += atol( p2 ) * 1000L; + caanoo_firmware_version += atol( p1 ); + } + else + { + caanoo_firmware_version += atol( p2 ) * 1000L; + } + } + } + } +#endif + + __bgdrtm_memdev = open( "/dev/mem", O_RDWR ); + __bgdrtm_memregl = mmap( 0, 0x20000, PROT_READ|PROT_WRITE, MAP_SHARED, __bgdrtm_memdev, 0xc0000000 ); + + bgdrtm_ptimer_init(); +#endif + + init_cos_tables(); +} + +/* --------------------------------------------------------------------------- */ +/* + * FUNCTION : bgdrtm_exit + * + * Exits from the program cleanly ending operations + * + * PARAMS: + * INT n: ERROR LEVEL to return to OS + * + * RETURN VALUE: + * No value + * + */ + +void bgdrtm_exit( int exit_value ) +{ + int n; + /* Finalize all modules */ + if ( module_finalize_count ) + for ( n = 0; n < module_finalize_count; n++ ) + module_finalize_list[n](); + +#if defined(TARGET_GP2X_WIZ) || defined(TARGET_CAANOO) + bgdrtm_ptimer_cleanup(); + + __bgdrtm_memregl = munmap( 0, 0x20000 ); __bgdrtm_memregl = NULL; + close( __bgdrtm_memdev ); __bgdrtm_memdev = -1; +#endif + + exit( exit_value ) ; +} + +/* --------------------------------------------------------------------------- */ diff --git a/core/bgdrtm/src/strings.c b/core/bgdrtm/src/strings.c new file mode 100644 index 0000000..f7d3641 --- /dev/null +++ b/core/bgdrtm/src/strings.c @@ -0,0 +1,1037 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +/****************************************************************************/ +/* FILE : strings.c */ +/* DESCRIPTION : Strings management. Includes any function related to */ +/* variable-length strings. Those strings are allocated */ +/* in dynamic memory with reference counting. */ +/****************************************************************************/ + +#include +#include +#include +#include + +#ifdef TARGET_BEOS +#include +#else +#include +#endif + +#include "files.h" +#include "xctype.h" + +/****************************************************************************/ + +#define BLOCK_INCR 1024 + +#define bit_set(m,b) (((uint32_t *)(m))[(b)>>5] |= 1<<((b)&0x1F)) +#define bit_clr(m,b) (((uint32_t *)(m))[(b)>>5] &= ~(1<<((b)&0x1F))) +#define bit_tst(m,b) (((uint32_t *)(m))[(b)>>5] & (1<<((b)&0x1F))) + +/****************************************************************************/ +/* STATIC VARIABLES : */ +/****************************************************************************/ + +/* Fixed string memory. The DCB fixed strings are stored here */ +static char * string_mem = NULL ; + +static int string_reserved = 0; /* Last fixed string */ + +static char ** string_ptr = NULL ; /* Pointers to each string's text. Every string is allocated using strdup() or malloc(). + A pointer of a unused slot is 0. + Exception: "fixed" strings are stored in a separate memory block and should not be freed */ +static uint32_t * string_uct = NULL ; /* Usage count for each string. An unused slot has a count of 0 */ + +static uint32_t * string_bmp = NULL ; /* Bitmap for speed up string creation, and reused freed slots */ + +static int string_allocated = 0 ; /* How many string slots are available in the ptr, uct and dontfree arrays */ + +static int string_bmp_start = 0 ; /* Offset of assignable string for reused (32bits each one) */ + +static int string_last_id = 1 ; /* How many strings slots are used. This is only the bigger id in use + 1. + There may be unused slots in this many positions */ + +/* --------------------------------------------------------------------------- */ + +void _string_ptoa( char *t, void * ptr ) +{ + unsigned char c ; + int p = ( int ) ptr; + + c = ((( p ) & 0xf0000000 ) >> 28 ); + *t++ = ( c > 9 ? '7' : '0' ) + c; /* '7' + 10 = 'A' */ + + c = ((( p ) & 0x0f000000 ) >> 24 ); + *t++ = ( c > 9 ? '7' : '0' ) + c; /* '7' + 10 = 'A' */ + + c = ((( p ) & 0x00f00000 ) >> 20 ); + *t++ = ( c > 9 ? '7' : '0' ) + c; /* '7' + 10 = 'A' */ + + c = ((( p ) & 0x000f0000 ) >> 16 ); + *t++ = ( c > 9 ? '7' : '0' ) + c; /* '7' + 10 = 'A' */ + + c = ((( p ) & 0x0000f000 ) >> 12 ); + *t++ = ( c > 9 ? '7' : '0' ) + c; /* '7' + 10 = 'A' */ + + c = ((( p ) & 0x00000f00 ) >> 8 ); + *t++ = ( c > 9 ? '7' : '0' ) + c; /* '7' + 10 = 'A' */ + + c = ((( p ) & 0x000000f0 ) >> 4 ); + *t++ = ( c > 9 ? '7' : '0' ) + c; /* '7' + 10 = 'A' */ + + c = ( p ) & 0x0000000f; + *t++ = ( c > 9 ? '7' : '0' ) + c; /* '7' + 10 = 'A' */ + + *t = '\0'; +} + +/* --------------------------------------------------------------------------- */ + +void _string_ntoa( char *p, unsigned long n ) +{ + char * i = p ; + + p += 10; + if (( long ) n < 0 ) + { + * i++ = '-'; + p++ ; + n = ( unsigned long )( -( long )n ) ; + } + + * p = '\0'; + do + { + * --p = '0' + ( n % 10 ); + } + while ( n /= 10 ) ; + + if ( p > i ) while (( *i++ = *p++ ) ) ; +} + +/* --------------------------------------------------------------------------- */ + +void _string_utoa( char *p, unsigned long n ) +{ + char * i = p ; + + p += 10; + + * p = '\0'; + do + { + * --p = '0' + ( n % 10 ); + } + while ( n /= 10 ) ; + + if ( p > i ) while (( *i++ = *p++ ) ) ; +} + +/* --------------------------------------------------------------------------- */ + +/****************************************************************************/ +/* FUNCTION : string_alloc */ +/****************************************************************************/ +/* int bytes: how many new strings we could need */ +/****************************************************************************/ +/* Increase the size of the internal string arrays. This limits how many */ +/* strings you can have in memory at the same time, and this should be */ +/* called when every identifier slot available is already used. */ +/****************************************************************************/ + +static void string_alloc( int count ) +{ + int lim = ( string_allocated >> 5 ) ; + + count = (( count >> 5 ) + 1 ) << 5 ; + + string_allocated += count ; + + string_ptr = ( char ** ) realloc( string_ptr, string_allocated * sizeof( char * ) ) ; + string_uct = ( uint32_t * ) realloc( string_uct, string_allocated * sizeof( uint32_t ) ) ; + string_bmp = ( uint32_t * ) realloc( string_bmp, ( string_allocated >> 5 ) * sizeof( uint32_t ) ); + + if ( !string_ptr || !string_uct || !string_bmp ) + { + fprintf( stderr, "ERROR: Runtime error - string_alloc: out of memory\n" ) ; + exit( 0 ); + } + + memset( &string_bmp[ lim ], '\0', ( count >> 5 ) * sizeof ( uint32_t ) ); +} + +/****************************************************************************/ +/* FUNCTION : string_init */ +/****************************************************************************/ +/* Allocate memory for the dynamic arrays. You should call this function */ +/* before anything else in this file. There is enough space for about */ +/* BLOCK_INCR short strings, that should be enough for simple programs. */ +/* More space is allocated as needed. */ +/****************************************************************************/ + +void string_init() +{ + string_alloc( BLOCK_INCR ); + + /* Create an empty string with ID 0 */ + + string_last_id = 0; + string_reserved = 0; + string_bmp_start = 0; +} + +/****************************************************************************/ +/* FUNCTION : string_dump */ +/****************************************************************************/ +/* Shows all the strings in memory in the console, including the reference */ +/* count (usage count) of each string. */ +/****************************************************************************/ + +void string_dump( void ( *wlog )( const char *fmt, ... ) ) +{ + int i ; + int used = 0; + + if ( wlog ) + wlog( "[STRING] ---- Dumping MaxID=%d strings ----\n", string_allocated ) ; + else + printf( "[STRING] ---- Dumping MaxID=%d strings ----\n", string_allocated ) ; + + for ( i = 0; i < string_allocated; i++ ) + { + if ( string_ptr[i] ) + { + if ( !string_uct[i] ) + { + if ( i >= string_reserved ) + { + free( string_ptr[i] ) ; + string_ptr[i] = NULL ; + bit_clr( string_bmp, i ); + } + continue ; + } + used++; + if ( wlog ) + wlog( "[STRING] %4d [%4d]%s: {%s}\n", i, string_uct[i], ( i >= string_reserved ) ? "" : " STATIC", string_ptr[i] ) ; + else + printf( "[STRING] %4d [%4d]%s: {%s}\n", i, string_uct[i], ( i >= string_reserved ) ? "" : " STATIC", string_ptr[i] ) ; + } + else + { + continue ; + } + } + if ( wlog ) + wlog( "[STRING] ---- Dumping Used=%d End ----\n", used ) ; + else + printf( "[STRING] ---- Dumping Used=%d End ----\n", used ) ; +} + +/****************************************************************************/ +/* FUNCTION : string_get */ +/****************************************************************************/ +/* int code: identifier of the string you want */ +/****************************************************************************/ +/* Returns the contens of an string. Beware: this pointer with only be */ +/* valid while no other string function is called. */ +/****************************************************************************/ + +const char * string_get( int code ) +{ + assert( code < string_allocated && code >= 0 ) ; + return string_ptr[code] ; +} + +/****************************************************************************/ +/* FUNCTION : string_load */ +/****************************************************************************/ +/* file * fp: the DCB file (must be opened) */ +/* */ +/* This function uses the global "dcb" struct. It should be already filled. */ +/****************************************************************************/ +/* Loads the string portion of a DCB file. This includes an area with all */ +/* the text (that will be stored in the string_mem pointer) and an array of */ +/* the offsets of every string. This function fills the internal arrayswith */ +/* all this data and allocates memory if needed. */ +/****************************************************************************/ + +void string_load( void * fp, int ostroffs, int ostrdata, int nstrings, int totalsize ) +{ + uint32_t * string_offset; + int n; + + string_mem = malloc( totalsize ); + assert( string_mem ); + + string_offset = ( uint32_t * ) malloc( sizeof( uint32_t ) * nstrings ) ; + assert( string_offset ); + + file_seek(( file * )fp, ostroffs, SEEK_SET ) ; + file_readUint32A(( file * )fp, string_offset, nstrings ) ; + + if ( string_last_id + nstrings > string_allocated ) + string_alloc((( string_last_id + nstrings - string_allocated ) / BLOCK_INCR + 1 ) * BLOCK_INCR ) ; + + file_seek(( file * )fp, ostrdata, SEEK_SET ) ; + file_read(( file * )fp, string_mem, totalsize ) ; + + for ( n = 0 ; n < nstrings ; n++ ) + { + string_ptr[string_last_id + n] = string_mem + string_offset[n] ; + string_uct[string_last_id + n] = 0 ; + bit_set( string_bmp, string_last_id + n ); + } + + string_last_id += nstrings ; + + string_last_id = ( string_last_id + 32 ) & ~0x1F; + + string_reserved = string_last_id ; + string_bmp_start = string_last_id >> 5; + + free( string_offset ) ; +} + +/****************************************************************************/ +/* FUNCTION : string_use */ +/****************************************************************************/ +/* int code: identifier of the string you are using */ +/****************************************************************************/ +/* Increase the usage counter of an string. Use this when you store the */ +/* identifier of the string somewhere. */ +/****************************************************************************/ + +void string_use( int code ) +{ + string_uct[code]++ ; +} + +/****************************************************************************/ +/* FUNCTION : string_discard */ +/****************************************************************************/ +/* int code: identifier of the string you don't need anymore */ +/****************************************************************************/ +/* Decrease the usage counter of an string. Use this when you retrieve the */ +/* identifier of the string and discard it, or some memory (like private */ +/* variables) containing the string identifier is destroyed. If the usage */ +/* count is decreased to zero, the string will be discarted, and the */ +/* identifier may be used in the future by other string. */ +/****************************************************************************/ + +void string_discard( int code ) +{ + if ( code < 0 || code > string_allocated || !string_ptr[code] ) return; + + if ( !string_uct[code] ) return ; + + string_uct[code]-- ; + + if ( !string_uct[code] ) + { + if ( code >= string_reserved ) + { + free( string_ptr[code] ) ; + string_ptr[code] = NULL ; + bit_clr( string_bmp, code ); + } + } +} + +/****************************************************************************/ +/* FUNCTION : string_getid */ +/****************************************************************************/ +/* Searchs for an available ID and returns it. If none available, more space*/ +/* is allocated for the new string. This is used for new strings only. */ +/****************************************************************************/ + +static int string_getid() +{ + int n, nb, lim, ini ; + + /* Si tengo suficientes alocados, retorno el siguiente segun string_last_id */ + if ( string_last_id < string_allocated ) + { + if ( !bit_tst( string_bmp, string_last_id ) ) + { + bit_set( string_bmp, string_last_id ); + return string_last_id++ ; + } + } + + /* Ya no tengo mas espacio, entonces busco alguno libre entre ~+32 desde el ultimo fijo y ~-32 del ultimo asignado */ + + ini = ( string_last_id < string_allocated ) ? ( string_last_id >> 5 ) : string_reserved ; + lim = ( string_allocated >> 5 ) ; + + while ( 1 ) + { + for ( n = ini; n < lim ; n++ ) + { + if ( string_bmp[n] != ( uint32_t ) 0xFFFFFFFF ) /* Aca hay 1 libre, busco cual es */ + { + for ( nb = 0; nb < 32; nb++ ) + { + if ( !bit_tst( string_bmp + n, nb ) ) + { + string_last_id = ( n << 5 ) + nb ; + bit_set( string_bmp, string_last_id ); + return string_last_id++ ; + } + } + } + } + if ( ini == string_reserved ) break; + lim = ini; + ini = string_reserved; + } + + string_last_id = string_allocated ; + + /* Incremento espacio, no habia libres */ + string_alloc( BLOCK_INCR ) ; + + assert( !bit_tst( string_bmp, string_last_id ) ); + + /* Devuelvo string_last_id e incremento en 1, ya que ahora tengo BLOCK_INCR mas que antes */ + bit_set( string_bmp, string_last_id ); + return string_last_id++ ; +} + +/****************************************************************************/ +/* FUNCTION : string_new */ +/****************************************************************************/ +/* Create a new string. It returns its ID. Note that it uses strdup() */ +/* TODO: do something if no memory available */ +/****************************************************************************/ + +int string_new( const char * ptr ) +{ + char * str = strdup( ptr ) ; + int id ; + + assert( str ) ; + + id = string_getid() ; + + string_ptr[id] = str ; + string_uct[id] = 0 ; + + return id ; +} + +/* + * FUNCTION : string_newa + * + * Create a new string from a text buffer section + * + * PARAMS: + * ptr Pointer to the text buffer at start position + * count Number of characters + * + * RETURN VALUE: + * ID of the new string + */ + +int string_newa( const char * ptr, unsigned count ) +{ + char * str = malloc( count + 1 ); + int id ; + + assert( str ) ; + id = string_getid() ; + + strncpy( str, ptr, count ); + str[count] = '\0'; + string_ptr[id] = str ; + string_uct[id] = 0 ; + + return id ; +} + +/****************************************************************************/ +/* FUNCTION : string_concat */ +/****************************************************************************/ +/* Add some text to an string and return the resulting string. This does not*/ +/* modify the original string, but creates a new one. */ +/****************************************************************************/ + +int string_concat( int code1, char * str2 ) +{ + char * str1 ; + int len1, len2; + + assert( code1 < string_allocated && code1 >= 0 ) ; + + str1 = string_ptr[code1] ; + assert( str1 ) ; + + len1 = strlen( str1 ) ; + len2 = strlen( str2 ) + 1 ; + + str1 = ( char * ) realloc( str1, len1 + len2 ) ; + assert( str1 ) ; + + memmove( str1 + len1, str2, len2 ) ; + + string_ptr[code1] = str1 ; + + return code1 ; +} + +/****************************************************************************/ +/* FUNCTION : string_add */ +/****************************************************************************/ +/* Add an string to another one and return the resulting string. This does */ +/* not modify the original string, but creates a new one. */ +/****************************************************************************/ + +int string_add( int code1, int code2 ) +{ + const char * str1 = string_get( code1 ) ; + const char * str2 = string_get( code2 ) ; + char * str3 ; + int id ; + int len1, len2; + + assert( str1 ) ; + assert( str2 ) ; + + len1 = strlen( str1 ) ; + len2 = strlen( str2 ) + 1; + + str3 = ( char * ) malloc( len1 + len2 ) ; + assert( str3 ) ; + + memmove( str3, str1, len1 ) ; + memmove( str3 + len1, str2, len2 ) ; + + id = string_getid() ; + + string_ptr[id] = str3 ; + string_uct[id] = 0 ; + + return id ; +} + +/****************************************************************************/ +/* FUNCTION : string_ptoa */ +/****************************************************************************/ +/* Convert a pointer to a new created string and return its ID. */ +/****************************************************************************/ + +int string_ptoa( void * n ) +{ + char * str ; + int id ; + + str = ( char * ) malloc( 10 ) ; + assert( str ) ; + + _string_ptoa( str, n ) ; + + id = string_getid() ; + string_ptr[id] = str ; + string_uct[id] = 0 ; + + return id ; +} + +/****************************************************************************/ +/* FUNCTION : string_ftoa */ +/****************************************************************************/ +/* Convert a float to a new created string and return its ID. */ +/****************************************************************************/ + +int string_ftoa( float n ) +{ + char * str = ( char * ) malloc( 32 ), * ptr = str; + int id ; + + assert( str ) ; + + ptr += sprintf( str, "%f", n ) - 1; + + while ( ptr >= str ) + { + if ( *ptr != '0' ) break ; + *ptr-- = 0 ; + } + if ( ptr >= str && *ptr == '.' ) *ptr = 0 ; + if ( *str == 0 ) + { + *str = '0'; + *( str + 1 ) = '\0'; + } + + id = string_getid() ; + string_ptr[id] = str ; + string_uct[id] = 0 ; + + return id ; +} + +/****************************************************************************/ +/* FUNCTION : string_itoa */ +/****************************************************************************/ +/* Convert an integer to a new created string and return its ID. */ +/****************************************************************************/ + +int string_itoa( int n ) +{ + char * str ; + int id ; + + str = ( char * ) malloc( 16 ) ; + assert( str ) ; + + _string_ntoa( str, n ) ; + + id = string_getid() ; + string_ptr[id] = str ; + string_uct[id] = 0 ; + + return id ; +} + +/****************************************************************************/ +/* FUNCTION : string_uitoa */ +/****************************************************************************/ +/* Convert an unsigned integer to a new created string and return its ID. */ +/****************************************************************************/ + +int string_uitoa( unsigned int n ) +{ + char * str ; + int id ; + + str = ( char * ) malloc( 16 ) ; + assert( str ) ; + + _string_utoa( str, n ) ; + + id = string_getid() ; + string_ptr[id] = str ; + string_uct[id] = 0 ; + + return id ; +} + +/****************************************************************************/ +/* FUNCTION : string_comp */ +/****************************************************************************/ +/* Compare two strings using strcmp and return the result */ +/****************************************************************************/ + +int string_comp( int code1, int code2 ) +{ + const char * str1 = string_get( code1 ) ; + const char * str2 = string_get( code2 ) ; + + return strcmp( str1, str2 ) ; +} + +/****************************************************************************/ +/* FUNCTION : string_char */ +/****************************************************************************/ +/* Extract a character from a string. The parameter nchar can be: */ +/* - 0 or positive: return this character from the left (0 = leftmost) */ +/* - negative: return this character from the right (-1 = rightmost) */ +/* The result is not the ASCII value, but the identifier of a new string */ +/* that is create in the process and contains only the extracted character */ +/****************************************************************************/ + +int string_char( int n, int nchar ) +{ + const char * str = string_get( n ) ; + + assert( str ) ; + + if ( nchar < 0 ) + { + nchar = strlen( str ) + nchar ; + if ( nchar < 0 ) return 0 ; + } + + return str[nchar] ; +} + +/****************************************************************************/ +/* FUNCTION : string_substr */ +/****************************************************************************/ +/* Extract a substring from a string. The parameters can be: */ +/* - 0 or positive: count this character from the left (0 = leftmost) */ +/* - negative: count this character from the right (-1 = rightmost) */ +/* */ +/* NO MORE: If first > last, the two values are swapped before returning the result */ +/****************************************************************************/ + +int string_substr( int code, int first, int len ) +{ + const char * str = string_get( code ) ; + char * ptr ; + int rlen, n ; + + assert( str ) ; + rlen = strlen( str ) ; + + if ( first < 0 ) + { + first = rlen + first ; + if ( first < 0 ) return string_new( "" ) ; + } + else + if ( first > ( rlen - 1 ) ) return string_new( "" ) ; + + if ( len < 0 ) + { + len = rlen + ( len + 2 ) - first - 1 ; + if ( len < 1 ) return string_new( "" ) ; + } + + if (( first + len ) > rlen ) len = ( rlen - first ) ; + + ptr = ( char * )malloc( len + 1 ) ; + memcpy( ptr, str + first, len ) ; + ptr[len] = '\0' ; + + n = string_getid() ; + string_ptr[n] = ptr ; + string_uct[n] = 0 ; + + return n ; +} + +/* + * FUNCTION : string_find + * + * Find a substring. Returns the position of the leftmost character (0 + * for the leftmost position) or -1 if the string was not found. + * + * PARAMS: + * code1 Code of the string + * code2 Code of the substring + * first Character to start the search + * (negative to search backwards) + * + * RETURN VALUE: + * Result of the comparison + */ + +int string_find( int code1, int code2, int first ) +{ + char * str1 = ( char * ) string_get( code1 ) ; + char * str2 = ( char * ) string_get( code2 ) ; + char * p = str1, * p1, * p2 ; + + assert( str1 && str2 ) ; + + if ( first < 0 ) + { + first += strlen( str1 ) ; + if ( first < 0 ) return -1; + str1 += first; + } + else + { + /* Avoid use strlen */ + while ( first-- && *str1 ) str1++; + if ( !*str1 ) return -1; + } + + while ( *str1 ) + { + if ( *str1 == *str2 ) + { + p1 = str1 + 1; + p2 = str2 + 1; + + while ( *p1 && *p2 && *p1 == *p2 ) + { + p1++; + p2++; + } + if ( !*p2 ) return str1 - p; + } + str1++; + } + + return -1 ; +} + +/* + * FUNCTION : string_ucase + * + * Convert an string to upper case. It does not alter the given string, but + * creates a new string in the correct case and returns its id. + * + * PARAMS: + * code Internal code of original string + * + * RETURN VALUE: + * Code of the resulting string + */ + +int string_ucase( int code ) +{ + const char * str = string_get( code ) ; + char * base, * ptr ; + int id ; + + assert( str ) ; + + base = ( char * )malloc( strlen( str ) + 1 ) ; + assert( base ) ; + + for ( ptr = base; *str ; ptr++, str++ ) *ptr = TOUPPER( *str ) ; + ptr[0] = '\0' ; + + id = string_getid() ; + string_ptr[id] = base ; + string_uct[id] = 0 ; + + return id ; +} + +/* + * FUNCTION : string_lcase + * + * Convert an string to lower case. It does not alter the given string, but + * creates a new string in the correct case and returns its id. + * + * PARAMS: + * code Internal code of original string + * + * RETURN VALUE: + * Code of the resulting string + */ + +int string_lcase( int code ) +{ + const char * str = string_get( code ) ; + char * base, * ptr ; + int id ; + + assert( str ) ; + + base = ( char * )malloc( strlen( str ) + 1 ) ; + assert( base ) ; + + for ( ptr = base; *str ; ptr++, str++ ) *ptr = TOLOWER( *str ) ; + ptr[0] = '\0' ; + + id = string_getid() ; + string_ptr[id] = base ; + string_uct[id] = 0 ; + + return id ; +} + +/* + * FUNCTION : string_strip + * + * Create a copy of a string, without any leading or ending blanks + * + * PARAMS: + * code Internal code of original string + * + * RETURN VALUE: + * Code of the resulting string + */ + +int string_strip( int code ) +{ + const char * str = string_get( code ) ; + char * base, * ptr; + int id = string_new( str ); + + ptr = base = ( char * )string_get( id ) ; + + assert( ptr ); + + while ( *str == ' ' || *str == '\n' || *str == '\r' || *str == '\t' ) str++; + while ( *str ) *ptr++ = *str++; + while ( ptr > base && ( ptr[-1] == ' ' || ptr[-1] == '\n' || ptr[-1] == '\r' || ptr[-1] == '\t' ) ) ptr--; + *ptr = '\0'; + + return id ; +} + +/* + * FUNCTION : string_format + * + * Format a number using the given characters + * + * PARAMS: + * number Number to format + * spec Format specification + * + * RETURN VALUE: + * Code of the resulting string + */ + +int string_format( double number, int dec, char point, char thousands ) +{ + char * str = malloc( 128 ); + char * s = str, * t, * p = NULL; + int c, id, neg ; + + assert( str ); + + if ( dec == -1 ) + s += sprintf( str, "%f", number ); + else + s += sprintf( str, "%.*f", dec, number ); + + neg = (*str == '-') ? 1 : 0; + + if ( dec ) + { + p = str; + while ( *p && *p != '.' ) p++; + if ( *p ) *p = point; + } + else + { + p = s; + } + + /* p = where decimal point is */ + /* s = where '\0' is */ + + if ( thousands ) + t = s + (p - (str + neg) - 1 ) / 3; + else + t = s; + + c = 0; + while ( s >= str ) + { + if ( isdigit( *s ) && s < p ) + { + if ( c == 3 ) + { + *t-- = thousands ; + c = 0; + continue; + } + else + c++; + } + *t-- = *s-- ; + } + + id = string_getid() ; + + string_ptr[id] = str ; + string_uct[id] = 0 ; + + return id; +} + +/* + * FUNCTION : string_casecmp + * + * Compare two strings (case-insensitive version) + * + * PARAMS: + * code1 Code of the first string + * code2 Code of the second string + * + * RETURN VALUE: + * Result of the comparison + */ + +int string_casecmp( int code1, int code2 ) +{ + unsigned char * str1 = ( unsigned char * ) string_get( code1 ) ; + unsigned char * str2 = ( unsigned char * ) string_get( code2 ) ; + + while ( *str1 || *str2 ) + { + if ( TOUPPER( *str1 ) != TOUPPER( *str2 ) ) return TOUPPER( *str1 ) - TOUPPER( *str2 ); + + str1++; + str2++; + } + + return 0 ; +} + +/* + * FUNCTION : string_pad + * + * Add spaces to the left or right of a string + * + * PARAMS: + * code Code of the string + * total Total length of the final string + * align 0 = align to the right; 1 = align to the left + * + * RETURN VALUE: + * Result of the comparison + */ + +int string_pad( int code, int total, int align ) +{ + const char * ptr = string_get( code ); + + int len; + int spaces = 0; + int id; + char * str; + + assert( ptr ); + len = strlen( ptr ); + if ( len < total ) spaces = total - len; + + if ( !spaces ) return string_new( ptr ) ; + + str = malloc( total + 1 ); + assert( str ); + + if ( !align ) + { + memset( str, ' ', spaces ); + strcpy( str + spaces, ptr ) ; + } + else + { + strcpy( str, ptr ) ; + memset( str + len, ' ', spaces ) ; + str[total] = '\0'; + } + + id = string_getid() ; + string_ptr[id] = str ; + string_uct[id] = 0 ; + + return id ; +} diff --git a/core/bgdrtm/src/sysprocs.c b/core/bgdrtm/src/sysprocs.c new file mode 100644 index 0000000..97ebfbe --- /dev/null +++ b/core/bgdrtm/src/sysprocs.c @@ -0,0 +1,577 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +#include /* Must be fist include */ + +#include +#include +#include +#include + +#include "bgdrtm.h" +#include "dcb.h" +#include "xstrings.h" + +#include + +/* ---------------------------------------------------------------------- */ + +/* Debe existir un header bgdrtm.h */ +extern int bgd_copy_struct( INSTANCE * my, int * params ) ; +extern int bgd_internal_memcopy( INSTANCE * my, int * params ) ; +extern int bgd_internal_copy_string_array( INSTANCE * my, int * params ) ; + +#include "sysprocs.h" +#include "sysprocs_p.h" + +/* ---------------------------------------------------------------------- */ + +HOOK * handler_hook_list = NULL ; +int handler_hook_allocated = 0 ; +int handler_hook_count = 0 ; + +INSTANCE_HOOK * instance_create_hook_list = NULL ; +int instance_create_hook_allocated = 0 ; +int instance_create_hook_count = 0 ; + +INSTANCE_HOOK * instance_destroy_hook_list = NULL ; +int instance_destroy_hook_allocated = 0 ; +int instance_destroy_hook_count = 0 ; + +INSTANCE_HOOK * instance_pre_execute_hook_list = NULL ; +int instance_pre_execute_hook_allocated = 0 ; +int instance_pre_execute_hook_count = 0 ; + +INSTANCE_HOOK * instance_pos_execute_hook_list = NULL ; +int instance_pos_execute_hook_allocated = 0 ; +int instance_pos_execute_hook_count = 0 ; + +INSTANCE_HOOK * process_exec_hook_list = NULL ; +int process_exec_hook_allocated = 0 ; +int process_exec_hook_count = 0 ; + +FN_HOOK * module_initialize_list = NULL ; +int module_initialize_allocated = 0 ; +int module_initialize_count = 0 ; + +FN_HOOK * module_finalize_list = NULL ; +int module_finalize_allocated = 0 ; +int module_finalize_count = 0 ; + +/* ---------------------------------------------------------------------- */ + +#define hook_add(new_hook, hook_list, hook_allocated, hook_count) \ + { \ + if ((hook_count) >= (hook_allocated)) { \ + (hook_allocated) = (hook_count) + 5; \ + (hook_list) = realloc (hook_list, (hook_allocated) * sizeof((hook_list)[0])); \ + } \ + \ + if (!(hook_list)) { \ + fprintf (stderr, "No memory for alloc hook\n"); \ + exit(-1); \ + } \ + (hook_list)[hook_count] = (new_hook); \ + (hook_count)++; \ + } + +/* ---------------------------------------------------------------------- */ + +static SYSPROC ** sysproc_tab = NULL ; + +/* ---------------------------------------------------------------------- */ + +static int tsize( DCB_TYPEDEF orig ); +static DCB_TYPEDEF treduce( DCB_TYPEDEF orig ); + +/* ---------------------------------------------------------------------- */ + +/* Tipos de token */ +static struct +{ + enum { NOTOKEN, IDENTIFIER, NUMBER } type ; + char name[128] ; + int code ; +} token ; + +static const char * token_ptr = NULL; + +/* ---------------------------------------------------------------------- */ + +/* Very simple tokenizer */ + +static void get_token() +{ + char * ptr ; + unsigned int n ; + + while ( isspace( *token_ptr ) ) token_ptr++ ; + + if ( !*token_ptr ) + { + token.type = NOTOKEN ; + return ; + } + + /* Numbers */ + + if ( ISNUM( *token_ptr ) ) + { + int num = 0 ; + + /* Calculate the number value */ + + while ( ISNUM( *token_ptr ) ) num = num * 10 + ( *token_ptr++ - '0' ) ; + token.type = NUMBER ; + token.code = num ; + snprintf( token.name, sizeof( token.name ), "%d", token.code ) ; + return ; + } + + ptr = token.name ; + *ptr++ = TOUPPER( *token_ptr ) ; + if ( ISWORDCHAR( *token_ptr++ ) ) + while ( ISWORDCHAR( *token_ptr ) ) *ptr++ = TOUPPER( *token_ptr++ ) ; + *ptr = 0 ; + + for ( n = 0; n < dcb.data.NID; n++ ) + { + if ( strcmp( (const char *)dcb.id[n].Name, token.name ) == 0 ) + { + token.type = IDENTIFIER ; + token.code = dcb.id[n].Code ; + strcpy( token.name, (char *)dcb.id[n].Name ) ; + return ; + } + } + + token.type = NOTOKEN ; +} + +/* ---------------------------------------------------------------------- */ + +static DCB_TYPEDEF treduce( DCB_TYPEDEF orig ) +{ + int n ; + for ( n = 0; n < MAX_TYPECHUNKS - 1; n++ ) + { + orig.BaseType[n] = orig.BaseType[n+1] ; + orig.Count[n] = orig.Count[n+1] ; + } + return orig ; +} + +/* ---------------------------------------------------------------------- */ + +static int tsize( DCB_TYPEDEF orig ) +{ + unsigned int n, total ; + + switch ( orig.BaseType[0] ) + { + case TYPE_ARRAY: + return orig.Count[0] * tsize( treduce( orig ) ) ; + + case TYPE_POINTER: + case TYPE_STRING: + case TYPE_DWORD: + case TYPE_FLOAT: + case TYPE_INT: + return 4 ; + + case TYPE_WORD: + case TYPE_SHORT: + return 2 ; + + case TYPE_BYTE: + case TYPE_SBYTE: + case TYPE_CHAR: + return 1 ; + + case TYPE_STRUCT: + total = 0 ; + for ( n = 0; n < dcb.varspace[orig.Members].NVars; n++ ) + total += tsize( dcb.varspace_vars[orig.Members][n].Type ) ; + return total ; + + default: + return 0 ; + } +} + +/* ---------------------------------------------------------------------- */ + +static void get_var_info( DLVARFIXUP * varfixup, DCB_VAR * basevar, int nvars, char * basedata ) +{ + unsigned int n ; + DCB_VAR rvar ; + void * rdata = NULL ; + + token_ptr = varfixup->var ; + + /* for Error */ + varfixup->data_offset = NULL; + varfixup->size = -1; + varfixup->elements = -1; + + get_token() ; + if ( token.type != IDENTIFIER ) return ; /* Not a valid expression */ + + /* Busca variable */ + for ( n = 0; n < nvars; n++ ) + { + if ( basevar[n].ID == token.code ) + { + rvar = basevar[n] ; + rdata = ( uint8_t* )basedata + basevar[n].Offset ; + + get_token() ; + break; + } + } + + if ( n == nvars ) return ; /* Error, no es variable */ + + for ( ;; ) + { + if ( token.name[0] == '.' ) + { + DCB_VARSPACE * v ; + DCB_VAR * var ; + + if ( rvar.Type.BaseType[0] != TYPE_STRUCT ) return ; /* not an struct */ + + get_token() ; + if ( token.type != IDENTIFIER ) return ; /* not a member */ + + v = &dcb.varspace[rvar.Type.Members] ; + var = dcb.varspace_vars[rvar.Type.Members] ; + for ( n = 0; n < v->NVars; n++ ) if ( var[n].ID == token.code ) break ; + + if ( n == v->NVars ) return ; /* not a member */ + + rvar = var[n] ; + rdata = ((uint8_t *)rdata) + var[n].Offset ; + + get_token() ; + continue ; + } + + if ( token.name[0] == '[' ) + { + int index; + + if ( rvar.Type.BaseType[0] != TYPE_ARRAY ) return ; /* not an array */ + + get_token() ; + if ( token.type != NUMBER ) return ; /* not an integer */ + index = token.code; + + if ( index < 0 ) return ; /* Index less than zero */ + if ( index >= rvar.Type.Count[0] ) return ; /* Index out of bounds */ + + rvar.Type = treduce( rvar.Type ) ; + rdata = ((uint8_t *) rdata ) + index * tsize( rvar.Type ) ; + + get_token() ; + if ( token.name[0] == ']' ) get_token() ; /* Skip ] */ + + continue ; + } + + varfixup->data_offset = ( void * ) rdata; + varfixup->elements = rvar.Type.BaseType[0] == TYPE_ARRAY ? rvar.Type.Count[0] : 1; + varfixup->size = tsize( rvar.Type ) / varfixup->elements; +/* + printf ("varfixup: %p var: %s offset: %p elements: %d size: %d\n", varfixup, varfixup->var, varfixup->data_offset, varfixup->elements, varfixup->size); +*/ + break ; + } +} + +/* ---------------------------------------------------------------------- */ + +int compare_priority( const HOOK * a1, const HOOK * a2 ) +{ + return ( a2->prio - a1->prio ) ; +} + +/* ---------------------------------------------------------------------- */ + +int sysproc_add( char * name, char * paramtypes, int type, void * func ) +{ + static SYSPROC * sysproc_new = 0 ; + static int sysproc_count = 0 ; + + if ( !sysproc_new ) + { + sysproc_new = sysprocs ; + while ( sysproc_new->name ) + { + sysproc_new++ ; + sysproc_count++ ; + } + } + + if ( sysproc_count >= MAX_SYSPROCS ) + { + fprintf( stderr, "ERROR: Runtime error - too many system functions\n" ) ; + return -1; + } + + sysproc_new->code = -1 ; /* Se llena en el fixup */ + sysproc_new->name = name ; + sysproc_new->paramtypes = paramtypes ; + sysproc_new->params = strlen( paramtypes ) ; + sysproc_new->type = type ; + sysproc_new->func = ( SYSFUNC * ) func ; + sysproc_new->id = getid( name ) ; + + sysproc_new++ ; + sysproc_count++ ; + + sysproc_new->func = NULL ; + + return 0 /*sysproc_new->code*/ ; +} + +/* ---------------------------------------------------------------------- */ + +SYSPROC * sysproc_get( int code ) +{ + return sysproc_tab[code] ; +} + +/* ---------------------------------------------------------------------- */ + +void sysproc_add_tab( DLSYSFUNCS * functions_exports ) +{ + if ( functions_exports ) + { + while ( functions_exports->name ) + { + sysproc_add( functions_exports->name, functions_exports->paramtypes, functions_exports->type, functions_exports->func ); + functions_exports++; + } + } +} + +/* ---------------------------------------------------------------------- */ + +static char * dlsearchpath[] = +{ + "modules", + "mod", + "mods", + "extensions", + "plugins", + "data", + NULL +}; + +/* ---------------------------------------------------------------------- */ + +void sysproc_init() +{ + SYSPROC * proc = sysprocs ; + void * library = NULL ; + const char * filename ; + unsigned int n ; + + DLVARFIXUP * globals_fixup = NULL ; + DLVARFIXUP * locals_fixup = NULL ; + DLSYSFUNCS * functions_exports = NULL ; + FN_HOOK module_initialize ; + FN_HOOK module_finalize ; + INSTANCE_HOOK instance_create_hook ; + INSTANCE_HOOK instance_destroy_hook ; + INSTANCE_HOOK instance_pre_execute_hook ; + INSTANCE_HOOK instance_pos_execute_hook ; + INSTANCE_HOOK process_exec_hook ; + HOOK * handler_hooks = NULL ; + + int maxcode = 0 ; + + char soname[ __MAX_PATH ], fullsoname[ __MAX_PATH ], **spath ; + +#if defined( WIN32 ) +#define DLLEXT ".dll" +#elif defined(TARGET_MAC) +#define DLLEXT ".dylib" +#else +#define DLLEXT ".so" +#endif + + for ( n = 0; n < dcb.data.NImports; n++ ) + { + filename = string_get( dcb.imports[n] ) ; + + snprintf( soname, __MAX_PATH, "%s" DLLEXT, filename ); + + filename = soname ; + + /* Load library */ + + if ( debug ) printf ("Loading... %s\n", filename ); + + fullsoname[0] = '\0'; + + library = NULL; + + spath = dlsearchpath; + while( !library && spath && *spath ) + { + sprintf( fullsoname, "%s%s/%s", appexepath, *spath, filename ); + library = dlibopen( fullsoname ) ; + spath++; + } + + if ( !library ) library = dlibopen( filename ) ; + + if ( !library ) + { + printf( dliberror() ) ; + exit( 0 ); + } + + globals_fixup = ( DLVARFIXUP * ) _dlibaddr( library, "globals_fixup" ) ; + locals_fixup = ( DLVARFIXUP * ) _dlibaddr( library, "locals_fixup" ) ; + functions_exports = ( DLSYSFUNCS * ) _dlibaddr( library, "functions_exports" ) ; + + module_initialize = ( FN_HOOK ) _dlibaddr( library, "module_initialize" ) ; + module_finalize = ( FN_HOOK ) _dlibaddr( library, "module_finalize" ) ; + + instance_create_hook = ( INSTANCE_HOOK ) _dlibaddr( library, "instance_create_hook" ) ; + instance_destroy_hook = ( INSTANCE_HOOK ) _dlibaddr( library, "instance_destroy_hook" ) ; + instance_pre_execute_hook = ( INSTANCE_HOOK ) _dlibaddr( library, "instance_pre_execute_hook" ) ; + instance_pos_execute_hook = ( INSTANCE_HOOK ) _dlibaddr( library, "instance_pos_execute_hook" ) ; + process_exec_hook = ( INSTANCE_HOOK ) _dlibaddr( library, "process_exec_hook" ) ; + + handler_hooks = ( HOOK * ) _dlibaddr( library, "handler_hooks" ) ; + + /* Fixups */ + + if ( globals_fixup ) + { + while ( globals_fixup->var ) + { + get_var_info( globals_fixup, dcb.glovar, dcb.data.NGloVars, globaldata ); + globals_fixup++; + } + } + + if ( locals_fixup ) + { + while ( locals_fixup->var ) + { + get_var_info( locals_fixup, dcb.locvar, dcb.data.NLocVars, NULL ); + locals_fixup++; + } + } + + sysproc_add_tab( functions_exports ) ; + + if ( module_initialize ) + hook_add( module_initialize, module_initialize_list, module_initialize_allocated, module_initialize_count ) ; + + if ( module_finalize ) + hook_add( module_finalize, module_finalize_list, module_finalize_allocated, module_finalize_count ) ; + + if ( instance_create_hook ) + hook_add( instance_create_hook, instance_create_hook_list, instance_create_hook_allocated, instance_create_hook_count ) ; + + if ( instance_destroy_hook ) + hook_add( instance_destroy_hook, instance_destroy_hook_list, instance_destroy_hook_allocated, instance_destroy_hook_count ) ; + + if ( instance_pre_execute_hook ) + hook_add( instance_pre_execute_hook, instance_pre_execute_hook_list, instance_pre_execute_hook_allocated, instance_pre_execute_hook_count ) ; + + if ( instance_pos_execute_hook ) + hook_add( instance_pos_execute_hook, instance_pos_execute_hook_list, instance_pos_execute_hook_allocated, instance_pos_execute_hook_count ) ; + + if ( process_exec_hook ) + hook_add( process_exec_hook, process_exec_hook_list, process_exec_hook_allocated, process_exec_hook_count ) ; + + while ( handler_hooks && handler_hooks->hook ) + { + hook_add( *handler_hooks, handler_hook_list, handler_hook_allocated, handler_hook_count ) ; + handler_hooks++; + } + } + + if ( debug ) printf ("\n"); + + /* System Procs FixUp */ + + sysprocs_fixup(); + + proc = sysprocs ; + while ( proc->func ) + { + if ( maxcode < proc->code ) maxcode = proc->code ; + proc++ ; + } + + sysproc_tab = calloc( maxcode + 1 , sizeof( SYSPROC * ) ); + + proc = sysprocs ; + while ( proc->func ) + { + if ( proc->code > -1 ) sysproc_tab[proc->code] = proc ; + proc++ ; + } + + /* Sort handler_hooks */ + if ( handler_hook_list ) + qsort( handler_hook_list, handler_hook_count, sizeof( handler_hook_list[0] ), ( int ( * )( const void *, const void * ) ) compare_priority ) ; + + /* Initialize all modules */ + if ( module_initialize_count ) + for ( n = 0; n < module_initialize_count; n++ ) + module_initialize_list[n](); +} + +/* ---------------------------------------------------------------------- */ + +extern DCB_SYSPROC_CODE2 * sysproc_code_ref ; + +/* ---------------------------------------------------------------------- */ + +char * sysproc_name( int code ) +{ + DCB_SYSPROC_CODE2 * s = NULL ; + int n; + + s = sysproc_code_ref ; + for ( n = 0; n < dcb.data.NSysProcsCodes; n++, s++ ) + if ( s->Code == code ) return getid_name( s->Id ) ; + + return NULL ; +} + +/* ---------------------------------------------------------------------- */ diff --git a/core/bgdrtm/src/varspace_file.c b/core/bgdrtm/src/varspace_file.c new file mode 100644 index 0000000..97f2e4c --- /dev/null +++ b/core/bgdrtm/src/varspace_file.c @@ -0,0 +1,357 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +#include +#include +#include + +#include + +#include "files.h" +#include "varspace_file.h" +#include "xstrings.h" + +/* ----------------------------------------------------------------- */ +/* + * FUNCTION : loadvars + * + * Load data from memory to a given file at the current file offset, + * using a varspace's type information + * + * PARAMS : + * fp Pointer to the file object + * data Pointer to the data + * var Pointer to the type array + * nvars Number of variables (length of var array) + * + * RETURN VALUE : + * Number of bytes actually read + * + */ + +int loadvars( file * fp, void * data, DCB_VAR * var, int nvars, int dcbformat ) +{ + int result = 0; + int partial; + + for ( ; nvars > 0; nvars--, var++ ) + { + partial = loadtype( fp, data, &var->Type, dcbformat ); + data = ( uint8_t* )data + partial; + result += partial; + } + return result; +} + + +/* + * FUNCTION : loadtypes + * + * Load data from memory to a given file at the current file offset, + * using type information stored in memory + * + * PARAMS : + * fp Pointer to the file object + * data Pointer to the data + * var Pointer to the type array + * nvars Number of variables (length of var array) + * + * RETURN VALUE : + * Number of bytes actually read + * + */ + +int loadtypes( file * fp, void * data, DCB_TYPEDEF * var, int nvars, int dcbformat ) +{ + int result = 0; + int partial; + + for ( ; nvars > 0; nvars--, var++ ) + { + partial = loadtype( fp, data, var, dcbformat ); + data = (( uint8_t* )data ) + partial; + result += partial; + } + return result; +} + +/* + * FUNCTION : savevars + * + * Save data from memory to a given file at the current file offset, + * using a varspace's type information + * + * PARAMS : + * fp Pointer to the file object + * data Pointer to the data + * var Pointer to the type array + * nvars Number of variables (length of var array) + * + * RETURN VALUE : + * Number of bytes actually written + * + */ + +int savevars( file * fp, void * data, DCB_VAR * var, int nvars, int dcbformat ) +{ + int result = 0; + int partial; + + for ( ; nvars > 0; nvars--, var++ ) + { + partial = savetype( fp, data, &var->Type, dcbformat ); + data = (( uint8_t* ) data ) + partial; + result += partial; + } + return result; +} + + +/* + * FUNCTION : savetypes + * + * Save data from memory to a given file at the current file offset, + * using type information stored in memory + * + * PARAMS : + * fp Pointer to the file object + * data Pointer to the data + * var Pointer to the type array + * nvars Number of variables (length of var array) + * + * RETURN VALUE : + * Number of bytes actually written + * + */ + +int savetypes( file * fp, void * data, DCB_TYPEDEF * var, int nvars, int dcbformat ) +{ + int result = 0; + int partial; + + for ( ; nvars > 0; nvars--, var++ ) + { + partial = savetype( fp, data, var, dcbformat ); + result += partial; + data = (( uint8_t* )data ) + partial; + } + return result; +} + +/* + * FUNCTION : savetype + * + * Save one variable from memory to a given file at the current file offset, + * using the given type information. This is a convenience function + * used by both savevars and savetypes. + * + * PARAMS : + * fp Pointer to the file object + * data Pointer to the data + * var Pointer to the variable type + * + * RETURN VALUE : + * Number of bytes actually written + * + */ + +int savetype( file * fp, void * data, DCB_TYPEDEF * var, int dcbformat ) +{ + int n = 0; + int count = 1; + int result = 0; + const char * str; + int32_t len; + int partial; + + for ( ;; ) + { + switch ( var->BaseType[n] ) + { + case TYPE_FLOAT: + case TYPE_INT: + case TYPE_DWORD: + case TYPE_POINTER: + result += file_writeUint32A( fp, data, count ) * sizeof( uint32_t ); + break; + + case TYPE_SHORT: + case TYPE_WORD: + result += file_writeUint16A( fp, data, count ) * sizeof( uint16_t ); + break; + + case TYPE_BYTE: + case TYPE_SBYTE: + case TYPE_CHAR: + result += file_write( fp, data, count ); + break; + + case TYPE_STRING: + if ( dcbformat ) + { + result += file_writeUint32A( fp, data, count ) * sizeof( uint32_t ); + } + else + { + for ( ; count ; count-- ) + { + str = string_get( *( uint32_t * )data ); + len = strlen( str ); + file_writeUint32( fp, (uint32_t *)&len ); + file_write( fp, ( void* )str, len ); + data = ( uint8_t* )data + sizeof( uint32_t ); + result += sizeof( uint32_t ); + } + } + break; + + case TYPE_ARRAY: + count *= var->Count[n]; + n++; + continue; + + case TYPE_STRUCT: + for ( ; count ; count-- ) + { + partial = savevars( fp, data, dcb.varspace_vars[var->Members], dcb.varspace[var->Members].NVars, dcbformat ); + data = (( uint8_t* )data ) + partial; + result += partial; + } + break; + + default: + /* Can't be possible save this struct */ + return -1; + break; + } + break; + } + return result; +} + +/* + * FUNCTION : loadtype + * + * Load one variable from a given file at the current file offset, + * using the given type information. This is a convenience function + * used by both loadvars and loadtypes. + * + * PARAMS : + * fp Pointer to the file object + * data Pointer to the data + * var Pointer to the variable type + * + * RETURN VALUE : + * Number of bytes actually written + * + */ + +int loadtype( file * fp, void * data, DCB_TYPEDEF * var, int dcbformat ) +{ + int n = 0; + int count = 1; + int result = 0; + char * str; + int len; + int partial; + + for ( ;; ) + { + switch ( var->BaseType[n] ) + { + /* Not sure about float types */ + case TYPE_FLOAT: + case TYPE_INT: + case TYPE_DWORD: + case TYPE_POINTER: + result += file_readUint32A( fp, data, count ) * sizeof( uint32_t ); + break; + + case TYPE_SHORT: + case TYPE_WORD: + result += file_readUint16A( fp, data, count ) * sizeof( uint16_t ); + break; + + case TYPE_SBYTE: + case TYPE_BYTE: + case TYPE_CHAR: + result += file_read( fp, data, count ); + break; + + case TYPE_STRING: + if ( dcbformat ) + { + result += file_readUint32A( fp, data, count ) * sizeof( uint32_t ); + } + else + { + for ( ; count ; count-- ) + { + string_discard( *( uint32_t* )data ); + file_readUint32( fp, (uint32_t *)&len ); + str = malloc( len + 1 ); + if ( !str ) + { + fprintf( stderr, "loadtype: out of memory\n" ) ; + return -1; + } + + if ( len > 0 ) file_read( fp, str, len ); + str[len] = 0; + *( uint32_t* )data = string_new( str ); + string_use( *( uint32_t* )data ); + free( str ); + data = ( uint8_t* )data + sizeof( uint32_t ); + result += sizeof( uint32_t ); + } + } + break; + + case TYPE_ARRAY: + count *= var->Count[n]; + n++; + continue; + + case TYPE_STRUCT: + for ( ; count ; count-- ) + { + partial = loadvars( fp, data, dcb.varspace_vars[var->Members], dcb.varspace[var->Members].NVars, dcbformat ); + result += partial; + data = ( uint8_t* )data + partial; + } + break; + + default: + /* Can't be possible load this struct */ + return -1; + break; + } + break; + } + return result; +} -- cgit v1.2.3