merge: feature/libobjfmt (now called libbinfmt internall)

.temp

@@ -0,0 +1,6 @@
+!_TAG_FILE_FORMAT	2	/extended format; --format=1 will not append ;" to lines/
+!_TAG_FILE_SORTED	1	/0=unsorted, 1=sorted, 2=foldcase/
+!_TAG_PROGRAM_AUTHOR	Darren Hiebert	/dhiebert@users.sourceforge.net/
+!_TAG_PROGRAM_NAME	Exuberant Ctags	//
+!_TAG_PROGRAM_URL	http://ctags.sourceforge.net	/official site/
+!_TAG_PROGRAM_VERSION	5.8	//

CMakeLists.txt

@@ -44,8 +44,11 @@ if (MSVC)
             -Wno-signed-enum-bitfield
             -Wno-nonportable-system-include-path
             -Wno-newline-eof
+            -Wno-unknown-pragmas
+            -Wno-deprecated-declarations
             -Wno-documentation-unknown-command
             -Wno-c99-designator
+            -Wno-missing-braces
     )
     add_compile_options(
             "$<$<COMPILE_LANGUAGE:C,CXX>:${CXX_FLAGS}>"
@@ -61,9 +64,25 @@ if (MSVC)
             "$<$<COMPILE_LANGUAGE:C,CXX>:${CXX_DEFINES}>"
     )
 else ()
-    set(CXX_FLAGS -Wall -Wno-string-plus-int -Wno-signed-enum-bitfield -Wno-cast-qual -Wno-auto-var-id -Wno-unused-private-field -Wno-unknown-pragmas -Wno-inconsistent-missing-override -Wno-c99-designator)
+    set(
+        CXX_FLAGS
+        -Wall
+        -Wno-string-plus-int
+        -Wno-signed-enum-bitfield
+        -Wno-cast-qual
+        -Wno-auto-var-id
+        -Wno-unused-private-field
+        -Wno-unknown-pragmas
+        -Wno-inconsistent-missing-override
+        -Wno-c99-designator
+        -Wno-deprecated-declarations
+        -Wno-missing-braces
+    )
+
     set(CLANG_CXX_FLAGS -fcolor-diagnostics)
+
     set(GCC_CXX_FLAGS -fdiagnostics-color=always -Wno-parentheses -Wno-sequence-point)
+
     add_compile_options(
         "$<$<COMPILE_LANGUAGE:C,CXX>:${CXX_FLAGS}>"
         "$<$<COMPILE_LANG_AND_ID:CXX,GNU>:${GCC_CXX_FLAGS}>"
@@ -80,18 +99,15 @@ endif()
 # zlib
 add_subdirectory(ext/zlib-1.2.11 EXCLUDE_FROM_ALL)
 set(ZLIB_FOUND ON)
-set(ZLIB_ROOT "${CMAKE_SOURCE_DIR}/ext/zlib-1.2.11")
+set(ZLIB_ROOT "${PROJECT_SOURCE_DIR}/ext/zlib-1.2.11")
 if (MSVC)
     if (CMAKE_BUILD_TYPE MATCHES Debug)
         set(ZLIB_LIBRARY "${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/zlibstaticd.lib")
     else ()
         set(ZLIB_LIBRARY "${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/zlibstatic.lib")
     endif ()
     include_directories("${CMAKE_BINARY_DIR}/ext/zlib-1.2.11")
-else ()
-    set(ZLIB_LIBRARY "${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/libz.a")
 endif()
-#set(ZLIB_LIBRARIES "${ZLIB_LIBRARY}")
 
 # bzip2
 set(
@@ -107,41 +123,15 @@ set(
 add_library(bz2 STATIC ${BZIP2_SOURCES})
 target_compile_definitions(bz2 PRIVATE -D_FILE_OFFSET_BITS=64)
 set_target_properties(bz2 PROPERTIES LIBRARY_OUTPUT_NAME bz2)
-target_include_directories(bz2 INTERFACE "${CMAKE_SOURCE_DIR}/ext/bzip2-1.0.8")
-set(BZIP2_INCLUDE_DIR "${CMAKE_SOURCE_DIR}/ext/bzip2-1.0.8")
+target_include_directories(bz2 INTERFACE "${PROJECT_SOURCE_DIR}/ext/bzip2-1.0.8")
+set(BZIP2_INCLUDE_DIR "${PROJECT_SOURCE_DIR}/ext/bzip2-1.0.8")
 set(BZIP2_INCLUDE_DIRS "${BZIP2_INCLUDE_DIR}")
 if (MSVC)
     set(BZIP2_LIBRARIES "${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/bz2.lib")
 else ()
     set(BZIP2_LIBRARIES "${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/libbz2.a")
 endif ()
 
-
-# asmjit
-set(ASMJIT_STATIC 1)
-add_subdirectory(ext/asmjit-master EXCLUDE_FROM_ALL)
-
-# libpng
-option(PNG_STATIC "" ON)
-option(PNG_SHARED "" OFF)
-option(PNG_TESTS  "" OFF)
-add_subdirectory(ext/libpng-1.6.37 EXCLUDE_FROM_ALL)
-set(PNG_PNG_INCLUDE_DIR "${CMAKE_SOURCE_DIR}/ext/libpng-1.6.37")
-set(PNG_PNG_INCLUDE_DIRS "${PNG_PNG_INCLUDE_DIR}")
-if (MSVC)
-    if (CMAKE_BUILD_TYPE MATCHES Debug)
-        set(PNG_LIBRARY "${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/libpng16_staticd.lib")
-    else ()
-        set(PNG_LIBRARY "${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/libpng16_static.lib")
-    endif ()
-else ()
-    if (CMAKE_BUILD_TYPE MATCHES Debug)
-        set(PNG_LIBRARY "${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/libpng16d.a")
-    else ()
-        set(PNG_LIBRARY "${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/libpng16.a")
-    endif ()
-endif ()
-
 # libfmt
 add_subdirectory(ext/fmt-7.0.3 EXCLUDE_FROM_ALL)
 
@@ -150,59 +140,68 @@ option(SPDLOG_FMT_EXTERNAL  ""  ON)
 option(SPDLOG_INSTALL       ""  OFF)
 option(SPDLOG_BUILD_TESTS   ""  OFF)
 option(SPDLOG_BUILD_EXAMPLE ""  OFF)
-add_subdirectory(ext/spdlog-1.8.1 EXCLUDE_FROM_ALL)
+add_subdirectory(ext/spdlog-1.9.0 EXCLUDE_FROM_ALL)
 
 # utf8proc
 add_subdirectory(ext/utf8proc-2.5.0 EXCLUDE_FROM_ALL)
+target_include_directories(utf8proc PUBLIC ext/utf8proc-2.5.0)
 
 # blake3
 set(
         BLAKE3_SOURCES
-        ext/blake3-0.3.1/blake3.c
-        ext/blake3-0.3.1/blake3_dispatch.c
-        ext/blake3-0.3.1/blake3_portable.c
+        ext/blake3-0.3.7/blake3.c
+        ext/blake3-0.3.7/blake3_dispatch.c
+        ext/blake3-0.3.7/blake3_portable.c
 )
 if (WIN32)
     set(
         BLAKE3_SOURCES
         ${BLAKE3_SOURCES}
-        ext/blake3-0.3.1/blake3_sse41_x86-64_windows_gnu.S
-        ext/blake3-0.3.1/blake3_avx2_x86-64_windows_gnu.S
-        ext/blake3-0.3.1/blake3_avx512_x86-64_windows_gnu.S
+        ext/blake3-0.3.7/blake3_sse41_x86-64_windows_gnu.S
+        ext/blake3-0.3.7/blake3_avx2_x86-64_windows_gnu.S
+        ext/blake3-0.3.7/blake3_avx512_x86-64_windows_gnu.S
     )
 else ()
     set(
         BLAKE3_SOURCES
         ${BLAKE3_SOURCES}
-        ext/blake3-0.3.1/blake3_sse41_x86-64_unix.S
-        ext/blake3-0.3.1/blake3_avx2_x86-64_unix.S
-        ext/blake3-0.3.1/blake3_avx512_x86-64_unix.S
+        ext/blake3-0.3.7/blake3_sse41_x86-64_unix.S
+        ext/blake3-0.3.7/blake3_avx2_x86-64_unix.S
+        ext/blake3-0.3.7/blake3_avx512_x86-64_unix.S
     )
 endif ()
 add_library(blake3 ${BLAKE3_SOURCES})
 if (NOT WIN32)
     target_compile_options(blake3 PUBLIC -march=native)
 endif()
-target_include_directories(blake3 INTERFACE ext/blake3-0.3.1)
+target_include_directories(blake3 INTERFACE ext/blake3-0.3.7)
 
 # dyncall
 add_subdirectory(ext/dyncall-1.1.0 EXCLUDE_FROM_ALL)
 target_include_directories(dyncall_s INTERFACE ext/dyncall-1.1.0)
 target_include_directories(dynload_s INTERFACE ext/dyncall-1.1.0)
 set (DYN_ALLOC_HEADER "${PROJECT_SOURCE_DIR}/include/basecode/core/memory/dyn_alloc.h")
 if (MSVC)
-    target_compile_options(dyncall_s PRIVATE "/FI${DYN_ALLOC_HEADER}")
-    target_compile_options(dynload_s PRIVATE "/FI${DYN_ALLOC_HEADER}")
+    target_compile_options(
+        dyncall_s PRIVATE
+
+        "$<$<COMPILE_LANGUAGE:C,CXX>:/FI${DYN_ALLOC_HEADER}>"
+    )
+    target_compile_options(
+        dynload_s PRIVATE
+
+        "$<$<COMPILE_LANGUAGE:C,CXX>:/FI${DYN_ALLOC_HEADER}>"
+    )
 else ()
     target_compile_options(
         dyncall_s PRIVATE
-        "$<$<COMPILE_LANG_AND_ID:CXX,GNU>:--include=${DYN_ALLOC_HEADER}>"
-        "$<$<COMPILE_LANG_AND_ID:CXX,Clang>:--include=${DYN_ALLOC_HEADER}>"
+
+        "$<$<COMPILE_LANGUAGE:CXX>:--include=${DYN_ALLOC_HEADER}>"
     )
     target_compile_options(
         dynload_s PRIVATE
-        "$<$<COMPILE_LANG_AND_ID:CXX,GNU>:--include=${DYN_ALLOC_HEADER}>"
-        "$<$<COMPILE_LANG_AND_ID:CXX,Clang>:--include=${DYN_ALLOC_HEADER}>"
+
+        "$<$<COMPILE_LANGUAGE:CXX>:--include=${DYN_ALLOC_HEADER}>"
     )
 endif ()
 
@@ -212,12 +211,9 @@ set(
         ext/sqlite-3.33.0/sqlite3.c
 )
 add_library(sqlite3 ${SQLITE3_SOURCES})
+target_compile_options(sqlite3 PRIVATE -Wno-unused-variable)
 target_include_directories(sqlite3 INTERFACE ext/sqlite-3.33.0)
 
-if (WIN32)
-    include_directories(include/platform/win32)
-endif()
-
 # -----------------------------------------------------------------------------
 #
 # Project
@@ -230,3 +226,8 @@ set(PROJECT_DIR_BASE    ${PROJECT_SOURCE_DIR})
 add_subdirectory(src/libcore)
 add_subdirectory(src/libcore-test)
 add_subdirectory(src/libgfx)
+add_subdirectory(src/libgfx-test)
+add_subdirectory(src/libbinfmt)
+add_subdirectory(src/libbinfmt-test)
+add_subdirectory(src/scm)
+add_subdirectory(src/objdump)

src/libcore/fe/LICENSE → CREDITS.md

@@ -1,3 +1,6 @@
+The scheme interpreter is based on the *fe* project found here: https://github.com/rxi/fe
+The MIT license follows:
+
 Copyright (c) 2020 rxi
 
 Permission is hereby granted, free of charge, to any person obtaining a copy of
@@ -17,3 +20,5 @@ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 SOFTWARE.
+
+---

ext/spdlog-1.8.1/include/spdlog/fmt/bundled/LICENSE.rst → LICENSE.md

@@ -1,4 +1,4 @@
-Copyright (c) 2012 - present, Victor Zverovich
+Copyright (c) 2018-2020 Jeff Panici. All rights reserved.
 
 Permission is hereby granted, free of charge, to any person obtaining
 a copy of this software and associated documentation files (the
@@ -18,10 +18,3 @@ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
 LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
 OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
---- Optional exception to the license ---
-
-As an exception, if, as a result of your compiling your source code, portions
-of this Software are embedded into a machine-executable object form of such
-source code, you may redistribute such embedded portions in such object form
-without including the above copyright and permission notices.

build.sh

@@ -0,0 +1,3 @@
+#!/bin/bash
+
+"C:/Program Files/JetBrains/CLion 2020.2.3/bin/cmake/win/bin/cmake.exe" --build C:/src/basecode-lang/foundation/build/msvc/debug --target $1

etc/basic.scm

@@ -0,0 +1,122 @@
+;; ----------------------------------------------------------------------------
+;; ____                               _
+;; |  _\                             | |
+;; | |_)| __ _ ___  ___  ___ ___   __| | ___ TM
+;; |  _< / _` / __|/ _ \/ __/ _ \ / _` |/ _ \
+;; | |_)| (_| \__ \  __/ (_| (_) | (_| |  __/
+;; |____/\__,_|___/\___|\___\___/ \__,_|\___|
+;;
+;;      F O U N D A T I O N   P R O J E C T
+;;
+;; Copyright (C) 2017-2021 Jeff Panici
+;; All rights reserved.
+;;
+;; This software source file is licensed under the terms of MIT license.
+;; For details, please read the LICENSE file.
+;;
+;; ----------------------------------------------------------------------------
+
+;; ----------------------------------------------------------------------------
+;;
+;; basic procedures & macros
+;;
+;; ----------------------------------------------------------------------------
+
+(define-macro add1 (lambda (e)
+    `(+ ,e 1)))
+
+(define-macro sub1 (lambda (e)
+    `(- ,e 1)))
+
+(define-macro ok? (lambda (s)
+    `(is ,s 0)))
+
+(define-macro let (lambda (args . body)
+    `(begin
+        (define proc (lambda ,(map (lambda (p) (car p)) args)
+                         ,@body))
+        (proc ,@(map (lambda (p) (car (cdr p))) args)))))
+
+(define-macro cond (lambda args
+    (if (not args)
+        ''()
+        (begin
+            (define next    (car args))
+            (define rest    (cdr args))
+            (define test    (if (is (car next) 'else)
+                                #t
+                                (car next)))
+            (define expr    (car (cdr next)))
+            `(if ,test ,expr (cond ,@rest))))))
+
+(define-macro for (lambda (item lst . body)
+    `(begin
+        (define for-iter ,lst)
+        (while for-iter
+            (define ,item (car for-iter))
+            (set! for-iter (cdr for-iter))
+            (begin ,@body)))))
+
+(define-macro test-suite (lambda (title . body)
+    `(begin
+        (define pass-count 0)
+        (define fail-count 0)
+        (define sys-print print)
+        (define print (lambda (args)
+            (sys-print " "
+                       (car args)
+                       (car (cdr args)))))
+        (sys-print "TEST SUITE:" ,title)
+        (sys-print "----------------------------------------------------")
+        (sys-print " PASS | FAIL | Assert Expression                    ")
+        (sys-print "----------------------------------------------------")
+
+        (define results (list ,@body))
+        (for expr results
+            (define pass? (cdr (car expr)))
+            (define test  (car (cdr expr)))
+            (if (is pass? 1)
+                (begin
+                    (sys-print "   P           " test)
+                    (set! pass-count (add1 pass-count))))
+            (if (is pass? 2)
+                (begin
+                    (sys-print "          F    " test)
+                    (set! fail-count (add1 fail-count)))))
+
+        (sys-print "====================================================")
+        (sys-print "PASS:" pass-count " FAIL:" fail-count)
+        (sys-print ""))))
+
+(define-macro assert (lambda (expr)
+    `(begin
+        (define result (eval ,expr))
+        (if result
+            (list (cons 'assert 1) ,expr)
+            (list (cons 'assert 2) ,expr)))))
+
+(define map (lambda (proc lst)
+    (define res nil)
+    (while lst
+        (set! res (cons (proc (car lst)) res))
+        (set! lst (cdr lst)))
+    (reverse res)))
+
+(define range (lambda (a b step)
+    (define lst '())
+    (if (not step)
+        (set! step 1))
+    (while (<= a b)
+        (set! lst (cons a lst))
+        (set! a (+ a step)))
+    (reverse lst)))
+
+(define list-tail (lambda (ls k)
+    (while (> k 0)
+        (set! ls (cdr ls))
+        (set! k (sub1 k)))
+    ls))
+
+(define list-ref (lambda (ls k)
+    (car (list-tail ls k))))
+