Compare commits
20 Commits
v0.0.1
...
developmen
| Author | SHA1 | Date | |
|---|---|---|---|
| d26e357448 | |||
| 2608e94192 | |||
| 0f0e47003c | |||
| 7008a6ae61 | |||
| 28eff630c6 | |||
| f23a3880d4 | |||
| 37fd44fd78 | |||
| 06f1aff2b4 | |||
| 991f2a217d | |||
| fca18e63a6 | |||
| 63b00ebbcb | |||
| 7badbeb217 | |||
| 66f5b704ee | |||
| c2d9627405 | |||
| 8e1ea768b0 | |||
| dc1e02cb9f | |||
| e9b4057e32 | |||
| fa5bc42908 | |||
| 572c0ab468 | |||
| 5be9d96b54 |
2
.clangd
2
.clangd
@@ -1,2 +0,0 @@
|
|||||||
CompileFlags: # Tweak the parse settings, example directory given to show format
|
|
||||||
Add: ["-Iinclude","-std=gnu++17"]
|
|
||||||
@@ -5,66 +5,69 @@ on:
|
|||||||
- 'v*'
|
- 'v*'
|
||||||
|
|
||||||
env:
|
env:
|
||||||
GITEA_AUTH: ${{ secrets.MY_GITEA_AUTH }}
|
PACKAGE_AND_BREW: ${{ secrets.PACKAGE_AND_BREW }}
|
||||||
|
VERSION: ${{ gitea.ref_name }}
|
||||||
|
RESULT_IMAGE_NAME: tesses50/crosslang
|
||||||
|
GITEA_DOMAIN: git.tesses.org
|
||||||
|
GITEA_REGISTRY_USER: tesses50
|
||||||
|
|
||||||
jobs:
|
jobs:
|
||||||
build-arch:
|
build-arch:
|
||||||
runs-on: arch-builder
|
runs-on: arch-builder
|
||||||
steps:
|
steps:
|
||||||
- run: pacman --noconfirm -Sy nodejs npm
|
|
||||||
- uses: actions/checkout@v4
|
- uses: actions/checkout@v4
|
||||||
- run: wget -O /root/repository.key https://git.tesseslanguage.com/api/packages/tesses50/arch/repository.key
|
- run: wget -O /root/repository.key https://git.tesses.org/api/packages/tesses50/arch/repository.key
|
||||||
- run: pacman-key --add /root/repository.key
|
- run: pacman-key --add /root/repository.key
|
||||||
- run: pacman-key --config /opt/cross/ppc/pacman.conf --add /root/repository.key
|
- run: pacman-key --config /opt/cross/ppc/pacman.conf --add /root/repository.key
|
||||||
- run: printf "[tesses50.git.tesseslanguage.com]\nSigLevel = Optional TrustAll\nServer = https://git.tesseslanguage.com/api/packages/tesses50/arch/core/\$arch\n" >> /etc/pacman.conf
|
- run: printf "[tesses50.git.tesses.org]\nSigLevel = Optional TrustAll\nServer = https://git.tesses.org/api/packages/tesses50/arch/core/\$arch\n" >> /etc/pacman.conf
|
||||||
- run: printf "[tesses50.git.tesseslanguage.com]\nSigLevel = Optional TrustAll\nServer = https://git.tesseslanguage.com/api/packages/tesses50/arch/core/\$arch\n" >> /opt/cross/ppc/pacman.conf
|
- run: printf "[tesses50.git.tesses.org]\nSigLevel = Optional TrustAll\nServer = https://git.tesses.org/api/packages/tesses50/arch/core/\$arch\n" >> /opt/cross/ppc/pacman.conf
|
||||||
- run: pacman --noconfirm -Sy mbedtls curl tesses-framework
|
- run: pacman --noconfirm -Sy mbedtls tessesframework zip zig ninja
|
||||||
- run: pacman --config /opt/cross/ppc/pacman.conf --noconfirm -Sy mbedtls tesses-framework
|
- run: pacman --config /opt/cross/ppc/pacman.conf --noconfirm -Sy mbedtls tessesframework
|
||||||
- run: cp Packaging/Linux/PKGBUILD /home/build/PKGBUILD
|
- run: cp Packaging/Linux/PKGBUILD /home/build/PKGBUILD
|
||||||
- run: cp Packaging/Linux/build-arch.sh /home/build/build-arch.sh
|
- run: cp Packaging/Linux/build-arch.sh /home/build/build-arch.sh
|
||||||
- run: chmod 755 /home/build/build-arch.sh
|
- run: chmod 755 /home/build/build-arch.sh
|
||||||
- run: chown build:build /home/build/PKGBUILD
|
- run: chown build:build /home/build/PKGBUILD
|
||||||
- run: chown build:build /home/build/build-arch.sh
|
- run: chown build:build /home/build/build-arch.sh
|
||||||
- run: su build -c /home/build/build-arch.sh
|
- run: su build -c /home/build/build-arch.sh
|
||||||
build-jammy:
|
- run: env -C Packaging/Slim bash build.sh
|
||||||
runs-on: deb-builder-jammy
|
|
||||||
steps:
|
|
||||||
- uses: actions/checkout@v4
|
|
||||||
- name: Build for jammy, noble
|
|
||||||
run: |
|
|
||||||
mkdir ../../artifacts
|
|
||||||
apt update -y
|
|
||||||
apt install -y pkg-config git
|
|
||||||
bash build-ubuntu-jammy.sh
|
|
||||||
bash push-ubuntu-jammy.sh
|
|
||||||
bash build-tars.sh
|
|
||||||
working-directory: ./Packaging/Linux
|
|
||||||
- uses: akkuman/gitea-release-action@v1
|
- uses: akkuman/gitea-release-action@v1
|
||||||
env:
|
env:
|
||||||
NODE_OPTIONS: '--experimental-fetch' # if nodejs < 18
|
NODE_OPTIONS: '--experimental-fetch' # if nodejs < 18
|
||||||
with:
|
with:
|
||||||
|
prerelease: true
|
||||||
files: |-
|
files: |-
|
||||||
artifacts/**
|
artifacts/**
|
||||||
build-plucky:
|
|
||||||
runs-on: deb-builder-plucky
|
|
||||||
steps:
|
|
||||||
- uses: actions/checkout@v4
|
|
||||||
- name: Build for plucky, resolute
|
|
||||||
run: |
|
|
||||||
mkdir ../../artifacts
|
|
||||||
apt update -y
|
|
||||||
apt install -y pkg-config git gcc-mingw-w64-x86-64 g++-mingw-w64-x86-64 gcc-mingw-w64-i686 g++-mingw-w64-i686 nsis
|
|
||||||
bash build-ubuntu-plucky.sh
|
|
||||||
bash push-ubuntu-plucky.sh
|
|
||||||
working-directory: ./Packaging/Linux
|
|
||||||
|
|
||||||
- name: Build for windows
|
|
||||||
run: bash build.sh
|
|
||||||
|
|
||||||
working-directory: ./Packaging/Windows
|
update-tap:
|
||||||
- uses: akkuman/gitea-release-action@v1
|
runs-on: ubuntu-latest
|
||||||
env:
|
steps:
|
||||||
NODE_OPTIONS: '--experimental-fetch' # if nodejs < 18
|
- uses: actions/checkout@v4
|
||||||
|
- name: Set up Docker Buildx
|
||||||
|
uses: docker/setup-buildx-action@v3
|
||||||
|
- name: Log in to registry
|
||||||
|
uses: docker/login-action@v3
|
||||||
with:
|
with:
|
||||||
files: |-
|
registry: ${{ env.GITEA_DOMAIN }}
|
||||||
artifacts/**
|
username: ${{ env.GITEA_REGISTRY_USER }}
|
||||||
|
password: ${{ secrets.PACKAGE_AND_BREW }}
|
||||||
|
- name: Build and push image
|
||||||
|
uses: docker/build-push-action@v6
|
||||||
|
with:
|
||||||
|
context: .
|
||||||
|
file: ./Dockerfile
|
||||||
|
push: true
|
||||||
|
tags: ${{ env.GITEA_DOMAIN }}/${{ env.RESULT_IMAGE_NAME }}:latest
|
||||||
|
- uses: actions/checkout@v4
|
||||||
|
with:
|
||||||
|
ref: "master"
|
||||||
|
path: "tapdir"
|
||||||
|
repository: "tesses50/tesses-tap.git"
|
||||||
|
token: ${{ env.PACKAGE_AND_BREW }}
|
||||||
|
- run: |
|
||||||
|
cd tapdir
|
||||||
|
bash ../Packaging/edit-formula.sh
|
||||||
|
git config user.name "Tesses Gitea Bot"
|
||||||
|
git config user.email "noreply@tesses.net"
|
||||||
|
git add .
|
||||||
|
git commit -m "Push crosslang=${{ env.VERSION }}"
|
||||||
|
git push
|
||||||
5
.gitignore
vendored
5
.gitignore
vendored
@@ -10,4 +10,7 @@ bin
|
|||||||
*.a
|
*.a
|
||||||
*.exe
|
*.exe
|
||||||
build-x86
|
build-x86
|
||||||
build-x64
|
build-x64
|
||||||
|
build-x86-slim
|
||||||
|
build-x64-slim
|
||||||
|
crosslang-*-temp
|
||||||
@@ -1,57 +1,42 @@
|
|||||||
version: 43
|
version: 43
|
||||||
jobs:
|
jobs:
|
||||||
- name: Build for x86_64
|
- name: Build for x86_64
|
||||||
steps:
|
steps:
|
||||||
- type: CheckoutStep
|
- type: CheckoutStep
|
||||||
name: Checkout
|
name: Checkout
|
||||||
cloneCredential:
|
cloneCredential:
|
||||||
type: DefaultCredential
|
type: DefaultCredential
|
||||||
withLfs: true
|
withLfs: true
|
||||||
withSubmodules: false
|
withSubmodules: false
|
||||||
condition: SUCCESSFUL
|
condition: SUCCESSFUL
|
||||||
optional: false
|
optional: false
|
||||||
- type: CommandStep
|
- type: BuildImageStep
|
||||||
name: Execute build
|
name: Build Docker Image
|
||||||
runInContainer: true
|
dockerfile: Dockerfile
|
||||||
image: onedev.site.tesses.net/tesses-framework/tesses-framework:latest
|
output:
|
||||||
interpreter:
|
type: RegistryOutput
|
||||||
type: DefaultInterpreter
|
tags: onedev.site.tesses.net/crosslang/crosslang:latest onedev.site.tesses.net/crosslang/crosslang:@commit_hash@
|
||||||
commands: |
|
registryLogins:
|
||||||
mkdir build
|
- registryUrl: "@server_url@"
|
||||||
cd build
|
userName: "@job_token@"
|
||||||
cmake -S .. -B . -DCROSSLANG_FETCHCONTENT=OFF
|
passwordSecret: dockersecret
|
||||||
make -j12
|
platforms: linux/amd64
|
||||||
make install DESTDIR=../out
|
condition: SUCCESSFUL
|
||||||
useTTY: true
|
optional: false
|
||||||
condition: SUCCESSFUL
|
triggers:
|
||||||
optional: false
|
- type: DependencyFinishedTrigger
|
||||||
- type: BuildImageStep
|
projects: tesses-framework
|
||||||
name: Build Docker Image
|
- type: BranchUpdateTrigger
|
||||||
dockerfile: Dockerfile.run
|
branches: master
|
||||||
output:
|
userMatch: anyone
|
||||||
type: RegistryOutput
|
projects: crosslang
|
||||||
tags: onedev.site.tesses.net/crosslang/crosslang:latest onedev.site.tesses.net/crosslang/crosslang:@commit_hash@
|
projectDependencies:
|
||||||
registryLogins:
|
- projectPath: tesses-framework
|
||||||
- registryUrl: '@server_url@'
|
buildProvider:
|
||||||
userName: '@job_token@'
|
type: LastFinishedBuild
|
||||||
passwordSecret: dockersecret
|
jobName: Build for x86_64
|
||||||
platforms: linux/amd64
|
artifacts: "*"
|
||||||
condition: SUCCESSFUL
|
retryCondition: never
|
||||||
optional: false
|
maxRetries: 3
|
||||||
triggers:
|
retryDelay: 30
|
||||||
- type: DependencyFinishedTrigger
|
timeout: 14400
|
||||||
projects: tesses-framework
|
|
||||||
- type: BranchUpdateTrigger
|
|
||||||
branches: master
|
|
||||||
userMatch: anyone
|
|
||||||
projects: crosslang
|
|
||||||
projectDependencies:
|
|
||||||
- projectPath: tesses-framework
|
|
||||||
buildProvider:
|
|
||||||
type: LastFinishedBuild
|
|
||||||
jobName: Build for x86_64
|
|
||||||
artifacts: '*'
|
|
||||||
retryCondition: never
|
|
||||||
maxRetries: 3
|
|
||||||
retryDelay: 30
|
|
||||||
timeout: 14400
|
|
||||||
|
|||||||
6
.vscode/launch.json
vendored
6
.vscode/launch.json
vendored
@@ -8,10 +8,10 @@
|
|||||||
"name": "(gdb) Launch",
|
"name": "(gdb) Launch",
|
||||||
"type": "cppdbg",
|
"type": "cppdbg",
|
||||||
"request": "launch",
|
"request": "launch",
|
||||||
"program": "${workspaceFolder}/builds/linux/crosslang",
|
"program": "${workspaceFolder}/builds/l/crossint",
|
||||||
"args": ["token"],
|
"args": ["queryable.tcross"],
|
||||||
"stopAtEntry": false,
|
"stopAtEntry": false,
|
||||||
"cwd": "${workspaceFolder}",
|
"cwd": "${workspaceFolder}/builds/l",
|
||||||
"environment": [],
|
"environment": [],
|
||||||
"externalConsole": false,
|
"externalConsole": false,
|
||||||
"MIMode": "gdb",
|
"MIMode": "gdb",
|
||||||
|
|||||||
6
.vscode/settings.json
vendored
6
.vscode/settings.json
vendored
@@ -84,7 +84,11 @@
|
|||||||
"stack": "cpp",
|
"stack": "cpp",
|
||||||
"stdfloat": "cpp"
|
"stdfloat": "cpp"
|
||||||
},
|
},
|
||||||
|
|
||||||
"clangd.fallbackFlags": [
|
"clangd.fallbackFlags": [
|
||||||
"-Iinclude"
|
"-I${workspaceFolder}/include",
|
||||||
|
"-I/home/mike/tmp-crosslang/usr/local/include/"
|
||||||
]
|
]
|
||||||
|
|
||||||
|
|
||||||
}
|
}
|
||||||
316
CMakeLists.txt
316
CMakeLists.txt
@@ -1,8 +1,7 @@
|
|||||||
cmake_minimum_required(VERSION 3.16)
|
cmake_minimum_required(VERSION 3.16)
|
||||||
|
|
||||||
set(CROSSLANG_MAJOR_VERSION 0)
|
include(cmake/version.cmake)
|
||||||
set(CROSSLANG_MINOR_VERSION 0)
|
include(cmake/options.cmake)
|
||||||
set(CROSSLANG_PATCH_VERSION 1)
|
|
||||||
|
|
||||||
project(TessesCrossLang VERSION ${CROSSLANG_MAJOR_VERSION}.${CROSSLANG_MINOR_VERSION}.${CROSSLANG_PATCH_VERSION})
|
project(TessesCrossLang VERSION ${CROSSLANG_MAJOR_VERSION}.${CROSSLANG_MINOR_VERSION}.${CROSSLANG_PATCH_VERSION})
|
||||||
|
|
||||||
@@ -12,38 +11,12 @@ set(CMAKE_CXX_STANDARD 17)
|
|||||||
include(CMakePackageConfigHelpers)
|
include(CMakePackageConfigHelpers)
|
||||||
set(CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS ON)
|
set(CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS ON)
|
||||||
|
|
||||||
#option(CROSSLANG_ENABLE_DOXYGEN "Enable doxygen" ON)
|
|
||||||
|
|
||||||
option(CROSSLANG_ENABLE_STATIC "Enable Tesses CrossLang static libraries" ON)
|
|
||||||
option(CROSSLANG_ENABLE_SHARED "Enable Tesses CrossLang shared libraries" ON)
|
|
||||||
option(CROSSLANG_ENABLE_BINARIES "Enable Tesses CrossLang binaries" ON)
|
|
||||||
option(CROSSLANG_INSTALL_DEVELOPMENT "Enable Tesses CrossLang development files" ON)
|
|
||||||
option(CROSSLANG_ENABLE_THREADING "Enable Tesses CrossLang threading" ON)
|
|
||||||
option(CROSSLANG_ENABLE_TERMIOS "Enable termios (For changing terminal options)" ON)
|
|
||||||
option(CROSSLANG_SHARED_EXECUTABLES "Link with libcrosslang_shared" ON)
|
|
||||||
option(CROSSLANG_FETCHCONTENT "Use fetchcontent" ON)
|
|
||||||
option(CROSSLANG_ENABLE_CONFIG_ENVVAR "Allow setting config directory via the environment variable CROSSLANG_CONFIG" ON)
|
|
||||||
option(CROSSLANG_ENABLE_FFI "Enable libffi" OFF)
|
|
||||||
option(CROSSLANG_ENABLE_RPATH "Enable RPATH" ON)
|
|
||||||
|
|
||||||
option(CROSSLANG_CUSTOM_CONSOLE "Enable custom Console" OFF)
|
|
||||||
|
|
||||||
#if(CROSSLANG_ENABLE_DOXYGEN)
|
|
||||||
#find_package(Doxygen REQUIRED)
|
|
||||||
#doxygen_add_docs(doxygen-crosslang "${CMAKE_CURRENT_SOURCE_DIR}/include/CrossLang.hpp" "${CMAKE_CURRENT_SOURCE_DIR}/docs" "${CMAKE_CURRENT_SOURCE_DIR}/README.md")
|
|
||||||
#add_custom_target(crosslang_doxygen ALL
|
|
||||||
# COMMAND ${DOXYGEN_EXECUTABLE} ${CMAKE_CURRENT_BINARY_DIR}/Doxyfile.doxygen-crosslang
|
|
||||||
# WORKING_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}
|
|
||||||
#)
|
|
||||||
|
|
||||||
#endif()
|
|
||||||
|
|
||||||
if(CROSSLANG_CUSTOM_CONSOLE)
|
if(CROSSLANG_CUSTOM_CONSOLE)
|
||||||
set(CROSSLANG_ENABLE_BINARIES OFF)
|
set(CROSSLANG_ENABLE_BINARIES OFF)
|
||||||
set(CROSSLANG_ENABLE_SHARED OFF)
|
set(CROSSLANG_ENABLE_SHARED OFF)
|
||||||
endif()
|
endif()
|
||||||
|
|
||||||
set(CROSSLANG_OFFLINE_SHELL_PACKAGE "" CACHE FILEPATH "Path to the shell package generated from https://onedev.site.tesses.net/CrossLang/CrossLangExtras")
|
|
||||||
|
|
||||||
if(CROSSLANG_FETCHCONTENT)
|
if(CROSSLANG_FETCHCONTENT)
|
||||||
|
|
||||||
@@ -66,7 +39,7 @@ endif()
|
|||||||
include(FetchContent)
|
include(FetchContent)
|
||||||
FetchContent_Declare(
|
FetchContent_Declare(
|
||||||
TessesFramework
|
TessesFramework
|
||||||
GIT_REPOSITORY https://onedev.site.tesses.net/tesses-framework.git
|
GIT_REPOSITORY https://git.tesses.org/tesses50/tessesframework.git
|
||||||
)
|
)
|
||||||
FetchContent_MakeAvailable(TessesFramework)
|
FetchContent_MakeAvailable(TessesFramework)
|
||||||
list(APPEND TessesCrossLangLibs ${TessesFrameworkTargets})
|
list(APPEND TessesCrossLangLibs ${TessesFrameworkTargets})
|
||||||
@@ -77,117 +50,13 @@ endif()
|
|||||||
if(CROSSLANG_ENABLE_FFI)
|
if(CROSSLANG_ENABLE_FFI)
|
||||||
find_package(PkgConfig)
|
find_package(PkgConfig)
|
||||||
endif()
|
endif()
|
||||||
|
include(cmake/linkdeps.cmake)
|
||||||
if(CROSSLANG_ENABLE_FFI AND CROSSLANG_ENABLE_SHARED)
|
if(CROSSLANG_ENABLE_FFI AND CROSSLANG_ENABLE_SHARED)
|
||||||
pkg_check_modules(LIBFFI REQUIRED IMPORTED_TARGET libffi)
|
pkg_check_modules(LIBFFI REQUIRED IMPORTED_TARGET libffi)
|
||||||
endif()
|
endif()
|
||||||
function(CROSSLANG_LINK_DEPS CROSSLANG_TARGET_NAME)
|
configure_package_config_file(${CMAKE_CURRENT_SOURCE_DIR}/CrossLangVersion.h.in "${CMAKE_CURRENT_BINARY_DIR}/include/CrossLangVersion.h"
|
||||||
target_include_directories(${CROSSLANG_TARGET_NAME}
|
INSTALL_DESTINATION ${CMAKE_INSTALL_INCLUDEDIR}/CrossLangVersion.h)
|
||||||
PUBLIC
|
include(cmake/sources.cmake)
|
||||||
"$<BUILD_INTERFACE:${CMAKE_CURRENT_BINARY_DIR}/include>"
|
|
||||||
"$<INSTALL_INTERFACE:${CMAKE_INSTALL_INCLUDEDIR}>"
|
|
||||||
)
|
|
||||||
if(CROSSLANG_ENABLE_FFI AND CROSSLANG_ENABLE_SHARED)
|
|
||||||
|
|
||||||
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_FFI)
|
|
||||||
target_link_libraries(${CROSSLANG_TARGET_NAME} PUBLIC PkgConfig::LIBFFI)
|
|
||||||
|
|
||||||
endif()
|
|
||||||
if(CROSSLANG_ENABLE_TIME)
|
|
||||||
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_TIME)
|
|
||||||
endif()
|
|
||||||
if(CROSSLANG_ENABLE_CONFIG_ENVVAR)
|
|
||||||
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_CONFIG_ENVVAR)
|
|
||||||
endif()
|
|
||||||
if(CROSSLANG_ENABLE_PROCESS)
|
|
||||||
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_PROCESS)
|
|
||||||
endif()
|
|
||||||
if(CROSSLANG_ENABLE_THREADING)
|
|
||||||
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_THREADING)
|
|
||||||
endif()
|
|
||||||
if(CROSSLANG_ENABLE_TERMIOS)
|
|
||||||
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_TERMIOS)
|
|
||||||
endif()
|
|
||||||
|
|
||||||
if(CROSSLANG_ENABLE_SQLITE)
|
|
||||||
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_SQLITE)
|
|
||||||
endif()
|
|
||||||
|
|
||||||
if(CROSSLANG_CUSTOM_CONSOLE)
|
|
||||||
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_CUSTOM_CONSOLE)
|
|
||||||
endif()
|
|
||||||
if(CROSSLANG_ENABLE_PLATFORM_FOLDERS)
|
|
||||||
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_PLATFORM_FOLDERS)
|
|
||||||
endif()
|
|
||||||
if(CROSSLANG_ENABLE_SHARED)
|
|
||||||
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_SHARED)
|
|
||||||
|
|
||||||
endif()
|
|
||||||
if("${CMAKE_SYSTEM_NAME}" STREQUAL "NintendoWii" OR "${CMAKE_SYSTEM_NAME}" STREQUAL "NintendoGameCube")
|
|
||||||
target_link_libraries(${CROSSLANG_TARGET_NAME} PUBLIC fat)
|
|
||||||
endif()
|
|
||||||
if("${CMAKE_SYSTEM_NAME}" STREQUAL "NintendoWii")
|
|
||||||
target_link_libraries(${CROSSLANG_TARGET_NAME} PUBLIC wiisocket)
|
|
||||||
endif()
|
|
||||||
if(CROSSLANG_ENABLE_SHARED AND NOT ("${CMAKE_SYSTEM_NAME}" STREQUAL "Windows"))
|
|
||||||
target_link_libraries(${CROSSLANG_TARGET_NAME} PUBLIC dl)
|
|
||||||
endif()
|
|
||||||
target_include_directories(${CROSSLANG_TARGET_NAME}
|
|
||||||
PUBLIC
|
|
||||||
"$<BUILD_INTERFACE:${CMAKE_CURRENT_SOURCE_DIR}/include>"
|
|
||||||
"$<INSTALL_INTERFACE:${CMAKE_INSTALL_INCLUDEDIR}>"
|
|
||||||
)
|
|
||||||
|
|
||||||
endfunction()
|
|
||||||
|
|
||||||
list(APPEND CROSSLANG_SOURCE
|
|
||||||
src/assembler/asm.cpp
|
|
||||||
src/assembler/disasm.cpp
|
|
||||||
src/assembler/merge.cpp
|
|
||||||
src/compiler/codegen.cpp
|
|
||||||
src/compiler/lexer.cpp
|
|
||||||
src/compiler/parser.cpp
|
|
||||||
src/compiler/ast.cpp
|
|
||||||
src/runtime_methods/class.cpp
|
|
||||||
src/runtime_methods/console.cpp
|
|
||||||
src/runtime_methods/io.cpp
|
|
||||||
src/runtime_methods/std.cpp
|
|
||||||
src/runtime_methods/net.cpp
|
|
||||||
src/runtime_methods/vm.cpp
|
|
||||||
src/runtime_methods/json.cpp
|
|
||||||
src/runtime_methods/sqlite.cpp
|
|
||||||
src/runtime_methods/dictionary.cpp
|
|
||||||
src/runtime_methods/crypto.cpp
|
|
||||||
src/runtime_methods/ogc.cpp
|
|
||||||
src/runtime_methods/path.cpp
|
|
||||||
src/runtime_methods/env.cpp
|
|
||||||
src/runtime_methods/process.cpp
|
|
||||||
src/runtime_methods/helpers.cpp
|
|
||||||
src/types/embed.cpp
|
|
||||||
src/types/async.cpp
|
|
||||||
src/types/associativearray.cpp
|
|
||||||
src/types/any.cpp
|
|
||||||
src/types/ittr.cpp
|
|
||||||
src/types/closure.cpp
|
|
||||||
src/types/dictionary.cpp
|
|
||||||
src/types/externalmethod.cpp
|
|
||||||
src/types/list.cpp
|
|
||||||
src/types/native.cpp
|
|
||||||
src/types/rootenvironment.cpp
|
|
||||||
src/types/subenvironment.cpp
|
|
||||||
src/types/vfsheapobject.cpp
|
|
||||||
src/types/streamheapobject.cpp
|
|
||||||
src/types/class.cpp
|
|
||||||
src/types/classenvironment.cpp
|
|
||||||
src/types/random.cpp
|
|
||||||
src/vm/filereader.cpp
|
|
||||||
src/vm/gc.cpp
|
|
||||||
src/vm/gclist.cpp
|
|
||||||
src/vm/vm.cpp
|
|
||||||
src/vm/exception.cpp
|
|
||||||
src/archive.cpp
|
|
||||||
src/markedtobject.cpp
|
|
||||||
)
|
|
||||||
|
|
||||||
if(CROSSLANG_OFFLINE_SHELL_PACKAGE STREQUAL "")
|
if(CROSSLANG_OFFLINE_SHELL_PACKAGE STREQUAL "")
|
||||||
|
|
||||||
@@ -233,173 +102,22 @@ list(APPEND TessesCrossLangLibs crosslang_shared)
|
|||||||
endif()
|
endif()
|
||||||
|
|
||||||
|
|
||||||
|
if(CROSSLANG_ENABLE_SUPERSLIM)
|
||||||
|
include(cmake/slim.cmake)
|
||||||
if(CROSSLANG_INSTALL_DEVELOPMENT)
|
|
||||||
install(TARGETS ${TessesCrossLangLibs}
|
|
||||||
EXPORT TessesCrossLangTargets
|
|
||||||
LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR}
|
|
||||||
ARCHIVE DESTINATION ${CMAKE_INSTALL_LIBDIR}
|
|
||||||
RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR}
|
|
||||||
INCLUDES DESTINATION ${CMAKE_INSTALL_INCLUDEDIR}
|
|
||||||
)
|
|
||||||
|
|
||||||
install(FILES include/CrossLang.hpp DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
|
|
||||||
install(FILES ${CMAKE_CURRENT_BINARY_DIR}/include/CrossLangVersion.h DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
|
|
||||||
install(EXPORT TessesCrossLangTargets
|
|
||||||
FILE TessesCrossLangTargets.cmake
|
|
||||||
NAMESPACE TessesCrossLang::
|
|
||||||
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/TessesCrossLang
|
|
||||||
)
|
|
||||||
|
|
||||||
configure_package_config_file(${CMAKE_CURRENT_SOURCE_DIR}/Config.cmake.in "${CMAKE_CURRENT_BINARY_DIR}/TessesCrossLangConfig.cmake"
|
|
||||||
INSTALL_DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/TessesCrossLang)
|
|
||||||
configure_package_config_file(${CMAKE_CURRENT_SOURCE_DIR}/CrossLangVersion.h.in "${CMAKE_CURRENT_BINARY_DIR}/include/CrossLangVersion.h"
|
|
||||||
INSTALL_DESTINATION ${CMAKE_INSTALL_INCLUDEDIR}/CrossLangVersion.h)
|
|
||||||
|
|
||||||
install(FILES "${CMAKE_CURRENT_BINARY_DIR}/TessesCrossLangConfig.cmake"
|
|
||||||
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/TessesCrossLang)
|
|
||||||
else()
|
else()
|
||||||
if(CROSSLANG_ENABLE_SHARED)
|
include(cmake/shared.cmake)
|
||||||
install(TARGETS crosslang_shared
|
|
||||||
EXPORT TessesCrossLangTargets
|
|
||||||
LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR}
|
|
||||||
RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR}
|
|
||||||
)
|
|
||||||
|
|
||||||
endif()
|
|
||||||
endif()
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
if(CROSSLANG_ENABLE_BINARIES)
|
if(CROSSLANG_ENABLE_BINARIES)
|
||||||
if(CROSSLANG_ENABLE_SHARED AND CROSSLANG_SHARED_EXECUTABLES)
|
if(CROSSLANG_ENABLE_SHARED AND CROSSLANG_SHARED_EXECUTABLES)
|
||||||
if(CROSSLANG_ENABLE_RPATH)
|
include(cmake/shared_exec.cmake)
|
||||||
set(CMAKE_MACOSX_RPATH 1)
|
|
||||||
set(CMAKE_BUILD_RPATH_USE_ORIGIN TRUE)
|
|
||||||
if (APPLE)
|
|
||||||
set(CMAKE_INSTALL_RPATH "@executable_path/../${CMAKE_INSTALL_LIBDIR}")
|
|
||||||
else()
|
|
||||||
set(CMAKE_INSTALL_RPATH "$ORIGIN/../${CMAKE_INSTALL_LIBDIR}")
|
|
||||||
endif()
|
|
||||||
endif()
|
|
||||||
add_executable(crossmerge src/crossmergecli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossasm src/crossasmcli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossdisasm src/crossdisasmcli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
|
|
||||||
add_executable(crossc src/crosslangcompiler.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossvm src/crosslangvm.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossint src/crosslanginterperter.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossdump src/crosslangdump.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crosslang src/crosslang.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossarchiveextract src/crossarchiveextract.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossarchivecreate src/crossarchivecreate.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
if(NOT WIN32)
|
|
||||||
add_executable(crossthumbnailer src/crossthumbnailer.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
endif()
|
|
||||||
target_link_libraries(crossc PUBLIC crosslang_shared)
|
|
||||||
target_link_libraries(crossvm PUBLIC crosslang_shared)
|
|
||||||
target_link_libraries(crossint PUBLIC crosslang_shared)
|
|
||||||
target_link_libraries(crossdump PUBLIC crosslang_shared)
|
|
||||||
target_link_libraries(crosslang PUBLIC crosslang_shared)
|
|
||||||
target_link_libraries(crossarchiveextract PUBLIC crosslang_shared)
|
|
||||||
target_link_libraries(crossarchivecreate PUBLIC crosslang_shared)
|
|
||||||
target_link_libraries(crossasm PUBLIC crosslang_shared)
|
|
||||||
target_link_libraries(crossdisasm PUBLIC crosslang_shared)
|
|
||||||
target_link_libraries(crossmerge PUBLIC crosslang_shared)
|
|
||||||
|
|
||||||
if(NOT WIN32)
|
|
||||||
target_link_libraries(crossthumbnailer PUBLIC crosslang_shared)
|
|
||||||
endif()
|
|
||||||
elseif(CROSSLANG_ENABLE_STATIC)
|
elseif(CROSSLANG_ENABLE_STATIC)
|
||||||
|
include(cmake/static_exec.cmake)
|
||||||
add_executable(crossc src/crosslangcompiler.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossvm src/crosslangvm.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossint src/crosslanginterperter.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossdump src/crosslangdump.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crosslang src/crosslang.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossarchiveextract src/crossarchiveextract.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossarchivecreate src/crossarchivecreate.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossasm src/crossasmcli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossdisasm src/crossdisasmcli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossmerge src/crossmergecli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
|
|
||||||
if(NOT WIN32)
|
|
||||||
add_executable(crossthumbnailer src/crossthumbnailer.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
endif()
|
|
||||||
target_link_libraries(crossc PUBLIC crosslang_static)
|
|
||||||
target_link_libraries(crossvm PUBLIC crosslang_static)
|
|
||||||
target_link_libraries(crossint PUBLIC crosslang_static)
|
|
||||||
target_link_libraries(crossdump PUBLIC crosslang_static)
|
|
||||||
target_link_libraries(crosslang PUBLIC crosslang_static)
|
|
||||||
target_link_libraries(crossarchiveextract PUBLIC crosslang_static)
|
|
||||||
target_link_libraries(crossarchivecreate PUBLIC crosslang_static)
|
|
||||||
target_link_libraries(crossmerge PUBLIC crosslang_static)
|
|
||||||
target_link_libraries(crossasm PUBLIC crosslang_static)
|
|
||||||
target_link_libraries(crossdisasm PUBLIC crosslang_static)
|
|
||||||
|
|
||||||
if(NOT WIN32)
|
|
||||||
target_link_libraries(crossthumbnailer PUBLIC crosslang_static)
|
|
||||||
endif()
|
|
||||||
else()
|
else()
|
||||||
add_executable(crossc src/crosslangcompiler.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
include(cmake/exec.cmake)
|
||||||
add_executable(crossvm src/crosslangvm.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
endif()
|
||||||
add_executable(crossint src/crosslanginterperter.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossdump src/crosslangdump.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crosslang src/crosslang.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossarchiveextract src/crossarchiveextract.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossarchivecreate src/crossarchivecreate.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossasm src/crossasmcli.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossdisasm src/crossdisasmcli.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
add_executable(crossmerge src/crossmergecli.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
|
|
||||||
if(NOT WIN32)
|
|
||||||
add_executable(crossthumbnailer src/crossthumbnailer.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
|
||||||
endif()
|
|
||||||
CROSSLANG_LINK_DEPS(crossc)
|
|
||||||
CROSSLANG_LINK_DEPS(crossvm)
|
|
||||||
CROSSLANG_LINK_DEPS(crossint)
|
|
||||||
CROSSLANG_LINK_DEPS(crosslang)
|
|
||||||
CROSSLANG_LINK_DEPS(crossdump)
|
|
||||||
CROSSLANG_LINK_DEPS(crossarchiveextract)
|
|
||||||
CROSSLANG_LINK_DEPS(crossarchivecreate)
|
|
||||||
CROSSLANG_LINK_DEPS(crossmerge)
|
|
||||||
CROSSLANG_LINK_DEPS(crossdisasm)
|
|
||||||
CROSSLANG_LINK_DEPS(crossasm)
|
|
||||||
|
|
||||||
if(NOT WIN32)
|
|
||||||
CROSSLANG_LINK_DEPS(crossthumbnailer)
|
|
||||||
endif()
|
|
||||||
if(CROSSLANG_FETCHCONTENT)
|
|
||||||
target_link_libraries(crossc PUBLIC tessesframework)
|
|
||||||
target_link_libraries(crossvm PUBLIC tessesframework)
|
|
||||||
target_link_libraries(crossint PUBLIC tessesframework)
|
|
||||||
target_link_libraries(crosslang PUBLIC tessesframework)
|
|
||||||
target_link_libraries(crossdump PUBLIC tessesframework)
|
|
||||||
target_link_libraries(crossarchiveextract PUBLIC tessesframework)
|
|
||||||
target_link_libraries(crossarchivecreate PUBLIC tessesframework)
|
|
||||||
target_link_libraries(crossasm PUBLIC tessesframework)
|
|
||||||
target_link_libraries(crossdisasm PUBLIC tessesframework)
|
|
||||||
target_link_libraries(crossmerge PUBLIC tessesframework)
|
|
||||||
if(NOT WIN32)
|
|
||||||
target_link_libraries(crossthumbnailer PUBLIC tessesframework)
|
|
||||||
endif()
|
|
||||||
else()
|
|
||||||
target_link_libraries(crossc PUBLIC TessesFramework::tessesframework)
|
|
||||||
target_link_libraries(crossvm PUBLIC TessesFramework::tessesframework)
|
|
||||||
target_link_libraries(crossint PUBLIC TessesFramework::tessesframework)
|
|
||||||
target_link_libraries(crosslang PUBLIC TessesFramework::tessesframework)
|
|
||||||
target_link_libraries(crossdump PUBLIC TessesFramework::tessesframework)
|
|
||||||
target_link_libraries(crossarchiveextract PUBLIC TessesFramework::tessesframework)
|
|
||||||
target_link_libraries(crossarchivecreate PUBLIC TessesFramework::tessesframework)
|
|
||||||
target_link_libraries(crossasm PUBLIC TessesFramework::tessesframework)
|
|
||||||
target_link_libraries(crossdisasm PUBLIC TessesFramework::tessesframework)
|
|
||||||
target_link_libraries(crossmerge PUBLIC TessesFramework::tessesframework)
|
|
||||||
if(NOT WIN32)
|
|
||||||
target_link_libraries(crossthumbnailer PUBLIC TessesFramework::tessesframework)
|
|
||||||
endif()
|
|
||||||
endif()
|
|
||||||
endif()
|
|
||||||
install(TARGETS crossc DESTINATION "${CMAKE_INSTALL_BINDIR}")
|
install(TARGETS crossc DESTINATION "${CMAKE_INSTALL_BINDIR}")
|
||||||
install(TARGETS crossvm DESTINATION "${CMAKE_INSTALL_BINDIR}")
|
install(TARGETS crossvm DESTINATION "${CMAKE_INSTALL_BINDIR}")
|
||||||
install(TARGETS crossint DESTINATION "${CMAKE_INSTALL_BINDIR}")
|
install(TARGETS crossint DESTINATION "${CMAKE_INSTALL_BINDIR}")
|
||||||
@@ -425,6 +143,7 @@ install(FILES "${CMAKE_CURRENT_SOURCE_DIR}/crosslang.thumbnailer"
|
|||||||
DESTINATION ${CMAKE_INSTALL_PREFIX}/share/thumbnailers)
|
DESTINATION ${CMAKE_INSTALL_PREFIX}/share/thumbnailers)
|
||||||
endif()
|
endif()
|
||||||
endif()
|
endif()
|
||||||
|
endif()
|
||||||
include(InstallRequiredSystemLibraries)
|
include(InstallRequiredSystemLibraries)
|
||||||
set(CPACK_PACKAGE_CONTACT "Mike Nolan <tesses@tesses.net>")
|
set(CPACK_PACKAGE_CONTACT "Mike Nolan <tesses@tesses.net>")
|
||||||
set(CPACK_RESOURCE_FILE_LICENSE "${CMAKE_CURRENT_SOURCE_DIR}/LICENSE.md")
|
set(CPACK_RESOURCE_FILE_LICENSE "${CMAKE_CURRENT_SOURCE_DIR}/LICENSE.md")
|
||||||
@@ -464,5 +183,6 @@ set(CPACK_NSIS_CREATE_ICONS_EXTRA "CreateShortCut '$SMPROGRAMS\\\\$STARTMENU_FOL
|
|||||||
|
|
||||||
|
|
||||||
include(CPack)
|
include(CPack)
|
||||||
|
if(CROSSLANG_INSTALL_DEVELOPMENT)
|
||||||
add_subdirectory(pkgconfig)
|
add_subdirectory(pkgconfig)
|
||||||
|
endif()
|
||||||
|
|||||||
25
Dockerfile
25
Dockerfile
@@ -1,8 +1,17 @@
|
|||||||
FROM onedev.site.tesses.net/tesses-framework/tesses-framework:latest
|
FROM alpine:latest AS build
|
||||||
RUN apt update -y && \
|
|
||||||
apt install -y --no-install-recommends \
|
RUN apk update
|
||||||
libjansson-dev wget && \
|
RUN apk add --no-cache cmake g++ make git
|
||||||
apt clean -y && \
|
|
||||||
rm -rf /var/lib/apt/lists/*
|
COPY ./ /src
|
||||||
RUN mkdir /src && cd /src && git clone https://onedev.site.tesses.net/crosslang . && cd /src && mkdir build && cd build && cmake -S .. -B . && make -j4 && make install && cd / && rm -r /src
|
|
||||||
WORKDIR /
|
|
||||||
|
RUN cd /src && mkdir build && cd build && cmake -S .. -B . -DTESSESFRAMEWORK_ENABLE_EXAMPLES=OFF -DTESSESFRAMEWORK_ENABLE_APPS=ON -DCMAKE_BUILD_TYPE=Release ; make -j`nproc` && make install DESTDIR=/out
|
||||||
|
|
||||||
|
FROM alpine:latest
|
||||||
|
RUN apk update
|
||||||
|
RUN apk add --no-cache libstdc++
|
||||||
|
COPY --from=build /out/usr /usr
|
||||||
|
|
||||||
|
ENV CROSSLANG_CONTAINER=1
|
||||||
|
ENTRYPOINT ["/usr/local/bin/crossint"]
|
||||||
|
|||||||
@@ -1,2 +0,0 @@
|
|||||||
FROM onedev.site.tesses.net/tesses-framework/tesses-framework:latest
|
|
||||||
COPY out /
|
|
||||||
@@ -1,16 +1,16 @@
|
|||||||
# Maintainer: Mike Nolan <tesses@tesses.net>
|
# Maintainer: Mike Nolan <tesses@tesses.net>
|
||||||
pkgname=crosslang # '-bzr', '-git', '-hg' or '-svn'
|
pkgname=crosslang # '-bzr', '-git', '-hg' or '-svn'
|
||||||
pkgver=0.0.1
|
pkgver=0.0.5
|
||||||
pkgrel=1
|
pkgrel=1
|
||||||
pkgdesc=""
|
pkgdesc=""
|
||||||
arch=('x86_64' 'powerpc')
|
arch=('x86_64' 'powerpc')
|
||||||
url="https://onedev.site.tesses.net/crosslang"
|
url="https://git.tesses.org/tesses50/crosslang"
|
||||||
license=('GPLv3')
|
license=('GPLv3')
|
||||||
groups=()
|
groups=()
|
||||||
depends=('mbedtls' 'tesses-framework')
|
depends=('mbedtls' 'tessesframework=0.0.3')
|
||||||
makedepends=('git' 'cmake' 'make' 'base-devel' 'wget') # 'bzr', 'git', 'mercurial' or 'subversion'
|
makedepends=('git' 'cmake' 'make' 'base-devel' 'wget') # 'bzr', 'git', 'mercurial' or 'subversion'
|
||||||
install=
|
install=
|
||||||
source=('crosslang::git+https://onedev.site.tesses.net/crosslang')
|
source=('crosslang::git+https://git.tesses.org/tesses50/crosslang')
|
||||||
noextract=()
|
noextract=()
|
||||||
sha256sums=('SKIP')
|
sha256sums=('SKIP')
|
||||||
if [[ -z "$CMAKE_TOOLCHAIN" ]]; then
|
if [[ -z "$CMAKE_TOOLCHAIN" ]]; then
|
||||||
@@ -30,16 +30,16 @@ prepare() {
|
|||||||
build() {
|
build() {
|
||||||
cd "$srcdir/${pkgname}"
|
cd "$srcdir/${pkgname}"
|
||||||
mkdir build
|
mkdir build
|
||||||
|
|
||||||
if [[ -z "$CMAKE_TOOLCHAIN" ]]; then
|
if [[ -z "$CMAKE_TOOLCHAIN" ]]; then
|
||||||
cmake -S . -B build -DCMAKE_INSTALL_PREFIX=/usr -DCROSSLANG_FETCHCONTENT=OFF -DCMAKE_BUILD_TYPE=RelWithDebInfo
|
cmake -S . -B build -DCMAKE_INSTALL_PREFIX=/usr -DCROSSLANG_FETCHCONTENT=OFF -DCMAKE_BUILD_TYPE=Release
|
||||||
else
|
else
|
||||||
cmake -S . -B build -DCMAKE_INSTALL_PREFIX=/usr -DCROSSLANG_FETCHCONTENT=OFF -DCMAKE_BUILD_TYPE=RelWithDebInfo -DCMAKE_TOOLCHAIN_FILE="$CMAKE_TOOLCHAIN"
|
cmake -S . -B build -DCMAKE_INSTALL_PREFIX=/usr -DCROSSLANG_FETCHCONTENT=OFF -DCMAKE_BUILD_TYPE=Release -DCMAKE_TOOLCHAIN_FILE="$CMAKE_TOOLCHAIN"
|
||||||
fi
|
fi
|
||||||
|
|
||||||
cd build
|
cd build
|
||||||
make -j`nproc`
|
make -j`nproc`
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@@ -49,4 +49,3 @@ package() {
|
|||||||
cd "$srcdir/${pkgname}/build"
|
cd "$srcdir/${pkgname}/build"
|
||||||
make install DESTDIR="$pkgdir/"
|
make install DESTDIR="$pkgdir/"
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@@ -4,14 +4,14 @@ mkdir x86_64
|
|||||||
cd x86_64
|
cd x86_64
|
||||||
cp ../PKGBUILD .
|
cp ../PKGBUILD .
|
||||||
makepkg
|
makepkg
|
||||||
curl --user tesses50:$GITEA_AUTH \
|
curl --user tesses50:$PACKAGE_AND_BREW \
|
||||||
--upload-file *.pkg.tar.zst \
|
--upload-file *.pkg.tar.zst \
|
||||||
https://git.tesseslanguage.com/api/packages/tesses50/arch/core
|
https://git.tesses.org/api/packages/tesses50/arch/core
|
||||||
cd ..
|
cd ..
|
||||||
mkdir powerpc
|
mkdir powerpc
|
||||||
cd powerpc
|
cd powerpc
|
||||||
cp ../PKGBUILD .
|
cp ../PKGBUILD .
|
||||||
CARCH=powerpc CMAKE_TOOLCHAIN=/opt/cross/ppc/toolchain.cmake makepkg
|
CARCH=powerpc CMAKE_TOOLCHAIN=/opt/cross/ppc/toolchain.cmake makepkg
|
||||||
curl --user tesses50:$GITEA_AUTH \
|
curl --user tesses50:$PACKAGE_AND_BREW \
|
||||||
--upload-file *.pkg.tar.zst \
|
--upload-file *.pkg.tar.zst \
|
||||||
https://git.tesseslanguage.com/api/packages/tesses50/arch/core
|
https://git.tesses.org/api/packages/tesses50/arch/core
|
||||||
|
|||||||
@@ -1,25 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
mkdir build-x86_64-tar
|
|
||||||
cd build-x86_64-tar
|
|
||||||
cmake -S ../../.. -B . -DTESSESFRAMEWORK_ENABLE_SHARED=ON -DTESSESFRAMEWORK_ENABLE_STATIC=OFF -DTESSESFRAMEWORK_FETCHCONTENT=ON
|
|
||||||
make -j`nproc`
|
|
||||||
make install DESTDIR=./crosslang-x86_64
|
|
||||||
mkdir -p crosslang-x86_64/share/Tesses/CrossLang
|
|
||||||
cp ../build/jammy/Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm crosslang-x86_64/share/Tesses/CrossLang/Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm
|
|
||||||
tar cvzf ../../../artifacts/crosslang-linux-x86_64.tar.gz crosslang-x86_64
|
|
||||||
cd ..
|
|
||||||
|
|
||||||
foreign() {
|
|
||||||
mkdir build-$1\-tar
|
|
||||||
cd build-$1\-tar
|
|
||||||
cmake -S ../../.. -B . -DTESSESFRAMEWORK_ENABLE_SHARED=ON -DTESSESFRAMEWORK_ENABLE_STATIC=OFF -DTESSESFRAMEWORK_FETCHCONTENT=ON -DCMAKE_TOOLCHAIN_FILE=/opt/toolchains/$1\.cmake
|
|
||||||
make -j`nproc`
|
|
||||||
make install DESTDIR=./crosslang-$1
|
|
||||||
mkdir -p crosslang-$1\/share/Tesses/CrossLang
|
|
||||||
cp ../build/jammy/Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm crosslang-$1\/share/Tesses/CrossLang/Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm
|
|
||||||
tar cvzf ../../../artifacts/crosslang-linux-$1\.tar.gz crosslang-$1
|
|
||||||
cd ..
|
|
||||||
}
|
|
||||||
foreign arm64
|
|
||||||
foreign riscv64
|
|
||||||
|
|
||||||
@@ -1,38 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
|
|
||||||
source ./version.sh
|
|
||||||
mkdir -p build/jammy
|
|
||||||
cd build/jammy
|
|
||||||
wget -O Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm https://downloads.tesses.net/ShellPackage.crvm
|
|
||||||
mkdir build-amd64
|
|
||||||
apt install -y tessesframework
|
|
||||||
cmake -S ../../../../ -B build-amd64 -DCMAKE_INSTALL_PREFIX=/usr -DCROSSLANG_FETCHCONTENT=OFF
|
|
||||||
cd build-amd64
|
|
||||||
make -j`nproc`
|
|
||||||
make install DESTDIR=../crosslang_$DEB_VERSION\_amd64
|
|
||||||
apt remove -y tessesframework
|
|
||||||
mkdir -p ../crosslang_$DEB_VERSION\_amd64/DEBIAN
|
|
||||||
bash ../../../make-control.sh ../crosslang_$DEB_VERSION\_amd64/DEBIAN/control amd64
|
|
||||||
cd ../
|
|
||||||
mkdir -p crosslang_$DEB_VERSION\_amd64/usr/share/Tesses/CrossLang
|
|
||||||
cp Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm crosslang_$DEB_VERSION\_amd64/usr/share/Tesses/CrossLang/Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm
|
|
||||||
dpkg-deb --build crosslang_$DEB_VERSION\_amd64
|
|
||||||
|
|
||||||
foreign() {
|
|
||||||
apt install -y tessesframework:$1
|
|
||||||
mkdir build-$1
|
|
||||||
cmake -S ../../../../ -B build-$1 -DCMAKE_INSTALL_PREFIX=/usr -DCROSSLANG_FETCHCONTENT=OFF -DCMAKE_TOOLCHAIN_FILE=/opt/toolchains/$1\.cmake
|
|
||||||
cd build-$1
|
|
||||||
make -j`nproc`
|
|
||||||
make install DESTDIR=../crosslang_$DEB_VERSION\_$1
|
|
||||||
mkdir -p ../crosslang_$DEB_VERSION\_$1/DEBIAN
|
|
||||||
bash ../../../make-control.sh ../crosslang_$DEB_VERSION\_$1\/DEBIAN/control $1
|
|
||||||
cd ../
|
|
||||||
mkdir -p crosslang_$DEB_VERSION\_$1\/usr/share/Tesses/CrossLang
|
|
||||||
cp Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm crosslang_$DEB_VERSION\_$1\/usr/share/Tesses/CrossLang/Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm
|
|
||||||
dpkg-deb --build crosslang_$DEB_VERSION\_$1
|
|
||||||
apt remove -y tessesframework:$1
|
|
||||||
}
|
|
||||||
|
|
||||||
foreign arm64
|
|
||||||
foreign riscv64
|
|
||||||
@@ -1,38 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
source ./version.sh
|
|
||||||
mkdir -p build/plucky
|
|
||||||
cd build/plucky
|
|
||||||
wget -O Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm https://downloads.tesses.net/ShellPackage.crvm
|
|
||||||
mkdir build-amd64
|
|
||||||
apt install -y tessesframework
|
|
||||||
cmake -S ../../../../ -B build-amd64 -DCMAKE_INSTALL_PREFIX=/usr -DCROSSLANG_FETCHCONTENT=OFF
|
|
||||||
cd build-amd64
|
|
||||||
make -j`nproc`
|
|
||||||
make install DESTDIR=../crosslang_$DEB_VERSION\_amd64
|
|
||||||
apt remove -y tessesframework
|
|
||||||
mkdir -p ../crosslang_$DEB_VERSION\_amd64/DEBIAN
|
|
||||||
bash ../../../make-control.sh ../crosslang_$DEB_VERSION\_amd64/DEBIAN/control amd64
|
|
||||||
cd ../
|
|
||||||
mkdir -p crosslang_$DEB_VERSION\_amd64/usr/share/Tesses/CrossLang
|
|
||||||
cp Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm crosslang_$DEB_VERSION\_amd64/usr/share/Tesses/CrossLang/Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm
|
|
||||||
dpkg-deb --build crosslang_$DEB_VERSION\_amd64
|
|
||||||
|
|
||||||
foreign() {
|
|
||||||
apt install -y tessesframework:$1
|
|
||||||
mkdir build-$1
|
|
||||||
cmake -S ../../../../ -B build-$1 -DCMAKE_INSTALL_PREFIX=/usr -DCROSSLANG_FETCHCONTENT=OFF -DCMAKE_TOOLCHAIN_FILE=/opt/toolchains/$1\.cmake
|
|
||||||
cd build-$1
|
|
||||||
make -j`nproc`
|
|
||||||
make install DESTDIR=../crosslang_$DEB_VERSION\_$1
|
|
||||||
mkdir -p ../crosslang_$DEB_VERSION\_$1/DEBIAN
|
|
||||||
bash ../../../make-control.sh ../crosslang_$DEB_VERSION\_$1\/DEBIAN/control $1
|
|
||||||
cd ../
|
|
||||||
mkdir -p crosslang_$DEB_VERSION\_$1\/usr/share/Tesses/CrossLang
|
|
||||||
cp Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm crosslang_$DEB_VERSION\_$1\/usr/share/Tesses/CrossLang/Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm
|
|
||||||
dpkg-deb --build crosslang_$DEB_VERSION\_$1
|
|
||||||
apt remove -y tessesframework:$1
|
|
||||||
}
|
|
||||||
|
|
||||||
foreign arm64
|
|
||||||
foreign riscv64
|
|
||||||
|
|
||||||
@@ -1,8 +0,0 @@
|
|||||||
echo "Package: crosslang" > "$1"
|
|
||||||
echo "Version: $DEB_VERSION" >> "$1"
|
|
||||||
echo "Architecture: $2" >> "$1"
|
|
||||||
echo "Essential: no" >> "$1"
|
|
||||||
echo "Priority: optional" >> "$1"
|
|
||||||
echo "Depends: tessesframework, libffi-dev" >> "$1"
|
|
||||||
echo "Maintainer: Mike Nolan" >> "$1"
|
|
||||||
echo "Description: A programming language" >> "$1"
|
|
||||||
@@ -1,13 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
source ./version.sh
|
|
||||||
upload() {
|
|
||||||
curl --user tesses50:$GITEA_AUTH -X DELETE \
|
|
||||||
https://git.tesseslanguage.com/api/packages/tesses50/debian/pool/jammy/main/crosslang/$DEB_VERSION/$1
|
|
||||||
curl --user tesses50:$GITEA_AUTH \
|
|
||||||
--upload-file build/jammy/crosslang_$DEB_VERSION\_$1\.deb \
|
|
||||||
https://git.tesseslanguage.com/api/packages/tesses50/debian/pool/jammy/main/upload
|
|
||||||
}
|
|
||||||
upload amd64
|
|
||||||
upload arm64
|
|
||||||
upload riscv64
|
|
||||||
|
|
||||||
@@ -1,12 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
source ./version.sh
|
|
||||||
upload() {
|
|
||||||
curl --user tesses50:$GITEA_AUTH -X DELETE \
|
|
||||||
https://git.tesseslanguage.com/api/packages/tesses50/debian/pool/plucky/main/crosslang/$DEB_VERSION/$1
|
|
||||||
curl --user tesses50:$GITEA_AUTH \
|
|
||||||
--upload-file build/plucky/crosslang_$DEB_VERSION\_$1\.deb \
|
|
||||||
https://git.tesseslanguage.com/api/packages/tesses50/debian/pool/plucky/main/upload
|
|
||||||
}
|
|
||||||
upload amd64
|
|
||||||
upload arm64
|
|
||||||
upload riscv64
|
|
||||||
@@ -1,2 +0,0 @@
|
|||||||
|
|
||||||
export DEB_VERSION=0.0.1
|
|
||||||
34
Packaging/Slim/build.sh
Normal file
34
Packaging/Slim/build.sh
Normal file
@@ -0,0 +1,34 @@
|
|||||||
|
mkdir -p ../../artifacts
|
||||||
|
mkdir -p builds
|
||||||
|
git clone --depth 1 https://git.tesses.org/tesses50/zig-cross builds/zig-cross
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
for tripple in x86_64-linux-musl x86-linux-musl aarch64-linux-musl arm-linux-musleabi riscv64-linux-musl powerpc-linux-musleabihf; do
|
||||||
|
export BUILDDIR=builds/$tripple
|
||||||
|
mkdir -p $BUILDDIR
|
||||||
|
cmake -S ../.. -B $BUILDDIR --toolchain $PWD/builds/zig-cross/$tripple\.cmake -DCMAKE_BUILD_TYPE=Release -DTESSESFRAMEWORK_ENABLE_EXAMPLES=OFF -DTESSESFRAMEWORK_ENABLE_SHARED=OFF -DTESSESFRAMEWORK_ENABLE_STATIC=ON -DCROSSLANG_ENABLE_SUPERSLIM=ON -DCMAKE_EXE_LINKER_FLAGS="-static-libgcc -static-libstdc++ -static -Wl,--strip-all" -DCMAKE_POSITION_INDEPENDENT_CODE=ON -GNinja
|
||||||
|
cmake --build $BUILDDIR || exit 1
|
||||||
|
cmake --install $BUILDDIR --prefix $BUILDDIR/out
|
||||||
|
mv $BUILDDIR/out/bin/crosslang ../../artifacts/crosslang-slim-$tripple
|
||||||
|
done
|
||||||
|
|
||||||
|
for tripple in x86_64-windows-gnu x86-windows-gnu aarch64-windows-gnu; do
|
||||||
|
export BUILDDIR=builds/$tripple
|
||||||
|
mkdir -p $BUILDDIR
|
||||||
|
cmake -S ../.. -B $BUILDDIR --toolchain $PWD/builds/zig-cross/$tripple\.cmake -DCMAKE_BUILD_TYPE=Release -DTESSESFRAMEWORK_ENABLE_EXAMPLES=OFF -DTESSESFRAMEWORK_ENABLE_SHARED=OFF -DTESSESFRAMEWORK_ENABLE_STATIC=ON -DCMAKE_EXE_LINKER_FLAGS="-static-libgcc -static-libstdc++ -static -Wl,--strip-all" -DCMAKE_POSITION_INDEPENDENT_CODE=ON -DCROSSLANG_ENABLE_SUPERSLIM=ON -GNinja
|
||||||
|
cmake --build $BUILDDIR || exit 1
|
||||||
|
cmake --install $BUILDDIR --prefix $BUILDDIR/out
|
||||||
|
|
||||||
|
mv $BUILDDIR/out/bin/crosslang.exe ../../artifacts/crosslang-slim-$tripple\.exe
|
||||||
|
done
|
||||||
|
|
||||||
|
for tripple in x86_64-macos-none aarch64-macos-none; do
|
||||||
|
export BUILDDIR=builds/$tripple
|
||||||
|
mkdir -p $BUILDDIR
|
||||||
|
cmake -S ../.. -B $BUILDDIR --toolchain $PWD/builds/zig-cross/$tripple\.cmake -DCMAKE_BUILD_TYPE=Release -DTESSESFRAMEWORK_ENABLE_EXAMPLES=OFF -DTESSESFRAMEWORK_ENABLE_SHARED=OFF -DTESSESFRAMEWORK_ENABLE_STATIC=ON -DCMAKE_POSITION_INDEPENDENT_CODE=ON -DCROSSLANG_ENABLE_SUPERSLIM=ON -GNinja -DCMAKE_EXE_LINKER_FLAGS="-Wl,--strip-all"
|
||||||
|
cmake --build $BUILDDIR || exit 1
|
||||||
|
cmake --install $BUILDDIR --prefix $BUILDDIR/out
|
||||||
|
|
||||||
|
mv $BUILDDIR/out/bin/crosslang ../../artifacts/crosslang-slim-$tripple
|
||||||
|
done
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
#!/bin/bash
|
#!/bin/bash
|
||||||
cmake -S ../.. -B build-x86 -DCMAKE_TOOLCHAIN_FILE=`pwd`/WindowsToolchains/x86.cmake -DTESSESFRAMEWORK_FETCHCONTENT=ON -DTESSESFRAMEWORK_ENABLE_APPS=OFF -DTESSESFRAMEWORK_ENABLE_EXAMPLES=OFF -DTESSESFRAMEWORK_ENABLE_STATIC=ON -DTESSESFRAMEWORK_ENABLE_SHARED=OFF -DCMAKE_INSTALL_PREFIX=tmp-x86
|
cmake -S ../.. -B build-x86 -DCMAKE_TOOLCHAIN_FILE=`pwd`/WindowsToolchains/x86.cmake -DTESSESFRAMEWORK_FETCHCONTENT=ON -DTESSESFRAMEWORK_ENABLE_APPS=OFF -DTESSESFRAMEWORK_ENABLE_EXAMPLES=OFF -DTESSESFRAMEWORK_ENABLE_STATIC=ON -DTESSESFRAMEWORK_ENABLE_SHARED=OFF -DCMAKE_INSTALL_PREFIX=tmp-x86 -DCMAKE_BUILD_TYPE=Release
|
||||||
cd build-x86
|
cd build-x86
|
||||||
make -j`nproc`
|
make -j`nproc`
|
||||||
cpack -G NSIS
|
cpack -G NSIS
|
||||||
@@ -7,10 +7,10 @@ cpack -G ZIP
|
|||||||
mv TessesCrossLang-*-win32.exe ../../../artifacts/crosslang-win32.exe
|
mv TessesCrossLang-*-win32.exe ../../../artifacts/crosslang-win32.exe
|
||||||
mv TessesCrossLang-*-win32.zip ../../../artifacts/crosslang-win32.zip
|
mv TessesCrossLang-*-win32.zip ../../../artifacts/crosslang-win32.zip
|
||||||
cd ..
|
cd ..
|
||||||
cmake -S ../.. -B build-x64 -DCMAKE_TOOLCHAIN_FILE=`pwd`/WindowsToolchains/x64.cmake -DTESSESFRAMEWORK_FETCHCONTENT=ON -DTESSESFRAMEWORK_ENABLE_APPS=OFF -DTESSESFRAMEWORK_ENABLE_EXAMPLES=OFF -DTESSESFRAMEWORK_ENABLE_STATIC=ON -DTESSESFRAMEWORK_ENABLE_SHARED=OFF -DCMAKE_INSTALL_PREFIX=tmp-x64
|
cmake -S ../.. -B build-x64 -DCMAKE_TOOLCHAIN_FILE=`pwd`/WindowsToolchains/x64.cmake -DTESSESFRAMEWORK_FETCHCONTENT=ON -DTESSESFRAMEWORK_ENABLE_APPS=OFF -DTESSESFRAMEWORK_ENABLE_EXAMPLES=OFF -DTESSESFRAMEWORK_ENABLE_STATIC=ON -DTESSESFRAMEWORK_ENABLE_SHARED=OFF -DCMAKE_INSTALL_PREFIX=tmp-x64 -DCMAKE_BUILD_TYPE=Release
|
||||||
cd build-x64
|
cd build-x64
|
||||||
make -j`nproc`
|
make -j`nproc`
|
||||||
cpack -G NSIS
|
cpack -G NSIS
|
||||||
cpack -G ZIP
|
cpack -G ZIP
|
||||||
mv TessesCrossLang-*-win64.exe ../../../artifacts/crosslang-win64.exe
|
mv TessesCrossLang-*-win64.exe ../../../artifacts/crosslang-win64.exe
|
||||||
mv TessesCrossLang-*-win64.zip ../../../artifacts/crosslang-win64.zip
|
mv TessesCrossLang-*-win64.zip ../../../artifacts/crosslang-win64.zip
|
||||||
19
Packaging/edit-formula.sh
Normal file
19
Packaging/edit-formula.sh
Normal file
@@ -0,0 +1,19 @@
|
|||||||
|
export HASH=`curl https://git.tesses.org/tesses50/crosslang/archive/$VERSION.tar.gz 2> /dev/null | shasum -a 256 | awk '{print $1}'`
|
||||||
|
|
||||||
|
echo "class Crosslang < Formula" > "Formula/crosslang.rb"
|
||||||
|
echo " desc \"\"" >> "Formula/crosslang.rb"
|
||||||
|
echo " homepage \"\"" >> "Formula/crosslang.rb"
|
||||||
|
echo " url \"https://git.tesses.org/tesses50/crosslang/archive/$VERSION.tar.gz\"" >> "Formula/crosslang.rb"
|
||||||
|
echo " sha256 \"$HASH\"" >> "Formula/crosslang.rb"
|
||||||
|
echo " license \"GPLv3\"" >> "Formula/crosslang.rb"
|
||||||
|
echo " depends_on \"cmake\" => :build" >> "Formula/crosslang.rb"
|
||||||
|
echo " depends_on \"tesses50/tesses-tap/tessesframework\"" >> "Formula/crosslang.rb"
|
||||||
|
echo " def install" >> "Formula/crosslang.rb"
|
||||||
|
echo " system \"cmake\", \"-S\", \".\", \"-B\", \"build\", \"-DCROSSLANG_FETCHCONTENT=OFF\", *std_cmake_args" >> "Formula/crosslang.rb"
|
||||||
|
echo " system \"cmake\", \"--build\", \"build\"" >> "Formula/crosslang.rb"
|
||||||
|
echo " system \"cmake\", \"--install\", \"build\"" >> "Formula/crosslang.rb"
|
||||||
|
echo " end" >> "Formula/crosslang.rb"
|
||||||
|
echo " test do" >> "Formula/crosslang.rb"
|
||||||
|
echo " system \"true\"" >> "Formula/crosslang.rb"
|
||||||
|
echo " end" >> "Formula/crosslang.rb"
|
||||||
|
echo "end" >> "Formula/crosslang.rb"
|
||||||
40
README.md
40
README.md
@@ -6,38 +6,38 @@ Tesses Cross Language
|
|||||||
[WebSite](https://crosslang.tesseslanguage.com/)
|
[WebSite](https://crosslang.tesseslanguage.com/)
|
||||||
|
|
||||||
## What is required to build this project
|
## What is required to build this project
|
||||||
- [TessesFramework](https://onedev.site.tesses.net/tesses-framework) (if you turn CROSSLANG_FETCHCONTENT off otherwise it will be grabbed automaticly)
|
- [TessesFramework](https://git.tesses.org/tesses50/tessesframework) (if you turn CROSSLANG_FETCHCONTENT off otherwise it will be grabbed automaticly)
|
||||||
- CMake
|
- CMake
|
||||||
|
|
||||||
|
|
||||||
## Use in docker (use my container)
|
## Use in docker (use my container)
|
||||||
```bash
|
```bash
|
||||||
sudo docker pull -t onedev.site.tesses.net/crosslang/crosslang:latest
|
sudo docker pull -t git.tesses.org/tesses50/crosslang:latest
|
||||||
```
|
```
|
||||||
|
|
||||||
## Use in docker (build the container yourself)
|
## Use in docker (build the container yourself)
|
||||||
```bash
|
```bash
|
||||||
git clone https://onedev.site.tesses.net/crosslang
|
git clone https://git.tesses.org/tesses50/crosslang
|
||||||
cd crosslang
|
cd crosslang
|
||||||
sudo docker build -t crosslang:latest .
|
sudo docker build -t crosslang:latest .
|
||||||
```
|
```
|
||||||
|
|
||||||
## To Install
|
## To Install
|
||||||
- Install [mbedtls](https://github.com/Mbed-TLS/mbedtls) (use sudo apt install libmbedtls-dev on debian) for TessesFramework
|
- Install [mbedtls](https://github.com/Mbed-TLS/mbedtls) (use sudo apt install libmbedtls-dev on debian) for TessesFramework (no longer works on debian, needs -DTESSESFRAMEWORK_FETCHCONTENT=ON for debian)
|
||||||
- Follow the commands bellow
|
- Follow the commands bellow
|
||||||
|
|
||||||
## Run these commands to install crosslang (with plugin support)
|
## Run these commands to install crosslang (with plugin support)
|
||||||
```bash
|
```bash
|
||||||
git clone https://onedev.site.tesses.net/tesses-framework
|
git clone https://git.tesses.org/tesses50/tessesframework
|
||||||
cd tesses-framework
|
cd tessesframework
|
||||||
mkdir build
|
mkdir build
|
||||||
cd build
|
cd build
|
||||||
cmake -S .. -B .
|
cmake -S .. -B . -DTESSESFRAMEWORK_FETCHCONTENT=OFF
|
||||||
make
|
make
|
||||||
sudo make install
|
sudo make install
|
||||||
cd ../..
|
cd ../..
|
||||||
git clone https://onedev.site.tesses.net/CrossLang
|
git clone https://git.tesses.org/tesses50/crosslang
|
||||||
cd CrossLang
|
cd crosslang
|
||||||
mkdir build
|
mkdir build
|
||||||
cd build
|
cd build
|
||||||
cmake -S .. -B . -DCROSSLANG_FETCHCONTENT=OFF
|
cmake -S .. -B . -DCROSSLANG_FETCHCONTENT=OFF
|
||||||
@@ -47,31 +47,11 @@ sudo make install
|
|||||||
|
|
||||||
## Build with shared libs only (self contained dependencies)
|
## Build with shared libs only (self contained dependencies)
|
||||||
```bash
|
```bash
|
||||||
cmake -S ../.. -B . -DTESSESFRAMEWORK_ENABLE_STATIC=OFF -DTESSESFRAMEWORK_ENABLE_SHARED=ON -DTESSESFRAMEWORK_FETCHCONTENT=ON
|
cmake -S ../.. -B . -DTESSESFRAMEWORK_ENABLE_STATIC=OFF -DTESSESFRAMEWORK_ENABLE_SHARED=ON
|
||||||
make -j`nproc`
|
make -j`nproc`
|
||||||
sudo make install
|
sudo make install
|
||||||
```
|
```
|
||||||
|
|
||||||
```bash
|
|
||||||
git clone https://onedev.site.tesses.net/CrossLang
|
|
||||||
cd CrossLang
|
|
||||||
mkdir build
|
|
||||||
cd build
|
|
||||||
cmake -S .. -B .
|
|
||||||
make
|
|
||||||
sudo make install
|
|
||||||
```
|
|
||||||
|
|
||||||
## To Create the binaries and ISO (You need linux for this)
|
|
||||||
```bash
|
|
||||||
sudo apt install xorriso wget curl mingw-w64 nsis cmake tar zip
|
|
||||||
mkdir dvdwork
|
|
||||||
cp build-dvd.tcross dvdwork/
|
|
||||||
cd dvdwork
|
|
||||||
crossint build-dvd.tcross
|
|
||||||
bash script.sh # the iso and tarballs will be in Working/Output
|
|
||||||
```
|
|
||||||
|
|
||||||
```
|
```
|
||||||
Ye are of God, little children, and have overcome them: because greater is he that is in you, than he that is in the world. (1 John 4:4)
|
Ye are of God, little children, and have overcome them: because greater is he that is in you, than he that is in the world. (1 John 4:4)
|
||||||
```
|
```
|
||||||
|
|||||||
@@ -114,11 +114,11 @@ wget -O {mbedversion}.tar.bz2 https://downloads.tesses.net/cache/libraries/sourc
|
|||||||
tar xf {mbedversion}.tar.bz2
|
tar xf {mbedversion}.tar.bz2
|
||||||
rm {mbedversion}.tar.bz2
|
rm {mbedversion}.tar.bz2
|
||||||
fi
|
fi
|
||||||
git clone --depth=1 https://onedev.site.tesses.net/tesses-framework
|
git clone --depth=1 https://git.tesses.org/tesses50/tessesframework
|
||||||
git clone --depth=1 https://onedev.site.tesses.net/crosslang
|
git clone --depth=1 https://git.tesses.org/tesses50/crosslang
|
||||||
zip -r \"{working / \"DvdFiles\" / \"crosslang-source.zip\"}\" ./*
|
zip -r \"{working / \"DvdFiles\" / \"crosslang-source.zip\"}\" ./*
|
||||||
cp ../DvdFiles/crosslang-source.zip ../Output/crosslang-source.zip
|
cp ../DvdFiles/crosslang-source.zip ../Output/crosslang-source.zip
|
||||||
wget -O \"{working / \"DvdFiles\" / \"Common\" / \"ShellPackage.crvm\"}\" https://downloads.tesses.net/ShellPackage.crvm
|
wget -O \"{working / \"DvdFiles\" / \"Common\" / \"ShellPackage.crvm\"}\" https://redirect.tesses.net/crosslang-shell
|
||||||
";
|
";
|
||||||
var w32_toolchain = $"
|
var w32_toolchain = $"
|
||||||
set(CMAKE_C_COMPILER \"/usr/bin/i686-w64-mingw32-gcc\")
|
set(CMAKE_C_COMPILER \"/usr/bin/i686-w64-mingw32-gcc\")
|
||||||
|
|||||||
16
changelog.md
Normal file
16
changelog.md
Normal file
@@ -0,0 +1,16 @@
|
|||||||
|
# Changelog
|
||||||
|
|
||||||
|
## 0.0.5
|
||||||
|
Fix crosslang Stat, StatVFS for custom crosslang filesystems and add queryable
|
||||||
|
|
||||||
|
## 0.0.4
|
||||||
|
Rework for git.tesses.org, GC* is std::shared_ptr maybe will fix crash during exit
|
||||||
|
|
||||||
|
## 0.0.3
|
||||||
|
Fixed cmake, unnecessary itteration on dictionary, and a crosslang binary bug when shell is not installed
|
||||||
|
|
||||||
|
## 0.0.2
|
||||||
|
Add uuids, bytestreams and single file runtime binaries
|
||||||
|
|
||||||
|
## 0.0.1
|
||||||
|
Start versioning
|
||||||
57
cmake/exec.cmake
Normal file
57
cmake/exec.cmake
Normal file
@@ -0,0 +1,57 @@
|
|||||||
|
add_executable(crossc src/programs/crosslangcompiler.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossvm src/programs/crosslangvm.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossint src/programs/crosslanginterperter.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossdump src/programs/crosslangdump.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crosslang src/programs/crosslang.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossarchiveextract src/programs/crossarchiveextract.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossarchivecreate src/programs/crossarchivecreate.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossasm src/crossasmcli.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossdisasm src/crossdisasmcli.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossmerge src/crossmergecli.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
|
||||||
|
if(NOT WIN32)
|
||||||
|
add_executable(crossthumbnailer src/crossthumbnailer.cpp ${CROSSLANG_SOURCE} ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
endif()
|
||||||
|
CROSSLANG_LINK_DEPS(crossc)
|
||||||
|
CROSSLANG_LINK_DEPS(crossvm)
|
||||||
|
CROSSLANG_LINK_DEPS(crossint)
|
||||||
|
CROSSLANG_LINK_DEPS(crosslang)
|
||||||
|
CROSSLANG_LINK_DEPS(crossdump)
|
||||||
|
CROSSLANG_LINK_DEPS(crossarchiveextract)
|
||||||
|
CROSSLANG_LINK_DEPS(crossarchivecreate)
|
||||||
|
CROSSLANG_LINK_DEPS(crossmerge)
|
||||||
|
CROSSLANG_LINK_DEPS(crossdisasm)
|
||||||
|
CROSSLANG_LINK_DEPS(crossasm)
|
||||||
|
|
||||||
|
if(NOT WIN32)
|
||||||
|
CROSSLANG_LINK_DEPS(crossthumbnailer)
|
||||||
|
endif()
|
||||||
|
if(CROSSLANG_FETCHCONTENT)
|
||||||
|
target_link_libraries(crossc PUBLIC tessesframework)
|
||||||
|
target_link_libraries(crossvm PUBLIC tessesframework)
|
||||||
|
target_link_libraries(crossint PUBLIC tessesframework)
|
||||||
|
target_link_libraries(crosslang PUBLIC tessesframework)
|
||||||
|
target_link_libraries(crossdump PUBLIC tessesframework)
|
||||||
|
target_link_libraries(crossarchiveextract PUBLIC tessesframework)
|
||||||
|
target_link_libraries(crossarchivecreate PUBLIC tessesframework)
|
||||||
|
target_link_libraries(crossasm PUBLIC tessesframework)
|
||||||
|
target_link_libraries(crossdisasm PUBLIC tessesframework)
|
||||||
|
target_link_libraries(crossmerge PUBLIC tessesframework)
|
||||||
|
if(NOT WIN32)
|
||||||
|
target_link_libraries(crossthumbnailer PUBLIC tessesframework)
|
||||||
|
endif()
|
||||||
|
else()
|
||||||
|
target_link_libraries(crossc PUBLIC TessesFramework::tessesframework)
|
||||||
|
target_link_libraries(crossvm PUBLIC TessesFramework::tessesframework)
|
||||||
|
target_link_libraries(crossint PUBLIC TessesFramework::tessesframework)
|
||||||
|
target_link_libraries(crosslang PUBLIC TessesFramework::tessesframework)
|
||||||
|
target_link_libraries(crossdump PUBLIC TessesFramework::tessesframework)
|
||||||
|
target_link_libraries(crossarchiveextract PUBLIC TessesFramework::tessesframework)
|
||||||
|
target_link_libraries(crossarchivecreate PUBLIC TessesFramework::tessesframework)
|
||||||
|
target_link_libraries(crossasm PUBLIC TessesFramework::tessesframework)
|
||||||
|
target_link_libraries(crossdisasm PUBLIC TessesFramework::tessesframework)
|
||||||
|
target_link_libraries(crossmerge PUBLIC TessesFramework::tessesframework)
|
||||||
|
if(NOT WIN32)
|
||||||
|
target_link_libraries(crossthumbnailer PUBLIC TessesFramework::tessesframework)
|
||||||
|
endif()
|
||||||
|
endif()
|
||||||
62
cmake/linkdeps.cmake
Normal file
62
cmake/linkdeps.cmake
Normal file
@@ -0,0 +1,62 @@
|
|||||||
|
function(CROSSLANG_LINK_DEPS CROSSLANG_TARGET_NAME)
|
||||||
|
target_include_directories(${CROSSLANG_TARGET_NAME}
|
||||||
|
PUBLIC
|
||||||
|
"$<BUILD_INTERFACE:${CMAKE_CURRENT_BINARY_DIR}/include>"
|
||||||
|
"$<INSTALL_INTERFACE:${CMAKE_INSTALL_INCLUDEDIR}>"
|
||||||
|
)
|
||||||
|
if(CROSSLANG_ENABLE_FFI AND CROSSLANG_ENABLE_SHARED)
|
||||||
|
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_FFI)
|
||||||
|
target_link_libraries(${CROSSLANG_TARGET_NAME} PUBLIC PkgConfig::LIBFFI)
|
||||||
|
|
||||||
|
endif()
|
||||||
|
if(CROSSLANG_ENABLE_SUPERSLIM)
|
||||||
|
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_SUPERSLIM)
|
||||||
|
endif()
|
||||||
|
if(CROSSLANG_ENABLE_TIME)
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_TIME)
|
||||||
|
endif()
|
||||||
|
if(CROSSLANG_ENABLE_CONFIG_ENVVAR)
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_CONFIG_ENVVAR)
|
||||||
|
endif()
|
||||||
|
if(CROSSLANG_ENABLE_PROCESS)
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_PROCESS)
|
||||||
|
endif()
|
||||||
|
if(CROSSLANG_ENABLE_THREADING)
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_THREADING)
|
||||||
|
endif()
|
||||||
|
if(CROSSLANG_ENABLE_TERMIOS)
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_TERMIOS)
|
||||||
|
endif()
|
||||||
|
|
||||||
|
if(CROSSLANG_ENABLE_SQLITE)
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_SQLITE)
|
||||||
|
endif()
|
||||||
|
|
||||||
|
if(CROSSLANG_CUSTOM_CONSOLE)
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_CUSTOM_CONSOLE)
|
||||||
|
endif()
|
||||||
|
if(CROSSLANG_ENABLE_PLATFORM_FOLDERS)
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_PLATFORM_FOLDERS)
|
||||||
|
endif()
|
||||||
|
if(CROSSLANG_ENABLE_SHARED)
|
||||||
|
target_compile_definitions(${CROSSLANG_TARGET_NAME} PUBLIC CROSSLANG_ENABLE_SHARED)
|
||||||
|
|
||||||
|
endif()
|
||||||
|
if("${CMAKE_SYSTEM_NAME}" STREQUAL "NintendoWii" OR "${CMAKE_SYSTEM_NAME}" STREQUAL "NintendoGameCube")
|
||||||
|
target_link_libraries(${CROSSLANG_TARGET_NAME} PUBLIC fat)
|
||||||
|
endif()
|
||||||
|
if("${CMAKE_SYSTEM_NAME}" STREQUAL "NintendoWii")
|
||||||
|
target_link_libraries(${CROSSLANG_TARGET_NAME} PUBLIC wiisocket)
|
||||||
|
endif()
|
||||||
|
if(CROSSLANG_ENABLE_SHARED AND NOT ("${CMAKE_SYSTEM_NAME}" STREQUAL "Windows"))
|
||||||
|
target_link_libraries(${CROSSLANG_TARGET_NAME} PUBLIC dl)
|
||||||
|
endif()
|
||||||
|
target_include_directories(${CROSSLANG_TARGET_NAME}
|
||||||
|
PUBLIC
|
||||||
|
"$<BUILD_INTERFACE:${CMAKE_CURRENT_SOURCE_DIR}/include>"
|
||||||
|
"$<INSTALL_INTERFACE:${CMAKE_INSTALL_INCLUDEDIR}>"
|
||||||
|
)
|
||||||
|
|
||||||
|
endfunction()
|
||||||
18
cmake/options.cmake
Normal file
18
cmake/options.cmake
Normal file
@@ -0,0 +1,18 @@
|
|||||||
|
option(CROSSLANG_ENABLE_STATIC "Enable Tesses CrossLang static libraries" ON)
|
||||||
|
option(CROSSLANG_ENABLE_SHARED "Enable Tesses CrossLang shared libraries" ON)
|
||||||
|
option(CROSSLANG_ENABLE_BINARIES "Enable Tesses CrossLang binaries" ON)
|
||||||
|
option(CROSSLANG_INSTALL_DEVELOPMENT "Enable Tesses CrossLang development files" ON)
|
||||||
|
option(CROSSLANG_ENABLE_THREADING "Enable Tesses CrossLang threading" ON)
|
||||||
|
option(CROSSLANG_ENABLE_TERMIOS "Enable termios (For changing terminal options)" ON)
|
||||||
|
option(CROSSLANG_SHARED_EXECUTABLES "Link with libcrosslang_shared" ON)
|
||||||
|
option(CROSSLANG_FETCHCONTENT "Use fetchcontent" ON)
|
||||||
|
option(CROSSLANG_ENABLE_CONFIG_ENVVAR "Allow setting config directory via the environment variable CROSSLANG_CONFIG" ON)
|
||||||
|
option(CROSSLANG_ENABLE_FFI "Enable libffi" OFF)
|
||||||
|
option(CROSSLANG_ENABLE_RPATH "Enable RPATH" ON)
|
||||||
|
option(CROSSLANG_ENABLE_SUPERSLIM "Enable crosslang superslim, one binary" OFF)
|
||||||
|
|
||||||
|
option(CROSSLANG_CUSTOM_CONSOLE "Enable custom Console" OFF)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
set(CROSSLANG_OFFLINE_SHELL_PACKAGE "" CACHE FILEPATH "Path to the shell package generated from https://git.tesses.org/crosslangextras")
|
||||||
34
cmake/shared.cmake
Normal file
34
cmake/shared.cmake
Normal file
@@ -0,0 +1,34 @@
|
|||||||
|
if(CROSSLANG_INSTALL_DEVELOPMENT)
|
||||||
|
install(TARGETS ${TessesCrossLangLibs}
|
||||||
|
EXPORT TessesCrossLangTargets
|
||||||
|
LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR}
|
||||||
|
ARCHIVE DESTINATION ${CMAKE_INSTALL_LIBDIR}
|
||||||
|
RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR}
|
||||||
|
INCLUDES DESTINATION ${CMAKE_INSTALL_INCLUDEDIR}
|
||||||
|
)
|
||||||
|
|
||||||
|
install(FILES include/CrossLang.hpp DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
|
||||||
|
install(FILES ${CMAKE_CURRENT_BINARY_DIR}/include/CrossLangVersion.h DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
|
||||||
|
install(EXPORT TessesCrossLangTargets
|
||||||
|
FILE TessesCrossLangTargets.cmake
|
||||||
|
NAMESPACE TessesCrossLang::
|
||||||
|
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/TessesCrossLang
|
||||||
|
)
|
||||||
|
|
||||||
|
configure_package_config_file(${CMAKE_CURRENT_SOURCE_DIR}/Config.cmake.in "${CMAKE_CURRENT_BINARY_DIR}/TessesCrossLangConfig.cmake"
|
||||||
|
INSTALL_DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/TessesCrossLang)
|
||||||
|
|
||||||
|
|
||||||
|
install(FILES "${CMAKE_CURRENT_BINARY_DIR}/TessesCrossLangConfig.cmake"
|
||||||
|
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/TessesCrossLang)
|
||||||
|
else()
|
||||||
|
|
||||||
|
if(CROSSLANG_ENABLE_SHARED)
|
||||||
|
install(TARGETS crosslang_shared
|
||||||
|
EXPORT TessesCrossLangTargets
|
||||||
|
LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR}
|
||||||
|
RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR}
|
||||||
|
)
|
||||||
|
|
||||||
|
endif()
|
||||||
|
endif()
|
||||||
37
cmake/shared_exec.cmake
Normal file
37
cmake/shared_exec.cmake
Normal file
@@ -0,0 +1,37 @@
|
|||||||
|
if(CROSSLANG_ENABLE_RPATH)
|
||||||
|
set(CMAKE_MACOSX_RPATH 1)
|
||||||
|
set(CMAKE_BUILD_RPATH_USE_ORIGIN TRUE)
|
||||||
|
if (APPLE)
|
||||||
|
set(CMAKE_INSTALL_RPATH "@executable_path/../${CMAKE_INSTALL_LIBDIR}")
|
||||||
|
else()
|
||||||
|
set(CMAKE_INSTALL_RPATH "$ORIGIN/../${CMAKE_INSTALL_LIBDIR}")
|
||||||
|
endif()
|
||||||
|
endif()
|
||||||
|
add_executable(crossmerge src/crossmergecli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossasm src/crossasmcli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossdisasm src/crossdisasmcli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
|
||||||
|
add_executable(crossc src/programs/crosslangcompiler.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossvm src/programs/crosslangvm.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossint src/programs/crosslanginterperter.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossdump src/programs/crosslangdump.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crosslang src/programs/crosslang.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossarchiveextract src/programs/crossarchiveextract.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossarchivecreate src/programs/crossarchivecreate.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
if(NOT WIN32)
|
||||||
|
add_executable(crossthumbnailer src/crossthumbnailer.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
endif()
|
||||||
|
target_link_libraries(crossc PUBLIC crosslang_shared)
|
||||||
|
target_link_libraries(crossvm PUBLIC crosslang_shared)
|
||||||
|
target_link_libraries(crossint PUBLIC crosslang_shared)
|
||||||
|
target_link_libraries(crossdump PUBLIC crosslang_shared)
|
||||||
|
target_link_libraries(crosslang PUBLIC crosslang_shared)
|
||||||
|
target_link_libraries(crossarchiveextract PUBLIC crosslang_shared)
|
||||||
|
target_link_libraries(crossarchivecreate PUBLIC crosslang_shared)
|
||||||
|
target_link_libraries(crossasm PUBLIC crosslang_shared)
|
||||||
|
target_link_libraries(crossdisasm PUBLIC crosslang_shared)
|
||||||
|
target_link_libraries(crossmerge PUBLIC crosslang_shared)
|
||||||
|
|
||||||
|
if(NOT WIN32)
|
||||||
|
target_link_libraries(crossthumbnailer PUBLIC crosslang_shared)
|
||||||
|
endif()
|
||||||
21
cmake/slim.cmake
Normal file
21
cmake/slim.cmake
Normal file
@@ -0,0 +1,21 @@
|
|||||||
|
|
||||||
|
add_executable(crosslang WIN32 src/programs/slim.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
|
||||||
|
if(CROSSLANG_ENABLE_STATIC)
|
||||||
|
|
||||||
|
target_link_libraries(crosslang PUBLIC crosslang_static)
|
||||||
|
elseif(CROSSLANG_ENABLE_SHARED)
|
||||||
|
target_link_libraries(crosslang PUBLIC crosslang_shared)
|
||||||
|
endif()
|
||||||
|
|
||||||
|
if(CROSSLANG_ENABLE_SHARED)
|
||||||
|
|
||||||
|
install(TARGETS crosslang_shared
|
||||||
|
EXPORT TessesCrossLangTargets
|
||||||
|
LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR}
|
||||||
|
RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR}
|
||||||
|
)
|
||||||
|
|
||||||
|
endif()
|
||||||
|
|
||||||
|
install(TARGETS crosslang DESTINATION "${CMAKE_INSTALL_BINDIR}")
|
||||||
67
cmake/sources.cmake
Normal file
67
cmake/sources.cmake
Normal file
@@ -0,0 +1,67 @@
|
|||||||
|
list(APPEND CROSSLANG_SOURCE
|
||||||
|
src/vm/bc/add.cpp
|
||||||
|
src/vm/bc/sub.cpp
|
||||||
|
src/vm/bc/getfield.cpp
|
||||||
|
src/vm/bc/setfield.cpp
|
||||||
|
src/vm/bc/tostring.cpp
|
||||||
|
src/vm/bc/equals.cpp
|
||||||
|
src/vm/bc/invokemethod.cpp
|
||||||
|
src/vm/bc/executemethod2.cpp
|
||||||
|
src/vm/bc/invoketwo.cpp
|
||||||
|
src/vm/bc/tobool.cpp
|
||||||
|
src/assembler/asm.cpp
|
||||||
|
src/assembler/disasm.cpp
|
||||||
|
src/assembler/merge.cpp
|
||||||
|
src/compiler/codegen.cpp
|
||||||
|
src/compiler/lexer.cpp
|
||||||
|
src/compiler/parser.cpp
|
||||||
|
src/compiler/ast.cpp
|
||||||
|
src/runtime_methods/uuid.cpp
|
||||||
|
src/runtime_methods/class.cpp
|
||||||
|
src/runtime_methods/console.cpp
|
||||||
|
src/runtime_methods/io.cpp
|
||||||
|
src/runtime_methods/std.cpp
|
||||||
|
src/runtime_methods/net.cpp
|
||||||
|
src/runtime_methods/vm.cpp
|
||||||
|
src/runtime_methods/json.cpp
|
||||||
|
src/runtime_methods/sqlite.cpp
|
||||||
|
src/runtime_methods/dictionary.cpp
|
||||||
|
src/runtime_methods/crypto.cpp
|
||||||
|
src/runtime_methods/ogc.cpp
|
||||||
|
src/runtime_methods/path.cpp
|
||||||
|
src/runtime_methods/env.cpp
|
||||||
|
src/runtime_methods/process.cpp
|
||||||
|
src/runtime_methods/helpers.cpp
|
||||||
|
src/types/embed.cpp
|
||||||
|
src/types/async.cpp
|
||||||
|
src/types/associativearray.cpp
|
||||||
|
src/types/any.cpp
|
||||||
|
src/types/ittr.cpp
|
||||||
|
src/types/closure.cpp
|
||||||
|
src/types/dictionary.cpp
|
||||||
|
src/types/externalmethod.cpp
|
||||||
|
src/types/list.cpp
|
||||||
|
src/types/native.cpp
|
||||||
|
src/types/rootenvironment.cpp
|
||||||
|
src/types/subenvironment.cpp
|
||||||
|
src/types/vfsheapobject.cpp
|
||||||
|
src/types/streamheapobject.cpp
|
||||||
|
src/types/class.cpp
|
||||||
|
src/types/classenvironment.cpp
|
||||||
|
src/types/random.cpp
|
||||||
|
src/types/queryable.cpp
|
||||||
|
src/vm/filereader.cpp
|
||||||
|
src/vm/gc.cpp
|
||||||
|
src/vm/gclist.cpp
|
||||||
|
src/vm/vm.cpp
|
||||||
|
src/vm/exception.cpp
|
||||||
|
src/archive.cpp
|
||||||
|
src/markedtobject.cpp
|
||||||
|
src/program_lib/crossarchivecreate.cpp
|
||||||
|
src/program_lib/crossarchiveextract.cpp
|
||||||
|
src/program_lib/crossdump.cpp
|
||||||
|
src/program_lib/crosslang.cpp
|
||||||
|
src/program_lib/crosslangcompiler.cpp
|
||||||
|
src/program_lib/crosslanginterperter.cpp
|
||||||
|
src/program_lib/crosslangvm.cpp
|
||||||
|
)
|
||||||
28
cmake/static_exec.cmake
Normal file
28
cmake/static_exec.cmake
Normal file
@@ -0,0 +1,28 @@
|
|||||||
|
add_executable(crossc src/programs/crosslangcompiler.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossvm src/programs/crosslangvm.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossint src/programs/crosslanginterperter.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossdump src/programs/crosslangdump.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crosslang src/programs/crosslang.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossarchiveextract src/programs/crossarchiveextract.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossarchivecreate src/programs/crossarchivecreate.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossasm src/crossasmcli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossdisasm src/crossdisasmcli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
add_executable(crossmerge src/crossmergecli.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
|
||||||
|
if(NOT WIN32)
|
||||||
|
add_executable(crossthumbnailer src/crossthumbnailer.cpp ${CROSSLANG_WIN32_EXE_SRC})
|
||||||
|
endif()
|
||||||
|
target_link_libraries(crossc PUBLIC crosslang_static)
|
||||||
|
target_link_libraries(crossvm PUBLIC crosslang_static)
|
||||||
|
target_link_libraries(crossint PUBLIC crosslang_static)
|
||||||
|
target_link_libraries(crossdump PUBLIC crosslang_static)
|
||||||
|
target_link_libraries(crosslang PUBLIC crosslang_static)
|
||||||
|
target_link_libraries(crossarchiveextract PUBLIC crosslang_static)
|
||||||
|
target_link_libraries(crossarchivecreate PUBLIC crosslang_static)
|
||||||
|
target_link_libraries(crossmerge PUBLIC crosslang_static)
|
||||||
|
target_link_libraries(crossasm PUBLIC crosslang_static)
|
||||||
|
target_link_libraries(crossdisasm PUBLIC crosslang_static)
|
||||||
|
|
||||||
|
if(NOT WIN32)
|
||||||
|
target_link_libraries(crossthumbnailer PUBLIC crosslang_static)
|
||||||
|
endif()
|
||||||
3
cmake/version.cmake
Normal file
3
cmake/version.cmake
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
set(CROSSLANG_MAJOR_VERSION 0)
|
||||||
|
set(CROSSLANG_MINOR_VERSION 0)
|
||||||
|
set(CROSSLANG_PATCH_VERSION 5)
|
||||||
File diff suppressed because it is too large
Load Diff
@@ -2,7 +2,7 @@ set(PKGCONFIG_INCLUDEDIR "\${prefix}/${CMAKE_INSTALL_INCLUDEDIR}")
|
|||||||
set(PKGCONFIG_LIBDIR "\${prefix}/${CMAKE_INSTALL_LIBDIR}")
|
set(PKGCONFIG_LIBDIR "\${prefix}/${CMAKE_INSTALL_LIBDIR}")
|
||||||
|
|
||||||
set(PKGCONFIG_PROJECT_DESCRIPTION "A programming language")
|
set(PKGCONFIG_PROJECT_DESCRIPTION "A programming language")
|
||||||
set(PKGCONFIG_PROJECT_HOMEPAGE_URL "https://onedev.site.tesses.net/crosslang")
|
set(PKGCONFIG_PROJECT_HOMEPAGE_URL "https://crosslang.tesseslanguage.com/")
|
||||||
|
|
||||||
if(CROSSLANG_ENABLE_FFI)
|
if(CROSSLANG_ENABLE_FFI)
|
||||||
set(PKGCONFIG_DEPS "Requires: libffi")
|
set(PKGCONFIG_DEPS "Requires: libffi")
|
||||||
|
|||||||
@@ -8,6 +8,7 @@ URL: @PKGCONFIG_PROJECT_HOMEPAGE_URL@
|
|||||||
Version: @PROJECT_VERSION@
|
Version: @PROJECT_VERSION@
|
||||||
|
|
||||||
@PKGCONFIG_DEPS@
|
@PKGCONFIG_DEPS@
|
||||||
|
Requires: tessesframework
|
||||||
|
|
||||||
Cflags: -I"${includedir}"
|
Cflags: -I"${includedir}"
|
||||||
Libs: -L"${libdir}" -lcrosslang_shared
|
Libs: -L"${libdir}" -lcrosslang_shared
|
||||||
@@ -8,6 +8,7 @@ URL: @PKGCONFIG_PROJECT_HOMEPAGE_URL@
|
|||||||
Version: @PROJECT_VERSION@
|
Version: @PROJECT_VERSION@
|
||||||
|
|
||||||
@PKGCONFIG_DEPS@
|
@PKGCONFIG_DEPS@
|
||||||
|
Requires: tessesframework_static
|
||||||
|
|
||||||
Cflags: -I"${includedir}"
|
Cflags: -I"${includedir}"
|
||||||
Libs: -L"${libdir}" -lcrosslang_static
|
Libs: -L"${libdir}" -lcrosslang_static
|
||||||
@@ -1383,6 +1383,104 @@ namespace Tesses::CrossLang
|
|||||||
instructions.push_back(new LabelInstruction(ifIdEnd));
|
instructions.push_back(new LabelInstruction(ifIdEnd));
|
||||||
|
|
||||||
}
|
}
|
||||||
|
else if(adv.nodeName == UsingStatement && adv.nodes.size() == 2)
|
||||||
|
{
|
||||||
|
//using(EXPRESSION) {}
|
||||||
|
//using(EXPRESSION) STATEMENT;
|
||||||
|
|
||||||
|
//{ __compGen = EXPRESSION; defer { __compGen.Dispose(); } {}(unrolled) OR STATEMENT; }
|
||||||
|
|
||||||
|
if(std::holds_alternative<AdvancedSyntaxNode>(adv.nodes[1]))
|
||||||
|
{
|
||||||
|
auto asn2 = std::get<AdvancedSyntaxNode>(adv.nodes[1]);
|
||||||
|
if(asn2.nodeName == ScopeNode)
|
||||||
|
{
|
||||||
|
scope++;
|
||||||
|
instructions.push_back(new SimpleInstruction(SCOPEBEGIN));
|
||||||
|
|
||||||
|
uint32_t exprId = NewId();
|
||||||
|
std::string exprStr = "__compGenUsing";
|
||||||
|
exprStr.append(std::to_string(exprId));
|
||||||
|
|
||||||
|
auto _assign=AdvancedSyntaxNode::Create(AssignExpression,true,{
|
||||||
|
AdvancedSyntaxNode::Create(DeclareExpression,true,{exprStr}),
|
||||||
|
adv.nodes[0]
|
||||||
|
});
|
||||||
|
|
||||||
|
GenNode(instructions,_assign,scope,contscope,brkscope,contI,brkI);
|
||||||
|
GenPop(instructions,_assign);
|
||||||
|
|
||||||
|
|
||||||
|
auto _defer=AdvancedSyntaxNode::Create(DeferStatement,false,{
|
||||||
|
AdvancedSyntaxNode::Create(ReturnStatement,false,{
|
||||||
|
AdvancedSyntaxNode::Create(FunctionCallExpression,true,{
|
||||||
|
AdvancedSyntaxNode::Create(GetFieldExpression,true,{
|
||||||
|
AdvancedSyntaxNode::Create(GetVariableExpression, true, {
|
||||||
|
exprStr
|
||||||
|
}),
|
||||||
|
"Dispose"
|
||||||
|
})
|
||||||
|
})
|
||||||
|
})
|
||||||
|
});
|
||||||
|
|
||||||
|
|
||||||
|
GenNode(instructions,_defer,scope,contscope,brkscope,contI,brkI);
|
||||||
|
|
||||||
|
for(size_t i = 0; i < asn2.nodes.size(); i++)
|
||||||
|
{
|
||||||
|
GenNode(instructions,asn2.nodes[i],scope,contscope,brkscope,contI,brkI);
|
||||||
|
if(!asn2.isExpression || i < asn2.nodes.size()-1)
|
||||||
|
GenPop(instructions,asn2.nodes[i]);
|
||||||
|
}
|
||||||
|
instructions.push_back(new SimpleInstruction(SCOPEEND));
|
||||||
|
scope--;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
{
|
||||||
|
scope++;
|
||||||
|
instructions.push_back(new SimpleInstruction(SCOPEBEGIN));
|
||||||
|
|
||||||
|
uint32_t exprId = NewId();
|
||||||
|
std::string exprStr = "__compGenUsing";
|
||||||
|
exprStr.append(std::to_string(exprId));
|
||||||
|
|
||||||
|
auto _assign=AdvancedSyntaxNode::Create(AssignExpression,true,{
|
||||||
|
AdvancedSyntaxNode::Create(DeclareExpression,true,{exprStr}),
|
||||||
|
adv.nodes[0]
|
||||||
|
});
|
||||||
|
|
||||||
|
GenNode(instructions,_assign,scope,contscope,brkscope,contI,brkI);
|
||||||
|
GenPop(instructions,_assign);
|
||||||
|
|
||||||
|
|
||||||
|
auto _defer=AdvancedSyntaxNode::Create(DeferStatement,false,{
|
||||||
|
AdvancedSyntaxNode::Create(ReturnStatement,false,{
|
||||||
|
AdvancedSyntaxNode::Create(FunctionCallExpression,true,{
|
||||||
|
AdvancedSyntaxNode::Create(GetFieldExpression,true,{
|
||||||
|
AdvancedSyntaxNode::Create(GetVariableExpression, true, {
|
||||||
|
exprStr
|
||||||
|
}),
|
||||||
|
"Dispose"
|
||||||
|
})
|
||||||
|
})
|
||||||
|
})
|
||||||
|
});
|
||||||
|
|
||||||
|
|
||||||
|
GenNode(instructions,_defer,scope,contscope,brkscope,contI,brkI);
|
||||||
|
|
||||||
|
|
||||||
|
GenNode(instructions,adv.nodes[1],scope,contscope,brkscope,contI,brkI);
|
||||||
|
if(!adv.isExpression)
|
||||||
|
GenPop(instructions,adv.nodes[1]);
|
||||||
|
|
||||||
|
instructions.push_back(new SimpleInstruction(SCOPEEND));
|
||||||
|
scope--;
|
||||||
|
}
|
||||||
|
}
|
||||||
else if(adv.nodeName == WhileStatement && adv.nodes.size() == 2)
|
else if(adv.nodeName == WhileStatement && adv.nodes.size() == 2)
|
||||||
{
|
{
|
||||||
auto old_contI = contI;
|
auto old_contI = contI;
|
||||||
|
|||||||
@@ -308,7 +308,7 @@ namespace Tesses::CrossLang
|
|||||||
{
|
{
|
||||||
|
|
||||||
}
|
}
|
||||||
Parser::Parser(std::vector<LexToken> tokens, GC* gc, TRootEnvironment* env)
|
Parser::Parser(std::vector<LexToken> tokens, std::shared_ptr<GC> gc, TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
this->i = 0;
|
this->i = 0;
|
||||||
this->tokens = tokens;
|
this->tokens = tokens;
|
||||||
@@ -615,7 +615,7 @@ namespace Tesses::CrossLang
|
|||||||
EnsureSymbol("(");
|
EnsureSymbol("(");
|
||||||
SyntaxNode list = ParseExpression();
|
SyntaxNode list = ParseExpression();
|
||||||
SyntaxNode body = nullptr;
|
SyntaxNode body = nullptr;
|
||||||
if(IsSymbol(":"))
|
if(IsSymbol(":") || IsIdentifier("in"))
|
||||||
{
|
{
|
||||||
item = list;
|
item = list;
|
||||||
list = ParseExpression();
|
list = ParseExpression();
|
||||||
@@ -1406,6 +1406,20 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
return AdvancedSyntaxNode::Create(WhileStatement,false,{cond,body});
|
return AdvancedSyntaxNode::Create(WhileStatement,false,{cond,body});
|
||||||
}
|
}
|
||||||
|
if(IsIdentifier("using"))
|
||||||
|
{
|
||||||
|
EnsureSymbol("(");
|
||||||
|
SyntaxNode expr = ParseExpression();
|
||||||
|
EnsureSymbol(")");
|
||||||
|
|
||||||
|
SyntaxNode body = nullptr;
|
||||||
|
if(!IsSymbol(";"))
|
||||||
|
{
|
||||||
|
body = ParseNode();
|
||||||
|
}
|
||||||
|
|
||||||
|
return AdvancedSyntaxNode::Create(UsingStatement, false, {expr,body});
|
||||||
|
}
|
||||||
if(IsIdentifier("do"))
|
if(IsIdentifier("do"))
|
||||||
{
|
{
|
||||||
EnsureSymbol("(");
|
EnsureSymbol("(");
|
||||||
|
|||||||
@@ -212,15 +212,15 @@ int main(int argc, char** argv)
|
|||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
GC* gc=nullptr;
|
std::shared_ptr<GC> gc;
|
||||||
GCList* ls=nullptr;
|
std::shared_ptr<GCList> ls;
|
||||||
TRootEnvironment* env=nullptr;
|
TRootEnvironment* env=nullptr;
|
||||||
if(comptime != "none")
|
if(comptime != "none")
|
||||||
{
|
{
|
||||||
gc = new GC();
|
gc = std::make_shared<GC>();
|
||||||
gc->Start();
|
gc->Start();
|
||||||
ls = new GCList(gc);
|
ls = std::make_shared<GCList>(gc);
|
||||||
env = TRootEnvironment::Create(ls,TDictionary::Create(ls));
|
env = TRootEnvironment::Create(*ls,TDictionary::Create(*ls));
|
||||||
|
|
||||||
if(comptime == "secure")
|
if(comptime == "secure")
|
||||||
{
|
{
|
||||||
@@ -281,10 +281,5 @@ int main(int argc, char** argv)
|
|||||||
|
|
||||||
gen.Save(strm);
|
gen.Save(strm);
|
||||||
}
|
}
|
||||||
if(gc != nullptr)
|
|
||||||
{
|
|
||||||
delete ls;
|
|
||||||
delete gc;
|
|
||||||
}
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
@@ -1,72 +0,0 @@
|
|||||||
#include "CrossLang.hpp"
|
|
||||||
using namespace Tesses::Framework;
|
|
||||||
using namespace Tesses::CrossLang;
|
|
||||||
int main(int argc, char** argv)
|
|
||||||
{
|
|
||||||
TF_InitWithConsole();
|
|
||||||
|
|
||||||
if(argc < 2)
|
|
||||||
{
|
|
||||||
printf("USAGE: %s <filename.crvm> <args...>\n",argv[0]);
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
if(argc > 0)
|
|
||||||
TF_AllowPortable(argv[0]);
|
|
||||||
|
|
||||||
GC gc;
|
|
||||||
gc.Start();
|
|
||||||
GCList ls(gc);
|
|
||||||
TRootEnvironment* env = TRootEnvironment::Create(ls, TDictionary::Create(ls));
|
|
||||||
|
|
||||||
TStd::RegisterStd(&gc,env);
|
|
||||||
env->LoadFileWithDependencies(&gc, Tesses::Framework::Filesystem::LocalFS, Tesses::Framework::Filesystem::LocalFS->SystemToVFSPath(argv[1]));
|
|
||||||
|
|
||||||
if(env->HasVariable("WebAppMain"))
|
|
||||||
{
|
|
||||||
Args args(argc, argv);
|
|
||||||
int port = 4206;
|
|
||||||
for(auto& item : args.options)
|
|
||||||
{
|
|
||||||
if(item.first == "port")
|
|
||||||
{
|
|
||||||
port = std::stoi(item.second);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
env->EnsureDictionary(&gc,"Net")->SetValue("WebServerPort", (int64_t)port);
|
|
||||||
TList* args2 = TList::Create(ls);
|
|
||||||
for(auto& item : args.positional)
|
|
||||||
{
|
|
||||||
args2->Add(item);
|
|
||||||
}
|
|
||||||
|
|
||||||
auto res = env->CallFunctionWithFatalError(ls, "WebAppMain", {args2});
|
|
||||||
auto svr2 = Tesses::CrossLang::ToHttpServer(&gc,res);
|
|
||||||
if(svr2 == nullptr) return 1;
|
|
||||||
Tesses::Framework::Http::HttpServer svr(port,svr2);
|
|
||||||
svr.StartAccepting();
|
|
||||||
TF_RunEventLoop();
|
|
||||||
TDictionary* _dict;
|
|
||||||
TClassObject* _co;
|
|
||||||
if(GetObjectHeap(res,_dict))
|
|
||||||
{
|
|
||||||
_dict->CallMethod(ls,"Close",{});
|
|
||||||
}
|
|
||||||
if(GetObjectHeap(res,_co))
|
|
||||||
{
|
|
||||||
_co->CallMethod(ls,"","Close",{});
|
|
||||||
}
|
|
||||||
TF_Quit();
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
TList* args = TList::Create(ls);
|
|
||||||
for(int arg=1;arg<argc;arg++)
|
|
||||||
args->Add(std::string(argv[arg]));
|
|
||||||
|
|
||||||
auto res = env->CallFunctionWithFatalError(ls,"main",{args});
|
|
||||||
int64_t iresult;
|
|
||||||
if(GetObject(res,iresult))
|
|
||||||
return (int)iresult;
|
|
||||||
}
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
@@ -2,7 +2,7 @@
|
|||||||
|
|
||||||
namespace Tesses::CrossLang
|
namespace Tesses::CrossLang
|
||||||
{
|
{
|
||||||
SharedPtrTObject::SharedPtrTObject(GC* gc, TObject o)
|
SharedPtrTObject::SharedPtrTObject(std::shared_ptr<GC> gc, TObject o)
|
||||||
{
|
{
|
||||||
this->ls = new GCList(gc);
|
this->ls = new GCList(gc);
|
||||||
this->ls->Add(o);
|
this->ls->Add(o);
|
||||||
@@ -17,18 +17,15 @@ namespace Tesses::CrossLang
|
|||||||
if(this->ls)
|
if(this->ls)
|
||||||
delete this->ls;
|
delete this->ls;
|
||||||
}
|
}
|
||||||
GC* SharedPtrTObject::GetGC()
|
std::shared_ptr<GC> SharedPtrTObject::GetGC()
|
||||||
{
|
{
|
||||||
return this->ls->GetGC();
|
return this->ls->GetGC();
|
||||||
}
|
}
|
||||||
MarkedTObject CreateMarkedTObject(GC* gc, TObject o)
|
MarkedTObject CreateMarkedTObject(std::shared_ptr<GC> gc, TObject o)
|
||||||
{
|
{
|
||||||
return std::make_shared<SharedPtrTObject>(gc,o);
|
return std::make_shared<SharedPtrTObject>(gc,o);
|
||||||
}
|
}
|
||||||
MarkedTObject CreateMarkedTObject(GC& gc, TObject o)
|
|
||||||
{
|
|
||||||
return CreateMarkedTObject(&gc,o);
|
|
||||||
}
|
|
||||||
MarkedTObject CreateMarkedTObject(GCList* gc, TObject o)
|
MarkedTObject CreateMarkedTObject(GCList* gc, TObject o)
|
||||||
{
|
{
|
||||||
return CreateMarkedTObject(gc->GetGC(),o);
|
return CreateMarkedTObject(gc->GetGC(),o);
|
||||||
|
|||||||
@@ -1,11 +1,11 @@
|
|||||||
#include "CrossLang.hpp"
|
#include "CrossLang.hpp"
|
||||||
#include <iostream>
|
#include <iostream>
|
||||||
using namespace Tesses::CrossLang;
|
namespace Tesses::CrossLang::Programs {
|
||||||
using namespace Tesses::Framework::Filesystem;
|
using namespace Tesses::Framework::Filesystem;
|
||||||
using namespace Tesses::Framework::Streams;
|
using namespace Tesses::Framework::Streams;
|
||||||
void Help(const char* filename)
|
static void Help(std::string& filename)
|
||||||
{
|
{
|
||||||
printf("USAGE: %s [OPTIONS] <dirasroot> <archive.crvm>\n", filename);
|
std::cout << "USAGE: " << filename << " [OPTIONS] <dirasroot> <archive.crvm>" << std::endl;
|
||||||
printf("OPTIONS:\n");
|
printf("OPTIONS:\n");
|
||||||
printf(" -i: Set info (ex {\"maintainer\": \"Mike Nolan\", \"repo\": \"https://example.com/\", \"homepage\": \"https://example.com/\",\"license\":\"MIT\"})\n");
|
printf(" -i: Set info (ex {\"maintainer\": \"Mike Nolan\", \"repo\": \"https://example.com/\", \"homepage\": \"https://example.com/\",\"license\":\"MIT\"})\n");
|
||||||
printf(" -I: Set icon name (relative to dirasroot), should be a 128x128 png\n");
|
printf(" -I: Set icon name (relative to dirasroot), should be a 128x128 png\n");
|
||||||
@@ -15,7 +15,8 @@ void Help(const char* filename)
|
|||||||
printf("Options except for help have flag with arg like this: -F ARG\n");
|
printf("Options except for help have flag with arg like this: -F ARG\n");
|
||||||
exit(1);
|
exit(1);
|
||||||
}
|
}
|
||||||
int main(int argc, char** argv)
|
|
||||||
|
int64_t CrossArchiveCreate(std::vector<std::string>& argv)
|
||||||
{
|
{
|
||||||
Tesses::Framework::TF_Init();
|
Tesses::Framework::TF_Init();
|
||||||
std::string name="out";
|
std::string name="out";
|
||||||
@@ -23,40 +24,40 @@ int main(int argc, char** argv)
|
|||||||
TVMVersion version;
|
TVMVersion version;
|
||||||
std::string icon="";
|
std::string icon="";
|
||||||
std::vector<std::string> args;
|
std::vector<std::string> args;
|
||||||
for(int i = 1; i < argc; i++)
|
for(int i = 1; i < argv.size(); i++)
|
||||||
{
|
{
|
||||||
if(strcmp(argv[i],"--help") == 0 || strcmp(argv[i],"-h")==0)
|
if(argv[i] == "--help" || argv[i] == "-h")
|
||||||
{
|
{
|
||||||
Help(argv[0]);
|
Help(argv[0]);
|
||||||
}
|
}
|
||||||
else if(strcmp(argv[i], "-i") == 0)
|
else if(argv[i] == "-i")
|
||||||
{
|
{
|
||||||
i++;
|
i++;
|
||||||
if(i < argc)
|
if(i < argv.size())
|
||||||
{
|
{
|
||||||
info = argv[i];
|
info = argv[i];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else if(strcmp(argv[i], "-I") == 0)
|
else if(argv[i] == "-I")
|
||||||
{
|
{
|
||||||
i++;
|
i++;
|
||||||
if(i < argc)
|
if(i < argv.size())
|
||||||
{
|
{
|
||||||
icon = argv[i];
|
icon = argv[i];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else if(strcmp(argv[i], "-n") == 0)
|
else if(argv[i] == "-n")
|
||||||
{
|
{
|
||||||
i++;
|
i++;
|
||||||
if(i < argc)
|
if(i < argv.size())
|
||||||
{
|
{
|
||||||
name = argv[i];
|
name = argv[i];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else if(strcmp(argv[i], "-v") == 0)
|
else if(argv[i] == "-v")
|
||||||
{
|
{
|
||||||
i++;
|
i++;
|
||||||
if(i < argc)
|
if(i < argv.size())
|
||||||
{
|
{
|
||||||
|
|
||||||
if(!TVMVersion::TryParse(argv[i],version))
|
if(!TVMVersion::TryParse(argv[i],version))
|
||||||
@@ -90,4 +91,5 @@ int main(int argc, char** argv)
|
|||||||
CrossArchiveCreate(sdfs,strm,name,version,info,icon);
|
CrossArchiveCreate(sdfs,strm,name,version,info,icon);
|
||||||
|
|
||||||
return 0;
|
return 0;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
@@ -1,34 +1,34 @@
|
|||||||
#include "CrossLang.hpp"
|
#include "CrossLang.hpp"
|
||||||
#include <iostream>
|
#include <iostream>
|
||||||
using namespace Tesses::CrossLang;
|
|
||||||
|
namespace Tesses::CrossLang::Programs {
|
||||||
using namespace Tesses::Framework::Filesystem;
|
using namespace Tesses::Framework::Filesystem;
|
||||||
using namespace Tesses::Framework::Streams;
|
using namespace Tesses::Framework::Streams;
|
||||||
|
|
||||||
int main(int argc, char** argv)
|
int64_t CrossArchiveExtract(std::vector<std::string>& argv)
|
||||||
{
|
{
|
||||||
Tesses::Framework::TF_Init();
|
Tesses::Framework::TF_Init();
|
||||||
if(argc < 3)
|
if(argv.size() < 3)
|
||||||
{
|
{
|
||||||
printf("USAGE: %s <archive.crvm> <dirasroot>\n", argv[0]);
|
std::cout << "USAGE: " << argv[0] << " <archive.crvm> <dirasroot>" << std::endl;
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
auto sdfs= std::make_shared<SubdirFilesystem>(Tesses::Framework::Filesystem::LocalFS,std::string(argv[2]));
|
auto sdfs= std::make_shared<SubdirFilesystem>(Tesses::Framework::Filesystem::LocalFS,std::string(argv[2]));
|
||||||
|
auto strm= LocalFS->OpenFile(argv[1], "rb");
|
||||||
FILE* f = fopen(argv[1],"rb");
|
if(strm->CanRead())
|
||||||
if(f == NULL)
|
|
||||||
{
|
{
|
||||||
printf("ERROR: could not open %s\n", argv[1]);
|
std::cout << "ERROR: could not open " << argv[1] << std::endl;
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
auto strm = std::make_shared<FileStream>(f,true,"rb",true);
|
|
||||||
|
|
||||||
auto res = CrossArchiveExtract(strm,sdfs);
|
auto res = Tesses::CrossLang::CrossArchiveExtract(strm,sdfs);
|
||||||
|
|
||||||
std::cout << "Crvm Name: " << res.first.first << std::endl;
|
std::cout << "Crvm Name: " << res.first.first << std::endl;
|
||||||
std::cout << "Crvm Version: " << res.first.second.ToString() << std::endl;
|
std::cout << "Crvm Version: " << res.first.second.ToString() << std::endl;
|
||||||
std::cout << "Crvm Info: " << std::endl << res.second << std::endl;
|
std::cout << "Crvm Info: " << std::endl << res.second << std::endl;
|
||||||
|
|
||||||
return 0;
|
return 0;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
@@ -1,20 +1,20 @@
|
|||||||
#include "CrossLang.hpp"
|
#include "CrossLang.hpp"
|
||||||
#include <iostream>
|
#include <iostream>
|
||||||
using namespace Tesses::CrossLang;
|
namespace Tesses::CrossLang::Programs {
|
||||||
void Ensure(Tesses::Framework::Streams::Stream& strm,uint8_t* buffer, size_t len)
|
static void Ensure(std::shared_ptr<Tesses::Framework::Streams::Stream> strm,uint8_t* buffer, size_t len)
|
||||||
{
|
{
|
||||||
if(strm.ReadBlock(buffer,len) != len)
|
if(strm->ReadBlock(buffer,len) != len)
|
||||||
{
|
{
|
||||||
throw VMException("Could not read " + std::to_string(len) + " byte(s).");
|
throw VMException("Could not read " + std::to_string(len) + " byte(s).");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
uint32_t EnsureInt(Tesses::Framework::Streams::Stream& strm)
|
static uint32_t EnsureInt(std::shared_ptr<Tesses::Framework::Streams::Stream> strm)
|
||||||
{
|
{
|
||||||
uint8_t buff[4];
|
uint8_t buff[4];
|
||||||
Ensure(strm,buff,sizeof(buff));
|
Ensure(strm,buff,sizeof(buff));
|
||||||
return BitConverter::ToUint32BE(buff[0]);
|
return BitConverter::ToUint32BE(buff[0]);
|
||||||
}
|
}
|
||||||
std::string EnsureString(Tesses::Framework::Streams::Stream& strm)
|
static std::string EnsureString(std::shared_ptr<Tesses::Framework::Streams::Stream> strm)
|
||||||
{
|
{
|
||||||
size_t len = (size_t)EnsureInt(strm);
|
size_t len = (size_t)EnsureInt(strm);
|
||||||
std::string myStr={};
|
std::string myStr={};
|
||||||
@@ -22,30 +22,24 @@ std::string EnsureString(Tesses::Framework::Streams::Stream& strm)
|
|||||||
Ensure(strm,(uint8_t*)myStr.data(), len);
|
Ensure(strm,(uint8_t*)myStr.data(), len);
|
||||||
return myStr;
|
return myStr;
|
||||||
}
|
}
|
||||||
void DumpFile(std::filesystem::path p)
|
void CrossLangDump(std::shared_ptr<Tesses::Framework::Streams::Stream> strm)
|
||||||
{
|
{
|
||||||
if(std::filesystem::is_regular_file(p))
|
uint8_t main_header[18];
|
||||||
|
Ensure(strm,main_header,sizeof(main_header));
|
||||||
|
if(strncmp((const char*)main_header,"TCROSSVM",8) != 0) throw VMException("Invalid TCrossVM image.");
|
||||||
|
TVMVersion version(main_header+8);
|
||||||
|
if(version.CompareToRuntime() == 1)
|
||||||
{
|
{
|
||||||
try
|
throw VMException("Runtime is too old.");
|
||||||
{
|
}
|
||||||
std::cout << "File: " << p.string() << std::endl;
|
TVMVersion v2(main_header+13);
|
||||||
Tesses::Framework::Streams::FileStream strm(p,"rb");
|
std::cout << "Version: " << v2.ToString() << std::endl;
|
||||||
uint8_t main_header[18];
|
|
||||||
Ensure(strm,main_header,sizeof(main_header));
|
|
||||||
if(strncmp((const char*)main_header,"TCROSSVM",8) != 0) throw VMException("Invalid TCrossVM image.");
|
|
||||||
TVMVersion version(main_header+8);
|
|
||||||
if(version.CompareToRuntime() == 1)
|
|
||||||
{
|
|
||||||
throw VMException("Runtime is too old.");
|
|
||||||
}
|
|
||||||
TVMVersion v2(main_header+13);
|
|
||||||
std::cout << "Version: " << v2.ToString() << std::endl;
|
|
||||||
|
|
||||||
size_t _len = (size_t)EnsureInt(strm);
|
size_t _len = (size_t)EnsureInt(strm);
|
||||||
|
|
||||||
std::cout << "SectionCount: " << _len << std::endl;
|
std::cout << "SectionCount: " << _len << std::endl;
|
||||||
|
|
||||||
std::vector<std::string> strs;
|
std::vector<std::string> strs;
|
||||||
|
|
||||||
std::unordered_map<uint32_t, std::vector<std::string>> funs;
|
std::unordered_map<uint32_t, std::vector<std::string>> funs;
|
||||||
std::vector<std::vector<std::string>> closures;
|
std::vector<std::vector<std::string>> closures;
|
||||||
@@ -177,7 +171,7 @@ void DumpFile(std::filesystem::path p)
|
|||||||
}
|
}
|
||||||
auto len = EnsureInt(strm);
|
auto len = EnsureInt(strm);
|
||||||
|
|
||||||
strm.Seek(len,Tesses::Framework::Streams::SeekOrigin::Current);
|
strm->Seek(len,Tesses::Framework::Streams::SeekOrigin::Current);
|
||||||
|
|
||||||
closures.push_back(args);
|
closures.push_back(args);
|
||||||
}
|
}
|
||||||
@@ -208,7 +202,7 @@ void DumpFile(std::filesystem::path p)
|
|||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
strm.Seek((int64_t)tableLen,Tesses::Framework::Streams::SeekOrigin::Current);
|
strm->Seek((int64_t)tableLen,Tesses::Framework::Streams::SeekOrigin::Current);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if(hasIcon)
|
if(hasIcon)
|
||||||
@@ -252,22 +246,10 @@ void DumpFile(std::filesystem::path p)
|
|||||||
for(auto str : strs) {
|
for(auto str : strs) {
|
||||||
std::cout << EscapeString(str, true) << std::endl;
|
std::cout << EscapeString(str, true) << std::endl;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
catch(std::exception& ex)
|
|
||||||
{
|
|
||||||
std::cout << "Error when reading file \"" << p.string() << "\" " << ex.what() << std::endl;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
std::cout << "CrossVM file \"" << p.string() << "\" does not exist." << std::endl;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
int main(int argc, char** argv)
|
|
||||||
{
|
|
||||||
Tesses::Framework::TF_Init();
|
|
||||||
for(int i = 1; i < argc; i++)
|
|
||||||
{
|
|
||||||
DumpFile(argv[i]);
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
}
|
||||||
@@ -1,29 +1,55 @@
|
|||||||
#include "CrossLang.hpp"
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Platform/Environment.hpp"
|
||||||
#include <iostream>
|
#include <iostream>
|
||||||
|
|
||||||
#include <string>
|
#include <string>
|
||||||
using namespace Tesses::Framework;
|
using namespace Tesses::Framework;
|
||||||
using namespace Tesses::CrossLang;
|
|
||||||
using namespace Tesses::Framework::Http;
|
using namespace Tesses::Framework::Http;
|
||||||
|
|
||||||
bool Download(Tesses::Framework::Filesystem::VFSPath filename,std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs)
|
namespace Tesses::CrossLang::Programs
|
||||||
{
|
{
|
||||||
|
|
||||||
|
static bool Download(Tesses::Framework::Filesystem::VFSPath filename,std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs)
|
||||||
|
{
|
||||||
|
auto inContainer=Platform::Environment::GetVariable("CROSSLANG_CONTAINER");
|
||||||
|
if(inContainer && (*inContainer=="1" || *inContainer=="y" || *inContainer=="Y"))
|
||||||
|
{
|
||||||
|
HttpRequest req;
|
||||||
|
req.followRedirects=true;
|
||||||
|
req.url = "https://redirect.tesses.net/crosslang-shell";
|
||||||
|
req.method = "GET";
|
||||||
|
HttpResponse resp(req);
|
||||||
|
if(resp.statusCode == StatusCode::OK)
|
||||||
|
{
|
||||||
|
auto strm = resp.ReadAsStream();
|
||||||
|
CrossLang::CrossArchiveExtract(strm, vfs);
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
std::cout << "Error when fetching the script error: " << std::to_string(resp.statusCode) << " " << HttpUtils::StatusCodeString(resp.statusCode) << std::endl;
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
while(true)
|
while(true)
|
||||||
{
|
{
|
||||||
std::cout << "File " << filename.ToString() << " not found, do you want to download the installer from: https://downloads.tesses.net/ShellPackage.crvm (this may install other stuff as well) (Y/n)? ";
|
std::cout << "File " << filename.ToString() << " not found, do you want to download the installer from: https://redirect.tesses.net/crosslang-shell (this may install other stuff as well) (Y/n)? ";
|
||||||
std::string line;
|
std::string line;
|
||||||
std::getline(std::cin,line);
|
std::getline(std::cin,line);
|
||||||
if(line == "Y" || line == "y")
|
if(line == "Y" || line == "y")
|
||||||
{
|
{
|
||||||
HttpRequest req;
|
HttpRequest req;
|
||||||
req.url = "https://downloads.tesses.net/ShellPackage.crvm";
|
req.followRedirects = true;
|
||||||
|
req.url = "https://redirect.tesses.net/crosslang-shell";
|
||||||
req.method = "GET";
|
req.method = "GET";
|
||||||
HttpResponse resp(req);
|
HttpResponse resp(req);
|
||||||
if(resp.statusCode == StatusCode::OK)
|
if(resp.statusCode == StatusCode::OK)
|
||||||
{
|
{
|
||||||
auto strm = resp.ReadAsStream();
|
auto strm = resp.ReadAsStream();
|
||||||
CrossArchiveExtract(strm, vfs);
|
CrossLang::CrossArchiveExtract(strm, vfs);
|
||||||
|
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
@@ -37,47 +63,43 @@ bool Download(Tesses::Framework::Filesystem::VFSPath filename,std::shared_ptr<Te
|
|||||||
std::cout << "Looks like you will need to install manually" << std::endl;
|
std::cout << "Looks like you will need to install manually" << std::endl;
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
std::cout << "Please use Y or N (case insensitive)" << std::endl;
|
std::cout << "Please use Y or N (case insensitive)" << std::endl;
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
|
|
||||||
int main(int argc, char** argv)
|
TObject CrossLangShell(GCList& ls, std::vector<std::string>& argv)
|
||||||
{
|
{
|
||||||
TF_InitWithConsole();
|
|
||||||
if(argc > 0)
|
|
||||||
TF_AllowPortable(argv[0]);
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Tesses::Framework::Filesystem::VFSPath dir = GetCrossLangConfigDir();
|
Tesses::Framework::Filesystem::VFSPath dir = GetCrossLangConfigDir();
|
||||||
|
|
||||||
Tesses::Framework::Filesystem::VFSPath filename = dir / "Shell" / "Shell.crvm";
|
Tesses::Framework::Filesystem::VFSPath filename = dir / "Shell" / "Shell.crvm";
|
||||||
|
|
||||||
|
|
||||||
auto p = Tesses::Framework::Platform::Environment::GetRealExecutablePath(Tesses::Framework::Filesystem::LocalFS->SystemToVFSPath(argv[0])).GetParent().GetParent() / "share" / "Tesses" / "CrossLang" / "Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm";
|
auto p = Tesses::Framework::Platform::Environment::GetRealExecutablePath(Tesses::Framework::Filesystem::LocalFS->SystemToVFSPath(argv[0])).GetParent().GetParent() / "share" / "Tesses" / "CrossLang" / "Tesses.CrossLang.ShellPackage-1.0.0.0-prod.crvm";
|
||||||
if(argc == 2 && strcmp(argv[1],"configdir") == 0)
|
if(argv.size() == 2 && argv[1] == "configdir")
|
||||||
{
|
{
|
||||||
std::cout << dir.ToString() << std::endl;
|
std::cout << dir.ToString() << std::endl;
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
if(argc > 1 && strcmp(argv[1],"update-shell") == 0)
|
if(argv.size() > 1 && argv[1] == "update-shell")
|
||||||
{
|
{
|
||||||
|
|
||||||
auto subdir = std::make_shared<Tesses::Framework::Filesystem::SubdirFilesystem>(Tesses::Framework::Filesystem::LocalFS,dir);
|
auto subdir = std::make_shared<Tesses::Framework::Filesystem::SubdirFilesystem>(Tesses::Framework::Filesystem::LocalFS,dir);
|
||||||
HttpRequest req;
|
HttpRequest req;
|
||||||
req.url = "https://downloads.tesses.net/ShellPackage.crvm";
|
req.followRedirects=true;
|
||||||
|
req.url = "https://redirect.tesses.net/crosslang-shell";
|
||||||
req.method = "GET";
|
req.method = "GET";
|
||||||
HttpResponse resp(req);
|
HttpResponse resp(req);
|
||||||
if(resp.statusCode == StatusCode::OK)
|
if(resp.statusCode == StatusCode::OK)
|
||||||
{
|
{
|
||||||
auto strm = resp.ReadAsStream();
|
auto strm = resp.ReadAsStream();
|
||||||
CrossArchiveExtract(strm, subdir);
|
CrossLang::CrossArchiveExtract(strm, subdir);
|
||||||
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
@@ -97,8 +119,8 @@ int main(int argc, char** argv)
|
|||||||
auto strm = Tesses::Framework::Filesystem::LocalFS->OpenFile(p,"rb");
|
auto strm = Tesses::Framework::Filesystem::LocalFS->OpenFile(p,"rb");
|
||||||
if(strm != nullptr)
|
if(strm != nullptr)
|
||||||
{
|
{
|
||||||
CrossArchiveExtract(strm, subdir);
|
CrossLang::CrossArchiveExtract(strm, subdir);
|
||||||
|
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
@@ -111,31 +133,26 @@ int main(int argc, char** argv)
|
|||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
GC gc;
|
|
||||||
gc.Start();
|
|
||||||
|
|
||||||
GCList ls(gc);
|
|
||||||
TRootEnvironment* env = TRootEnvironment::Create(ls, TDictionary::Create(ls));
|
TRootEnvironment* env = TRootEnvironment::Create(ls, TDictionary::Create(ls));
|
||||||
|
|
||||||
|
|
||||||
TStd::RegisterStd(&gc,env);
|
|
||||||
|
TStd::RegisterStd(ls.GetGC(),env);
|
||||||
|
|
||||||
env->LoadFileWithDependencies(&gc, Tesses::Framework::Filesystem::LocalFS, filename);
|
|
||||||
|
env->LoadFileWithDependencies(ls.GetGC(), Tesses::Framework::Filesystem::LocalFS, filename);
|
||||||
|
|
||||||
|
|
||||||
TList* args = TList::Create(ls);
|
TList* args = TList::Create(ls);
|
||||||
|
|
||||||
args->Add(filename.ToString());
|
args->Add(filename.ToString());
|
||||||
|
|
||||||
for(int arg=1;arg<argc;arg++)
|
for(size_t arg=1;arg<argv.size();arg++)
|
||||||
args->Add(std::string(argv[arg]));
|
args->Add(std::string(argv[arg]));
|
||||||
|
|
||||||
auto res = env->CallFunctionWithFatalError(ls,"main",{args});
|
return env->CallFunctionWithFatalError(ls,"main",{args});
|
||||||
int64_t iresult;
|
|
||||||
if(GetObject(res,iresult))
|
}
|
||||||
return (int)iresult;
|
|
||||||
return 0;
|
|
||||||
}
|
}
|
||||||
285
src/program_lib/crosslangcompiler.cpp
Normal file
285
src/program_lib/crosslangcompiler.cpp
Normal file
@@ -0,0 +1,285 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include <iostream>
|
||||||
|
#include <fstream>
|
||||||
|
using namespace Tesses::Framework;
|
||||||
|
using namespace Tesses::Framework::Filesystem;
|
||||||
|
namespace Tesses::CrossLang::Programs {
|
||||||
|
static void Help(std::string filename)
|
||||||
|
{
|
||||||
|
std::cout << "USAGE: " << filename << " [OPTIONS] source_file1 source_file2 source_file_n" << std::endl;
|
||||||
|
printf("OPTIONS:\n");
|
||||||
|
printf(" -o: Output directory (OUTDIR, defaults to ./bin)\n");
|
||||||
|
printf(" -i: Set info (ex {\"maintainer\": \"Mike Nolan\", \"repo\": \"https://example.com/\", \"homepage\": \"https://example.com/\",\"license\":\"MIT\"})\n");
|
||||||
|
printf(" -I: Set icon resource name (in the resource folder), should be a 128x128 png\n");
|
||||||
|
printf(" -v: Set version (1.0.0.0-prod defaults to 1.0.0.0-dev)\n");
|
||||||
|
printf(" -d: Add dependency (DependencyName-1.0.0.0-prod)\n");
|
||||||
|
printf(" -D: enable debug)\n");
|
||||||
|
printf(" -t: Declare a tool (ToolName-1.0.0.0-prod)\n");
|
||||||
|
printf(" -n: Set name (MyAppOrLibName defaults to out)\n");
|
||||||
|
printf(" -r: Set resource directory (RESDIR defaults to res)\n");
|
||||||
|
printf(" -h, --help: Prints help\n");
|
||||||
|
printf(" -e: Set comptime permissions defaults to none, none for no support, \"secure\" for sane without file access, \"secure_file\" for sane with file access to current directory and sub directories, \"full\" has full runtime.\n");
|
||||||
|
printf("Options except for help have flag with arg like this: -F ARG\n");
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
void CrossLangCompiler(std::vector<std::string>& argv)
|
||||||
|
{
|
||||||
|
/*std::ifstream strm(argv[1],std::ios_base::in|std::ios_base::binary);
|
||||||
|
std::vector<LexToken> tokens;
|
||||||
|
Lex(argv[1],strm,tokens);
|
||||||
|
|
||||||
|
Parser parser(tokens);
|
||||||
|
|
||||||
|
CodeGen gen;
|
||||||
|
gen.GenRoot(parser.ParseRoot());
|
||||||
|
std::vector<uint8_t> data;
|
||||||
|
ByteCodeVectorWriter w(data);
|
||||||
|
gen.Save(std::filesystem::current_path(),w);
|
||||||
|
*/
|
||||||
|
TF_InitWithConsole();
|
||||||
|
std::filesystem::path outputDir = std::filesystem::current_path() / "bin";
|
||||||
|
std::vector<std::filesystem::path> source;
|
||||||
|
std::filesystem::path resourceDir = std::filesystem::current_path() / "res";
|
||||||
|
std::vector<std::pair<std::string, TVMVersion>> dependencies;
|
||||||
|
std::vector<std::pair<std::string, TVMVersion>> tools;
|
||||||
|
std::string name="out";
|
||||||
|
std::string info="{}";
|
||||||
|
std::string icon="";
|
||||||
|
std::string comptime="none";
|
||||||
|
TVMVersion version;
|
||||||
|
bool debug=false;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
for(size_t i = 1; i < argv.size(); i++)
|
||||||
|
{
|
||||||
|
if(argv[i] == "--help" || argv[i] == "-h")
|
||||||
|
{
|
||||||
|
Help(argv[0]);
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(argv[i] == "-o")
|
||||||
|
{
|
||||||
|
i++;
|
||||||
|
if(i < argv.size())
|
||||||
|
{
|
||||||
|
outputDir = argv[i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(argv[i] == "-r")
|
||||||
|
{
|
||||||
|
i++;
|
||||||
|
if(i < argv.size())
|
||||||
|
{
|
||||||
|
resourceDir = argv[i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(argv[i] == "-e")
|
||||||
|
{
|
||||||
|
i++;
|
||||||
|
if(i < argv.size())
|
||||||
|
{
|
||||||
|
comptime = argv[i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(argv[i] == "-i")
|
||||||
|
{
|
||||||
|
i++;
|
||||||
|
if(i < argv.size())
|
||||||
|
{
|
||||||
|
info = argv[i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(argv[i] == "-I")
|
||||||
|
{
|
||||||
|
i++;
|
||||||
|
if(i < argv.size())
|
||||||
|
{
|
||||||
|
icon = argv[i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(argv[i] == "-d")
|
||||||
|
{
|
||||||
|
i++;
|
||||||
|
if(i < argv.size())
|
||||||
|
{
|
||||||
|
std::string str = argv[i];
|
||||||
|
auto lastDash = str.find_last_of('-');
|
||||||
|
if(lastDash < str.size())
|
||||||
|
{
|
||||||
|
std::string str2 = str.substr(lastDash+1);
|
||||||
|
if(str2 == "dev" || str2 == "alpha" || str2 == "beta" || str2 == "prod")
|
||||||
|
{
|
||||||
|
lastDash = str.find_last_of('-',lastDash-1);
|
||||||
|
}
|
||||||
|
std::string str1 = str.substr(0,lastDash);
|
||||||
|
str2 = str.substr(lastDash+1);
|
||||||
|
|
||||||
|
TVMVersion v2;
|
||||||
|
if(!TVMVersion::TryParse(str2,v2))
|
||||||
|
{
|
||||||
|
printf("ERROR: Invalid syntax for version\n");
|
||||||
|
printf("Expected MAJOR[.MINOR[.PATCH[.BUILD[-dev,-alpha,-beta,-prod]]]]\n");
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
dependencies.push_back(std::pair<std::string,TVMVersion>(str1,v2));
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
printf("ERROR: Dependency must have version\n");
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(argv[i] == "-t")
|
||||||
|
{
|
||||||
|
i++;
|
||||||
|
if(i < argv.size())
|
||||||
|
{
|
||||||
|
std::string str = argv[i];
|
||||||
|
auto lastDash = str.find_last_of('-');
|
||||||
|
if(lastDash < str.size())
|
||||||
|
{
|
||||||
|
std::string str2 = str.substr(lastDash+1);
|
||||||
|
if(str2 == "dev" || str2 == "alpha" || str2 == "beta" || str2 == "prod")
|
||||||
|
{
|
||||||
|
lastDash = str.find_last_of('-',lastDash-1);
|
||||||
|
}
|
||||||
|
std::string str1 = str.substr(0,lastDash);
|
||||||
|
str2 = str.substr(lastDash+1);
|
||||||
|
|
||||||
|
TVMVersion v2;
|
||||||
|
if(!TVMVersion::TryParse(str2,v2))
|
||||||
|
{
|
||||||
|
printf("ERROR: Invalid syntax for version\n");
|
||||||
|
printf("Expected MAJOR[.MINOR[.PATCH[.BUILD[-dev,-alpha,-beta,-prod]]]]\n");
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
tools.push_back(std::pair<std::string,TVMVersion>(str1,v2));
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
printf("ERROR: Tool must have version\n");
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(argv[i] == "-n")
|
||||||
|
{
|
||||||
|
i++;
|
||||||
|
if(i < argv.size())
|
||||||
|
{
|
||||||
|
name = argv[i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(argv[i] == "-v")
|
||||||
|
{
|
||||||
|
i++;
|
||||||
|
if(i < argv.size())
|
||||||
|
{
|
||||||
|
|
||||||
|
if(!TVMVersion::TryParse(argv[i],version))
|
||||||
|
{
|
||||||
|
printf("ERROR: Invalid syntax for version\n");
|
||||||
|
printf("Expected MAJOR[.MINOR[.PATCH[.BUILD[-dev,-alpha,-beta,-prod]]]]\n");
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(argv[i] == "-D" || argv[i] == "--debug")
|
||||||
|
{
|
||||||
|
debug = true;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
source.push_back(argv[i]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(source.empty())
|
||||||
|
{
|
||||||
|
Help(argv[0]);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
std::vector<LexToken> tokens;
|
||||||
|
|
||||||
|
for(auto src : source)
|
||||||
|
{
|
||||||
|
std::ifstream strm(src,std::ios_base::in|std::ios_base::binary);
|
||||||
|
int res = Lex(std::filesystem::absolute(src).string(),strm,tokens);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
std::shared_ptr<GC> gc;
|
||||||
|
std::shared_ptr<GCList> ls;
|
||||||
|
TRootEnvironment* env=nullptr;
|
||||||
|
if(comptime != "none")
|
||||||
|
{
|
||||||
|
std::shared_ptr<GC> gc= std::make_shared<GC>();
|
||||||
|
gc->Start();
|
||||||
|
ls = std::make_shared<GCList>(gc);
|
||||||
|
env = TRootEnvironment::Create(*ls,TDictionary::Create(*ls));
|
||||||
|
|
||||||
|
if(comptime == "secure")
|
||||||
|
{
|
||||||
|
TStd::RegisterConsole(gc,env);
|
||||||
|
TStd::RegisterClass(gc,env);
|
||||||
|
TStd::RegisterCrypto(gc,env);
|
||||||
|
TStd::RegisterDictionary(gc,env);
|
||||||
|
TStd::RegisterJson(gc,env);
|
||||||
|
TStd::RegisterRoot(gc,env);
|
||||||
|
TStd::RegisterIO(gc,env,false);
|
||||||
|
env->permissions.locked=true;
|
||||||
|
}
|
||||||
|
else if(comptime == "secure_file")
|
||||||
|
{
|
||||||
|
TStd::RegisterConsole(gc,env);
|
||||||
|
TStd::RegisterClass(gc,env);
|
||||||
|
TStd::RegisterCrypto(gc,env);
|
||||||
|
TStd::RegisterDictionary(gc,env);
|
||||||
|
TStd::RegisterJson(gc,env);
|
||||||
|
TStd::RegisterRoot(gc,env);
|
||||||
|
TStd::RegisterIO(gc,env,false);
|
||||||
|
env->permissions.locked=true;
|
||||||
|
auto fs = env->EnsureDictionary(gc,"FS");
|
||||||
|
fs->SetValue("Local", std::make_shared<SubdirFilesystem>(LocalFS,Tesses::Framework::Filesystem::VFSPath::GetAbsoluteCurrentDirectory()));
|
||||||
|
}
|
||||||
|
else if(comptime == "full")
|
||||||
|
{
|
||||||
|
TStd::RegisterStd(gc,env);
|
||||||
|
env->permissions.locked=true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
Parser parser(tokens,gc,env);
|
||||||
|
parser.debug = debug;
|
||||||
|
CodeGen gen;
|
||||||
|
|
||||||
|
auto sfs = std::make_shared<SubdirFilesystem>(LocalFS,LocalFS->SystemToVFSPath(resourceDir.string()));
|
||||||
|
gen.embedFS = sfs;
|
||||||
|
|
||||||
|
gen.GenRoot(parser.ParseRoot());
|
||||||
|
gen.name = name;
|
||||||
|
gen.version = version;
|
||||||
|
gen.info = info;
|
||||||
|
gen.icon = icon;
|
||||||
|
for(auto deps : dependencies)
|
||||||
|
{
|
||||||
|
gen.dependencies.push_back(deps);
|
||||||
|
}
|
||||||
|
for(auto tool : tools)
|
||||||
|
{
|
||||||
|
gen.tools.push_back(tool);
|
||||||
|
}
|
||||||
|
|
||||||
|
std::filesystem::create_directory(outputDir);
|
||||||
|
|
||||||
|
{
|
||||||
|
auto strm = std::make_shared<Tesses::Framework::Streams::FileStream>(outputDir / (name + "-" + version.ToString() + ".crvm"),"wb");
|
||||||
|
|
||||||
|
gen.Save(strm);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
@@ -4,20 +4,13 @@
|
|||||||
#include <sstream>
|
#include <sstream>
|
||||||
#include <vector>
|
#include <vector>
|
||||||
using namespace Tesses::Framework;
|
using namespace Tesses::Framework;
|
||||||
using namespace Tesses::CrossLang;
|
|
||||||
using namespace Tesses::Framework::Filesystem;
|
using namespace Tesses::Framework::Filesystem;
|
||||||
int main(int argc, char** argv)
|
|
||||||
|
namespace Tesses::CrossLang::Programs {
|
||||||
|
TObject CrossLangInterperter(GCList& ls,TRootEnvironment* env,std::vector<std::string>& argv)
|
||||||
{
|
{
|
||||||
TF_InitWithConsole();
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
if(argc > 0)
|
if(argv.size() > 1)
|
||||||
TF_AllowPortable(argv[0]);
|
|
||||||
GC gc;
|
|
||||||
gc.Start();
|
|
||||||
GCList ls(gc);
|
|
||||||
TRootEnvironment* env = TRootEnvironment::Create(ls, TDictionary::Create(ls));
|
|
||||||
TStd::RegisterStd(&gc,env);
|
|
||||||
|
|
||||||
if(argc > 1)
|
|
||||||
{
|
{
|
||||||
std::ifstream strm(argv[1],std::ios_base::in|std::ios_base::binary);
|
std::ifstream strm(argv[1],std::ios_base::in|std::ios_base::binary);
|
||||||
std::vector<LexToken> tokens;
|
std::vector<LexToken> tokens;
|
||||||
@@ -32,30 +25,28 @@ int main(int argc, char** argv)
|
|||||||
gen.GenRoot(parser.ParseRoot());
|
gen.GenRoot(parser.ParseRoot());
|
||||||
std::vector<uint8_t> data;
|
std::vector<uint8_t> data;
|
||||||
{
|
{
|
||||||
auto strm2 = std::make_shared<Tesses::Framework::Streams::MemoryStream>(true);
|
auto strm2 = std::make_shared<Tesses::Framework::Streams::MemoryStream>(true);
|
||||||
gen.Save(strm2);
|
gen.Save(strm2);
|
||||||
|
|
||||||
|
|
||||||
{
|
{
|
||||||
TFile* file = TFile::Create(ls);
|
TFile* file = TFile::Create(ls);
|
||||||
|
|
||||||
strm2->Seek(0,Tesses::Framework::Streams::SeekOrigin::Begin);
|
strm2->Seek(0,Tesses::Framework::Streams::SeekOrigin::Begin);
|
||||||
file->Load(&gc,strm2);
|
file->Load(gc,strm2);
|
||||||
|
|
||||||
env->LoadFile(&gc, file);
|
env->LoadFile(gc, file);
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
TList* args = TList::Create(ls);
|
TList* args = TList::Create(ls);
|
||||||
for(int arg=1;arg<argc;arg++)
|
for(int arg=1;arg<argv.size();arg++)
|
||||||
args->Add(std::string(argv[arg]));
|
args->Add(std::string(argv[arg]));
|
||||||
|
|
||||||
auto res = env->CallFunctionWithFatalError(ls,"main",{args});
|
return env->CallFunctionWithFatalError(ls,"main",{args});
|
||||||
int64_t iresult;
|
|
||||||
if(GetObject(res,iresult))
|
|
||||||
return (int)iresult;
|
|
||||||
|
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
@@ -91,7 +82,7 @@ int main(int argc, char** argv)
|
|||||||
}
|
}
|
||||||
else if(source == "exit")
|
else if(source == "exit")
|
||||||
{
|
{
|
||||||
return 0;
|
return (int64_t)0;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
@@ -116,9 +107,9 @@ int main(int argc, char** argv)
|
|||||||
TFile* file = TFile::Create(ls);
|
TFile* file = TFile::Create(ls);
|
||||||
|
|
||||||
strm2->Seek(0,Tesses::Framework::Streams::SeekOrigin::Begin);
|
strm2->Seek(0,Tesses::Framework::Streams::SeekOrigin::Begin);
|
||||||
file->Load(&gc,strm2);
|
file->Load(gc,strm2);
|
||||||
|
|
||||||
env->LoadFile(&gc, file);
|
env->LoadFile(gc, file);
|
||||||
|
|
||||||
|
|
||||||
}
|
}
|
||||||
@@ -126,4 +117,8 @@ int main(int argc, char** argv)
|
|||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
return (int64_t)0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
}
|
||||||
61
src/program_lib/crosslangvm.cpp
Normal file
61
src/program_lib/crosslangvm.cpp
Normal file
@@ -0,0 +1,61 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
using namespace Tesses::Framework;
|
||||||
|
namespace Tesses::CrossLang::Programs {
|
||||||
|
TObject CrossLangVM(GCList& ls,TRootEnvironment* env, std::vector<std::string>& argv)
|
||||||
|
{
|
||||||
|
if(argv.size() < 2)
|
||||||
|
{
|
||||||
|
std::cout << "USAGE: " << (argv.empty() ? (std::string)"crossvm" : argv[0]) << " <filename.crvm> <args...>" << std::endl;
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
env->LoadFileWithDependencies(ls.GetGC(), Tesses::Framework::Filesystem::LocalFS, Tesses::Framework::Filesystem::LocalFS->SystemToVFSPath(argv[1]));
|
||||||
|
|
||||||
|
if(env->HasVariable("WebAppMain"))
|
||||||
|
{
|
||||||
|
Args args(argv);
|
||||||
|
int port = 4206;
|
||||||
|
for(auto& item : args.options)
|
||||||
|
{
|
||||||
|
if(item.first == "port")
|
||||||
|
{
|
||||||
|
port = std::stoi(item.second);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
env->EnsureDictionary(ls.GetGC(),"Net")->SetValue("WebServerPort", (int64_t)port);
|
||||||
|
TList* args2 = TList::Create(ls);
|
||||||
|
for(auto& item : args.positional)
|
||||||
|
{
|
||||||
|
args2->Add(item);
|
||||||
|
}
|
||||||
|
|
||||||
|
auto res = env->CallFunctionWithFatalError(ls, "WebAppMain", {args2});
|
||||||
|
auto svr2 = Tesses::CrossLang::ToHttpServer(ls.GetGC(),res);
|
||||||
|
if(svr2 == nullptr) return 1;
|
||||||
|
Tesses::Framework::Http::HttpServer svr(port,svr2);
|
||||||
|
svr.StartAccepting();
|
||||||
|
TF_RunEventLoop();
|
||||||
|
TDictionary* _dict;
|
||||||
|
TClassObject* _co;
|
||||||
|
if(GetObjectHeap(res,_dict))
|
||||||
|
{
|
||||||
|
_dict->CallMethod(ls,"Close",{});
|
||||||
|
}
|
||||||
|
if(GetObjectHeap(res,_co))
|
||||||
|
{
|
||||||
|
_co->CallMethod(ls,"","Close",{});
|
||||||
|
}
|
||||||
|
TF_Quit();
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
TList* args = TList::Create(ls);
|
||||||
|
for(size_t arg=1;arg<argv.size();arg++)
|
||||||
|
args->Add(std::string(argv[arg]));
|
||||||
|
|
||||||
|
return env->CallFunctionWithFatalError(ls,"main",{args});
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
9
src/programs/crossarchivecreate.cpp
Normal file
9
src/programs/crossarchivecreate.cpp
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
|
||||||
|
int main(int argc, char** argv)
|
||||||
|
{
|
||||||
|
std::vector<std::string> args(argc);
|
||||||
|
for(int i = 0; i < argc; i++)
|
||||||
|
args[i] = argv[i];
|
||||||
|
return (int)Tesses::CrossLang::Programs::CrossArchiveCreate(args);
|
||||||
|
}
|
||||||
9
src/programs/crossarchiveextract.cpp
Normal file
9
src/programs/crossarchiveextract.cpp
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
|
||||||
|
int main(int argc, char** argv)
|
||||||
|
{
|
||||||
|
std::vector<std::string> args(argc);
|
||||||
|
for(int i = 0; i < argc; i++)
|
||||||
|
args[i] = argv[i];
|
||||||
|
return (int)Tesses::CrossLang::Programs::CrossArchiveExtract(args);
|
||||||
|
}
|
||||||
25
src/programs/crosslang.cpp
Normal file
25
src/programs/crosslang.cpp
Normal file
@@ -0,0 +1,25 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
|
||||||
|
using namespace Tesses::Framework;
|
||||||
|
using namespace Tesses::CrossLang;
|
||||||
|
using namespace Tesses::Framework::Filesystem;
|
||||||
|
int main(int argc, char** argv)
|
||||||
|
{
|
||||||
|
TF_InitWithConsole();
|
||||||
|
if(argc > 0)
|
||||||
|
TF_AllowPortable(argv[0]);
|
||||||
|
std::shared_ptr<GC> gc= std::make_shared<GC>();
|
||||||
|
gc->Start();
|
||||||
|
GCList ls(gc);
|
||||||
|
|
||||||
|
|
||||||
|
std::vector<std::string> args(argc);
|
||||||
|
for(int i = 0; i < argc; i++)
|
||||||
|
args[i] = argv[i];
|
||||||
|
auto res = Programs::CrossLangShell(ls, args);
|
||||||
|
|
||||||
|
int64_t myi64;
|
||||||
|
if(GetObject(res,myi64))
|
||||||
|
return (int)myi64;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
23
src/programs/crosslangcompiler.cpp
Normal file
23
src/programs/crosslangcompiler.cpp
Normal file
@@ -0,0 +1,23 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include <iostream>
|
||||||
|
#include <fstream>
|
||||||
|
#include <sstream>
|
||||||
|
#include <vector>
|
||||||
|
using namespace Tesses::Framework;
|
||||||
|
using namespace Tesses::CrossLang;
|
||||||
|
using namespace Tesses::Framework::Filesystem;
|
||||||
|
int main(int argc, char** argv)
|
||||||
|
{
|
||||||
|
TF_InitWithConsole();
|
||||||
|
if(argc > 0)
|
||||||
|
TF_AllowPortable(argv[0]);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
std::vector<std::string> args(argc);
|
||||||
|
for(int i = 0; i < argc; i++)
|
||||||
|
args[i] = argv[i];
|
||||||
|
Programs::CrossLangCompiler(args);
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
28
src/programs/crosslangdump.cpp
Normal file
28
src/programs/crosslangdump.cpp
Normal file
@@ -0,0 +1,28 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include <iostream>
|
||||||
|
#include <fstream>
|
||||||
|
#include <sstream>
|
||||||
|
#include <vector>
|
||||||
|
using namespace Tesses::Framework;
|
||||||
|
using namespace Tesses::CrossLang;
|
||||||
|
using namespace Tesses::Framework::Filesystem;
|
||||||
|
int main(int argc, char** argv)
|
||||||
|
{
|
||||||
|
TF_InitWithConsole();
|
||||||
|
if(argc > 0)
|
||||||
|
TF_AllowPortable(argv[0]);
|
||||||
|
|
||||||
|
for(int i = 1; i < argc; i++)
|
||||||
|
{
|
||||||
|
VFSPath path(argv[i]);
|
||||||
|
if(LocalFS->FileExists(path))
|
||||||
|
{
|
||||||
|
std::cout << "File: " << path.ToString() << std::endl;
|
||||||
|
auto strm = LocalFS->OpenFile(path, "rb");
|
||||||
|
Programs::CrossLangDump(strm);
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
std::cout << "File: " << path.ToString() << " does not exist." << std::endl;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
30
src/programs/crosslanginterperter.cpp
Normal file
30
src/programs/crosslanginterperter.cpp
Normal file
@@ -0,0 +1,30 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include <iostream>
|
||||||
|
#include <fstream>
|
||||||
|
#include <sstream>
|
||||||
|
#include <vector>
|
||||||
|
using namespace Tesses::Framework;
|
||||||
|
using namespace Tesses::CrossLang;
|
||||||
|
using namespace Tesses::Framework::Filesystem;
|
||||||
|
|
||||||
|
int main(int argc, char** argv)
|
||||||
|
{
|
||||||
|
TF_InitWithConsole();
|
||||||
|
if(argc > 0)
|
||||||
|
TF_AllowPortable(argv[0]);
|
||||||
|
std::shared_ptr<GC> gc= std::make_shared<GC>();
|
||||||
|
gc->Start();
|
||||||
|
GCList ls(gc);
|
||||||
|
TRootEnvironment* env = TRootEnvironment::Create(ls, TDictionary::Create(ls));
|
||||||
|
TStd::RegisterStd(gc,env);
|
||||||
|
|
||||||
|
std::vector<std::string> args(argc);
|
||||||
|
for(int i = 0; i < argc; i++)
|
||||||
|
args[i] = argv[i];
|
||||||
|
auto res = Programs::CrossLangInterperter(ls, env, args);
|
||||||
|
|
||||||
|
int64_t myi64;
|
||||||
|
if(GetObject(res,myi64))
|
||||||
|
return (int)myi64;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
30
src/programs/crosslangvm.cpp
Normal file
30
src/programs/crosslangvm.cpp
Normal file
@@ -0,0 +1,30 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include <iostream>
|
||||||
|
#include <fstream>
|
||||||
|
#include <sstream>
|
||||||
|
#include <vector>
|
||||||
|
using namespace Tesses::Framework;
|
||||||
|
using namespace Tesses::CrossLang;
|
||||||
|
using namespace Tesses::Framework::Filesystem;
|
||||||
|
|
||||||
|
int main(int argc, char** argv)
|
||||||
|
{
|
||||||
|
TF_InitWithConsole();
|
||||||
|
if(argc > 0)
|
||||||
|
TF_AllowPortable(argv[0]);
|
||||||
|
std::shared_ptr<GC> gc= std::make_shared<GC>();
|
||||||
|
gc->Start();
|
||||||
|
GCList ls(gc);
|
||||||
|
TRootEnvironment* env = TRootEnvironment::Create(ls, TDictionary::Create(ls));
|
||||||
|
TStd::RegisterStd(gc,env);
|
||||||
|
|
||||||
|
std::vector<std::string> args(argc);
|
||||||
|
for(int i = 0; i < argc; i++)
|
||||||
|
args[i] = argv[i];
|
||||||
|
auto res = Programs::CrossLangVM(ls, env, args);
|
||||||
|
|
||||||
|
int64_t myi64;
|
||||||
|
if(GetObject(res,myi64))
|
||||||
|
return (int)myi64;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
176
src/programs/slim.cpp
Normal file
176
src/programs/slim.cpp
Normal file
@@ -0,0 +1,176 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Filesystem/VFS.hpp"
|
||||||
|
using namespace Tesses::Framework;
|
||||||
|
using namespace Tesses::CrossLang;
|
||||||
|
using namespace Tesses::Framework::Filesystem;
|
||||||
|
|
||||||
|
int main(int argc, char** argv)
|
||||||
|
{
|
||||||
|
//crosslang crossint
|
||||||
|
//crosslang
|
||||||
|
//crosslang ...
|
||||||
|
|
||||||
|
std::string programName = "crosslang";
|
||||||
|
|
||||||
|
TF_InitWithConsole();
|
||||||
|
if(argc > 0)
|
||||||
|
{
|
||||||
|
TF_AllowPortable(argv[0]);
|
||||||
|
Tesses::Framework::Filesystem::VFSPath path=(std::string)argv[0];
|
||||||
|
path.RemoveExtension();
|
||||||
|
programName = path.GetFileName();
|
||||||
|
}
|
||||||
|
|
||||||
|
std::vector<std::string> args(argc);
|
||||||
|
for(int i = 0; i < argc; i++)
|
||||||
|
args[i] = argv[i];
|
||||||
|
if(programName == "crossint")
|
||||||
|
{
|
||||||
|
|
||||||
|
int64_t myi64=0;
|
||||||
|
|
||||||
|
std::shared_ptr<GC> gc= std::make_shared<GC>();
|
||||||
|
gc->Start();
|
||||||
|
GCList ls(gc);
|
||||||
|
TRootEnvironment* env = TRootEnvironment::Create(ls, TDictionary::Create(ls));
|
||||||
|
TStd::RegisterStd(gc,env);
|
||||||
|
auto res= Programs::CrossLangInterperter(ls, env, args);
|
||||||
|
|
||||||
|
GetObject(res,myi64);
|
||||||
|
|
||||||
|
|
||||||
|
return (int)myi64;
|
||||||
|
}
|
||||||
|
else if(programName == "crossc")
|
||||||
|
{
|
||||||
|
Programs::CrossLangCompiler(args);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
else if(programName == "crossarchivecreate")
|
||||||
|
{
|
||||||
|
Programs::CrossArchiveCreate(args);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
else if(programName == "crossarchiveextract")
|
||||||
|
{
|
||||||
|
Programs::CrossArchiveExtract(args);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
else if(programName == "crossdump")
|
||||||
|
{
|
||||||
|
for(size_t i = 1; i < args.size(); i++)
|
||||||
|
{
|
||||||
|
VFSPath path = args[i];
|
||||||
|
if(LocalFS->FileExists(path))
|
||||||
|
{
|
||||||
|
std::cout << "File: " << path.ToString() << std::endl;
|
||||||
|
auto strm = LocalFS->OpenFile(path, "rb");
|
||||||
|
Programs::CrossLangDump(strm);
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
std::cout << "File: " << path.ToString() << " does not exist." << std::endl;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
else if(programName == "crossvm")
|
||||||
|
{
|
||||||
|
std::shared_ptr<GC> gc= std::make_shared<GC>();
|
||||||
|
gc->Start();
|
||||||
|
int64_t myi64=0;
|
||||||
|
|
||||||
|
|
||||||
|
GCList ls(gc);
|
||||||
|
TRootEnvironment* env = TRootEnvironment::Create(ls, TDictionary::Create(ls));
|
||||||
|
TStd::RegisterStd(gc,env);
|
||||||
|
auto res= Programs::CrossLangVM(ls, env, args);
|
||||||
|
GetObject(res,myi64);
|
||||||
|
|
||||||
|
return (int)myi64;
|
||||||
|
|
||||||
|
}
|
||||||
|
else if(args.size() > 1)
|
||||||
|
{
|
||||||
|
|
||||||
|
if(args[1] == "crossint")
|
||||||
|
{
|
||||||
|
int64_t myi64=0;
|
||||||
|
args.erase(args.begin());
|
||||||
|
std::shared_ptr<GC> gc= std::make_shared<GC>();
|
||||||
|
gc->Start();
|
||||||
|
GCList ls(gc);
|
||||||
|
TRootEnvironment* env = TRootEnvironment::Create(ls, TDictionary::Create(ls));
|
||||||
|
TStd::RegisterStd(gc,env);
|
||||||
|
auto res= Programs::CrossLangInterperter(ls, env, args);
|
||||||
|
|
||||||
|
GetObject(res,myi64);
|
||||||
|
|
||||||
|
return (int)myi64;
|
||||||
|
|
||||||
|
}
|
||||||
|
else if(args[1] == "crossc")
|
||||||
|
{
|
||||||
|
args.erase(args.begin());
|
||||||
|
Programs::CrossLangCompiler(args);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
else if(args[1] == "crossarchivecreate")
|
||||||
|
{
|
||||||
|
args.erase(args.begin());
|
||||||
|
Programs::CrossArchiveCreate(args);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
else if(args[1] == "crossarchiveextract")
|
||||||
|
{
|
||||||
|
args.erase(args.begin());
|
||||||
|
Programs::CrossArchiveExtract(args);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
else if(args[1] == "crossdump")
|
||||||
|
{
|
||||||
|
for(size_t i = 2; i < args.size(); i++)
|
||||||
|
{
|
||||||
|
VFSPath path = args[i];
|
||||||
|
if(LocalFS->FileExists(path))
|
||||||
|
{
|
||||||
|
std::cout << "File: " << path.ToString() << std::endl;
|
||||||
|
auto strm = LocalFS->OpenFile(path, "rb");
|
||||||
|
Programs::CrossLangDump(strm);
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
std::cout << "File: " << path.ToString() << " does not exist." << std::endl;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
else if(args[1] == "crossvm")
|
||||||
|
{
|
||||||
|
int64_t myi64=0;
|
||||||
|
|
||||||
|
args.erase(args.begin());
|
||||||
|
std::shared_ptr<GC> gc= std::make_shared<GC>();
|
||||||
|
gc->Start();
|
||||||
|
GCList ls(gc);
|
||||||
|
TRootEnvironment* env = TRootEnvironment::Create(ls, TDictionary::Create(ls));
|
||||||
|
TStd::RegisterStd(gc,env);
|
||||||
|
auto res= Programs::CrossLangVM(ls, env, args);
|
||||||
|
GetObject(res,myi64);
|
||||||
|
|
||||||
|
|
||||||
|
return (int)myi64;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
{
|
||||||
|
int64_t myi64=0;
|
||||||
|
std::shared_ptr<GC> gc= std::make_shared<GC>();
|
||||||
|
gc->Start();
|
||||||
|
GCList ls(gc);
|
||||||
|
auto res= Programs::CrossLangShell(ls, args);
|
||||||
|
|
||||||
|
GetObject(res,myi64);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
return (int)myi64;
|
||||||
|
}
|
||||||
|
}
|
||||||
@@ -226,7 +226,7 @@ namespace Tesses::CrossLang
|
|||||||
|
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
void TStd::RegisterClass(GC* gc, TRootEnvironment* env)
|
void TStd::RegisterClass(std::shared_ptr<GC> gc, TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
GCList ls(gc);
|
GCList ls(gc);
|
||||||
env->permissions.canRegisterClass=true;
|
env->permissions.canRegisterClass=true;
|
||||||
|
|||||||
@@ -280,7 +280,7 @@ namespace Tesses::CrossLang {
|
|||||||
|
|
||||||
return dict;
|
return dict;
|
||||||
}
|
}
|
||||||
void TStd::RegisterConsole(GC* gc,TRootEnvironment* env)
|
void TStd::RegisterConsole(std::shared_ptr<GC> gc,TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
env->permissions.canRegisterConsole=true;
|
env->permissions.canRegisterConsole=true;
|
||||||
if(env->permissions.customConsole != nullptr)
|
if(env->permissions.customConsole != nullptr)
|
||||||
|
|||||||
@@ -99,7 +99,7 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
void TStd::RegisterCrypto(GC* gc,TRootEnvironment* env)
|
void TStd::RegisterCrypto(std::shared_ptr<GC> gc,TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
|
|
||||||
env->permissions.canRegisterCrypto=true;
|
env->permissions.canRegisterCrypto=true;
|
||||||
|
|||||||
@@ -129,7 +129,7 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
void TStd::RegisterDictionary(GC* gc,TRootEnvironment* env)
|
void TStd::RegisterDictionary(std::shared_ptr<GC> gc,TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
|
|
||||||
env->permissions.canRegisterDictionary=true;
|
env->permissions.canRegisterDictionary=true;
|
||||||
|
|||||||
@@ -1,4 +1,5 @@
|
|||||||
#include "CrossLang.hpp"
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
|
||||||
#if defined(_WIN32)
|
#if defined(_WIN32)
|
||||||
#include <windows.h>
|
#include <windows.h>
|
||||||
@@ -131,7 +132,11 @@ namespace Tesses::CrossLang
|
|||||||
ls.GetGC()->BarrierEnd();
|
ls.GetGC()->BarrierEnd();
|
||||||
return list;
|
return list;
|
||||||
}
|
}
|
||||||
void TStd::RegisterEnv(GC* gc, TRootEnvironment* env)
|
static TObject Env_getLittleEndian(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
return Tesses::Framework::Serialization::BitConverter::IsLittleEndian();
|
||||||
|
}
|
||||||
|
void TStd::RegisterEnv(std::shared_ptr<GC> gc, TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
|
|
||||||
env->permissions.canRegisterEnv=true;
|
env->permissions.canRegisterEnv=true;
|
||||||
@@ -155,6 +160,7 @@ namespace Tesses::CrossLang
|
|||||||
dict->DeclareFunction(gc,"getUser","Get user folder",{},Env_getUser);
|
dict->DeclareFunction(gc,"getUser","Get user folder",{},Env_getUser);
|
||||||
dict->DeclareFunction(gc,"getPlatform","Get platform name",{},Env_getPlatform);
|
dict->DeclareFunction(gc,"getPlatform","Get platform name",{},Env_getPlatform);
|
||||||
dict->DeclareFunction(gc,"GetRealExecutablePath", "Get the absolute path for executable", {"path"},Env_GetRealExecutablePath);
|
dict->DeclareFunction(gc,"GetRealExecutablePath", "Get the absolute path for executable", {"path"},Env_GetRealExecutablePath);
|
||||||
|
dict->DeclareFunction(gc, "getLittleEndian", "Is the platform little endian", {},Env_getLittleEndian);
|
||||||
gc->BarrierBegin();
|
gc->BarrierBegin();
|
||||||
dict->SetValue("EnvPathSeperator",EnvPathSeperator);
|
dict->SetValue("EnvPathSeperator",EnvPathSeperator);
|
||||||
env->SetVariable("Env", dict);
|
env->SetVariable("Env", dict);
|
||||||
|
|||||||
@@ -49,7 +49,7 @@ namespace Tesses::CrossLang {
|
|||||||
}
|
}
|
||||||
return Undefined();
|
return Undefined();
|
||||||
}
|
}
|
||||||
void TStd::RegisterHelpers(GC* gc, TRootEnvironment* env)
|
void TStd::RegisterHelpers(std::shared_ptr<GC> gc, TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
auto helpers=env->EnsureDictionary(gc,"Helpers");
|
auto helpers=env->EnsureDictionary(gc,"Helpers");
|
||||||
helpers->DeclareFunction(gc,"CopyToProgress","Copy Stream to another (but with progress event)",{"src","dest","progressCB","$precision"},Helpers_CopyToProgress);
|
helpers->DeclareFunction(gc,"CopyToProgress","Copy Stream to another (but with progress event)",{"src","dest","progressCB","$precision"},Helpers_CopyToProgress);
|
||||||
|
|||||||
@@ -4,23 +4,6 @@
|
|||||||
|
|
||||||
namespace Tesses::CrossLang
|
namespace Tesses::CrossLang
|
||||||
{
|
{
|
||||||
static TObject FS_MakeFull(GCList& ls, std::vector<TObject> args)
|
|
||||||
{
|
|
||||||
Tesses::Framework::Filesystem::VFSPath path;
|
|
||||||
if(GetArgumentAsPath(args,0,path))
|
|
||||||
{
|
|
||||||
if(path.relative)
|
|
||||||
{
|
|
||||||
Tesses::Framework::Filesystem::LocalFilesystem lfs;
|
|
||||||
auto curDir = std::filesystem::current_path();
|
|
||||||
auto myPath = lfs.SystemToVFSPath(curDir.string()) / path;
|
|
||||||
myPath = myPath.CollapseRelativeParents();
|
|
||||||
return myPath;
|
|
||||||
}
|
|
||||||
return path.CollapseRelativeParents();
|
|
||||||
}
|
|
||||||
return nullptr;
|
|
||||||
}
|
|
||||||
static TObject FS_CreateArchive(GCList& ls, std::vector<TObject> args)
|
static TObject FS_CreateArchive(GCList& ls, std::vector<TObject> args)
|
||||||
{
|
{
|
||||||
std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs;
|
std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs;
|
||||||
@@ -160,17 +143,7 @@ namespace Tesses::CrossLang
|
|||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
|
|
||||||
static TObject FS_getCurrentPath(GCList& ls, std::vector<TObject> args)
|
|
||||||
{
|
|
||||||
return Tesses::Framework::Filesystem::VFSPath::GetAbsoluteCurrentDirectory();
|
|
||||||
}
|
|
||||||
static TObject FS_setCurrentPath(GCList& ls, std::vector<TObject> args)
|
|
||||||
{
|
|
||||||
Tesses::Framework::Filesystem::VFSPath path;
|
|
||||||
if(GetArgumentAsPath(args,0,path))
|
|
||||||
Tesses::Framework::Filesystem::VFSPath::SetAbsoluteCurrentDirectory(path);
|
|
||||||
return nullptr;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -287,12 +260,22 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
|
void TStd::RegisterIO(std::shared_ptr<GC> gc,TRootEnvironment* env, bool enable)
|
||||||
void TStd::RegisterIO(GC* gc,TRootEnvironment* env,bool enableLocalFilesystem)
|
{
|
||||||
|
if(enable)
|
||||||
|
{
|
||||||
|
RegisterIO(gc,env,std::make_shared<Tesses::Framework::Filesystem::RelativeFilesystem>(Tesses::Framework::Filesystem::LocalFS, Tesses::Framework::Filesystem::VFSPath::GetAbsoluteCurrentDirectory()));
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
RegisterIO(gc,env,nullptr);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
void TStd::RegisterIO(std::shared_ptr<GC> gc,TRootEnvironment* env,std::shared_ptr<Tesses::Framework::Filesystem::RelativeFilesystem> fs)
|
||||||
{
|
{
|
||||||
|
|
||||||
env->permissions.canRegisterIO=true;
|
env->permissions.canRegisterIO=true;
|
||||||
env->permissions.canRegisterLocalFS = enableLocalFilesystem;
|
env->permissions.localfs = fs;
|
||||||
GCList ls(gc);
|
GCList ls(gc);
|
||||||
|
|
||||||
gc->BarrierBegin();
|
gc->BarrierBegin();
|
||||||
@@ -323,14 +306,42 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
));
|
));
|
||||||
|
|
||||||
if(enableLocalFilesystem)
|
if(fs)
|
||||||
{
|
{
|
||||||
|
|
||||||
|
|
||||||
dict->SetValue("Local", Tesses::Framework::Filesystem::LocalFS);
|
dict->SetValue("Local", fs);
|
||||||
dict->DeclareFunction(gc, "MakeFull", "Make absolute path from relative path",{"path"},FS_MakeFull);
|
dict->DeclareFunction(gc, "MakeFull", "Make absolute path from relative path",{"path"},[fs](GCList& ls, std::vector<TObject> args)->TObject{
|
||||||
dict->DeclareFunction(gc,"getCurrentPath","Get current path",{},FS_getCurrentPath);
|
Tesses::Framework::Filesystem::VFSPath path;
|
||||||
dict->DeclareFunction(gc,"setCurrentPath","Set the current path",{"path"},FS_setCurrentPath);
|
if(GetArgumentAsPath(args,0,path))
|
||||||
|
{
|
||||||
|
if(path.relative)
|
||||||
|
{
|
||||||
|
auto myPath = fs->GetWorking() / path;
|
||||||
|
myPath = myPath.CollapseRelativeParents();
|
||||||
|
return myPath;
|
||||||
|
}
|
||||||
|
return path.CollapseRelativeParents();
|
||||||
|
}
|
||||||
|
return nullptr;
|
||||||
|
});
|
||||||
|
dict->DeclareFunction(gc,"getCurrentPath","Get current path",{},[fs](GCList& ls, std::vector<TObject> args)->TObject{
|
||||||
|
return fs->GetWorking();
|
||||||
|
});
|
||||||
|
dict->DeclareFunction(gc,"setCurrentPath","Set the current path",{"path"}, [fs](GCList& ls, std::vector<TObject> args)->TObject {
|
||||||
|
Tesses::Framework::Filesystem::VFSPath path;
|
||||||
|
if(GetArgumentAsPath(args,0,path))
|
||||||
|
{
|
||||||
|
if(path.relative)
|
||||||
|
{
|
||||||
|
fs->SetWorking(path.MakeAbsolute(fs->GetWorking()));
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
fs->SetWorking(path);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return path;
|
||||||
|
});
|
||||||
}
|
}
|
||||||
|
|
||||||
dict->DeclareFunction(gc, "ReadAllText","Read all text from file", {"fs","filename"},FS_ReadAllText);
|
dict->DeclareFunction(gc, "ReadAllText","Read all text from file", {"fs","filename"},FS_ReadAllText);
|
||||||
|
|||||||
@@ -186,7 +186,7 @@ namespace Tesses::CrossLang
|
|||||||
{
|
{
|
||||||
return JsonDeserialize(ls,Json::DocDecode(str));
|
return JsonDeserialize(ls,Json::DocDecode(str));
|
||||||
}
|
}
|
||||||
void TStd::RegisterJson(GC* gc,TRootEnvironment* env)
|
void TStd::RegisterJson(std::shared_ptr<GC> gc,TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
|
|
||||||
env->permissions.canRegisterJSON=true;
|
env->permissions.canRegisterJSON=true;
|
||||||
|
|||||||
@@ -379,6 +379,56 @@ namespace Tesses::CrossLang
|
|||||||
ctx->WithLastModified(*da);
|
ctx->WithLastModified(*da);
|
||||||
return this;
|
return this;
|
||||||
}
|
}
|
||||||
|
else if(key == "WithDebug")
|
||||||
|
{
|
||||||
|
bool debug=true;
|
||||||
|
GetArgument(args,0,debug);
|
||||||
|
|
||||||
|
ctx->WithDebug(debug);
|
||||||
|
|
||||||
|
return this;
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(key == "getDebug")
|
||||||
|
{
|
||||||
|
return ctx->Debug();
|
||||||
|
}
|
||||||
|
else if(key == "SendServerSentEvents")
|
||||||
|
{
|
||||||
|
if(!args.empty() && std::holds_alternative<std::shared_ptr<Tesses::Framework::Http::ServerSentEvents>>(args[0]))
|
||||||
|
{
|
||||||
|
ctx->SendServerSentEvents(std::get<std::shared_ptr<Tesses::Framework::Http::ServerSentEvents>>(args[0]));
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
else if(key == "WithHeaderIntercepter")
|
||||||
|
{
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetArgumentHeap(args, 0, callable))
|
||||||
|
{
|
||||||
|
auto marked = CreateMarkedTObject(ls.GetGC(),callable);
|
||||||
|
ctx->WithHeaderIntercepter([marked](ServerContext& ctx)->bool {
|
||||||
|
auto obj = marked->GetObject();
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetObjectHeap(obj, callable))
|
||||||
|
{
|
||||||
|
GCList ls(marked->GetGC());
|
||||||
|
|
||||||
|
auto ptr=TNativeObject::Create<TServerContext>(ls, &ctx);
|
||||||
|
|
||||||
|
auto res = callable->Call(ls, {ptr});
|
||||||
|
ptr->Finish();
|
||||||
|
bool r0;
|
||||||
|
if(GetObject(res, r0)) return r0;
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
|
});
|
||||||
|
}
|
||||||
|
return this;
|
||||||
|
}
|
||||||
else if(key == "WithContentDisposition")
|
else if(key == "WithContentDisposition")
|
||||||
{
|
{
|
||||||
std::string filename;
|
std::string filename;
|
||||||
@@ -589,7 +639,7 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
};
|
};
|
||||||
|
|
||||||
TObjectHttpServer::TObjectHttpServer(GC* gc,TObject obj)
|
TObjectHttpServer::TObjectHttpServer(std::shared_ptr<GC> gc,TObject obj)
|
||||||
{
|
{
|
||||||
this->ls=new GCList(gc);
|
this->ls=new GCList(gc);
|
||||||
this->ls->Add(obj);
|
this->ls->Add(obj);
|
||||||
@@ -598,10 +648,10 @@ namespace Tesses::CrossLang
|
|||||||
|
|
||||||
class TDictionaryHttpRequestBody : public HttpRequestBody
|
class TDictionaryHttpRequestBody : public HttpRequestBody
|
||||||
{
|
{
|
||||||
GC* gc;
|
std::shared_ptr<GC> gc;
|
||||||
TDictionary* req;
|
TDictionary* req;
|
||||||
public:
|
public:
|
||||||
TDictionaryHttpRequestBody(GC* gc,TDictionary* req)
|
TDictionaryHttpRequestBody(std::shared_ptr<GC> gc,TDictionary* req)
|
||||||
{
|
{
|
||||||
this->gc = gc;
|
this->gc = gc;
|
||||||
this->req = req;
|
this->req = req;
|
||||||
@@ -790,7 +840,7 @@ namespace Tesses::CrossLang
|
|||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
if(GetArgument(args,1,pathStr) && env->permissions.canRegisterLocalFS)
|
if(GetArgument(args,1,pathStr) && env->permissions.localfs)
|
||||||
{
|
{
|
||||||
std::shared_ptr<IHttpServer> httpSvr = ToHttpServer(ls.GetGC(),args[0]);
|
std::shared_ptr<IHttpServer> httpSvr = ToHttpServer(ls.GetGC(),args[0]);
|
||||||
|
|
||||||
@@ -979,7 +1029,7 @@ namespace Tesses::CrossLang
|
|||||||
GetObject(_obj,req.followRedirects);
|
GetObject(_obj,req.followRedirects);
|
||||||
_obj = options->GetValue("TrustedRootCertBundle");
|
_obj = options->GetValue("TrustedRootCertBundle");
|
||||||
GetObject(_obj,req.trusted_root_cert_bundle);
|
GetObject(_obj,req.trusted_root_cert_bundle);
|
||||||
if(env->permissions.canRegisterLocalFS)
|
if(env->permissions.localfs)
|
||||||
{
|
{
|
||||||
_obj = options->GetValue("UnixSocket");
|
_obj = options->GetValue("UnixSocket");
|
||||||
GetObject(_obj,req.unixSocket);
|
GetObject(_obj,req.unixSocket);
|
||||||
@@ -1403,7 +1453,7 @@ namespace Tesses::CrossLang
|
|||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
|
|
||||||
std::shared_ptr<IHttpServer> ToHttpServer(GC* gc, TObject obj)
|
std::shared_ptr<IHttpServer> ToHttpServer(std::shared_ptr<GC> gc, TObject obj)
|
||||||
{
|
{
|
||||||
if(std::holds_alternative<std::shared_ptr<IHttpServer>>(obj)) return std::get<std::shared_ptr<IHttpServer>>(obj);
|
if(std::holds_alternative<std::shared_ptr<IHttpServer>>(obj)) return std::get<std::shared_ptr<IHttpServer>>(obj);
|
||||||
TDictionary* dict;
|
TDictionary* dict;
|
||||||
@@ -1522,8 +1572,13 @@ namespace Tesses::CrossLang
|
|||||||
return nullptr;
|
return nullptr;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static TObject New_ServerSentEvents(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
return std::make_shared<Tesses::Framework::Http::ServerSentEvents>();
|
||||||
|
}
|
||||||
|
|
||||||
void TStd::RegisterNet(GC* gc, TRootEnvironment* env)
|
void TStd::RegisterNet(std::shared_ptr<GC> gc, TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
|
|
||||||
env->permissions.canRegisterNet=true;
|
env->permissions.canRegisterNet=true;
|
||||||
@@ -1545,6 +1600,7 @@ namespace Tesses::CrossLang
|
|||||||
_new->DeclareFunction(gc, "MountableServer","Create a server you can mount to, must mount parents before child",{"root"}, New_MountableServer);
|
_new->DeclareFunction(gc, "MountableServer","Create a server you can mount to, must mount parents before child",{"root"}, New_MountableServer);
|
||||||
_new->DeclareFunction(gc, "NetworkStream","Create a network stream",{"ipv6","datagram"},New_NetworkStream);
|
_new->DeclareFunction(gc, "NetworkStream","Create a network stream",{"ipv6","datagram"},New_NetworkStream);
|
||||||
|
|
||||||
|
_new->DeclareFunction(gc, "ServerSentEvents", "Create server sent events object",{""},New_ServerSentEvents);
|
||||||
|
|
||||||
|
|
||||||
TDictionary* http = TDictionary::Create(ls);
|
TDictionary* http = TDictionary::Create(ls);
|
||||||
@@ -1617,7 +1673,7 @@ namespace Tesses::CrossLang
|
|||||||
gc->BarrierEnd();
|
gc->BarrierEnd();
|
||||||
}
|
}
|
||||||
|
|
||||||
Tesses::Framework::Http::ServerRequestHandler TCallable::ToRouteServerRequestHandler(GC* gc)
|
Tesses::Framework::Http::ServerRequestHandler TCallable::ToRouteServerRequestHandler(std::shared_ptr<GC> gc)
|
||||||
{
|
{
|
||||||
auto value = CreateMarkedTObject(gc,this);
|
auto value = CreateMarkedTObject(gc,this);
|
||||||
return [value,this](ServerContext& ctx)->bool {
|
return [value,this](ServerContext& ctx)->bool {
|
||||||
|
|||||||
@@ -46,7 +46,7 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
#endif
|
#endif
|
||||||
void TStd::RegisterOGC(GC* gc, TRootEnvironment* env)
|
void TStd::RegisterOGC(std::shared_ptr<GC> gc, TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
GCList ls(gc);
|
GCList ls(gc);
|
||||||
#if defined(GEKKO)
|
#if defined(GEKKO)
|
||||||
|
|||||||
@@ -65,7 +65,7 @@ namespace Tesses::CrossLang
|
|||||||
|
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
void TStd::RegisterPath(GC* gc,TRootEnvironment* env)
|
void TStd::RegisterPath(std::shared_ptr<GC> gc,TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
|
|
||||||
env->permissions.canRegisterPath=true;
|
env->permissions.canRegisterPath=true;
|
||||||
|
|||||||
@@ -184,7 +184,7 @@ namespace Tesses::CrossLang
|
|||||||
return Undefined();
|
return Undefined();
|
||||||
}
|
}
|
||||||
};
|
};
|
||||||
static TObject Process_Start(GCList& ls, std::vector<TObject> args)
|
static TObject Process_Start(GCList& ls, std::vector<TObject> args, TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
|
|
||||||
//Process.Start({
|
//Process.Start({
|
||||||
@@ -220,7 +220,11 @@ namespace Tesses::CrossLang
|
|||||||
GetObject(name,process->process.name);
|
GetObject(name,process->process.name);
|
||||||
|
|
||||||
Tesses::Framework::Filesystem::VFSPath wdPath;
|
Tesses::Framework::Filesystem::VFSPath wdPath;
|
||||||
|
if(env->permissions.localfs)
|
||||||
|
{
|
||||||
|
process->process.workingDirectory = env->permissions.localfs->GetWorking().ToString();
|
||||||
|
}
|
||||||
|
|
||||||
if(GetObject(workingDirectory,wdPath))
|
if(GetObject(workingDirectory,wdPath))
|
||||||
{
|
{
|
||||||
process->process.workingDirectory= wdPath.MakeAbsolute().ToString();
|
process->process.workingDirectory= wdPath.MakeAbsolute().ToString();
|
||||||
@@ -274,23 +278,36 @@ namespace Tesses::CrossLang
|
|||||||
|
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
static TObject New_Process(GCList& ls, std::vector<TObject> args)
|
|
||||||
{
|
|
||||||
return TNativeObject::Create<ProcessObject>(ls,ls);
|
|
||||||
}
|
|
||||||
|
|
||||||
void TStd::RegisterProcess(GC* gc,TRootEnvironment* env)
|
void TStd::RegisterProcess(std::shared_ptr<GC> gc,TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
|
|
||||||
env->permissions.canRegisterProcess=true;
|
env->permissions.canRegisterProcess=true;
|
||||||
GCList ls(gc);
|
GCList ls(gc);
|
||||||
TDictionary* dict = TDictionary::Create(ls);
|
TDictionary* dict = TDictionary::Create(ls);
|
||||||
dict->DeclareFunction(gc,"Start","Start a process",{"process_object"},Process_Start);
|
|
||||||
|
|
||||||
gc->BarrierBegin();
|
gc->BarrierBegin();
|
||||||
|
auto processStart = TExternalMethod::Create(ls,"Start a process",{"process_object"},[env](GCList& ls, std::vector<TObject> args)->TObject{
|
||||||
|
return Process_Start(ls,args,env);
|
||||||
|
});
|
||||||
|
processStart->watch.push_back(env);
|
||||||
|
dict->SetValue("Start",processStart);
|
||||||
|
|
||||||
|
|
||||||
env->SetVariable("Process",dict);
|
env->SetVariable("Process",dict);
|
||||||
auto process = env->EnsureDictionary(gc,"New");
|
auto process = env->EnsureDictionary(gc,"New");
|
||||||
process->DeclareFunction(gc, "Process", "Create process",{},New_Process);
|
auto newProcess = TExternalMethod::Create(ls, "Create process",{},[env](GCList& ls, std::vector<TObject> args)->TObject {
|
||||||
|
auto obj= TNativeObject::Create<ProcessObject>(ls,ls);
|
||||||
|
if(env->permissions.localfs)
|
||||||
|
{
|
||||||
|
obj->process.workingDirectory = env->permissions.localfs->GetWorking().ToString();
|
||||||
|
}
|
||||||
|
return obj;
|
||||||
|
});
|
||||||
|
newProcess->watch.push_back(env);
|
||||||
|
process->SetValue("Process",newProcess);
|
||||||
|
//process->DeclareFunction(gc, "Process", "Create process",{},New_Process);
|
||||||
process->DeclareFunction(gc, "CGIServer", "Create a CGI Server",{"path"},[](GCList& ls, std::vector<TObject> args)->TObject{
|
process->DeclareFunction(gc, "CGIServer", "Create a CGI Server",{"path"},[](GCList& ls, std::vector<TObject> args)->TObject{
|
||||||
Tesses::Framework::Filesystem::VFSPath path;
|
Tesses::Framework::Filesystem::VFSPath path;
|
||||||
if(GetArgumentAsPath(args,0,path))
|
if(GetArgumentAsPath(args,0,path))
|
||||||
|
|||||||
@@ -5,7 +5,7 @@
|
|||||||
namespace Tesses::CrossLang {
|
namespace Tesses::CrossLang {
|
||||||
#if defined(TESSESFRAMEWORK_ENABLE_SQLITE)
|
#if defined(TESSESFRAMEWORK_ENABLE_SQLITE)
|
||||||
using namespace Tesses::Framework::Serialization;
|
using namespace Tesses::Framework::Serialization;
|
||||||
TObject Sqlite_Escape(GCList& ls, std::vector<TObject> args)
|
TObject Sqlite_Escape(GCList& ls, std::vector<TObject> args)
|
||||||
{
|
{
|
||||||
int64_t n;
|
int64_t n;
|
||||||
double d;
|
double d;
|
||||||
@@ -33,6 +33,58 @@ namespace Tesses::CrossLang {
|
|||||||
return "NULL";
|
return "NULL";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
TObject Sqlite_Prepare(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
std::string str;
|
||||||
|
TList* list;
|
||||||
|
|
||||||
|
std::string newStr = "";
|
||||||
|
if(GetArgument(args,0,str) && GetArgumentHeap(args,1,list))
|
||||||
|
{
|
||||||
|
int64_t item = 0;
|
||||||
|
|
||||||
|
|
||||||
|
for(size_t i = 0; i < str.size(); i++)
|
||||||
|
{
|
||||||
|
if(str[i] == '@' && (i+1>=str.size() || str[i+1] != '@'))
|
||||||
|
{
|
||||||
|
auto v = list->Get(item);
|
||||||
|
int64_t n;
|
||||||
|
double d;
|
||||||
|
bool b;
|
||||||
|
|
||||||
|
|
||||||
|
std::string str;
|
||||||
|
if(GetObject(v,str))
|
||||||
|
{
|
||||||
|
newStr+= SQLiteDatabase::Escape(str);
|
||||||
|
}
|
||||||
|
else if(GetObject(v,n))
|
||||||
|
{
|
||||||
|
newStr+= std::to_string(n);
|
||||||
|
}
|
||||||
|
else if(GetObject(v,b))
|
||||||
|
{
|
||||||
|
newStr+= (b ? "1" : "0");
|
||||||
|
}
|
||||||
|
else if(GetObject(v,d))
|
||||||
|
{
|
||||||
|
newStr+= std::to_string(d);
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
|
||||||
|
newStr+= "NULL";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
newStr+=str[i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
return newStr;
|
||||||
|
}
|
||||||
|
|
||||||
class SQLiteObject : public TNativeObject
|
class SQLiteObject : public TNativeObject
|
||||||
{
|
{
|
||||||
@@ -65,6 +117,9 @@ namespace Tesses::CrossLang {
|
|||||||
if(name == "Escape") {
|
if(name == "Escape") {
|
||||||
return Sqlite_Escape(ls,args);
|
return Sqlite_Escape(ls,args);
|
||||||
}
|
}
|
||||||
|
if(name == "Prepare") {
|
||||||
|
return Sqlite_Prepare(ls,args);
|
||||||
|
}
|
||||||
if(name == "Exec")
|
if(name == "Exec")
|
||||||
{
|
{
|
||||||
std::string arg;
|
std::string arg;
|
||||||
@@ -105,6 +160,7 @@ namespace Tesses::CrossLang {
|
|||||||
}
|
}
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
||||||
TObject Sqlite_Open(GCList& ls, std::vector<TObject> args,TRootEnvironment* env)
|
TObject Sqlite_Open(GCList& ls, std::vector<TObject> args,TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
Tesses::Framework::Filesystem::VFSPath p;
|
Tesses::Framework::Filesystem::VFSPath p;
|
||||||
@@ -148,9 +204,10 @@ namespace Tesses::CrossLang {
|
|||||||
}
|
}
|
||||||
return Undefined();
|
return Undefined();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
void TStd::RegisterSqlite(GC* gc,TRootEnvironment* env)
|
void TStd::RegisterSqlite(std::shared_ptr<GC> gc,TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
|
|
||||||
env->permissions.canRegisterSqlite=true;
|
env->permissions.canRegisterSqlite=true;
|
||||||
@@ -163,6 +220,7 @@ namespace Tesses::CrossLang {
|
|||||||
dict->DeclareFunction(gc,"Exec","Execute sql (returns dictionary of columns key=value, an error message as string or undefined)",{"handle","sql"},Sqlite_Exec);
|
dict->DeclareFunction(gc,"Exec","Execute sql (returns dictionary of columns key=value, an error message as string or undefined)",{"handle","sql"},Sqlite_Exec);
|
||||||
dict->DeclareFunction(gc,"Close","Close sql database",{"handle"},Sqlite_Close);
|
dict->DeclareFunction(gc,"Close","Close sql database",{"handle"},Sqlite_Close);
|
||||||
dict->DeclareFunction(gc,"Escape","Escape sql text",{"text"},Sqlite_Escape);
|
dict->DeclareFunction(gc,"Escape","Escape sql text",{"text"},Sqlite_Escape);
|
||||||
|
dict->DeclareFunction(gc,"Prepare", "Prepare sql",{"sql","items"}, Sqlite_Prepare);
|
||||||
|
|
||||||
gc->BarrierBegin();
|
gc->BarrierBegin();
|
||||||
env->DeclareVariable("Sqlite", dict);
|
env->DeclareVariable("Sqlite", dict);
|
||||||
|
|||||||
@@ -1,5 +1,11 @@
|
|||||||
|
|
||||||
#include "CrossLang.hpp"
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Streams/ByteReader.hpp"
|
||||||
|
#include "TessesFramework/Streams/Stream.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
#include <memory>
|
||||||
|
#include <variant>
|
||||||
|
#include <vector>
|
||||||
#if defined(CROSSLANG_ENABLE_SHARED)
|
#if defined(CROSSLANG_ENABLE_SHARED)
|
||||||
#if defined(CROSSLANG_ENABLE_FFI)
|
#if defined(CROSSLANG_ENABLE_FFI)
|
||||||
#include <ffi.h>
|
#include <ffi.h>
|
||||||
@@ -370,7 +376,7 @@ namespace Tesses::CrossLang
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
void RegisterFFI(GC* gc, TDictionary* dict)
|
void RegisterFFI(std::shared_ptr<GC> gc, TDictionary* dict)
|
||||||
{
|
{
|
||||||
dict->SetValue("SizeOfChar",(int64_t)sizeof(char));
|
dict->SetValue("SizeOfChar",(int64_t)sizeof(char));
|
||||||
dict->SetValue("SizeOfShort",(int64_t)sizeof(short));
|
dict->SetValue("SizeOfShort",(int64_t)sizeof(short));
|
||||||
@@ -479,14 +485,14 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
void LoadPlugin(GC* gc, TRootEnvironment* env, Tesses::Framework::Filesystem::VFSPath sharedObjectPath)
|
void LoadPlugin(std::shared_ptr<GC> gc, TRootEnvironment* env, Tesses::Framework::Filesystem::VFSPath sharedObjectPath)
|
||||||
{
|
{
|
||||||
|
|
||||||
#if defined(CROSSLANG_ENABLE_SHARED)
|
#if defined(CROSSLANG_ENABLE_SHARED)
|
||||||
auto ptr = std::make_shared<DL>(GetPluginPath(sharedObjectPath));
|
auto ptr = std::make_shared<DL>(GetPluginPath(sharedObjectPath));
|
||||||
auto cb = ptr->Resolve<PluginFunction>("CrossLangPluginInit");
|
auto cb = ptr->Resolve<PluginFunction>("CrossLangPluginInit");
|
||||||
if(cb == nullptr) return;
|
if(cb == nullptr) return;
|
||||||
gc->RegisterEverythingCallback([ptr,cb](GC* gc, TRootEnvironment* env)-> void{
|
gc->RegisterEverythingCallback([ptr,cb](std::shared_ptr<GC> gc, TRootEnvironment* env)-> void{
|
||||||
cb(gc,env);
|
cb(gc,env);
|
||||||
});
|
});
|
||||||
cb(gc,env);
|
cb(gc,env);
|
||||||
@@ -568,6 +574,23 @@ namespace Tesses::CrossLang
|
|||||||
std::shared_ptr<Tesses::Framework::TextStreams::TextWriter> strm;
|
std::shared_ptr<Tesses::Framework::TextStreams::TextWriter> strm;
|
||||||
return GetArgument(args,0,strm);
|
return GetArgument(args,0,strm);
|
||||||
}
|
}
|
||||||
|
static TObject TypeIsByteReader(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
if(args.empty()) return nullptr;
|
||||||
|
std::shared_ptr<Tesses::Framework::Streams::ByteReader> strm;
|
||||||
|
return GetArgument(args,0,strm);
|
||||||
|
}
|
||||||
|
static TObject TypeIsByteWriter(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
if(args.empty()) return nullptr;
|
||||||
|
std::shared_ptr<Tesses::Framework::Streams::ByteWriter> strm;
|
||||||
|
return GetArgument(args,0,strm);
|
||||||
|
}
|
||||||
|
static TObject TypeIsUuid(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
if(args.empty()) return nullptr;
|
||||||
|
return std::holds_alternative<Tesses::Framework::Uuid>(args[0]);
|
||||||
|
}
|
||||||
static TObject TypeIsVFS(GCList& ls, std::vector<TObject> args)
|
static TObject TypeIsVFS(GCList& ls, std::vector<TObject> args)
|
||||||
{
|
{
|
||||||
if(args.empty()) return nullptr;
|
if(args.empty()) return nullptr;
|
||||||
@@ -587,6 +610,12 @@ namespace Tesses::CrossLang
|
|||||||
std::shared_ptr<Tesses::Framework::Date::TimeSpan> dt;
|
std::shared_ptr<Tesses::Framework::Date::TimeSpan> dt;
|
||||||
return GetArgument(args,0,dt);
|
return GetArgument(args,0,dt);
|
||||||
}
|
}
|
||||||
|
static TObject TypeIsQueryable(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
if(args.empty()) return nullptr;
|
||||||
|
TQueryable* queryable;
|
||||||
|
return GetArgumentHeap(args,0,queryable);
|
||||||
|
}
|
||||||
static TObject New_SubdirFilesystem(GCList& ls, std::vector<TObject> args)
|
static TObject New_SubdirFilesystem(GCList& ls, std::vector<TObject> args)
|
||||||
{
|
{
|
||||||
std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs;
|
std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs;
|
||||||
@@ -618,10 +647,7 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
static TObject New_MemoryFilesystem(GCList& ls, std::vector<TObject> args)
|
|
||||||
{
|
|
||||||
return std::make_shared<Tesses::Framework::Filesystem::MemoryFilesystem>();
|
|
||||||
}
|
|
||||||
|
|
||||||
static TObject New_Filesystem(GCList& ls, std::vector<TObject> args)
|
static TObject New_Filesystem(GCList& ls, std::vector<TObject> args)
|
||||||
{
|
{
|
||||||
@@ -727,6 +753,9 @@ namespace Tesses::CrossLang
|
|||||||
|
|
||||||
std::string GetObjectTypeString(TObject _obj)
|
std::string GetObjectTypeString(TObject _obj)
|
||||||
{
|
{
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::TF_Timer_Handle>>(_obj)) return "Timer";
|
||||||
|
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Http::ServerSentEvents>>(_obj)) return "ServerSentEvents";
|
||||||
if(std::holds_alternative<std::regex>(_obj)) return "Regex";
|
if(std::holds_alternative<std::regex>(_obj)) return "Regex";
|
||||||
if(std::holds_alternative<Undefined>(_obj)) return "Undefined";
|
if(std::holds_alternative<Undefined>(_obj)) return "Undefined";
|
||||||
if(std::holds_alternative<std::nullptr_t>(_obj)) return "Null";
|
if(std::holds_alternative<std::nullptr_t>(_obj)) return "Null";
|
||||||
@@ -741,6 +770,11 @@ namespace Tesses::CrossLang
|
|||||||
if(std::holds_alternative<TVMVersion>(_obj)) return "Version";
|
if(std::holds_alternative<TVMVersion>(_obj)) return "Version";
|
||||||
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(_obj)) return "DateTime";
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(_obj)) return "DateTime";
|
||||||
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(_obj)) return "TimeSpan";
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(_obj)) return "TimeSpan";
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Streams::ByteReader>>(_obj)) return "ByteReader";
|
||||||
|
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Streams::ByteWriter>>(_obj)) return "ByteWriter";
|
||||||
|
|
||||||
|
if(std::holds_alternative<Tesses::Framework::Uuid>(_obj)) return "Uuid";
|
||||||
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Streams::Stream>>(_obj))
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Streams::Stream>>(_obj))
|
||||||
{
|
{
|
||||||
auto strm = std::get<std::shared_ptr<Tesses::Framework::Streams::Stream>>(_obj);
|
auto strm = std::get<std::shared_ptr<Tesses::Framework::Streams::Stream>>(_obj);
|
||||||
@@ -836,11 +870,12 @@ namespace Tesses::CrossLang
|
|||||||
auto vfs = std::get<std::shared_ptr<Tesses::Framework::Filesystem::VFS>>(_obj);
|
auto vfs = std::get<std::shared_ptr<Tesses::Framework::Filesystem::VFS>>(_obj);
|
||||||
if(vfs != nullptr)
|
if(vfs != nullptr)
|
||||||
{
|
{
|
||||||
|
auto rfs = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::RelativeFilesystem>(vfs);
|
||||||
auto localVFS = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::LocalFilesystem>(vfs);
|
auto localVFS = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::LocalFilesystem>(vfs);
|
||||||
auto mountableVFS = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::MountableFilesystem>(vfs);
|
auto mountableVFS = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::MountableFilesystem>(vfs);
|
||||||
auto subFS = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::SubdirFilesystem>(vfs);
|
auto subFS = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::SubdirFilesystem>(vfs);
|
||||||
auto tempFS = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::TempFS>(vfs);
|
auto tempFS = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::TempFS>(vfs);
|
||||||
|
if(rfs) return "RelativeFilesystem";
|
||||||
if(localVFS != nullptr) return "LocalFilesystem";
|
if(localVFS != nullptr) return "LocalFilesystem";
|
||||||
if(subFS != nullptr) return "SubdirFilesystem";
|
if(subFS != nullptr) return "SubdirFilesystem";
|
||||||
if(mountableVFS != nullptr) return "MountableFilesystem";
|
if(mountableVFS != nullptr) return "MountableFilesystem";
|
||||||
@@ -872,6 +907,8 @@ namespace Tesses::CrossLang
|
|||||||
auto natObj = dynamic_cast<TNativeObject*>(obj);
|
auto natObj = dynamic_cast<TNativeObject*>(obj);
|
||||||
auto cobj = dynamic_cast<TClassObject*>(obj);
|
auto cobj = dynamic_cast<TClassObject*>(obj);
|
||||||
auto aarray = dynamic_cast<TAssociativeArray*>(obj);
|
auto aarray = dynamic_cast<TAssociativeArray*>(obj);
|
||||||
|
auto file = dynamic_cast<TFile*>(obj);
|
||||||
|
auto queryable = dynamic_cast<TQueryable*>(obj);
|
||||||
|
|
||||||
if(rootEnv != nullptr) return "RootEnvironment";
|
if(rootEnv != nullptr) return "RootEnvironment";
|
||||||
if(subEnv != nullptr) return "SubEnvironment";
|
if(subEnv != nullptr) return "SubEnvironment";
|
||||||
@@ -892,6 +929,8 @@ namespace Tesses::CrossLang
|
|||||||
if(byteArray != nullptr) return "ByteArray";
|
if(byteArray != nullptr) return "ByteArray";
|
||||||
if(native != nullptr) return "Native";
|
if(native != nullptr) return "Native";
|
||||||
if(any != nullptr) return "Any";
|
if(any != nullptr) return "Any";
|
||||||
|
if(file != nullptr) return "File";
|
||||||
|
if(queryable != nullptr) return "Queryable";
|
||||||
|
|
||||||
return "HeapObject";
|
return "HeapObject";
|
||||||
}
|
}
|
||||||
@@ -988,7 +1027,6 @@ namespace Tesses::CrossLang
|
|||||||
this->canRegisterEnv=false;
|
this->canRegisterEnv=false;
|
||||||
this->canRegisterIO=false;
|
this->canRegisterIO=false;
|
||||||
this->canRegisterJSON=false;
|
this->canRegisterJSON=false;
|
||||||
this->canRegisterLocalFS=false;
|
|
||||||
this->canRegisterNet=false;
|
this->canRegisterNet=false;
|
||||||
this->canRegisterOGC=false;
|
this->canRegisterOGC=false;
|
||||||
this->canRegisterPath=false;
|
this->canRegisterPath=false;
|
||||||
@@ -1222,7 +1260,69 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
void TStd::RegisterRoot(GC* gc, TRootEnvironment* env)
|
static TObject New_ByteReader(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
std::shared_ptr<Tesses::Framework::Streams::Stream> strm;
|
||||||
|
if(GetArgument(args, 0, strm))
|
||||||
|
return std::make_shared<Tesses::Framework::Streams::ByteReader>(strm);
|
||||||
|
return nullptr;
|
||||||
|
}
|
||||||
|
static TObject New_ByteWriter(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
std::shared_ptr<Tesses::Framework::Streams::Stream> strm;
|
||||||
|
if(GetArgument(args, 0, strm))
|
||||||
|
return std::make_shared<Tesses::Framework::Streams::ByteWriter>(strm);
|
||||||
|
return nullptr;
|
||||||
|
}
|
||||||
|
static void empty(){}
|
||||||
|
static TObject New_Timer(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetArgumentHeap(args, 0, callable))
|
||||||
|
{
|
||||||
|
int64_t interval = 1000;
|
||||||
|
bool enabled=true;
|
||||||
|
GetArgument(args,1, interval);
|
||||||
|
GetArgument(args,2,enabled);
|
||||||
|
|
||||||
|
auto obj = CreateMarkedTObject(ls.GetGC(), callable);
|
||||||
|
|
||||||
|
return Tesses::Framework::TF_Timer([obj]()->void {
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetObjectHeap(obj->GetObject(), callable))
|
||||||
|
{
|
||||||
|
GCList ls(obj->GetGC());
|
||||||
|
callable->Call(ls,{});
|
||||||
|
}
|
||||||
|
}, interval , enabled);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
return Tesses::Framework::TF_Timer(empty, 1000L, false);
|
||||||
|
}
|
||||||
|
|
||||||
|
static TObject New_RelativeFilesystem(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs;
|
||||||
|
Tesses::Framework::Filesystem::VFSPath path;
|
||||||
|
if(GetArgument(args,0,vfs) && GetArgumentAsPath(args,1,path) && !path.relative)
|
||||||
|
{
|
||||||
|
return std::make_shared<Tesses::Framework::Filesystem::RelativeFilesystem>(vfs,path);
|
||||||
|
}
|
||||||
|
return nullptr;
|
||||||
|
}
|
||||||
|
|
||||||
|
static TObject New_Queryable(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
if(!args.empty())
|
||||||
|
{
|
||||||
|
return TQueryable::Create(ls, args.front());
|
||||||
|
}
|
||||||
|
return nullptr;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void TStd::RegisterRoot(std::shared_ptr<GC> gc, TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
GCList ls(gc);
|
GCList ls(gc);
|
||||||
|
|
||||||
@@ -1230,6 +1330,8 @@ namespace Tesses::CrossLang
|
|||||||
|
|
||||||
env->permissions.canRegisterRoot=true;
|
env->permissions.canRegisterRoot=true;
|
||||||
RegisterHelpers(gc,env);
|
RegisterHelpers(gc,env);
|
||||||
|
RegisterUuid(gc, env);
|
||||||
|
|
||||||
|
|
||||||
auto date =env->EnsureDictionary(gc,"DateTime");
|
auto date =env->EnsureDictionary(gc,"DateTime");
|
||||||
date->DeclareFunction(gc, "Sleep","Sleep for a specified amount of milliseconds (multiply seconds by 1000 to get milliseconds)", {"ms"},DateTime_Sleep);
|
date->DeclareFunction(gc, "Sleep","Sleep for a specified amount of milliseconds (multiply seconds by 1000 to get milliseconds)", {"ms"},DateTime_Sleep);
|
||||||
@@ -1269,6 +1371,10 @@ namespace Tesses::CrossLang
|
|||||||
task->DeclareFunction(gc, "FromResult", "async from result", {"result"}, Task_FromResult);
|
task->DeclareFunction(gc, "FromResult", "async from result", {"result"}, Task_FromResult);
|
||||||
|
|
||||||
TDictionary* newTypes = env->EnsureDictionary(gc, "New");
|
TDictionary* newTypes = env->EnsureDictionary(gc, "New");
|
||||||
|
|
||||||
|
newTypes->DeclareFunction(gc, "ByteReader","Read binary data from stream",{"stream"},New_ByteReader);
|
||||||
|
|
||||||
|
newTypes->DeclareFunction(gc, "ByteWriter","Write binary data to stream",{"stream"},New_ByteWriter);
|
||||||
//newTypes->DeclareFunction(gc,)
|
//newTypes->DeclareFunction(gc,)
|
||||||
newTypes->DeclareFunction(gc, "Promise", "Create an async object",{"resolve","reject"},New_Promise);
|
newTypes->DeclareFunction(gc, "Promise", "Create an async object",{"resolve","reject"},New_Promise);
|
||||||
newTypes->DeclareFunction(gc, "DateTime","Create a DateTime object, if only one arg is provided year is epoch, isLocal defaults to true unless epoch",{"year","$month","$day","$hour","$minute","$second","$isLocal"},New_DateTime);
|
newTypes->DeclareFunction(gc, "DateTime","Create a DateTime object, if only one arg is provided year is epoch, isLocal defaults to true unless epoch",{"year","$month","$day","$hour","$minute","$second","$isLocal"},New_DateTime);
|
||||||
@@ -1278,11 +1384,11 @@ namespace Tesses::CrossLang
|
|||||||
newTypes->DeclareFunction(gc, "SubdirFilesystem","Create a subdir filesystem",{"fs","subdir"}, New_SubdirFilesystem);
|
newTypes->DeclareFunction(gc, "SubdirFilesystem","Create a subdir filesystem",{"fs","subdir"}, New_SubdirFilesystem);
|
||||||
newTypes->DeclareFunction(gc, "MemoryStream","Create a memory stream",{"writable"}, New_MemoryStream);
|
newTypes->DeclareFunction(gc, "MemoryStream","Create a memory stream",{"writable"}, New_MemoryStream);
|
||||||
newTypes->DeclareFunction(gc, "Filesystem","Create filesystem", {"fs"},New_Filesystem);
|
newTypes->DeclareFunction(gc, "Filesystem","Create filesystem", {"fs"},New_Filesystem);
|
||||||
|
newTypes->DeclareFunction(gc, "RelativeFilesystem", "Create relativefs",{"parent", "absoluteDir"}, New_RelativeFilesystem);
|
||||||
newTypes->DeclareFunction(gc, "TempFS","Create a temp directory",{"",""}, New_TempFS);
|
newTypes->DeclareFunction(gc, "TempFS","Create a temp directory",{"",""}, New_TempFS);
|
||||||
|
newTypes->DeclareFunction(gc, "Timer", "Create a timer",{"$cb","$interval","$enabled"}, New_Timer);
|
||||||
newTypes->DeclareFunction(gc, "Stream","Create stream", {"strm"},New_Stream);
|
newTypes->DeclareFunction(gc, "Stream","Create stream", {"strm"},New_Stream);
|
||||||
|
|
||||||
newTypes->DeclareFunction(gc, "MemoryFilesystem","Create in memory filesystem", {},New_MemoryFilesystem);
|
|
||||||
|
|
||||||
|
|
||||||
newTypes->DeclareFunction(gc,"Version","Create a version object",{"$major","$minor","$patch","$build","$stage"},[](GCList& ls, std::vector<TObject> args)->TObject{
|
newTypes->DeclareFunction(gc,"Version","Create a version object",{"$major","$minor","$patch","$build","$stage"},[](GCList& ls, std::vector<TObject> args)->TObject{
|
||||||
int64_t major=1;
|
int64_t major=1;
|
||||||
@@ -1339,7 +1445,10 @@ namespace Tesses::CrossLang
|
|||||||
env->DeclareFunction(gc, "TypeIsTimeSpan","Get whether object is a TimeSpan",{"object"},TypeIsTimeSpan);
|
env->DeclareFunction(gc, "TypeIsTimeSpan","Get whether object is a TimeSpan",{"object"},TypeIsTimeSpan);
|
||||||
env->DeclareFunction(gc, "TypeIsTextReader","Get whether object is a TextReader",{"object"},TypeIsTextReader);
|
env->DeclareFunction(gc, "TypeIsTextReader","Get whether object is a TextReader",{"object"},TypeIsTextReader);
|
||||||
env->DeclareFunction(gc, "TypeIsTextWriter","Get whether object is a TextWriter",{"object"},TypeIsTextWriter);
|
env->DeclareFunction(gc, "TypeIsTextWriter","Get whether object is a TextWriter",{"object"},TypeIsTextWriter);
|
||||||
|
env->DeclareFunction(gc, "TypeIsByteReader","Get whether object is a ByteReader",{"object"},TypeIsByteReader);
|
||||||
|
env->DeclareFunction(gc, "TypeIsByteWriter","Get whether object is a ByteWriter",{"object"},TypeIsByteWriter);
|
||||||
|
env->DeclareFunction(gc, "TypeIsUuid","Get whether object is a Uuid",{"object"},TypeIsUuid);
|
||||||
|
env->DeclareFunction(gc, "TypeIsQueryable","Get whether object is a Queryable",{"object"},TypeIsQueryable);
|
||||||
|
|
||||||
newTypes->DeclareFunction(gc, "Regex", "Create regex object",{"regex"},[](GCList& ls,std::vector<TObject> args)->TObject {
|
newTypes->DeclareFunction(gc, "Regex", "Create regex object",{"regex"},[](GCList& ls,std::vector<TObject> args)->TObject {
|
||||||
std::string str;
|
std::string str;
|
||||||
@@ -1385,6 +1494,7 @@ namespace Tesses::CrossLang
|
|||||||
return TAssociativeArray::Create(ls);
|
return TAssociativeArray::Create(ls);
|
||||||
});
|
});
|
||||||
newTypes->DeclareFunction(gc,"ByteArray","Create bytearray, with optional either size (to size it) or string argument (to fill byte array)",{"$data"},ByteArray);
|
newTypes->DeclareFunction(gc,"ByteArray","Create bytearray, with optional either size (to size it) or string argument (to fill byte array)",{"$data"},ByteArray);
|
||||||
|
newTypes->DeclareFunction(gc, "Queryable", "Create a queryable", {"enumerable"}, New_Queryable);
|
||||||
|
|
||||||
env->DeclareVariable("Version", TDictionary::Create(ls,{
|
env->DeclareVariable("Version", TDictionary::Create(ls,{
|
||||||
TDItem("Parse",TExternalMethod::Create(ls,"Parse version from string",{"versionStr"},[](GCList& ls, std::vector<TObject> args)->TObject{
|
TDItem("Parse",TExternalMethod::Create(ls,"Parse version from string",{"versionStr"},[](GCList& ls, std::vector<TObject> args)->TObject{
|
||||||
@@ -1430,14 +1540,19 @@ namespace Tesses::CrossLang
|
|||||||
|
|
||||||
gc->BarrierEnd();
|
gc->BarrierEnd();
|
||||||
}
|
}
|
||||||
void TStd::RegisterStd(GC* gc, TRootEnvironment* env)
|
void TStd::RegisterStd(std::shared_ptr<GC> gc, TRootEnvironment* env)
|
||||||
|
{
|
||||||
|
RegisterStd(gc, env, std::make_shared<Tesses::Framework::Filesystem::RelativeFilesystem>(Tesses::Framework::Filesystem::LocalFS, Tesses::Framework::Filesystem::VFSPath::GetAbsoluteCurrentDirectory()));
|
||||||
|
}
|
||||||
|
void TStd::RegisterStd(std::shared_ptr<GC> gc, TRootEnvironment* env,std::shared_ptr<Tesses::Framework::Filesystem::RelativeFilesystem> localfs)
|
||||||
{
|
{
|
||||||
env->permissions.canRegisterEverything=true;
|
env->permissions.canRegisterEverything=true;
|
||||||
RegisterEnv(gc, env);
|
RegisterEnv(gc, env);
|
||||||
RegisterRoot(gc,env);
|
RegisterRoot(gc,env);
|
||||||
RegisterPath(gc,env);
|
RegisterPath(gc,env);
|
||||||
|
|
||||||
RegisterConsole(gc, env);
|
RegisterConsole(gc, env);
|
||||||
RegisterIO(gc, env);
|
RegisterIO(gc, env, localfs);
|
||||||
RegisterNet(gc, env);
|
RegisterNet(gc, env);
|
||||||
RegisterSqlite(gc, env);
|
RegisterSqlite(gc, env);
|
||||||
RegisterVM(gc, env);
|
RegisterVM(gc, env);
|
||||||
|
|||||||
40
src/runtime_methods/uuid.cpp
Normal file
40
src/runtime_methods/uuid.cpp
Normal file
@@ -0,0 +1,40 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
|
||||||
|
namespace Tesses::CrossLang {
|
||||||
|
static TObject Uuid_NewUuid(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
return Tesses::Framework::Uuid::Generate();
|
||||||
|
}
|
||||||
|
static TObject Uuid_TryParse(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
std::string str;
|
||||||
|
Tesses::Framework::Uuid uuid;
|
||||||
|
if(GetArgument(args, 0, str) && Tesses::Framework::Uuid::TryParse(str,uuid))
|
||||||
|
return uuid;
|
||||||
|
return nullptr;
|
||||||
|
}
|
||||||
|
static TObject Uuid_FromBytes(GCList& ls, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
TByteArray* ba;
|
||||||
|
int64_t index;
|
||||||
|
if(GetArgumentHeap(args,0,ba) && GetArgument(args, 1, index) && (size_t)index < ba->data.size() && (size_t)index + 16 <= ba->data.size())
|
||||||
|
{
|
||||||
|
return Tesses::Framework::Serialization::BitConverter::ToUuid(ba->data[(size_t)index]);
|
||||||
|
}
|
||||||
|
|
||||||
|
return nullptr;
|
||||||
|
}
|
||||||
|
|
||||||
|
void TStd::RegisterUuid(std::shared_ptr<GC> gc, TRootEnvironment* env)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
TDictionary* guid = env->EnsureDictionary(gc, "Uuid");
|
||||||
|
guid->DeclareFunction(gc,"NewUuid","Create random uuid",{},Uuid_NewUuid);
|
||||||
|
guid->DeclareFunction(gc, "TryParse","Try to parse",{"str"}, Uuid_TryParse);
|
||||||
|
guid->DeclareFunction(gc, "FromBytes", "From bytes (big endian)",{"byteArray","offset"}, Uuid_FromBytes);
|
||||||
|
|
||||||
|
gc->BarrierEnd();
|
||||||
|
}
|
||||||
|
}
|
||||||
@@ -317,7 +317,7 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
void TStd::RegisterVM(GC* gc,TRootEnvironment* env)
|
void TStd::RegisterVM(std::shared_ptr<GC> gc,TRootEnvironment* env)
|
||||||
{
|
{
|
||||||
env->permissions.canRegisterVM=true;
|
env->permissions.canRegisterVM=true;
|
||||||
GCList ls(gc);
|
GCList ls(gc);
|
||||||
@@ -354,6 +354,11 @@ namespace Tesses::CrossLang
|
|||||||
}
|
}
|
||||||
return nullptr;
|
return nullptr;
|
||||||
});
|
});
|
||||||
|
#if defined(CROSSLANG_ENABLE_SUPERSLIM)
|
||||||
|
dict->SetValue("SuperSlim", true);
|
||||||
|
#else
|
||||||
|
dict->SetValue("SuperSlim", false);
|
||||||
|
#endif
|
||||||
dict->DeclareFunction(gc, "Eval", "Eval source code",{"source"}, VM_Eval);
|
dict->DeclareFunction(gc, "Eval", "Eval source code",{"source"}, VM_Eval);
|
||||||
dict->DeclareFunction(gc, "Compile", "Compile Source",{"dict"},VM_Compile);
|
dict->DeclareFunction(gc, "Compile", "Compile Source",{"dict"},VM_Compile);
|
||||||
|
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ namespace Tesses::CrossLang {
|
|||||||
{
|
{
|
||||||
TAny* anyObj = new TAny();
|
TAny* anyObj = new TAny();
|
||||||
|
|
||||||
GC* gc = ls.GetGC();
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
ls.Add(anyObj);
|
ls.Add(anyObj);
|
||||||
gc->Watch(anyObj);
|
gc->Watch(anyObj);
|
||||||
return anyObj;
|
return anyObj;
|
||||||
@@ -14,7 +14,7 @@ namespace Tesses::CrossLang {
|
|||||||
{
|
{
|
||||||
TAny* anyObj = new TAny();
|
TAny* anyObj = new TAny();
|
||||||
|
|
||||||
GC* gc = ls->GetGC();
|
std::shared_ptr<GC> gc = ls->GetGC();
|
||||||
ls->Add(anyObj);
|
ls->Add(anyObj);
|
||||||
gc->Watch(anyObj);
|
gc->Watch(anyObj);
|
||||||
return anyObj;
|
return anyObj;
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ namespace Tesses::CrossLang
|
|||||||
TAssociativeArray* TAssociativeArray::Create(GCList& ls)
|
TAssociativeArray* TAssociativeArray::Create(GCList& ls)
|
||||||
{
|
{
|
||||||
TAssociativeArray* list=new TAssociativeArray();
|
TAssociativeArray* list=new TAssociativeArray();
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(list);
|
ls.Add(list);
|
||||||
_gc->Watch(list);
|
_gc->Watch(list);
|
||||||
return list;
|
return list;
|
||||||
@@ -14,12 +14,12 @@ namespace Tesses::CrossLang
|
|||||||
TAssociativeArray* TAssociativeArray::Create(GCList* ls)
|
TAssociativeArray* TAssociativeArray::Create(GCList* ls)
|
||||||
{
|
{
|
||||||
TAssociativeArray* list=new TAssociativeArray();
|
TAssociativeArray* list=new TAssociativeArray();
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(list);
|
ls->Add(list);
|
||||||
_gc->Watch(list);
|
_gc->Watch(list);
|
||||||
return list;
|
return list;
|
||||||
}
|
}
|
||||||
void TAssociativeArray::Set(GC* gc, TObject key, TObject value)
|
void TAssociativeArray::Set(std::shared_ptr<GC> gc, TObject key, TObject value)
|
||||||
{
|
{
|
||||||
if(std::holds_alternative<Undefined>(key)) return;
|
if(std::holds_alternative<Undefined>(key)) return;
|
||||||
gc->BarrierBegin();
|
gc->BarrierBegin();
|
||||||
@@ -46,7 +46,7 @@ namespace Tesses::CrossLang
|
|||||||
this->items.push_back(std::pair<TObject,TObject>(key,value));
|
this->items.push_back(std::pair<TObject,TObject>(key,value));
|
||||||
gc->BarrierEnd();
|
gc->BarrierEnd();
|
||||||
}
|
}
|
||||||
TObject TAssociativeArray::Get(GC* gc, TObject key)
|
TObject TAssociativeArray::Get(std::shared_ptr<GC> gc, TObject key)
|
||||||
{
|
{
|
||||||
if(std::holds_alternative<Undefined>(key)) return Undefined();
|
if(std::holds_alternative<Undefined>(key)) return Undefined();
|
||||||
gc->BarrierBegin();
|
gc->BarrierBegin();
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
#include "CrossLang.hpp"
|
#include "CrossLang.hpp"
|
||||||
//THANKS TO https://www.youtube.com/watch?v=R-z2Hv-7nxk
|
//THANKS TO https://www.youtube.com/watch?v=R-z2Hv-7nxk
|
||||||
namespace Tesses::CrossLang {
|
namespace Tesses::CrossLang {
|
||||||
TTask::TTask(GC* gc)
|
TTask::TTask(std::shared_ptr<GC> gc)
|
||||||
{
|
{
|
||||||
this->gc = gc;
|
this->gc = gc;
|
||||||
}
|
}
|
||||||
@@ -172,10 +172,10 @@ namespace Tesses::CrossLang {
|
|||||||
}
|
}
|
||||||
|
|
||||||
class TTaskCseObj {
|
class TTaskCseObj {
|
||||||
GC* gc;
|
std::shared_ptr<GC> gc;
|
||||||
TTask* task;
|
TTask* task;
|
||||||
public:
|
public:
|
||||||
TTaskCseObj(GC* gc, TTask* task)
|
TTaskCseObj(std::shared_ptr<GC> gc, TTask* task)
|
||||||
{
|
{
|
||||||
this->gc = gc;
|
this->gc = gc;
|
||||||
this->task = task;
|
this->task = task;
|
||||||
@@ -230,7 +230,7 @@ namespace Tesses::CrossLang {
|
|||||||
|
|
||||||
//try {
|
//try {
|
||||||
GCList ls2(ls.GetGC());
|
GCList ls2(ls.GetGC());
|
||||||
GC* gc = ls.GetGC();
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
|
|
||||||
std::shared_ptr<TTaskCseObj> obj = std::make_shared<TTaskCseObj>(gc,task);
|
std::shared_ptr<TTaskCseObj> obj = std::make_shared<TTaskCseObj>(gc,task);
|
||||||
|
|
||||||
|
|||||||
@@ -43,6 +43,9 @@ namespace Tesses::CrossLang
|
|||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
//DO NOTHING
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
return &item;
|
return &item;
|
||||||
|
|||||||
@@ -13,7 +13,7 @@ namespace Tesses::CrossLang {
|
|||||||
|
|
||||||
TClassEnvironment* env2=new TClassEnvironment(env,obj);
|
TClassEnvironment* env2=new TClassEnvironment(env,obj);
|
||||||
|
|
||||||
GC* _gc = gc->GetGC();
|
std::shared_ptr<GC> _gc = gc->GetGC();
|
||||||
gc->Add(env2);
|
gc->Add(env2);
|
||||||
_gc->Watch(env2);
|
_gc->Watch(env2);
|
||||||
return env2;
|
return env2;
|
||||||
@@ -23,7 +23,7 @@ namespace Tesses::CrossLang {
|
|||||||
|
|
||||||
TClassEnvironment* env2=new TClassEnvironment(env,obj);
|
TClassEnvironment* env2=new TClassEnvironment(env,obj);
|
||||||
|
|
||||||
GC* _gc = gc.GetGC();
|
std::shared_ptr<GC> _gc = gc.GetGC();
|
||||||
gc.Add(env2);
|
gc.Add(env2);
|
||||||
_gc->Watch(env2);
|
_gc->Watch(env2);
|
||||||
return env2;
|
return env2;
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ namespace Tesses::CrossLang {
|
|||||||
{
|
{
|
||||||
TArgWrapper* argWrapper = new TArgWrapper();
|
TArgWrapper* argWrapper = new TArgWrapper();
|
||||||
argWrapper->callable = callable;
|
argWrapper->callable = callable;
|
||||||
GC* gc = ls.GetGC();
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
ls.Add(argWrapper);
|
ls.Add(argWrapper);
|
||||||
gc->Watch(argWrapper);
|
gc->Watch(argWrapper);
|
||||||
return argWrapper;
|
return argWrapper;
|
||||||
@@ -13,7 +13,7 @@ namespace Tesses::CrossLang {
|
|||||||
{
|
{
|
||||||
TArgWrapper* argWrapper = new TArgWrapper();
|
TArgWrapper* argWrapper = new TArgWrapper();
|
||||||
argWrapper->callable = callable;
|
argWrapper->callable = callable;
|
||||||
GC* gc = ls->GetGC();
|
std::shared_ptr<GC> gc = ls->GetGC();
|
||||||
ls->Add(argWrapper);
|
ls->Add(argWrapper);
|
||||||
gc->Watch(argWrapper);
|
gc->Watch(argWrapper);
|
||||||
return argWrapper;
|
return argWrapper;
|
||||||
@@ -54,7 +54,7 @@ namespace Tesses::CrossLang {
|
|||||||
TClosure* closure = new TClosure();
|
TClosure* closure = new TClosure();
|
||||||
closure->className="";
|
closure->className="";
|
||||||
closure->ownScope=ownScope;
|
closure->ownScope=ownScope;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(closure);
|
ls.Add(closure);
|
||||||
_gc->Watch(closure);
|
_gc->Watch(closure);
|
||||||
closure->chunkId = chunkId;
|
closure->chunkId = chunkId;
|
||||||
@@ -71,7 +71,7 @@ namespace Tesses::CrossLang {
|
|||||||
TClosure* closure = new TClosure();
|
TClosure* closure = new TClosure();
|
||||||
closure->className="";
|
closure->className="";
|
||||||
closure->ownScope=ownScope;
|
closure->ownScope=ownScope;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(closure);
|
ls->Add(closure);
|
||||||
_gc->Watch(closure);
|
_gc->Watch(closure);
|
||||||
closure->chunkId = chunkId;
|
closure->chunkId = chunkId;
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ namespace Tesses::CrossLang {
|
|||||||
|
|
||||||
TDynamicDictionary* dict=new TDynamicDictionary();
|
TDynamicDictionary* dict=new TDynamicDictionary();
|
||||||
dict->cb = callable;
|
dict->cb = callable;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(dict);
|
ls.Add(dict);
|
||||||
_gc->Watch(dict);
|
_gc->Watch(dict);
|
||||||
return dict;
|
return dict;
|
||||||
@@ -15,7 +15,7 @@ namespace Tesses::CrossLang {
|
|||||||
{
|
{
|
||||||
TDynamicDictionary* dict=new TDynamicDictionary();
|
TDynamicDictionary* dict=new TDynamicDictionary();
|
||||||
dict->cb = callable;
|
dict->cb = callable;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(dict);
|
ls->Add(dict);
|
||||||
_gc->Watch(dict);
|
_gc->Watch(dict);
|
||||||
return dict;
|
return dict;
|
||||||
@@ -110,18 +110,18 @@ namespace Tesses::CrossLang {
|
|||||||
if(GetObjectHeap(res,callable))
|
if(GetObjectHeap(res,callable))
|
||||||
{
|
{
|
||||||
auto closure = dynamic_cast<TClosure*>(callable);
|
auto closure = dynamic_cast<TClosure*>(callable);
|
||||||
if(closure != nullptr && !closure->closure->args.empty() && closure->closure->args.front() == "this")
|
if(closure != nullptr && !closure->closure->args.empty() && closure->closure->args.front() == "this")
|
||||||
{
|
{
|
||||||
std::vector<TObject> args2;
|
std::vector<TObject> args2;
|
||||||
args2.push_back(this);
|
args2.push_back(this);
|
||||||
args2.insert(args2.end(), args.begin(),args.end());
|
args2.insert(args2.end(), args.begin(),args.end());
|
||||||
return closure->Call(ls,args2);
|
return closure->Call(ls,args2);
|
||||||
|
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
return callable->Call(ls,args);
|
return callable->Call(ls,args);
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
return Undefined();
|
return Undefined();
|
||||||
@@ -136,58 +136,44 @@ namespace Tesses::CrossLang {
|
|||||||
if(GetObjectHeap(res,callable))
|
if(GetObjectHeap(res,callable))
|
||||||
{
|
{
|
||||||
auto closure = dynamic_cast<TClosure*>(callable);
|
auto closure = dynamic_cast<TClosure*>(callable);
|
||||||
if(closure != nullptr && !closure->closure->args.empty() && closure->closure->args.front() == "this")
|
if(closure != nullptr && !closure->closure->args.empty() && closure->closure->args.front() == "this")
|
||||||
{
|
{
|
||||||
std::vector<TObject> args2;
|
std::vector<TObject> args2;
|
||||||
args2.push_back(this);
|
args2.push_back(this);
|
||||||
args2.insert(args2.end(), args.begin(),args.end());
|
args2.insert(args2.end(), args.begin(),args.end());
|
||||||
return closure->CallWithFatalError(ls,args2);
|
return closure->CallWithFatalError(ls,args2);
|
||||||
|
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
return callable->CallWithFatalError(ls,args);
|
return callable->CallWithFatalError(ls,args);
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
return Undefined();
|
return Undefined();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
void TDictionary::DeclareFunction(std::shared_ptr<GC> gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
GCList ls(gc);
|
||||||
|
this->SetValue(key, TExternalMethod::Create(ls,documentation,argNames,cb));
|
||||||
|
gc->BarrierEnd();
|
||||||
|
}
|
||||||
|
|
||||||
void TDictionary::DeclareFunction(GC* gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb)
|
void TDictionary::DeclareFunction(std::shared_ptr<GC> gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb,std::function<void()> destroy)
|
||||||
{
|
|
||||||
gc->BarrierBegin();
|
|
||||||
GCList ls(gc);
|
|
||||||
this->SetValue(key, TExternalMethod::Create(ls,documentation,argNames,cb));
|
|
||||||
gc->BarrierEnd();
|
|
||||||
}
|
|
||||||
void TDictionary::DeclareFunction(GC& gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb)
|
|
||||||
{
|
|
||||||
gc.BarrierBegin();
|
|
||||||
GCList ls(gc);
|
|
||||||
this->SetValue(key, TExternalMethod::Create(ls,documentation,argNames,cb));
|
|
||||||
gc.BarrierEnd();
|
|
||||||
}
|
|
||||||
void TDictionary::DeclareFunction(GC* gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb,std::function<void()> destroy)
|
|
||||||
{
|
{
|
||||||
gc->BarrierBegin();
|
gc->BarrierBegin();
|
||||||
GCList ls(gc);
|
GCList ls(gc);
|
||||||
this->SetValue(key, TExternalMethod::Create(ls,documentation,argNames,cb,destroy));
|
this->SetValue(key, TExternalMethod::Create(ls,documentation,argNames,cb,destroy));
|
||||||
gc->BarrierEnd();
|
gc->BarrierEnd();
|
||||||
}
|
}
|
||||||
void TDictionary::DeclareFunction(GC& gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb,std::function<void()> destroy)
|
|
||||||
{
|
|
||||||
gc.BarrierBegin();
|
|
||||||
GCList ls(gc);
|
|
||||||
this->SetValue(key, TExternalMethod::Create(ls,documentation,argNames,cb,destroy));
|
|
||||||
gc.BarrierEnd();
|
|
||||||
}
|
|
||||||
TObject TDictionary::GetValue(std::string key)
|
TObject TDictionary::GetValue(std::string key)
|
||||||
{
|
{
|
||||||
if(this->items.empty()) return Undefined();
|
if(this->items.empty()) return Undefined();
|
||||||
for(auto item : this->items)
|
if(this->items.count(key) > 0)
|
||||||
{
|
return this->items[key];
|
||||||
if(item.first == key) return item.second;
|
|
||||||
}
|
|
||||||
return Undefined();
|
return Undefined();
|
||||||
}
|
}
|
||||||
void TDictionary::SetValue(std::string key, TObject value)
|
void TDictionary::SetValue(std::string key, TObject value)
|
||||||
@@ -218,7 +204,7 @@ namespace Tesses::CrossLang {
|
|||||||
TDictionary* TDictionary::Create(GCList* gc)
|
TDictionary* TDictionary::Create(GCList* gc)
|
||||||
{
|
{
|
||||||
TDictionary* dict=new TDictionary();
|
TDictionary* dict=new TDictionary();
|
||||||
GC* _gc = gc->GetGC();
|
std::shared_ptr<GC> _gc = gc->GetGC();
|
||||||
gc->Add(dict);
|
gc->Add(dict);
|
||||||
_gc->Watch(dict);
|
_gc->Watch(dict);
|
||||||
return dict;
|
return dict;
|
||||||
@@ -226,10 +212,10 @@ namespace Tesses::CrossLang {
|
|||||||
TDictionary* TDictionary::Create(GCList& gc)
|
TDictionary* TDictionary::Create(GCList& gc)
|
||||||
{
|
{
|
||||||
TDictionary* dict=new TDictionary();
|
TDictionary* dict=new TDictionary();
|
||||||
GC* _gc = gc.GetGC();
|
std::shared_ptr<GC> _gc = gc.GetGC();
|
||||||
gc.Add(dict);
|
gc.Add(dict);
|
||||||
_gc->Watch(dict);
|
_gc->Watch(dict);
|
||||||
return dict;
|
return dict;
|
||||||
}
|
}
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|||||||
@@ -2,7 +2,7 @@
|
|||||||
|
|
||||||
namespace Tesses::CrossLang {
|
namespace Tesses::CrossLang {
|
||||||
|
|
||||||
EmbedStream::EmbedStream(GC* gc, TFile* file, uint32_t resource)
|
EmbedStream::EmbedStream(std::shared_ptr<GC> gc, TFile* file, uint32_t resource)
|
||||||
{
|
{
|
||||||
this->offset = 0;
|
this->offset = 0;
|
||||||
this->resource = resource;
|
this->resource = resource;
|
||||||
@@ -124,17 +124,58 @@ namespace Tesses::CrossLang {
|
|||||||
}
|
}
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
bool EmbedDirectory::RegularFileExists(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
bool EmbedDirectory::Stat(Tesses::Framework::Filesystem::VFSPath path, Tesses::Framework::Filesystem::StatData& data)
|
||||||
auto ent = getEntry(path);
|
|
||||||
TCallable* call;
|
|
||||||
return GetObjectHeap(ent,call);
|
|
||||||
}
|
|
||||||
bool EmbedDirectory::DirectoryExists(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
{
|
||||||
auto ent = getEntry(path);
|
auto ent = getEntry(path);
|
||||||
|
|
||||||
|
|
||||||
TDictionary* dict;
|
TDictionary* dict;
|
||||||
return GetObjectHeap(ent,dict);
|
if(GetObjectHeap(ent,dict))
|
||||||
|
{
|
||||||
|
data.Size = 0;
|
||||||
|
data.Mode = Tesses::Framework::Filesystem::MODE_DIRECTORY | 0755;
|
||||||
|
data.BlockCount = 0;
|
||||||
|
data.BlockSize = 0;
|
||||||
|
data.Device = 0;
|
||||||
|
data.DeviceId = 0;
|
||||||
|
data.GroupId = 0;
|
||||||
|
data.HardLinks = 1;
|
||||||
|
data.Inode = 0;
|
||||||
|
data.LastAccess = Tesses::Framework::Date::DateTime(0);
|
||||||
|
data.LastModified = Tesses::Framework::Date::DateTime(0);
|
||||||
|
data.LastStatus = Tesses::Framework::Date::DateTime(0);
|
||||||
|
data.UserId = 0;
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
TCallable* cal;
|
||||||
|
if(GetObjectHeap(ent, cal))
|
||||||
|
{
|
||||||
|
GCList ls(this->dir->GetGC());
|
||||||
|
auto fileO= cal->Call(ls, {});
|
||||||
|
std::shared_ptr<Tesses::Framework::Streams::Stream> strm;
|
||||||
|
if(GetObject(fileO,strm)) {
|
||||||
|
|
||||||
|
data.Size = (uint64_t)strm->GetLength();
|
||||||
|
data.Mode = Tesses::Framework::Filesystem::MODE_REGULAR | 0755;
|
||||||
|
data.BlockSize = 512;
|
||||||
|
data.BlockCount = data.Size / data.BlockSize;
|
||||||
|
|
||||||
|
data.Device = 0;
|
||||||
|
data.DeviceId = 0;
|
||||||
|
data.GroupId = 0;
|
||||||
|
data.HardLinks = 1;
|
||||||
|
data.Inode = 0;
|
||||||
|
data.LastAccess = Tesses::Framework::Date::DateTime(0);
|
||||||
|
data.LastModified = Tesses::Framework::Date::DateTime(0);
|
||||||
|
data.LastStatus = Tesses::Framework::Date::DateTime(0);
|
||||||
|
data.UserId = 0;
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return false;
|
||||||
}
|
}
|
||||||
|
|
||||||
class DICT_DIRENUM
|
class DICT_DIRENUM
|
||||||
@@ -148,7 +189,7 @@ namespace Tesses::CrossLang {
|
|||||||
{
|
{
|
||||||
return this->current->first;
|
return this->current->first;
|
||||||
}
|
}
|
||||||
DICT_DIRENUM(GC* gc, TDictionary* dict) : ls(gc), dict(dict)
|
DICT_DIRENUM(std::shared_ptr<GC> gc, TDictionary* dict) : ls(gc), dict(dict)
|
||||||
{
|
{
|
||||||
ls.Add(dict);
|
ls.Add(dict);
|
||||||
}
|
}
|
||||||
@@ -197,26 +238,11 @@ namespace Tesses::CrossLang {
|
|||||||
return Tesses::Framework::Filesystem::VFSPathEnumerator();
|
return Tesses::Framework::Filesystem::VFSPathEnumerator();
|
||||||
}
|
}
|
||||||
|
|
||||||
EmbedDirectory::EmbedDirectory(GC* gc, TDictionary* dict)
|
EmbedDirectory::EmbedDirectory(std::shared_ptr<GC> gc, TDictionary* dict)
|
||||||
{
|
{
|
||||||
this->dir = CreateMarkedTObject(gc, dict);
|
this->dir = CreateMarkedTObject(gc, dict);
|
||||||
}
|
}
|
||||||
void EmbedDirectory::CreateDirectory(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
|
||||||
//DO NOTHING
|
|
||||||
}
|
|
||||||
void EmbedDirectory::DeleteDirectory(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
|
||||||
|
|
||||||
}
|
|
||||||
void EmbedDirectory::DeleteFile(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
|
||||||
|
|
||||||
}
|
|
||||||
void EmbedDirectory::MoveFile(Tesses::Framework::Filesystem::VFSPath src, Tesses::Framework::Filesystem::VFSPath dest)
|
|
||||||
{
|
|
||||||
|
|
||||||
}
|
|
||||||
std::string EmbedDirectory::VFSPathToSystem(Tesses::Framework::Filesystem::VFSPath path)
|
std::string EmbedDirectory::VFSPathToSystem(Tesses::Framework::Filesystem::VFSPath path)
|
||||||
{
|
{
|
||||||
return path.ToString();
|
return path.ToString();
|
||||||
|
|||||||
@@ -2,7 +2,7 @@
|
|||||||
|
|
||||||
namespace Tesses::CrossLang
|
namespace Tesses::CrossLang
|
||||||
{
|
{
|
||||||
bool TYieldEnumerator::MoveNext(GC* ls)
|
bool TYieldEnumerator::MoveNext(std::shared_ptr<GC> ls)
|
||||||
{
|
{
|
||||||
CallStackEntry* ent;
|
CallStackEntry* ent;
|
||||||
GCList ls2(ls);
|
GCList ls2(ls);
|
||||||
@@ -56,7 +56,7 @@ namespace Tesses::CrossLang
|
|||||||
yieldEnum->hasStarted=false;
|
yieldEnum->hasStarted=false;
|
||||||
yieldEnum->enumerator = v;
|
yieldEnum->enumerator = v;
|
||||||
|
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(yieldEnum);
|
ls.Add(yieldEnum);
|
||||||
_gc->Watch(yieldEnum);
|
_gc->Watch(yieldEnum);
|
||||||
return yieldEnum;
|
return yieldEnum;
|
||||||
@@ -69,13 +69,13 @@ namespace Tesses::CrossLang
|
|||||||
yieldEnum->hasStarted=false;
|
yieldEnum->hasStarted=false;
|
||||||
yieldEnum->enumerator = v;
|
yieldEnum->enumerator = v;
|
||||||
|
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(yieldEnum);
|
ls->Add(yieldEnum);
|
||||||
_gc->Watch(yieldEnum);
|
_gc->Watch(yieldEnum);
|
||||||
return yieldEnum;
|
return yieldEnum;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool TCustomEnumerator::MoveNext(GC* ls)
|
bool TCustomEnumerator::MoveNext(std::shared_ptr<GC> ls)
|
||||||
{
|
{
|
||||||
GCList ls2(ls);
|
GCList ls2(ls);
|
||||||
auto res = this->dict->CallMethod(ls2,"MoveNext",{});
|
auto res = this->dict->CallMethod(ls2,"MoveNext",{});
|
||||||
@@ -110,7 +110,7 @@ namespace Tesses::CrossLang
|
|||||||
{
|
{
|
||||||
TCustomEnumerator* customEnum = new TCustomEnumerator();
|
TCustomEnumerator* customEnum = new TCustomEnumerator();
|
||||||
customEnum->dict = dict;
|
customEnum->dict = dict;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(customEnum);
|
ls->Add(customEnum);
|
||||||
_gc->Watch(customEnum);
|
_gc->Watch(customEnum);
|
||||||
return customEnum;
|
return customEnum;
|
||||||
@@ -119,7 +119,7 @@ namespace Tesses::CrossLang
|
|||||||
{
|
{
|
||||||
TCustomEnumerator* customEnum = new TCustomEnumerator();
|
TCustomEnumerator* customEnum = new TCustomEnumerator();
|
||||||
customEnum->dict = dict;
|
customEnum->dict = dict;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(customEnum);
|
ls.Add(customEnum);
|
||||||
_gc->Watch(customEnum);
|
_gc->Watch(customEnum);
|
||||||
return customEnum;
|
return customEnum;
|
||||||
@@ -132,6 +132,7 @@ namespace Tesses::CrossLang
|
|||||||
TDynamicDictionary* dynDict;
|
TDynamicDictionary* dynDict;
|
||||||
TDictionary* dict;
|
TDictionary* dict;
|
||||||
TEnumerator* enumerator;
|
TEnumerator* enumerator;
|
||||||
|
TQueryable* q;
|
||||||
if(GetObject(obj,str))
|
if(GetObject(obj,str))
|
||||||
{
|
{
|
||||||
return TStringEnumerator::Create(ls, str);
|
return TStringEnumerator::Create(ls, str);
|
||||||
@@ -156,13 +157,21 @@ namespace Tesses::CrossLang
|
|||||||
return enumerator;
|
return enumerator;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
else if(GetObjectHeap(obj, q))
|
||||||
|
{
|
||||||
|
return q->GetEnumerator(ls);
|
||||||
|
}
|
||||||
|
else if(GetObjectHeap(obj, enumerator))
|
||||||
|
{
|
||||||
|
return enumerator;
|
||||||
|
}
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
TVFSPathEnumerator* TVFSPathEnumerator::Create(GCList& ls, Tesses::Framework::Filesystem::VFSPathEnumerator enumerator)
|
TVFSPathEnumerator* TVFSPathEnumerator::Create(GCList& ls, Tesses::Framework::Filesystem::VFSPathEnumerator enumerator)
|
||||||
{
|
{
|
||||||
TVFSPathEnumerator* vfspathe = new TVFSPathEnumerator();
|
TVFSPathEnumerator* vfspathe = new TVFSPathEnumerator();
|
||||||
vfspathe->enumerator = enumerator;
|
vfspathe->enumerator = enumerator;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(vfspathe);
|
ls.Add(vfspathe);
|
||||||
_gc->Watch(vfspathe);
|
_gc->Watch(vfspathe);
|
||||||
return vfspathe;
|
return vfspathe;
|
||||||
@@ -171,12 +180,12 @@ namespace Tesses::CrossLang
|
|||||||
{
|
{
|
||||||
TVFSPathEnumerator* vfspathe = new TVFSPathEnumerator();
|
TVFSPathEnumerator* vfspathe = new TVFSPathEnumerator();
|
||||||
vfspathe->enumerator = enumerator;
|
vfspathe->enumerator = enumerator;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(vfspathe);
|
ls->Add(vfspathe);
|
||||||
_gc->Watch(vfspathe);
|
_gc->Watch(vfspathe);
|
||||||
return vfspathe;
|
return vfspathe;
|
||||||
}
|
}
|
||||||
bool TVFSPathEnumerator::MoveNext(GC* ls)
|
bool TVFSPathEnumerator::MoveNext(std::shared_ptr<GC> ls)
|
||||||
{
|
{
|
||||||
return enumerator.MoveNext();
|
return enumerator.MoveNext();
|
||||||
}
|
}
|
||||||
@@ -189,7 +198,7 @@ namespace Tesses::CrossLang
|
|||||||
TDictionaryEnumerator* dicte=new TDictionaryEnumerator();
|
TDictionaryEnumerator* dicte=new TDictionaryEnumerator();
|
||||||
dicte->dict = dict;
|
dicte->dict = dict;
|
||||||
dicte->hasStarted=false;
|
dicte->hasStarted=false;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(dicte);
|
ls.Add(dicte);
|
||||||
_gc->Watch(dicte);
|
_gc->Watch(dicte);
|
||||||
return dicte;
|
return dicte;
|
||||||
@@ -199,13 +208,13 @@ namespace Tesses::CrossLang
|
|||||||
TDictionaryEnumerator* dicte=new TDictionaryEnumerator();
|
TDictionaryEnumerator* dicte=new TDictionaryEnumerator();
|
||||||
dicte->dict = dict;
|
dicte->dict = dict;
|
||||||
dicte->hasStarted=false;
|
dicte->hasStarted=false;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(dicte);
|
ls->Add(dicte);
|
||||||
_gc->Watch(dicte);
|
_gc->Watch(dicte);
|
||||||
return dicte;
|
return dicte;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool TDictionaryEnumerator::MoveNext(GC* ls)
|
bool TDictionaryEnumerator::MoveNext(std::shared_ptr<GC> ls)
|
||||||
{
|
{
|
||||||
if(!this->hasStarted)
|
if(!this->hasStarted)
|
||||||
{
|
{
|
||||||
@@ -248,7 +257,7 @@ namespace Tesses::CrossLang
|
|||||||
TListEnumerator* liste=new TListEnumerator();
|
TListEnumerator* liste=new TListEnumerator();
|
||||||
liste->ls = list;
|
liste->ls = list;
|
||||||
liste->index = -1;
|
liste->index = -1;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(liste);
|
ls.Add(liste);
|
||||||
_gc->Watch(liste);
|
_gc->Watch(liste);
|
||||||
return liste;
|
return liste;
|
||||||
@@ -258,12 +267,12 @@ namespace Tesses::CrossLang
|
|||||||
TListEnumerator* liste=new TListEnumerator();
|
TListEnumerator* liste=new TListEnumerator();
|
||||||
liste->ls = list;
|
liste->ls = list;
|
||||||
liste->index = -1;
|
liste->index = -1;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(liste);
|
ls->Add(liste);
|
||||||
_gc->Watch(liste);
|
_gc->Watch(liste);
|
||||||
return liste;
|
return liste;
|
||||||
}
|
}
|
||||||
bool TListEnumerator::MoveNext(GC* ls)
|
bool TListEnumerator::MoveNext(std::shared_ptr<GC> ls)
|
||||||
{
|
{
|
||||||
this->index++;
|
this->index++;
|
||||||
return this->index >= 0 && this->index < this->ls->Count();
|
return this->index >= 0 && this->index < this->ls->Count();
|
||||||
@@ -291,7 +300,7 @@ namespace Tesses::CrossLang
|
|||||||
TAssociativeArrayEnumerator* liste=new TAssociativeArrayEnumerator();
|
TAssociativeArrayEnumerator* liste=new TAssociativeArrayEnumerator();
|
||||||
liste->ls = list;
|
liste->ls = list;
|
||||||
liste->index = -1;
|
liste->index = -1;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(liste);
|
ls.Add(liste);
|
||||||
_gc->Watch(liste);
|
_gc->Watch(liste);
|
||||||
return liste;
|
return liste;
|
||||||
@@ -301,12 +310,12 @@ namespace Tesses::CrossLang
|
|||||||
TAssociativeArrayEnumerator* liste=new TAssociativeArrayEnumerator();
|
TAssociativeArrayEnumerator* liste=new TAssociativeArrayEnumerator();
|
||||||
liste->ls = list;
|
liste->ls = list;
|
||||||
liste->index = -1;
|
liste->index = -1;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(liste);
|
ls->Add(liste);
|
||||||
_gc->Watch(liste);
|
_gc->Watch(liste);
|
||||||
return liste;
|
return liste;
|
||||||
}
|
}
|
||||||
bool TAssociativeArrayEnumerator::MoveNext(GC* ls)
|
bool TAssociativeArrayEnumerator::MoveNext(std::shared_ptr<GC> ls)
|
||||||
{
|
{
|
||||||
this->index++;
|
this->index++;
|
||||||
return this->index >= 0 && this->index < this->ls->Count();
|
return this->index >= 0 && this->index < this->ls->Count();
|
||||||
@@ -338,7 +347,7 @@ namespace Tesses::CrossLang
|
|||||||
TDynamicListEnumerator* liste=new TDynamicListEnumerator();
|
TDynamicListEnumerator* liste=new TDynamicListEnumerator();
|
||||||
liste->ls = list;
|
liste->ls = list;
|
||||||
liste->index = -1;
|
liste->index = -1;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(liste);
|
ls.Add(liste);
|
||||||
_gc->Watch(liste);
|
_gc->Watch(liste);
|
||||||
return liste;
|
return liste;
|
||||||
@@ -348,12 +357,12 @@ namespace Tesses::CrossLang
|
|||||||
TDynamicListEnumerator* liste=new TDynamicListEnumerator();
|
TDynamicListEnumerator* liste=new TDynamicListEnumerator();
|
||||||
liste->ls = list;
|
liste->ls = list;
|
||||||
liste->index = -1;
|
liste->index = -1;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(liste);
|
ls->Add(liste);
|
||||||
_gc->Watch(liste);
|
_gc->Watch(liste);
|
||||||
return liste;
|
return liste;
|
||||||
}
|
}
|
||||||
bool TDynamicListEnumerator::MoveNext(GC* ls)
|
bool TDynamicListEnumerator::MoveNext(std::shared_ptr<GC> ls)
|
||||||
{
|
{
|
||||||
this->index++;
|
this->index++;
|
||||||
GCList ls2(ls);
|
GCList ls2(ls);
|
||||||
@@ -384,7 +393,7 @@ namespace Tesses::CrossLang
|
|||||||
TStringEnumerator* stre=new TStringEnumerator();
|
TStringEnumerator* stre=new TStringEnumerator();
|
||||||
stre->str = str;
|
stre->str = str;
|
||||||
stre->hasStarted=false;
|
stre->hasStarted=false;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(stre);
|
ls.Add(stre);
|
||||||
_gc->Watch(stre);
|
_gc->Watch(stre);
|
||||||
return stre;
|
return stre;
|
||||||
@@ -394,12 +403,12 @@ namespace Tesses::CrossLang
|
|||||||
TStringEnumerator* stre=new TStringEnumerator();
|
TStringEnumerator* stre=new TStringEnumerator();
|
||||||
stre->str = str;
|
stre->str = str;
|
||||||
stre->hasStarted=false;
|
stre->hasStarted=false;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(stre);
|
ls->Add(stre);
|
||||||
_gc->Watch(stre);
|
_gc->Watch(stre);
|
||||||
return stre;
|
return stre;
|
||||||
}
|
}
|
||||||
bool TStringEnumerator::MoveNext(GC* ls)
|
bool TStringEnumerator::MoveNext(std::shared_ptr<GC> ls)
|
||||||
{
|
{
|
||||||
if(!this->hasStarted)
|
if(!this->hasStarted)
|
||||||
{
|
{
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ namespace Tesses::CrossLang {
|
|||||||
{
|
{
|
||||||
TDynamicList* list=new TDynamicList();
|
TDynamicList* list=new TDynamicList();
|
||||||
list->cb = callable;
|
list->cb = callable;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(list);
|
ls.Add(list);
|
||||||
_gc->Watch(list);
|
_gc->Watch(list);
|
||||||
return list;
|
return list;
|
||||||
@@ -13,7 +13,7 @@ namespace Tesses::CrossLang {
|
|||||||
{
|
{
|
||||||
TDynamicList* list=new TDynamicList();
|
TDynamicList* list=new TDynamicList();
|
||||||
list->cb = callable;
|
list->cb = callable;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(list);
|
ls->Add(list);
|
||||||
_gc->Watch(list);
|
_gc->Watch(list);
|
||||||
return list;
|
return list;
|
||||||
@@ -140,7 +140,7 @@ namespace Tesses::CrossLang {
|
|||||||
TByteArray* TByteArray::Create(GCList& ls)
|
TByteArray* TByteArray::Create(GCList& ls)
|
||||||
{
|
{
|
||||||
TByteArray* arr=new TByteArray();
|
TByteArray* arr=new TByteArray();
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(arr);
|
ls.Add(arr);
|
||||||
_gc->Watch(arr);
|
_gc->Watch(arr);
|
||||||
return arr;
|
return arr;
|
||||||
@@ -149,7 +149,7 @@ namespace Tesses::CrossLang {
|
|||||||
TByteArray* TByteArray::Create(GCList* ls)
|
TByteArray* TByteArray::Create(GCList* ls)
|
||||||
{
|
{
|
||||||
TByteArray* arr=new TByteArray();
|
TByteArray* arr=new TByteArray();
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(arr);
|
ls->Add(arr);
|
||||||
_gc->Watch(arr);
|
_gc->Watch(arr);
|
||||||
return arr;
|
return arr;
|
||||||
@@ -157,7 +157,7 @@ namespace Tesses::CrossLang {
|
|||||||
TList* TList::Create(GCList* gc)
|
TList* TList::Create(GCList* gc)
|
||||||
{
|
{
|
||||||
TList* list=new TList();
|
TList* list=new TList();
|
||||||
GC* _gc = gc->GetGC();
|
std::shared_ptr<GC> _gc = gc->GetGC();
|
||||||
gc->Add(list);
|
gc->Add(list);
|
||||||
_gc->Watch(list);
|
_gc->Watch(list);
|
||||||
return list;
|
return list;
|
||||||
@@ -165,7 +165,7 @@ namespace Tesses::CrossLang {
|
|||||||
TList* TList::Create(GCList& gc)
|
TList* TList::Create(GCList& gc)
|
||||||
{
|
{
|
||||||
TList* list=new TList();
|
TList* list=new TList();
|
||||||
GC* _gc = gc.GetGC();
|
std::shared_ptr<GC> _gc = gc.GetGC();
|
||||||
gc.Add(list);
|
gc.Add(list);
|
||||||
_gc->Watch(list);
|
_gc->Watch(list);
|
||||||
return list;
|
return list;
|
||||||
|
|||||||
@@ -43,7 +43,7 @@ namespace Tesses::CrossLang
|
|||||||
{
|
{
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
bool TNativeObject::Equals(GC* gc, TObject right)
|
bool TNativeObject::Equals(std::shared_ptr<GC> gc, TObject right)
|
||||||
{
|
{
|
||||||
if(std::holds_alternative<THeapObjectHolder>(right))
|
if(std::holds_alternative<THeapObjectHolder>(right))
|
||||||
{
|
{
|
||||||
@@ -54,7 +54,7 @@ namespace Tesses::CrossLang
|
|||||||
TNative* TNative::Create(GCList& ls, void* ptr,std::function<void(void*)> destroy)
|
TNative* TNative::Create(GCList& ls, void* ptr,std::function<void(void*)> destroy)
|
||||||
{
|
{
|
||||||
TNative* native = new TNative(ptr,destroy);
|
TNative* native = new TNative(ptr,destroy);
|
||||||
GC* gc = ls.GetGC();
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
ls.Add(native);
|
ls.Add(native);
|
||||||
gc->Watch(native);
|
gc->Watch(native);
|
||||||
return native;
|
return native;
|
||||||
@@ -62,7 +62,7 @@ namespace Tesses::CrossLang
|
|||||||
TNative* TNative::Create(GCList* ls, void* ptr,std::function<void(void*)> destroy)
|
TNative* TNative::Create(GCList* ls, void* ptr,std::function<void(void*)> destroy)
|
||||||
{
|
{
|
||||||
TNative* native = new TNative(ptr,destroy);
|
TNative* native = new TNative(ptr,destroy);
|
||||||
GC* gc = ls->GetGC();
|
std::shared_ptr<GC> gc = ls->GetGC();
|
||||||
ls->Add(native);
|
ls->Add(native);
|
||||||
gc->Watch(native);
|
gc->Watch(native);
|
||||||
return native;
|
return native;
|
||||||
|
|||||||
522
src/types/queryable.cpp
Normal file
522
src/types/queryable.cpp
Normal file
@@ -0,0 +1,522 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
|
||||||
|
namespace Tesses::CrossLang
|
||||||
|
{
|
||||||
|
TQueryable::TQueryable(TObject parent) : TQueryable(parent,TQueryableMode::Passthrough, {})
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
TQueryable::TQueryable(TObject parent, TQueryableMode mode, std::vector<TObject> args): parent(parent), mode(mode), args(args)
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
TQueryable* TQueryable::Skip(GCList& ls,int64_t no)
|
||||||
|
{
|
||||||
|
return TQueryable::Create(ls,this,TQueryableMode::Skip, {no});
|
||||||
|
}
|
||||||
|
TQueryable* TQueryable::SkipWhile(GCList& ls, TCallable* call)
|
||||||
|
{
|
||||||
|
return TQueryable::Create(ls,this,TQueryableMode::SkipWhile, {call});
|
||||||
|
}
|
||||||
|
TQueryable* TQueryable::Take(GCList& ls, int64_t no)
|
||||||
|
{
|
||||||
|
return TQueryable::Create(ls,this,TQueryableMode::Take, {no});
|
||||||
|
}
|
||||||
|
TQueryable* TQueryable::TakeWhile(GCList& ls, TCallable* call)
|
||||||
|
{
|
||||||
|
return TQueryable::Create(ls,this,TQueryableMode::TakeWhile, {call});
|
||||||
|
}
|
||||||
|
TQueryable* TQueryable::Select(GCList& ls, TCallable* call)
|
||||||
|
{
|
||||||
|
return TQueryable::Create(ls,this,TQueryableMode::Select, {call});
|
||||||
|
}
|
||||||
|
TQueryable* TQueryable::Where(GCList& ls, TCallable* call)
|
||||||
|
{
|
||||||
|
return TQueryable::Create(ls,this,TQueryableMode::Where, {call});
|
||||||
|
}
|
||||||
|
|
||||||
|
TList* TQueryable::ToList(GCList& ls)
|
||||||
|
{
|
||||||
|
auto gc = ls.GetGC();
|
||||||
|
GCList ls2(gc);
|
||||||
|
auto enumerator = this->GetEnumerator(ls);
|
||||||
|
if(enumerator == nullptr) return nullptr;
|
||||||
|
auto list = TList::Create(ls);
|
||||||
|
while(enumerator->MoveNext(gc))
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
list->Add(enumerator->GetCurrent(ls));
|
||||||
|
gc->BarrierEnd();
|
||||||
|
}
|
||||||
|
return list;
|
||||||
|
}
|
||||||
|
TQueryable* TQueryable::Create(GCList& ls, TObject parent)
|
||||||
|
{
|
||||||
|
TQueryable* queryable = new TQueryable(parent);
|
||||||
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
|
ls.Add(queryable);
|
||||||
|
gc->Watch(queryable);
|
||||||
|
return queryable;
|
||||||
|
}
|
||||||
|
TQueryable* TQueryable::Create(GCList& ls, TObject parent, TQueryableMode mode, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
TQueryable* queryable = new TQueryable(parent, mode,args);
|
||||||
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
|
ls.Add(queryable);
|
||||||
|
gc->Watch(queryable);
|
||||||
|
return queryable;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void TQueryable::Mark()
|
||||||
|
{
|
||||||
|
if(this->marked) return;
|
||||||
|
this->marked=true;
|
||||||
|
|
||||||
|
GC::Mark(this->parent);
|
||||||
|
for(auto& item : args)
|
||||||
|
GC::Mark(item);
|
||||||
|
}
|
||||||
|
|
||||||
|
void TQueryable::ForEach(std::shared_ptr<GC> gc, TCallable* call)
|
||||||
|
{
|
||||||
|
if(call == nullptr) return;
|
||||||
|
GCList ls(gc);
|
||||||
|
auto enumerator = this->GetEnumerator(ls);
|
||||||
|
if(enumerator == nullptr) return;
|
||||||
|
while(enumerator->MoveNext(gc))
|
||||||
|
{
|
||||||
|
GCList ls2(gc);
|
||||||
|
call->Call(ls2,{enumerator->GetCurrent(ls2)});
|
||||||
|
}
|
||||||
|
}
|
||||||
|
int64_t TQueryable::Count(std::shared_ptr<GC> gc, TCallable* call)
|
||||||
|
{
|
||||||
|
if(call == nullptr) return 0;
|
||||||
|
GCList ls(gc);
|
||||||
|
auto enumerator = this->GetEnumerator(ls);
|
||||||
|
if(enumerator == nullptr) return 0;
|
||||||
|
int64_t count=0;
|
||||||
|
while(enumerator->MoveNext(gc))
|
||||||
|
{
|
||||||
|
GCList ls2(gc);
|
||||||
|
if(ToBool(call->Call(ls2,{enumerator->GetCurrent(ls2)}))) count++;
|
||||||
|
}
|
||||||
|
return count;
|
||||||
|
}
|
||||||
|
int64_t TQueryable::Count(std::shared_ptr<GC> gc)
|
||||||
|
{
|
||||||
|
GCList ls(gc);
|
||||||
|
auto enumerator = this->GetEnumerator(ls);
|
||||||
|
if(enumerator == nullptr) return 0;
|
||||||
|
int64_t count=0;
|
||||||
|
while(enumerator->MoveNext(gc))
|
||||||
|
{
|
||||||
|
count++;
|
||||||
|
}
|
||||||
|
return count;
|
||||||
|
}
|
||||||
|
bool TQueryable::Contains(std::shared_ptr<GC> gc, TObject value)
|
||||||
|
{
|
||||||
|
GCList ls(gc);
|
||||||
|
auto enumerator = this->GetEnumerator(ls);
|
||||||
|
if(enumerator == nullptr) return false;
|
||||||
|
while(enumerator->MoveNext(gc))
|
||||||
|
{
|
||||||
|
GCList ls2(gc);
|
||||||
|
|
||||||
|
|
||||||
|
if(Equals(gc,value,enumerator->GetCurrent(ls2)))
|
||||||
|
return true;
|
||||||
|
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
bool TQueryable::Any(std::shared_ptr<GC> gc, TCallable* call)
|
||||||
|
{
|
||||||
|
if(call == nullptr) return false;
|
||||||
|
GCList ls(gc);
|
||||||
|
auto enumerator = this->GetEnumerator(ls);
|
||||||
|
if(enumerator == nullptr) return false;
|
||||||
|
|
||||||
|
while(enumerator->MoveNext(gc))
|
||||||
|
{
|
||||||
|
GCList ls2(gc);
|
||||||
|
if(ToBool(call->Call(ls2,{enumerator->GetCurrent(ls2)}))) return true;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
bool TQueryable::All(std::shared_ptr<GC> gc, TCallable* call)
|
||||||
|
{
|
||||||
|
if(call == nullptr) return true;
|
||||||
|
GCList ls(gc);
|
||||||
|
auto enumerator = this->GetEnumerator(ls);
|
||||||
|
if(enumerator == nullptr) return true;
|
||||||
|
|
||||||
|
while(enumerator->MoveNext(gc))
|
||||||
|
{
|
||||||
|
GCList ls2(gc);
|
||||||
|
if(!ToBool(call->Call(ls2,{enumerator->GetCurrent(ls2)}))) return false;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
class SkipItterator : public TEnumerator {
|
||||||
|
private:
|
||||||
|
TEnumerator* parentEnum;
|
||||||
|
int64_t skipCount;
|
||||||
|
SkipItterator(TEnumerator* parentEnum, int64_t skipCount) : parentEnum(parentEnum), skipCount(skipCount)
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
public:
|
||||||
|
static SkipItterator* Create(GCList& ls, TEnumerator* parentEnum, int64_t skipCount)
|
||||||
|
{
|
||||||
|
SkipItterator* queryable = new SkipItterator(parentEnum, skipCount);
|
||||||
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
|
ls.Add(queryable);
|
||||||
|
gc->Watch(queryable);
|
||||||
|
return queryable;
|
||||||
|
}
|
||||||
|
bool MoveNext(std::shared_ptr<GC> ls)
|
||||||
|
{
|
||||||
|
if(this->parentEnum == nullptr) return false;
|
||||||
|
while(skipCount > 0)
|
||||||
|
{
|
||||||
|
if(!this->parentEnum->MoveNext(ls)) {
|
||||||
|
skipCount=0;
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
skipCount--;
|
||||||
|
}
|
||||||
|
return this->parentEnum->MoveNext(ls);
|
||||||
|
}
|
||||||
|
TObject GetCurrent(GCList& ls)
|
||||||
|
{
|
||||||
|
return this->parentEnum->GetCurrent(ls);
|
||||||
|
}
|
||||||
|
void Mark()
|
||||||
|
{
|
||||||
|
if(this->marked) return;
|
||||||
|
this->marked=true;
|
||||||
|
|
||||||
|
if(parentEnum != nullptr) parentEnum->Mark();
|
||||||
|
}
|
||||||
|
};
|
||||||
|
class TakeItterator : public TEnumerator {
|
||||||
|
private:
|
||||||
|
TEnumerator* parentEnum;
|
||||||
|
int64_t takeCount;
|
||||||
|
TakeItterator(TEnumerator* parentEnum, int64_t takeCount) : parentEnum(parentEnum), takeCount(takeCount)
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
public:
|
||||||
|
static TakeItterator* Create(GCList& ls, TEnumerator* parentEnum, int64_t takeCount)
|
||||||
|
{
|
||||||
|
TakeItterator* queryable = new TakeItterator(parentEnum, takeCount);
|
||||||
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
|
ls.Add(queryable);
|
||||||
|
gc->Watch(queryable);
|
||||||
|
return queryable;
|
||||||
|
}
|
||||||
|
bool MoveNext(std::shared_ptr<GC> ls)
|
||||||
|
{
|
||||||
|
if(this->parentEnum == nullptr) return false;
|
||||||
|
if(takeCount > 0)
|
||||||
|
{
|
||||||
|
takeCount--;
|
||||||
|
return this->parentEnum->MoveNext(ls);
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
TObject GetCurrent(GCList& ls)
|
||||||
|
{
|
||||||
|
return this->parentEnum->GetCurrent(ls);
|
||||||
|
}
|
||||||
|
void Mark()
|
||||||
|
{
|
||||||
|
if(this->marked) return;
|
||||||
|
this->marked=true;
|
||||||
|
|
||||||
|
if(parentEnum != nullptr) parentEnum->Mark();
|
||||||
|
}
|
||||||
|
};
|
||||||
|
class SkipWhileItterator : public TEnumerator {
|
||||||
|
private:
|
||||||
|
TEnumerator* parentEnum;
|
||||||
|
TCallable* callable;
|
||||||
|
SkipWhileItterator(TEnumerator* parentEnum, TCallable* callable) : parentEnum(parentEnum), callable(callable)
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
public:
|
||||||
|
static SkipWhileItterator* Create(GCList& ls, TEnumerator* parentEnum, TCallable* callable)
|
||||||
|
{
|
||||||
|
SkipWhileItterator* queryable = new SkipWhileItterator(parentEnum, callable);
|
||||||
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
|
ls.Add(queryable);
|
||||||
|
gc->Watch(queryable);
|
||||||
|
return queryable;
|
||||||
|
}
|
||||||
|
bool MoveNext(std::shared_ptr<GC> ls)
|
||||||
|
{
|
||||||
|
if(this->parentEnum == nullptr) return false;
|
||||||
|
ls->BarrierBegin();
|
||||||
|
auto callable = this->callable;
|
||||||
|
ls->BarrierEnd();
|
||||||
|
|
||||||
|
if(callable != nullptr)
|
||||||
|
{
|
||||||
|
while(true)
|
||||||
|
{
|
||||||
|
if(this->parentEnum->MoveNext(ls))
|
||||||
|
{
|
||||||
|
GCList ls2(ls);
|
||||||
|
auto result = callable->Call(ls2,{this->parentEnum->GetCurrent(ls2)});
|
||||||
|
if(!ToBool(result))
|
||||||
|
{
|
||||||
|
ls->BarrierBegin();
|
||||||
|
this->callable=nullptr;
|
||||||
|
ls->BarrierEnd();
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
ls->BarrierBegin();
|
||||||
|
this->callable=nullptr;
|
||||||
|
ls->BarrierEnd();
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
return this->parentEnum->MoveNext(ls);
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
TObject GetCurrent(GCList& ls)
|
||||||
|
{
|
||||||
|
return this->parentEnum->GetCurrent(ls);
|
||||||
|
}
|
||||||
|
void Mark()
|
||||||
|
{
|
||||||
|
if(this->marked) return;
|
||||||
|
this->marked=true;
|
||||||
|
|
||||||
|
if(parentEnum != nullptr) parentEnum->Mark();
|
||||||
|
if(callable != nullptr) callable->Mark();
|
||||||
|
}
|
||||||
|
};
|
||||||
|
class TakeWhileItterator : public TEnumerator {
|
||||||
|
private:
|
||||||
|
TEnumerator* parentEnum;
|
||||||
|
TCallable* callable;
|
||||||
|
TakeWhileItterator(TEnumerator* parentEnum, TCallable* callable) : parentEnum(parentEnum), callable(callable)
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
public:
|
||||||
|
static TakeWhileItterator* Create(GCList& ls, TEnumerator* parentEnum, TCallable* callable)
|
||||||
|
{
|
||||||
|
TakeWhileItterator* queryable = new TakeWhileItterator(parentEnum, callable);
|
||||||
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
|
ls.Add(queryable);
|
||||||
|
gc->Watch(queryable);
|
||||||
|
return queryable;
|
||||||
|
}
|
||||||
|
bool MoveNext(std::shared_ptr<GC> ls)
|
||||||
|
{
|
||||||
|
if(this->parentEnum == nullptr) return false;
|
||||||
|
ls->BarrierBegin();
|
||||||
|
auto callable = this->callable;
|
||||||
|
ls->BarrierEnd();
|
||||||
|
if(callable != nullptr)
|
||||||
|
{
|
||||||
|
if(this->parentEnum->MoveNext(ls))
|
||||||
|
{
|
||||||
|
GCList ls2(ls);
|
||||||
|
auto result = callable->Call(ls2,{this->parentEnum->GetCurrent(ls2)});
|
||||||
|
if(!ToBool(result))
|
||||||
|
{
|
||||||
|
ls->BarrierBegin();
|
||||||
|
this->callable=nullptr;
|
||||||
|
ls->BarrierEnd();
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
TObject GetCurrent(GCList& ls)
|
||||||
|
{
|
||||||
|
return this->parentEnum->GetCurrent(ls);
|
||||||
|
}
|
||||||
|
void Mark()
|
||||||
|
{
|
||||||
|
if(this->marked) return;
|
||||||
|
this->marked=true;
|
||||||
|
|
||||||
|
if(parentEnum != nullptr) parentEnum->Mark();
|
||||||
|
if(callable != nullptr) callable->Mark();
|
||||||
|
}
|
||||||
|
};
|
||||||
|
class WhereItterator : public TEnumerator {
|
||||||
|
private:
|
||||||
|
TEnumerator* parentEnum;
|
||||||
|
TCallable* callable;
|
||||||
|
WhereItterator(TEnumerator* parentEnum, TCallable* callable) : parentEnum(parentEnum), callable(callable)
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
public:
|
||||||
|
static WhereItterator* Create(GCList& ls, TEnumerator* parentEnum, TCallable* callable)
|
||||||
|
{
|
||||||
|
WhereItterator* queryable = new WhereItterator(parentEnum, callable);
|
||||||
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
|
ls.Add(queryable);
|
||||||
|
gc->Watch(queryable);
|
||||||
|
return queryable;
|
||||||
|
}
|
||||||
|
bool MoveNext(std::shared_ptr<GC> ls)
|
||||||
|
{
|
||||||
|
if(this->parentEnum == nullptr || this->callable == nullptr) return false;
|
||||||
|
while(this->parentEnum->MoveNext(ls))
|
||||||
|
{
|
||||||
|
GCList ls2(ls);
|
||||||
|
auto cur = this->parentEnum->GetCurrent(ls2);
|
||||||
|
if(ToBool(callable->Call(ls2,{cur})))
|
||||||
|
return true;
|
||||||
|
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
TObject GetCurrent(GCList& ls)
|
||||||
|
{
|
||||||
|
return this->parentEnum->GetCurrent(ls);
|
||||||
|
}
|
||||||
|
void Mark()
|
||||||
|
{
|
||||||
|
if(this->marked) return;
|
||||||
|
this->marked=true;
|
||||||
|
|
||||||
|
if(parentEnum != nullptr) parentEnum->Mark();
|
||||||
|
if(callable != nullptr) callable->Mark();
|
||||||
|
}
|
||||||
|
};
|
||||||
|
class SelectItterator : public TEnumerator {
|
||||||
|
private:
|
||||||
|
TEnumerator* parentEnum;
|
||||||
|
TCallable* callable;
|
||||||
|
TObject value;
|
||||||
|
SelectItterator(TEnumerator* parentEnum, TCallable* callable) : parentEnum(parentEnum), callable(callable)
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
public:
|
||||||
|
static SelectItterator* Create(GCList& ls, TEnumerator* parentEnum, TCallable* callable)
|
||||||
|
{
|
||||||
|
SelectItterator* queryable = new SelectItterator(parentEnum, callable);
|
||||||
|
std::shared_ptr<GC> gc = ls.GetGC();
|
||||||
|
ls.Add(queryable);
|
||||||
|
gc->Watch(queryable);
|
||||||
|
return queryable;
|
||||||
|
}
|
||||||
|
bool MoveNext(std::shared_ptr<GC> ls)
|
||||||
|
{
|
||||||
|
if(this->parentEnum == nullptr || this->callable == nullptr) return false;
|
||||||
|
if(this->parentEnum->MoveNext(ls))
|
||||||
|
{
|
||||||
|
GCList ls2(ls);
|
||||||
|
auto cur = this->parentEnum->GetCurrent(ls2);
|
||||||
|
auto value = this->callable->Call(ls2,{cur});
|
||||||
|
|
||||||
|
ls->BarrierBegin();
|
||||||
|
this->value = value;
|
||||||
|
ls->BarrierEnd();
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
TObject GetCurrent(GCList& ls)
|
||||||
|
{
|
||||||
|
ls.GetGC()->BarrierBegin();
|
||||||
|
auto value=this->value;
|
||||||
|
ls.GetGC()->BarrierEnd();
|
||||||
|
return value;
|
||||||
|
}
|
||||||
|
void Mark()
|
||||||
|
{
|
||||||
|
if(this->marked) return;
|
||||||
|
this->marked=true;
|
||||||
|
|
||||||
|
if(parentEnum != nullptr) parentEnum->Mark();
|
||||||
|
if(callable != nullptr) callable->Mark();
|
||||||
|
|
||||||
|
GC::Mark(this->value);
|
||||||
|
}
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
TEnumerator* TQueryable::GetEnumerator(GCList& ls)
|
||||||
|
{
|
||||||
|
switch(this->mode)
|
||||||
|
{
|
||||||
|
case TQueryableMode::Skip:
|
||||||
|
{
|
||||||
|
int64_t skipCount;
|
||||||
|
if(GetArgument(args,0,skipCount))
|
||||||
|
return SkipItterator::Create(ls, TEnumerator::CreateFromObject(ls, this->parent), skipCount);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case TQueryableMode::Take:
|
||||||
|
{
|
||||||
|
int64_t takeCount;
|
||||||
|
if(GetArgument(args,0,takeCount))
|
||||||
|
return TakeItterator::Create(ls, TEnumerator::CreateFromObject(ls, this->parent), takeCount);
|
||||||
|
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case TQueryableMode::SkipWhile:
|
||||||
|
{
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetArgumentHeap(args,0,callable))
|
||||||
|
return SkipWhileItterator::Create(ls, TEnumerator::CreateFromObject(ls, this->parent), callable);
|
||||||
|
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case TQueryableMode::TakeWhile:
|
||||||
|
{
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetArgumentHeap(args,0,callable))
|
||||||
|
return TakeWhileItterator::Create(ls, TEnumerator::CreateFromObject(ls, this->parent), callable);
|
||||||
|
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case TQueryableMode::Select:
|
||||||
|
{
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetArgumentHeap(args,0,callable))
|
||||||
|
return SelectItterator::Create(ls, TEnumerator::CreateFromObject(ls, this->parent), callable);
|
||||||
|
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case TQueryableMode::Where:
|
||||||
|
{
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetArgumentHeap(args,0,callable))
|
||||||
|
return WhereItterator::Create(ls, TEnumerator::CreateFromObject(ls, this->parent), callable);
|
||||||
|
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
return TEnumerator::CreateFromObject(ls, this->parent);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
@@ -86,7 +86,7 @@ namespace Tesses::CrossLang {
|
|||||||
return value;
|
return value;
|
||||||
}
|
}
|
||||||
|
|
||||||
void TRootEnvironment::LoadDependency(GC* gc,std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs, std::pair<std::string,TVMVersion> dep)
|
void TRootEnvironment::LoadDependency(std::shared_ptr<GC> gc,std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs, std::pair<std::string,TVMVersion> dep)
|
||||||
{
|
{
|
||||||
for(auto item : this->dependencies)
|
for(auto item : this->dependencies)
|
||||||
if(item.first == dep.first && item.second.CompareTo(dep.second) >= 0) return;
|
if(item.first == dep.first && item.second.CompareTo(dep.second) >= 0) return;
|
||||||
@@ -129,7 +129,7 @@ namespace Tesses::CrossLang {
|
|||||||
f->Load(ls.GetGC(),ms);
|
f->Load(ls.GetGC(),ms);
|
||||||
return this->LoadFile(ls.GetGC(), f);
|
return this->LoadFile(ls.GetGC(), f);
|
||||||
}
|
}
|
||||||
TDictionary* TEnvironment::EnsureDictionary(GC* gc, std::string key)
|
TDictionary* TEnvironment::EnsureDictionary(std::shared_ptr<GC> gc, std::string key)
|
||||||
{
|
{
|
||||||
TObject item = this->GetVariable(key);
|
TObject item = this->GetVariable(key);
|
||||||
TDictionary* dict;
|
TDictionary* dict;
|
||||||
@@ -139,7 +139,7 @@ namespace Tesses::CrossLang {
|
|||||||
this->DeclareVariable(key, dict);
|
this->DeclareVariable(key, dict);
|
||||||
return dict;
|
return dict;
|
||||||
}
|
}
|
||||||
void TEnvironment::DeclareVariable(GC* gc, std::vector<std::string> name, TObject o)
|
void TEnvironment::DeclareVariable(std::shared_ptr<GC> gc, std::vector<std::string> name, TObject o)
|
||||||
{
|
{
|
||||||
if(name.size() == 0)
|
if(name.size() == 0)
|
||||||
throw VMException("name can't be empty.");
|
throw VMException("name can't be empty.");
|
||||||
@@ -209,7 +209,7 @@ namespace Tesses::CrossLang {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
TObject TEnvironment::LoadFile(GC* gc, TFile* file)
|
TObject TEnvironment::LoadFile(std::shared_ptr<GC> gc, TFile* file)
|
||||||
{
|
{
|
||||||
file->EnsureCanRunInCrossLang();
|
file->EnsureCanRunInCrossLang();
|
||||||
for(size_t i = 0; i < file->classes.size(); i++)
|
for(size_t i = 0; i < file->classes.size(); i++)
|
||||||
@@ -266,7 +266,7 @@ namespace Tesses::CrossLang {
|
|||||||
}
|
}
|
||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
void TRootEnvironment::LoadFileWithDependencies(GC* gc,std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs, TFile* file)
|
void TRootEnvironment::LoadFileWithDependencies(std::shared_ptr<GC> gc,std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs, TFile* file)
|
||||||
{
|
{
|
||||||
this->dependencies.push_back(std::pair<std::string,TVMVersion>(file->name,file->version));
|
this->dependencies.push_back(std::pair<std::string,TVMVersion>(file->name,file->version));
|
||||||
for(auto item : file->dependencies)
|
for(auto item : file->dependencies)
|
||||||
@@ -276,7 +276,7 @@ namespace Tesses::CrossLang {
|
|||||||
LoadFile(gc, file);
|
LoadFile(gc, file);
|
||||||
|
|
||||||
}
|
}
|
||||||
void TRootEnvironment::LoadFileWithDependencies(GC* gc,std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs, Tesses::Framework::Filesystem::VFSPath path)
|
void TRootEnvironment::LoadFileWithDependencies(std::shared_ptr<GC> gc,std::shared_ptr<Tesses::Framework::Filesystem::VFS> vfs, Tesses::Framework::Filesystem::VFSPath path)
|
||||||
{
|
{
|
||||||
|
|
||||||
|
|
||||||
@@ -344,7 +344,7 @@ namespace Tesses::CrossLang {
|
|||||||
TRootEnvironment* TRootEnvironment::Create(GCList* gc,TDictionary* dict)
|
TRootEnvironment* TRootEnvironment::Create(GCList* gc,TDictionary* dict)
|
||||||
{
|
{
|
||||||
TRootEnvironment* env=new TRootEnvironment(dict);
|
TRootEnvironment* env=new TRootEnvironment(dict);
|
||||||
GC* _gc = gc->GetGC();
|
std::shared_ptr<GC> _gc = gc->GetGC();
|
||||||
gc->Add(env);
|
gc->Add(env);
|
||||||
_gc->Watch(env);
|
_gc->Watch(env);
|
||||||
return env;
|
return env;
|
||||||
@@ -352,13 +352,13 @@ namespace Tesses::CrossLang {
|
|||||||
TRootEnvironment* TRootEnvironment::Create(GCList& gc,TDictionary* dict)
|
TRootEnvironment* TRootEnvironment::Create(GCList& gc,TDictionary* dict)
|
||||||
{
|
{
|
||||||
TRootEnvironment* env=new TRootEnvironment(dict);
|
TRootEnvironment* env=new TRootEnvironment(dict);
|
||||||
GC* _gc = gc.GetGC();
|
std::shared_ptr<GC> _gc = gc.GetGC();
|
||||||
gc.Add(env);
|
gc.Add(env);
|
||||||
_gc->Watch(env);
|
_gc->Watch(env);
|
||||||
return env;
|
return env;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool TRootEnvironment::HandleException(GC* gc,TEnvironment* env, TObject err)
|
bool TRootEnvironment::HandleException(std::shared_ptr<GC> gc,TEnvironment* env, TObject err)
|
||||||
{
|
{
|
||||||
if(error != nullptr)
|
if(error != nullptr)
|
||||||
{
|
{
|
||||||
@@ -373,7 +373,7 @@ namespace Tesses::CrossLang {
|
|||||||
}
|
}
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
bool TRootEnvironment::HandleBreakpoint(GC* gc,TEnvironment* env, TObject err)
|
bool TRootEnvironment::HandleBreakpoint(std::shared_ptr<GC> gc,TEnvironment* env, TObject err)
|
||||||
{
|
{
|
||||||
if(error != nullptr)
|
if(error != nullptr)
|
||||||
{
|
{
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ namespace Tesses::CrossLang
|
|||||||
{
|
{
|
||||||
return Tesses::Framework::Streams::Stream::GetLength();
|
return Tesses::Framework::Streams::Stream::GetLength();
|
||||||
}
|
}
|
||||||
TObjectStream::TObjectStream(GC* gc, TObject obj)
|
TObjectStream::TObjectStream(std::shared_ptr<GC> gc, TObject obj)
|
||||||
{
|
{
|
||||||
this->ls = new GCList(gc);
|
this->ls = new GCList(gc);
|
||||||
this->ls->Add(obj);
|
this->ls->Add(obj);
|
||||||
@@ -205,7 +205,7 @@ namespace Tesses::CrossLang
|
|||||||
TDictionary* dict;
|
TDictionary* dict;
|
||||||
if(GetObjectHeap(this->obj, dict))
|
if(GetObjectHeap(this->obj, dict))
|
||||||
{
|
{
|
||||||
dict->CallMethod(*ls,"Close",{});
|
dict->CallMethod(*ls,"Dispose",{});
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
TObjectStream::~TObjectStream()
|
TObjectStream::~TObjectStream()
|
||||||
@@ -213,7 +213,7 @@ namespace Tesses::CrossLang
|
|||||||
TDictionary* dict;
|
TDictionary* dict;
|
||||||
if(GetObjectHeap(this->obj, dict))
|
if(GetObjectHeap(this->obj, dict))
|
||||||
{
|
{
|
||||||
dict->CallMethod(*ls,"Close",{});
|
dict->CallMethod(*ls,"Dispose",{});
|
||||||
}
|
}
|
||||||
delete this->ls;
|
delete this->ls;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -180,7 +180,7 @@ namespace Tesses::CrossLang {
|
|||||||
{
|
{
|
||||||
auto dict=TDictionary::Create(gc);
|
auto dict=TDictionary::Create(gc);
|
||||||
TSubEnvironment* sEnv = this->GetSubEnvironment(dict);
|
TSubEnvironment* sEnv = this->GetSubEnvironment(dict);
|
||||||
GC* _gc = gc->GetGC();
|
std::shared_ptr<GC> _gc = gc->GetGC();
|
||||||
gc->Add(sEnv);
|
gc->Add(sEnv);
|
||||||
_gc->Watch(sEnv);
|
_gc->Watch(sEnv);
|
||||||
return sEnv;
|
return sEnv;
|
||||||
@@ -189,7 +189,7 @@ namespace Tesses::CrossLang {
|
|||||||
{
|
{
|
||||||
auto dict=TDictionary::Create(gc);
|
auto dict=TDictionary::Create(gc);
|
||||||
TSubEnvironment* sEnv = this->GetSubEnvironment(dict);
|
TSubEnvironment* sEnv = this->GetSubEnvironment(dict);
|
||||||
GC* _gc = gc.GetGC();
|
std::shared_ptr<GC> _gc = gc.GetGC();
|
||||||
gc.Add(sEnv);
|
gc.Add(sEnv);
|
||||||
_gc->Watch(sEnv);
|
_gc->Watch(sEnv);
|
||||||
return sEnv;
|
return sEnv;
|
||||||
@@ -197,7 +197,7 @@ namespace Tesses::CrossLang {
|
|||||||
TSubEnvironment* TSubEnvironment::Create(GCList* gc, TEnvironment* env, TDictionary* dict)
|
TSubEnvironment* TSubEnvironment::Create(GCList* gc, TEnvironment* env, TDictionary* dict)
|
||||||
{
|
{
|
||||||
TSubEnvironment* senv = new TSubEnvironment(env,dict);
|
TSubEnvironment* senv = new TSubEnvironment(env,dict);
|
||||||
GC* _gc = gc->GetGC();
|
std::shared_ptr<GC> _gc = gc->GetGC();
|
||||||
gc->Add(senv);
|
gc->Add(senv);
|
||||||
_gc->Watch(senv);
|
_gc->Watch(senv);
|
||||||
return senv;
|
return senv;
|
||||||
@@ -205,7 +205,7 @@ namespace Tesses::CrossLang {
|
|||||||
TSubEnvironment* TSubEnvironment::Create(GCList& gc, TEnvironment* env, TDictionary* dict)
|
TSubEnvironment* TSubEnvironment::Create(GCList& gc, TEnvironment* env, TDictionary* dict)
|
||||||
{
|
{
|
||||||
TSubEnvironment* senv = new TSubEnvironment(env,dict);
|
TSubEnvironment* senv = new TSubEnvironment(env,dict);
|
||||||
GC* _gc = gc.GetGC();
|
std::shared_ptr<GC> _gc = gc.GetGC();
|
||||||
gc.Add(senv);
|
gc.Add(senv);
|
||||||
_gc->Watch(senv);
|
_gc->Watch(senv);
|
||||||
return senv;
|
return senv;
|
||||||
@@ -227,32 +227,20 @@ namespace Tesses::CrossLang {
|
|||||||
this->env->Mark();
|
this->env->Mark();
|
||||||
for(auto defer : defers) defer->Mark();
|
for(auto defer : defers) defer->Mark();
|
||||||
}
|
}
|
||||||
void TEnvironment::DeclareFunction(GC* gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb)
|
void TEnvironment::DeclareFunction(std::shared_ptr<GC> gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb)
|
||||||
{
|
{
|
||||||
gc->BarrierBegin();
|
gc->BarrierBegin();
|
||||||
GCList ls(gc);
|
GCList ls(gc);
|
||||||
this->DeclareVariable(key, TExternalMethod::Create(ls,documentation,argNames,cb));
|
this->DeclareVariable(key, TExternalMethod::Create(ls,documentation,argNames,cb));
|
||||||
gc->BarrierEnd();
|
gc->BarrierEnd();
|
||||||
}
|
}
|
||||||
void TEnvironment::DeclareFunction(GC& gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb)
|
|
||||||
{
|
void TEnvironment::DeclareFunction(std::shared_ptr<GC> gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb,std::function<void()> destroy)
|
||||||
gc.BarrierBegin();
|
|
||||||
GCList ls(gc);
|
|
||||||
this->DeclareVariable(key, TExternalMethod::Create(ls,documentation,argNames,cb));
|
|
||||||
gc.BarrierEnd();
|
|
||||||
}
|
|
||||||
void TEnvironment::DeclareFunction(GC* gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb,std::function<void()> destroy)
|
|
||||||
{
|
{
|
||||||
gc->BarrierBegin();
|
gc->BarrierBegin();
|
||||||
GCList ls(gc);
|
GCList ls(gc);
|
||||||
this->DeclareVariable(key, TExternalMethod::Create(ls,documentation,argNames,cb,destroy));
|
this->DeclareVariable(key, TExternalMethod::Create(ls,documentation,argNames,cb,destroy));
|
||||||
gc->BarrierEnd();
|
gc->BarrierEnd();
|
||||||
}
|
}
|
||||||
void TEnvironment::DeclareFunction(GC& gc,std::string key,std::string documentation, std::vector<std::string> argNames, std::function<TObject(GCList& ls, std::vector<TObject> args)> cb,std::function<void()> destroy)
|
|
||||||
{
|
|
||||||
gc.BarrierBegin();
|
|
||||||
GCList ls(gc);
|
|
||||||
this->DeclareVariable(key, TExternalMethod::Create(ls,documentation,argNames,cb,destroy));
|
|
||||||
gc.BarrierEnd();
|
|
||||||
}
|
|
||||||
};
|
};
|
||||||
|
|||||||
@@ -2,135 +2,28 @@
|
|||||||
|
|
||||||
namespace Tesses::CrossLang {
|
namespace Tesses::CrossLang {
|
||||||
|
|
||||||
TObjectVFS::TObjectVFS(GC* gc, TObject obj)
|
TObjectVFS::TObjectVFS(std::shared_ptr<GC> gc, TObject obj)
|
||||||
{
|
{
|
||||||
this->ls = new GCList(gc);
|
this->ls = new GCList(gc);
|
||||||
this->ls->Add(obj);
|
this->ls->Add(obj);
|
||||||
this->obj = obj;
|
this->obj = obj;
|
||||||
TDictionary* dict;
|
|
||||||
if(GetObjectHeap(obj,dict))
|
|
||||||
{
|
|
||||||
gc->BarrierBegin();
|
|
||||||
if(!dict->HasValue("OpenFile"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"OpenFile","Open a file",{"path","mode"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
return nullptr;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("EnumeratePaths"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"EnumeratePaths","Enumerate paths",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
return TVFSPathEnumerator::Create(ls,Tesses::Framework::Filesystem::VFSPathEnumerator());
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("ReadLink"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"ReadLink","Read a symlink",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
return Tesses::Framework::Filesystem::VFSPath();
|
|
||||||
});
|
|
||||||
}
|
|
||||||
|
|
||||||
if(!dict->HasValue("VFSPathToSystem"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"VFSPathToSystem","Convert path to system",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
Tesses::Framework::Filesystem::VFSPath path;
|
|
||||||
if(GetArgumentAsPath(args,0,path))
|
|
||||||
{
|
|
||||||
return path.ToString();
|
|
||||||
}
|
|
||||||
return "/";
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("SystemToVFSPath"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"SystemToVFSPath","Convert system to path",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
std::string p;
|
|
||||||
if(GetArgument(args,0,p))
|
|
||||||
{
|
|
||||||
return Tesses::Framework::Filesystem::VFSPath(p);
|
|
||||||
}
|
|
||||||
return Tesses::Framework::Filesystem::VFSPath();
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("GetDate"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"GetDate","Get date from file",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
auto dict = TDictionary::Create(ls);
|
|
||||||
ls.GetGC()->BarrierBegin();
|
|
||||||
dict->SetValue("LastWrite", (int64_t)time(NULL));
|
|
||||||
dict->SetValue("LastAccess", (int64_t)time(NULL));
|
|
||||||
ls.GetGC()->BarrierEnd();
|
|
||||||
return dict;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("RegularFileExists"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"RegularFileExists","Regular file exists",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
|
|
||||||
return false;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("SymlinkExists"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"SymlinkExists","Symlink exists",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
|
|
||||||
return false;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("CharacterDeviceExists"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"CharacterDeviceExists","Character file exists",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
|
|
||||||
return false;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("BlockDeviceExists"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"BlockDeviceExists","Block file exists",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
|
|
||||||
return false;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("SocketFileExists"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"SocketFileExists","Socket file exists",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
|
|
||||||
return false;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
|
|
||||||
if(!dict->HasValue("FIFOFileExists"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"FIFOFileExists","FIFO file exists",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
|
|
||||||
return false;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("FileExists"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"FileExists","File exists",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
|
|
||||||
return false;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("SpecialFileExists"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"SpecialFileExists","Special file exists",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
|
|
||||||
return false;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
if(!dict->HasValue("DirectoryExists"))
|
|
||||||
{
|
|
||||||
dict->DeclareFunction(gc,"DirectoryExists","Directory exists",{"path"}, [](GCList& ls, std::vector<TObject> args)->TObject {
|
|
||||||
|
|
||||||
return false;
|
|
||||||
});
|
|
||||||
}
|
|
||||||
gc->BarrierEnd();
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
Tesses::Framework::Filesystem::FIFOCreationResult TObjectVFS::CreateFIFO(Tesses::Framework::Filesystem::VFSPath path)
|
||||||
|
{
|
||||||
|
TDictionary* dict;
|
||||||
|
|
||||||
|
if(GetObjectHeap(this->obj, dict))
|
||||||
|
{
|
||||||
|
GCList ls(this->ls->GetGC());
|
||||||
|
auto res = dict->CallMethod(ls, "CreateFIFO",{path});
|
||||||
|
int64_t n=0;
|
||||||
|
if(GetObject(res, n)) return (Tesses::Framework::Filesystem::FIFOCreationResult)n;
|
||||||
|
}
|
||||||
|
return Tesses::Framework::Filesystem::FIFOCreationResult::UnknownError;
|
||||||
|
}
|
||||||
|
|
||||||
std::shared_ptr<Tesses::Framework::Streams::Stream> TObjectVFS::OpenFile(Tesses::Framework::Filesystem::VFSPath path, std::string mode)
|
std::shared_ptr<Tesses::Framework::Streams::Stream> TObjectVFS::OpenFile(Tesses::Framework::Filesystem::VFSPath path, std::string mode)
|
||||||
{
|
{
|
||||||
TDictionary* dict;
|
TDictionary* dict;
|
||||||
@@ -189,136 +82,7 @@ namespace Tesses::CrossLang {
|
|||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
bool TObjectVFS::RegularFileExists(Tesses::Framework::Filesystem::VFSPath path)
|
void TObjectVFS::CreateSymlink(Tesses::Framework::Filesystem::VFSPath existingFile, Tesses::Framework::Filesystem::VFSPath symlinkFile)
|
||||||
{
|
|
||||||
|
|
||||||
TDictionary* dict;
|
|
||||||
if(GetObjectHeap(this->obj, dict))
|
|
||||||
{
|
|
||||||
GCList ls(this->ls->GetGC());
|
|
||||||
auto res = dict->CallMethod(ls, "RegularFileExists",{path});
|
|
||||||
bool out;
|
|
||||||
if(GetObject(res,out))
|
|
||||||
{
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
|
|
||||||
bool TObjectVFS::SymlinkExists(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
|
||||||
TDictionary* dict;
|
|
||||||
|
|
||||||
if(GetObjectHeap(this->obj, dict))
|
|
||||||
{
|
|
||||||
GCList ls(this->ls->GetGC());
|
|
||||||
auto res = dict->CallMethod(ls, "SymlinkExists",{path});
|
|
||||||
bool out;
|
|
||||||
if(GetObject(res,out))
|
|
||||||
{
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
bool TObjectVFS::CharacterDeviceExists(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
|
||||||
TDictionary* dict;
|
|
||||||
|
|
||||||
if(GetObjectHeap(this->obj, dict))
|
|
||||||
{
|
|
||||||
GCList ls(this->ls->GetGC());
|
|
||||||
auto res = dict->CallMethod(ls, "CharacterDeviceExists",{path});
|
|
||||||
bool out;
|
|
||||||
if(GetObject(res,out))
|
|
||||||
{
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
bool TObjectVFS::BlockDeviceExists(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
|
||||||
TDictionary* dict;
|
|
||||||
|
|
||||||
if(GetObjectHeap(this->obj, dict))
|
|
||||||
{
|
|
||||||
GCList ls(this->ls->GetGC());
|
|
||||||
auto res = dict->CallMethod(ls, "BlockDeviceExists",{path});
|
|
||||||
bool out;
|
|
||||||
if(GetObject(res,out))
|
|
||||||
{
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
bool TObjectVFS::SocketFileExists(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
|
||||||
TDictionary* dict;
|
|
||||||
|
|
||||||
if(GetObjectHeap(this->obj, dict))
|
|
||||||
{
|
|
||||||
GCList ls(this->ls->GetGC());
|
|
||||||
auto res = dict->CallMethod(ls, "SocketFileExists",{path});
|
|
||||||
bool out;
|
|
||||||
if(GetObject(res,out))
|
|
||||||
{
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
bool TObjectVFS::FIFOFileExists(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
|
||||||
TDictionary* dict;
|
|
||||||
|
|
||||||
if(GetObjectHeap(this->obj, dict))
|
|
||||||
{
|
|
||||||
GCList ls(this->ls->GetGC());
|
|
||||||
auto res = dict->CallMethod(ls, "FIFOFileExists",{path});
|
|
||||||
bool out;
|
|
||||||
if(GetObject(res,out))
|
|
||||||
{
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
bool TObjectVFS::FileExists(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
|
||||||
TDictionary* dict;
|
|
||||||
|
|
||||||
if(GetObjectHeap(this->obj, dict))
|
|
||||||
{
|
|
||||||
GCList ls(this->ls->GetGC());
|
|
||||||
auto res = dict->CallMethod(ls, "FileExists",{path});
|
|
||||||
bool out;
|
|
||||||
if(GetObject(res,out))
|
|
||||||
{
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
bool TObjectVFS::SpecialFileExists(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
|
||||||
TDictionary* dict;
|
|
||||||
|
|
||||||
if(GetObjectHeap(this->obj, dict))
|
|
||||||
{
|
|
||||||
GCList ls(this->ls->GetGC());
|
|
||||||
auto res = dict->CallMethod(ls, "SpecialFileExists",{path});
|
|
||||||
bool out;
|
|
||||||
if(GetObject(res,out))
|
|
||||||
{
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
void TObjectVFS::CreateSymlink(Tesses::Framework::Filesystem::VFSPath existingFile, Tesses::Framework::Filesystem::VFSPath symlinkFile)
|
|
||||||
{
|
{
|
||||||
TDictionary* dict;
|
TDictionary* dict;
|
||||||
|
|
||||||
@@ -340,22 +104,7 @@ namespace Tesses::CrossLang {
|
|||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
bool TObjectVFS::DirectoryExists(Tesses::Framework::Filesystem::VFSPath path)
|
void TObjectVFS::DeleteFile(Tesses::Framework::Filesystem::VFSPath path)
|
||||||
{
|
|
||||||
TDictionary* dict;
|
|
||||||
if(GetObjectHeap(this->obj, dict))
|
|
||||||
{
|
|
||||||
GCList ls(this->ls->GetGC());
|
|
||||||
auto res = dict->CallMethod(ls, "DirectoryExists",{path});
|
|
||||||
bool out;
|
|
||||||
if(GetObject(res,out))
|
|
||||||
{
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return false;
|
|
||||||
}
|
|
||||||
void TObjectVFS::DeleteFile(Tesses::Framework::Filesystem::VFSPath path)
|
|
||||||
{
|
{
|
||||||
TDictionary* dict;
|
TDictionary* dict;
|
||||||
|
|
||||||
@@ -484,31 +233,6 @@ namespace Tesses::CrossLang {
|
|||||||
}
|
}
|
||||||
return Tesses::Framework::Filesystem::VFSPath();
|
return Tesses::Framework::Filesystem::VFSPath();
|
||||||
}
|
}
|
||||||
void TObjectVFS::GetDate(Tesses::Framework::Filesystem::VFSPath path, Tesses::Framework::Date::DateTime& lastWrite, Tesses::Framework::Date::DateTime& lastAccess)
|
|
||||||
{
|
|
||||||
|
|
||||||
TDictionary* dict;
|
|
||||||
if(GetObjectHeap(this->obj, dict))
|
|
||||||
{
|
|
||||||
GCList ls(this->ls->GetGC());
|
|
||||||
auto res = dict->CallMethod(ls, "GetDate",{path});
|
|
||||||
if(GetObjectHeap(res,dict))
|
|
||||||
{
|
|
||||||
this->ls->GetGC()->BarrierBegin();
|
|
||||||
res = dict->GetValue("LastWrite");
|
|
||||||
std::shared_ptr<Tesses::Framework::Date::DateTime> d;
|
|
||||||
if(GetObject(res,d))
|
|
||||||
lastWrite =*d;
|
|
||||||
|
|
||||||
res = dict->GetValue("LastAccess");
|
|
||||||
|
|
||||||
if(GetObject(res,d))
|
|
||||||
lastWrite = *d;
|
|
||||||
|
|
||||||
this->ls->GetGC()->BarrierEnd();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
void TObjectVFS::SetDate(Tesses::Framework::Filesystem::VFSPath path, Tesses::Framework::Date::DateTime lastWrite, Tesses::Framework::Date::DateTime lastAccess)
|
void TObjectVFS::SetDate(Tesses::Framework::Filesystem::VFSPath path, Tesses::Framework::Date::DateTime lastWrite, Tesses::Framework::Date::DateTime lastAccess)
|
||||||
{
|
{
|
||||||
|
|
||||||
@@ -532,6 +256,80 @@ namespace Tesses::CrossLang {
|
|||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
void TObjectVFS::Chown(Tesses::Framework::Filesystem::VFSPath path, uint32_t uid, uint32_t gid)
|
||||||
|
{
|
||||||
|
TDictionary* dict;
|
||||||
|
|
||||||
|
if(GetObjectHeap(this->obj, dict))
|
||||||
|
{
|
||||||
|
GCList ls(this->ls->GetGC());
|
||||||
|
dict->CallMethod(ls, "Chown",{path,(int64_t)uid, (int64_t)gid});
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
bool TObjectVFS::Stat(Tesses::Framework::Filesystem::VFSPath path, Tesses::Framework::Filesystem::StatData& data)
|
||||||
|
{
|
||||||
|
TDictionary* dict;
|
||||||
|
|
||||||
|
if(GetObjectHeap(this->obj, dict))
|
||||||
|
{
|
||||||
|
GCList ls(this->ls->GetGC());
|
||||||
|
auto res = dict->CallMethod(ls, "Stat",{path});
|
||||||
|
int64_t _num;
|
||||||
|
TDictionary* _dict;
|
||||||
|
TObject _o;
|
||||||
|
if(GetObjectHeap(res,_dict))
|
||||||
|
{
|
||||||
|
this->ls->GetGC()->BarrierBegin();
|
||||||
|
_o = _dict->GetValue("BlockSize");
|
||||||
|
if(GetObject(_o,_num)) data.BlockSize = (uint64_t)_num;
|
||||||
|
|
||||||
|
_o = _dict->GetValue("BlockCount");
|
||||||
|
if(GetObject(_o,_num)) data.BlockCount = (uint64_t)_num;
|
||||||
|
|
||||||
|
_o = _dict->GetValue("Device");
|
||||||
|
if(GetObject(_o,_num)) data.Device = (uint64_t)_num;
|
||||||
|
|
||||||
|
_o = _dict->GetValue("DeviceId");
|
||||||
|
if(GetObject(_o,_num)) data.DeviceId = (uint64_t)_num;
|
||||||
|
|
||||||
|
_o = _dict->GetValue("GroupId");
|
||||||
|
if(GetObject(_o,_num)) data.GroupId = (uint32_t)_num;
|
||||||
|
|
||||||
|
_o = _dict->GetValue("HardLinks");
|
||||||
|
if(GetObject(_o,_num)) data.HardLinks = (uint64_t)_num;
|
||||||
|
std::shared_ptr<Tesses::Framework::Date::DateTime> dt;
|
||||||
|
_o = _dict->GetValue("LastAccess");
|
||||||
|
if(GetObject(_o,dt)) data.LastAccess = dt ? *dt : Tesses::Framework::Date::DateTime(0);
|
||||||
|
|
||||||
|
|
||||||
|
_o = _dict->GetValue("LastModified");
|
||||||
|
if(GetObject(_o,dt)) data.LastModified = dt ? *dt : Tesses::Framework::Date::DateTime(0);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
_o = _dict->GetValue("LastStatus");
|
||||||
|
if(GetObject(_o,dt)) data.LastStatus = dt ? *dt : Tesses::Framework::Date::DateTime(0);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
_o = _dict->GetValue("Mode");
|
||||||
|
if(GetObject(_o,_num)) data.Mode = (uint32_t)_num;
|
||||||
|
|
||||||
|
_o = _dict->GetValue("Size");
|
||||||
|
if(GetObject(_o,_num)) data.Size = (uint64_t)_num;
|
||||||
|
|
||||||
|
_o = _dict->GetValue("UserId");
|
||||||
|
if(GetObject(_o,_num)) data.UserId = (uint32_t)_num;
|
||||||
|
|
||||||
|
|
||||||
|
this->ls->GetGC()->BarrierEnd();
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
bool TObjectVFS::StatVFS(Tesses::Framework::Filesystem::VFSPath path, Tesses::Framework::Filesystem::StatVFSData& data)
|
bool TObjectVFS::StatVFS(Tesses::Framework::Filesystem::VFSPath path, Tesses::Framework::Filesystem::StatVFSData& data)
|
||||||
{
|
{
|
||||||
TDictionary* dict;
|
TDictionary* dict;
|
||||||
@@ -546,28 +344,28 @@ namespace Tesses::CrossLang {
|
|||||||
if(GetObjectHeap(res,_dict))
|
if(GetObjectHeap(res,_dict))
|
||||||
{
|
{
|
||||||
this->ls->GetGC()->BarrierBegin();
|
this->ls->GetGC()->BarrierBegin();
|
||||||
_o = dict->GetValue("BlockSize");
|
_o = _dict->GetValue("BlockSize");
|
||||||
if(GetObject(_o,_num)) data.BlockSize = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.BlockSize = (uint64_t)_num;
|
||||||
|
|
||||||
_o = dict->GetValue("FragmentSize");
|
_o = _dict->GetValue("FragmentSize");
|
||||||
if(GetObject(_o,_num)) data.FragmentSize = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.FragmentSize = (uint64_t)_num;
|
||||||
_o = dict->GetValue("Blocks");
|
_o = _dict->GetValue("Blocks");
|
||||||
if(GetObject(_o,_num)) data.Blocks = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.Blocks = (uint64_t)_num;
|
||||||
_o = dict->GetValue("BlocksFree");
|
_o = _dict->GetValue("BlocksFree");
|
||||||
if(GetObject(_o,_num)) data.BlocksFree = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.BlocksFree = (uint64_t)_num;
|
||||||
_o = dict->GetValue("BlocksAvailable");
|
_o = _dict->GetValue("BlocksAvailable");
|
||||||
if(GetObject(_o,_num)) data.BlocksAvailable = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.BlocksAvailable = (uint64_t)_num;
|
||||||
_o = dict->GetValue("TotalInodes");
|
_o = _dict->GetValue("TotalInodes");
|
||||||
if(GetObject(_o,_num)) data.TotalInodes = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.TotalInodes = (uint64_t)_num;
|
||||||
_o = dict->GetValue("FreeInodes");
|
_o = _dict->GetValue("FreeInodes");
|
||||||
if(GetObject(_o,_num)) data.FreeInodes = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.FreeInodes = (uint64_t)_num;
|
||||||
_o = dict->GetValue("AvailableInodes");
|
_o = _dict->GetValue("AvailableInodes");
|
||||||
if(GetObject(_o,_num)) data.AvailableInodes = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.AvailableInodes = (uint64_t)_num;
|
||||||
_o = dict->GetValue("Id");
|
_o = _dict->GetValue("Id");
|
||||||
if(GetObject(_o,_num)) data.Id = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.Id = (uint64_t)_num;
|
||||||
_o = dict->GetValue("Flags");
|
_o = _dict->GetValue("Flags");
|
||||||
if(GetObject(_o,_num)) data.Flags = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.Flags = (uint64_t)_num;
|
||||||
_o = dict->GetValue("MaxNameLength");
|
_o = _dict->GetValue("MaxNameLength");
|
||||||
if(GetObject(_o,_num)) data.MaxNameLength = (uint64_t)_num;
|
if(GetObject(_o,_num)) data.MaxNameLength = (uint64_t)_num;
|
||||||
|
|
||||||
|
|
||||||
@@ -588,7 +386,7 @@ namespace Tesses::CrossLang {
|
|||||||
if(GetObjectHeap(this->obj, dict))
|
if(GetObjectHeap(this->obj, dict))
|
||||||
{
|
{
|
||||||
GCList ls(this->ls->GetGC());
|
GCList ls(this->ls->GetGC());
|
||||||
dict->CallMethod(ls,"Close",{});
|
dict->CallMethod(ls,"Dispose",{});
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
TObjectVFS::~TObjectVFS()
|
TObjectVFS::~TObjectVFS()
|
||||||
@@ -597,7 +395,7 @@ namespace Tesses::CrossLang {
|
|||||||
if(GetObjectHeap(this->obj, dict))
|
if(GetObjectHeap(this->obj, dict))
|
||||||
{
|
{
|
||||||
GCList ls(this->ls->GetGC());
|
GCList ls(this->ls->GetGC());
|
||||||
dict->CallMethod(ls,"Close",{});
|
dict->CallMethod(ls,"Dispose",{});
|
||||||
}
|
}
|
||||||
delete this->ls;
|
delete this->ls;
|
||||||
}
|
}
|
||||||
|
|||||||
164
src/vm/bc/add.cpp
Normal file
164
src/vm/bc/add.cpp
Normal file
@@ -0,0 +1,164 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
#include "TessesFramework/Streams/ByteReader.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
#include <cstddef>
|
||||||
|
#include <exception>
|
||||||
|
#include <iostream>
|
||||||
|
#include <cmath>
|
||||||
|
#include <cstring>
|
||||||
|
#include <sstream>
|
||||||
|
#include <variant>
|
||||||
|
namespace Tesses::CrossLang {
|
||||||
|
bool InterperterThread::Add(std::shared_ptr<GC> gc)
|
||||||
|
{
|
||||||
|
std::vector<CallStackEntry*>& cse=this->call_stack_entries;
|
||||||
|
GCList ls(gc);
|
||||||
|
auto right = cse.back()->Pop(ls);
|
||||||
|
auto left = cse.back()->Pop(ls);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
if(std::holds_alternative<std::string>(left) && std::holds_alternative<Tesses::Framework::Filesystem::VFSPath>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<std::string>(left) + std::get<Tesses::Framework::Filesystem::VFSPath>(right));
|
||||||
|
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<char>(left) && std::holds_alternative<char>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,(char)(std::get<char>(left) + std::get<char>(right)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<int64_t>(left) && std::holds_alternative<char>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, (char)(std::get<int64_t>(left) + std::get<char>(right)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<char>(left) && std::holds_alternative<int64_t>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, (char)(std::get<char>(left) + std::get<int64_t>(right)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<Tesses::Framework::Filesystem::VFSPath>(left) && std::holds_alternative<std::string>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<Tesses::Framework::Filesystem::VFSPath>(left) + std::get<std::string>(right));
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<Tesses::Framework::Filesystem::VFSPath>(left) && std::holds_alternative<Tesses::Framework::Filesystem::VFSPath>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<Tesses::Framework::Filesystem::VFSPath>(left) + std::get<Tesses::Framework::Filesystem::VFSPath>(right));
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<int64_t>(left) && std::holds_alternative<int64_t>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<int64_t>(left) + std::get<int64_t>(right));
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<double>(left) && std::holds_alternative<double>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<double>(left) + std::get<double>(right));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<double>(left) && std::holds_alternative<int64_t>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<double>(left) + std::get<int64_t>(right));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<int64_t>(left) && std::holds_alternative<double>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<int64_t>(left) + std::get<double>(right));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(left) && std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(right))
|
||||||
|
{
|
||||||
|
auto& l = std::get<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(left);
|
||||||
|
auto& r = std::get<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(right);
|
||||||
|
cse.back()->Push(gc,std::make_shared<Tesses::Framework::Date::TimeSpan>((*l) + (*r)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(left) && std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(right))
|
||||||
|
{
|
||||||
|
auto& l = std::get<std::shared_ptr<Tesses::Framework::Date::DateTime>>(left);
|
||||||
|
auto& r = std::get<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(right);
|
||||||
|
cse.back()->Push(gc,std::make_shared<Tesses::Framework::Date::DateTime>((*l) + (*r)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(left) && std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(right))
|
||||||
|
{
|
||||||
|
auto& l = std::get<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(left);
|
||||||
|
auto& r = std::get<std::shared_ptr<Tesses::Framework::Date::DateTime>>(right);
|
||||||
|
cse.back()->Push(gc,std::make_shared<Tesses::Framework::Date::DateTime>((*l) + (*r)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::string>(left) && std::holds_alternative<std::string>(right))
|
||||||
|
{
|
||||||
|
std::string str={};
|
||||||
|
str.append(std::get<std::string>(left));
|
||||||
|
str.append(std::get<std::string>(right));
|
||||||
|
cse.back()->Push(gc,str);
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<char>(left) && std::holds_alternative<std::string>(right))
|
||||||
|
{
|
||||||
|
std::string str={};
|
||||||
|
str.push_back(std::get<char>(left));
|
||||||
|
str.append(std::get<std::string>(right));
|
||||||
|
cse.back()->Push(gc,str);
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::string>(left) && std::holds_alternative<char>(right))
|
||||||
|
{
|
||||||
|
std::string str={};
|
||||||
|
str.append(std::get<std::string>(left));
|
||||||
|
str.push_back(std::get<char>(right));
|
||||||
|
cse.back()->Push(gc,str);
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<THeapObjectHolder>(left))
|
||||||
|
{
|
||||||
|
auto obj = std::get<THeapObjectHolder>(left).obj;
|
||||||
|
auto dict = dynamic_cast<TDictionary*>(obj);
|
||||||
|
auto dynDict = dynamic_cast<TDynamicDictionary*>(obj);
|
||||||
|
auto natObj = dynamic_cast<TNativeObject*>(obj);
|
||||||
|
auto cls = dynamic_cast<TClassObject*>(obj);
|
||||||
|
if(cls != nullptr)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
auto obj=cls->GetValue(cse.back()->callable->className,"operator+");
|
||||||
|
gc->BarrierEnd();
|
||||||
|
TClosure* clos;
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetObjectHeap(obj,clos))
|
||||||
|
{
|
||||||
|
this->AddCallStackEntry(ls,clos,{right});
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
else if(GetObjectHeap(obj,callable))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,callable->Call(ls,{right}));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
|
||||||
|
}
|
||||||
|
else if(natObj != nullptr)
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, natObj->CallMethod(ls,"operator+",{right}));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(dict != nullptr)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
TObject fn = dict->GetValue("operator+");
|
||||||
|
gc->BarrierEnd();
|
||||||
|
return InvokeTwo(ls,fn,left,right);
|
||||||
|
}
|
||||||
|
else if(dynDict != nullptr)
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,dynDict->CallMethod(ls,"operator+",{right}));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
236
src/vm/bc/equals.cpp
Normal file
236
src/vm/bc/equals.cpp
Normal file
@@ -0,0 +1,236 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
#include "TessesFramework/Streams/ByteReader.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
#include <cstddef>
|
||||||
|
#include <exception>
|
||||||
|
#include <iostream>
|
||||||
|
#include <cmath>
|
||||||
|
#include <cstring>
|
||||||
|
#include <sstream>
|
||||||
|
#include <variant>
|
||||||
|
|
||||||
|
|
||||||
|
namespace Tesses::CrossLang {
|
||||||
|
|
||||||
|
bool Equals(std::shared_ptr<GC> gc, TObject left, TObject right)
|
||||||
|
{
|
||||||
|
GCList ls(gc);
|
||||||
|
if(std::holds_alternative<std::nullptr_t>(left) && std::holds_alternative<std::nullptr_t>(right))
|
||||||
|
{
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<Undefined>(left) && std::holds_alternative<Undefined>(right))
|
||||||
|
{
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<int64_t>(left) && std::holds_alternative<int64_t>(right))
|
||||||
|
{
|
||||||
|
return std::get<int64_t>(left) == std::get<int64_t>(right);
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<double>(left) && std::holds_alternative<double>(right))
|
||||||
|
{
|
||||||
|
return std::get<double>(left) == std::get<double>(right);
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<double>(left) && std::holds_alternative<int64_t>(right))
|
||||||
|
{
|
||||||
|
return std::get<double>(left) == std::get<int64_t>(right);
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<int64_t>(left) && std::holds_alternative<double>(right))
|
||||||
|
{
|
||||||
|
return std::get<int64_t>(left) == std::get<double>(right);
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<std::string>(left) && std::holds_alternative<std::string>(right))
|
||||||
|
{
|
||||||
|
return std::get<std::string>(left) == std::get<std::string>(right);
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<bool>(left) && std::holds_alternative<bool>(right))
|
||||||
|
{
|
||||||
|
return std::get<bool>(left) == std::get<bool>(right);
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<char>(left) && std::holds_alternative<char>(right))
|
||||||
|
{
|
||||||
|
return std::get<char>(left) == std::get<char>(right);
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<char>(left) && std::holds_alternative<int64_t>(right))
|
||||||
|
{
|
||||||
|
return std::get<char>(left) == std::get<int64_t>(right);
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<int64_t>(left) && std::holds_alternative<char>(right))
|
||||||
|
{
|
||||||
|
return std::get<int64_t>(left) == std::get<char>(right);
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(left) && std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(right))
|
||||||
|
{
|
||||||
|
return std::get<std::shared_ptr<Tesses::Framework::Date::DateTime>>(left)->ToEpoch() == std::get<std::shared_ptr<Tesses::Framework::Date::DateTime>>(right)->ToEpoch();
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(left) && std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(right))
|
||||||
|
{
|
||||||
|
return std::get<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(left)->TotalSeconds() == std::get<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(right)->TotalSeconds();
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<TVMVersion>(left) && std::holds_alternative<TVMVersion>(right))
|
||||||
|
{
|
||||||
|
auto lver= std::get<TVMVersion>(left);
|
||||||
|
auto rver = std::get<TVMVersion>(right);
|
||||||
|
auto r = lver.CompareTo(rver);
|
||||||
|
return r == 0;
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<Tesses::Framework::Uuid>(left) && std::holds_alternative<Tesses::Framework::Uuid>(right))
|
||||||
|
{
|
||||||
|
auto l= std::get<Tesses::Framework::Uuid>(left);
|
||||||
|
auto r = std::get<Tesses::Framework::Uuid>(right);
|
||||||
|
|
||||||
|
return l == r;
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<THeapObjectHolder>(left))
|
||||||
|
{
|
||||||
|
auto obj = std::get<THeapObjectHolder>(left).obj;
|
||||||
|
auto dict = dynamic_cast<TDictionary*>(obj);
|
||||||
|
|
||||||
|
auto dynDict = dynamic_cast<TDynamicDictionary*>(obj);
|
||||||
|
auto native = dynamic_cast<TNative*>(obj);
|
||||||
|
auto natObj = dynamic_cast<TNativeObject*>(obj);
|
||||||
|
auto cls = dynamic_cast<TClassObject*>(obj);
|
||||||
|
if(cls != nullptr)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
auto obj=cls->GetValue("","operator==");
|
||||||
|
gc->BarrierEnd();
|
||||||
|
TCallable* callable;
|
||||||
|
|
||||||
|
if(GetObjectHeap(obj,callable))
|
||||||
|
{
|
||||||
|
return ToBool(callable->Call(ls,{right}));
|
||||||
|
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::nullptr_t>(right)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<Undefined>(right))
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<THeapObjectHolder>(right))
|
||||||
|
{
|
||||||
|
return cls == std::get<THeapObjectHolder>(right).obj;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
if(natObj != nullptr)
|
||||||
|
{
|
||||||
|
return natObj->Equals(gc, right);
|
||||||
|
}
|
||||||
|
if(dict != nullptr)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
TObject fn = dict->GetValue("operator==");
|
||||||
|
gc->BarrierEnd();
|
||||||
|
if(!std::holds_alternative<Undefined>(fn))
|
||||||
|
{
|
||||||
|
if(std::holds_alternative<THeapObjectHolder>(fn))
|
||||||
|
{
|
||||||
|
|
||||||
|
auto obj = dynamic_cast<TCallable*>(std::get<THeapObjectHolder>(fn).obj);
|
||||||
|
if(obj != nullptr)
|
||||||
|
{
|
||||||
|
auto closure = dynamic_cast<TClosure*>(obj);
|
||||||
|
if(closure != nullptr)
|
||||||
|
{
|
||||||
|
|
||||||
|
if(!closure->closure->args.empty() && closure->closure->args[0] == "this")
|
||||||
|
{
|
||||||
|
return ToBool(obj->Call(ls,{left,right}));
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
return ToBool(obj->Call(ls,{right}));
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
return ToBool(obj->Call(ls,{right}));
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
|
||||||
|
|
||||||
|
return dict == std::get<THeapObjectHolder>(right).obj;
|
||||||
|
}
|
||||||
|
|
||||||
|
} else {
|
||||||
|
|
||||||
|
return dict == std::get<THeapObjectHolder>(right).obj;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
|
||||||
|
return dict == std::get<THeapObjectHolder>(right).obj;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(dynDict != nullptr)
|
||||||
|
{
|
||||||
|
auto res = dynDict->CallMethod(ls,"operator==",{right});
|
||||||
|
if(!std::holds_alternative<std::nullptr_t>(res) && std::holds_alternative<Undefined>(res))
|
||||||
|
{
|
||||||
|
return ToBool(res);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(native != nullptr && std::holds_alternative<std::nullptr_t>(right))
|
||||||
|
{
|
||||||
|
return native->GetDestroyed();
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
if(std::holds_alternative<THeapObjectHolder>(right))
|
||||||
|
{
|
||||||
|
return obj == std::get<THeapObjectHolder>(right).obj;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<std::nullptr_t>(right))
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<Undefined>(right))
|
||||||
|
{
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<std::nullptr_t>(right))
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<Undefined>(right))
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
3988
src/vm/bc/executemethod2.cpp
Normal file
3988
src/vm/bc/executemethod2.cpp
Normal file
File diff suppressed because it is too large
Load Diff
811
src/vm/bc/getfield.cpp
Normal file
811
src/vm/bc/getfield.cpp
Normal file
@@ -0,0 +1,811 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
#include "TessesFramework/Streams/ByteReader.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
#include <cstddef>
|
||||||
|
#include <exception>
|
||||||
|
#include <iostream>
|
||||||
|
#include <cmath>
|
||||||
|
#include <cstring>
|
||||||
|
#include <sstream>
|
||||||
|
#include <variant>
|
||||||
|
namespace Tesses::CrossLang {
|
||||||
|
bool InterperterThread::GetField(std::shared_ptr<GC> gc)
|
||||||
|
{
|
||||||
|
std::vector<CallStackEntry*>& cse=this->call_stack_entries;
|
||||||
|
|
||||||
|
if(!cse.empty())
|
||||||
|
{
|
||||||
|
auto stk = cse.back();
|
||||||
|
GCList ls(gc);
|
||||||
|
TObject _key = stk->Pop(ls);
|
||||||
|
|
||||||
|
|
||||||
|
TObject instance = stk->Pop(ls);
|
||||||
|
|
||||||
|
if(!std::holds_alternative<std::string>(_key))
|
||||||
|
{
|
||||||
|
stk->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
std::string key = std::get<std::string>(_key);
|
||||||
|
|
||||||
|
|
||||||
|
if(std::holds_alternative<std::string>(instance))
|
||||||
|
{
|
||||||
|
std::string str = std::get<std::string>(instance);
|
||||||
|
|
||||||
|
if(key == "Count" || key == "Length")
|
||||||
|
{
|
||||||
|
int64_t len = (int64_t)str.size();
|
||||||
|
if(len < 0) len = 0;
|
||||||
|
|
||||||
|
cse.back()->Push(gc, len);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::TF_Timer_Handle>>(instance))
|
||||||
|
{
|
||||||
|
auto timer = std::get<std::shared_ptr<Tesses::Framework::TF_Timer_Handle>>(instance);
|
||||||
|
if(timer)
|
||||||
|
{
|
||||||
|
if(key == "Interval")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, timer->GetIntervalMilliseconds());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Enabled")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, timer->GetEnabled());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Filesystem::VFS>>(instance))
|
||||||
|
{
|
||||||
|
auto vfs = std::get<std::shared_ptr<Tesses::Framework::Filesystem::VFS>>(instance);
|
||||||
|
auto tmpFS=std::dynamic_pointer_cast<Tesses::Framework::Filesystem::TempFS>(vfs);
|
||||||
|
auto relative = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::RelativeFilesystem>(vfs);
|
||||||
|
auto myFS = std::dynamic_pointer_cast<TObjectVFS>(vfs);
|
||||||
|
if(relative)
|
||||||
|
{
|
||||||
|
if(key == "Working")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, relative->GetWorking());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Filesystem")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, relative->GetVFS());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(myFS)
|
||||||
|
{
|
||||||
|
if(key == "Inner")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, myFS->obj);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(tmpFS)
|
||||||
|
{
|
||||||
|
if(key == "TempDirectoryName")
|
||||||
|
{
|
||||||
|
|
||||||
|
cse.back()->Push(gc,tmpFS->TempDirectoryName());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::TextStreams::TextWriter>>(instance))
|
||||||
|
{
|
||||||
|
auto writer = std::get<std::shared_ptr<Tesses::Framework::TextStreams::TextWriter>>(instance);
|
||||||
|
auto stringWriter = std::dynamic_pointer_cast<Tesses::Framework::TextStreams::StringWriter>(writer);
|
||||||
|
if(stringWriter != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Text")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, stringWriter->GetString());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(key == "NewLine")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,writer->newline);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Streams::ByteReader>>(instance))
|
||||||
|
{
|
||||||
|
auto br = std::get<std::shared_ptr<Tesses::Framework::Streams::ByteReader>>(instance);
|
||||||
|
if(key == "Stream")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,br->GetStream());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Streams::ByteWriter>>(instance))
|
||||||
|
{
|
||||||
|
auto bw = std::get<std::shared_ptr<Tesses::Framework::Streams::ByteWriter>>(instance);
|
||||||
|
if(key == "Stream")
|
||||||
|
{
|
||||||
|
|
||||||
|
cse.back()->Push(gc,bw->GetStream());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Streams::Stream>>(instance))
|
||||||
|
{
|
||||||
|
auto strm = std::get<std::shared_ptr<Tesses::Framework::Streams::Stream>>(instance);
|
||||||
|
if(strm != nullptr)
|
||||||
|
{
|
||||||
|
auto netStrm = std::dynamic_pointer_cast<Tesses::Framework::Streams::NetworkStream>(strm);
|
||||||
|
|
||||||
|
if(key == "CanRead")
|
||||||
|
{
|
||||||
|
|
||||||
|
|
||||||
|
cse.back()->Push(gc, strm->CanRead());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "CanWrite")
|
||||||
|
{
|
||||||
|
|
||||||
|
cse.back()->Push(gc, strm->CanWrite());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "CanSeek")
|
||||||
|
{
|
||||||
|
|
||||||
|
|
||||||
|
cse.back()->Push(gc, strm->CanSeek());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "EndOfStream")
|
||||||
|
{
|
||||||
|
|
||||||
|
cse.back()->Push(gc, strm->EndOfStream());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Length")
|
||||||
|
{
|
||||||
|
|
||||||
|
cse.back()->Push(gc, strm->GetLength());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Position")
|
||||||
|
{
|
||||||
|
|
||||||
|
cse.back()->Push(gc, strm->GetPosition());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(netStrm != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Port")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, netStrm->GetPort());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
|
||||||
|
return false;
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<TVMVersion>(instance))
|
||||||
|
{
|
||||||
|
TVMVersion& version = std::get<TVMVersion>(instance);
|
||||||
|
if(key == "Major")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)version.Major());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Minor")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)version.Minor());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Patch")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)version.Patch());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Build")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)version.Build());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "VersionInt")
|
||||||
|
{
|
||||||
|
stk->Push(gc,(int64_t)version.AsLong());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Stage")
|
||||||
|
{
|
||||||
|
switch(version.VersionStage())
|
||||||
|
{
|
||||||
|
case TVMVersionStage::DevVersion:
|
||||||
|
stk->Push(gc,"dev");
|
||||||
|
break;
|
||||||
|
case TVMVersionStage::AlphaVersion:
|
||||||
|
stk->Push(gc,"alpha");
|
||||||
|
break;
|
||||||
|
case TVMVersionStage::BetaVersion:
|
||||||
|
stk->Push(gc,"beta");
|
||||||
|
break;
|
||||||
|
case TVMVersionStage::ProductionVersion:
|
||||||
|
stk->Push(gc,"prod");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
stk->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(instance))
|
||||||
|
{
|
||||||
|
auto time = std::get<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(instance);
|
||||||
|
if(key == "Days")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)time->Days());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Hours")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)time->Hours());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(key == "Minutes")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)time->Minutes());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Seconds")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)time->Seconds());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(key == "TotalHours")
|
||||||
|
{
|
||||||
|
stk->Push(gc, time->TotalHours());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(key == "TotalMinutes")
|
||||||
|
{
|
||||||
|
stk->Push(gc, time->TotalMinutes());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(key == "TotalSeconds")
|
||||||
|
{
|
||||||
|
stk->Push(gc, time->TotalSeconds());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
stk->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(instance))
|
||||||
|
{
|
||||||
|
auto& date = std::get<std::shared_ptr<Tesses::Framework::Date::DateTime>>(instance);
|
||||||
|
if(key == "IsLocal")
|
||||||
|
{
|
||||||
|
stk->Push(gc, date->IsLocal());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Year")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)date->Year());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Month")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)date->Month());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Day")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)date->Day());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Hour")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)date->Hour());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Minute")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)date->Minute());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Second")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)date->Second());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "DayOfWeek")
|
||||||
|
{
|
||||||
|
stk->Push(gc, (int64_t)date->DayOfWeek());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
stk->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<THeapObjectHolder>(instance))
|
||||||
|
{
|
||||||
|
auto obj = std::get<THeapObjectHolder>(instance).obj;
|
||||||
|
auto bA = dynamic_cast<TByteArray*>(obj);
|
||||||
|
auto list = dynamic_cast<TList*>(obj);
|
||||||
|
auto dict = dynamic_cast<TDictionary*>(obj);
|
||||||
|
auto dynDict = dynamic_cast<TDynamicDictionary*>(obj);
|
||||||
|
auto dynList = dynamic_cast<TDynamicList*>(obj);
|
||||||
|
auto tcallable = dynamic_cast<TCallable*>(obj);
|
||||||
|
auto closure = dynamic_cast<TClosure*>(obj);
|
||||||
|
auto externalMethod = dynamic_cast<TExternalMethod*>(obj);
|
||||||
|
auto ittr = dynamic_cast<TEnumerator*>(obj);
|
||||||
|
|
||||||
|
auto callstackEntry = dynamic_cast<CallStackEntry*>(obj);
|
||||||
|
auto file = dynamic_cast<TFile*>(obj);
|
||||||
|
auto chunk = dynamic_cast<TFileChunk*>(obj);
|
||||||
|
auto natObj = dynamic_cast<TNativeObject*>(obj);
|
||||||
|
auto cls = dynamic_cast<TClassObject*>(obj);
|
||||||
|
auto aarray = dynamic_cast<TAssociativeArray*>(obj);
|
||||||
|
auto task = dynamic_cast<TTask*>(obj);
|
||||||
|
if(task != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "IsCompleted")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,task->IsCompleted());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(aarray != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Count" || key == "Length")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,aarray->Count());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(cls != nullptr)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
auto obj=cls->GetValue(cse.back()->callable->className,"get"+key);
|
||||||
|
gc->BarrierEnd();
|
||||||
|
TClosure* clos;
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetObjectHeap(obj,clos))
|
||||||
|
{
|
||||||
|
this->AddCallStackEntry(ls,clos,{});
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
else if(GetObjectHeap(obj,callable))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,callable->Call(ls,{}));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,cls->GetValue(cse.back()->callable->className,key));
|
||||||
|
return false;
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
if(natObj != nullptr)
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,natObj->CallMethod(ls,"get"+key,{}));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(file != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Version")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,file->version);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Name")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,file->name);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Info")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, file->info);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Dependencies")
|
||||||
|
{
|
||||||
|
auto list = TList::Create(ls);
|
||||||
|
gc->BarrierBegin();
|
||||||
|
for(auto item : file->dependencies)
|
||||||
|
{
|
||||||
|
auto res = TDictionary::Create(ls);
|
||||||
|
res->SetValue("Name", item.first);
|
||||||
|
res->SetValue("Version", item.second);
|
||||||
|
list->Add(res);
|
||||||
|
}
|
||||||
|
gc->BarrierEnd();
|
||||||
|
cse.back()->Push(gc, list);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Tools")
|
||||||
|
{
|
||||||
|
auto list = TList::Create(ls);
|
||||||
|
gc->BarrierBegin();
|
||||||
|
for(auto item : file->tools)
|
||||||
|
{
|
||||||
|
auto res = TDictionary::Create(ls);
|
||||||
|
res->SetValue("Name", item.first);
|
||||||
|
res->SetValue("Version", item.second);
|
||||||
|
list->Add(res);
|
||||||
|
}
|
||||||
|
gc->BarrierEnd();
|
||||||
|
cse.back()->Push(gc, list);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Strings")
|
||||||
|
{
|
||||||
|
auto list = TList::Create(ls);
|
||||||
|
gc->BarrierBegin();
|
||||||
|
for(auto item : file->name)
|
||||||
|
{
|
||||||
|
list->Add(item);
|
||||||
|
}
|
||||||
|
gc->BarrierEnd();
|
||||||
|
|
||||||
|
cse.back()->Push(gc, list);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "MetadataCount")
|
||||||
|
{
|
||||||
|
|
||||||
|
cse.back()->Push(gc, (int64_t)file->metadata.size());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Metadata")
|
||||||
|
{
|
||||||
|
TList* meta = TList::Create(ls);
|
||||||
|
gc->BarrierBegin();
|
||||||
|
for(size_t i = 0; i < file->metadata.size(); i++)
|
||||||
|
{
|
||||||
|
meta->Add(
|
||||||
|
TDictionary::Create(ls,
|
||||||
|
{
|
||||||
|
TDItem("Name", file->metadata[i].first),
|
||||||
|
TDItem("Index",(int64_t)i)
|
||||||
|
}
|
||||||
|
)
|
||||||
|
);
|
||||||
|
}
|
||||||
|
gc->BarrierEnd();
|
||||||
|
|
||||||
|
cse.back()->Push(gc, meta);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Sections")
|
||||||
|
{
|
||||||
|
TList* sections = TList::Create(ls);
|
||||||
|
gc->BarrierBegin();
|
||||||
|
for(auto& item : file->sections)
|
||||||
|
{
|
||||||
|
TByteArray* ba = TByteArray::Create(ls);
|
||||||
|
ba->data = item.second;
|
||||||
|
sections->Add(TDictionary::Create(ls,{
|
||||||
|
TDItem("Name", item.first),
|
||||||
|
TDItem("Data", ba)
|
||||||
|
}));
|
||||||
|
}
|
||||||
|
gc->BarrierEnd();
|
||||||
|
|
||||||
|
cse.back()->Push(gc, sections);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "SupportedVMs")
|
||||||
|
{
|
||||||
|
TList* supported = TList::Create(ls);
|
||||||
|
gc->BarrierBegin();
|
||||||
|
if(file->vms.empty())
|
||||||
|
{
|
||||||
|
supported->Add(TDictionary::Create(ls,{
|
||||||
|
TDItem("Name",std::string(VMName)),
|
||||||
|
TDItem("HowToGet",std::string(VMHowToGet))
|
||||||
|
}));
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
for(auto item : file->vms)
|
||||||
|
supported->Add(TDictionary::Create(ls,{
|
||||||
|
TDItem("Name",item.first),
|
||||||
|
TDItem("HowToGet",item.second)
|
||||||
|
}));
|
||||||
|
}
|
||||||
|
gc->BarrierEnd();
|
||||||
|
cse.back()->Push(gc, supported);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Chunks")
|
||||||
|
{
|
||||||
|
auto list = TList::Create(ls);
|
||||||
|
gc->BarrierBegin();
|
||||||
|
for(auto item : file->chunks)
|
||||||
|
{
|
||||||
|
list->Add(item);
|
||||||
|
}
|
||||||
|
|
||||||
|
gc->BarrierEnd();
|
||||||
|
|
||||||
|
cse.back()->Push(gc, list);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Classes")
|
||||||
|
{
|
||||||
|
auto list = TList::Create(ls);
|
||||||
|
gc->BarrierBegin();
|
||||||
|
|
||||||
|
for(uint32_t i = 0; i < (uint32_t)file->classes.size(); i++)
|
||||||
|
{
|
||||||
|
list->Add(GetClassInfo(ls,file,i));
|
||||||
|
}
|
||||||
|
|
||||||
|
cse.back()->Push(gc, list);
|
||||||
|
gc->BarrierEnd();
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Functions")
|
||||||
|
{
|
||||||
|
auto list = TList::Create(ls);
|
||||||
|
gc->BarrierBegin();
|
||||||
|
for(auto& item : file->functions)
|
||||||
|
{
|
||||||
|
TDictionary* dict = TDictionary::Create(ls);
|
||||||
|
if(!item.first.empty())
|
||||||
|
dict->SetValue("Documentation", item.first[0]);
|
||||||
|
TList* nameParts = TList::Create(ls);
|
||||||
|
for(size_t i = 1; i < item.first.size(); i++)
|
||||||
|
{
|
||||||
|
nameParts->Add(item.first[i]);
|
||||||
|
}
|
||||||
|
dict->SetValue("NameParts", nameParts);
|
||||||
|
dict->SetValue("ChunkId", (int64_t)item.second);
|
||||||
|
|
||||||
|
list->Add(dict);
|
||||||
|
}
|
||||||
|
|
||||||
|
cse.back()->Push(gc, list);
|
||||||
|
gc->BarrierEnd();
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(key == "Icon")
|
||||||
|
{
|
||||||
|
if(file->icon >= 0 && file->icon < file->resources.size())
|
||||||
|
{
|
||||||
|
TByteArray* ba = TByteArray::Create(ls);
|
||||||
|
ba->data = file->resources[file->icon];
|
||||||
|
cse.back()->Push(gc, ba);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
cse.back()->Push(gc, nullptr);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(chunk != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Arguments")
|
||||||
|
{
|
||||||
|
auto myargs = TList::Create(ls);
|
||||||
|
gc->BarrierBegin();
|
||||||
|
for(auto item : chunk->args)
|
||||||
|
{
|
||||||
|
myargs->Add(item);
|
||||||
|
}
|
||||||
|
gc->BarrierEnd();
|
||||||
|
cse.back()->Push(gc, myargs);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Code")
|
||||||
|
{
|
||||||
|
auto ba = TByteArray::Create(ls);
|
||||||
|
ba->data = chunk->code;
|
||||||
|
cse.back()->Push(gc, ba);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "File")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, chunk->file);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(callstackEntry != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "IP")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, (int64_t)callstackEntry->ip);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "IsDone")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, callstackEntry->ip >= callstackEntry->callable->closure->code.size());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Closure")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, callstackEntry->callable);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "StackEmpty")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, callstackEntry->stack.empty());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
if(ittr != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Current")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, ittr->GetCurrent(ls));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(closure != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Arguments")
|
||||||
|
{
|
||||||
|
GCList ls2(gc);
|
||||||
|
TList* ls = TList::Create(ls2);
|
||||||
|
for(auto arg : closure->closure->args)
|
||||||
|
{
|
||||||
|
ls->Add(arg);
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,ls);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "File")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,closure->file);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(externalMethod != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Arguments")
|
||||||
|
{
|
||||||
|
GCList ls2(gc);
|
||||||
|
TList* ls = TList::Create(ls2);
|
||||||
|
for(auto arg : externalMethod->args)
|
||||||
|
{
|
||||||
|
ls->Add(arg);
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,ls);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(tcallable != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Documentation")
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, tcallable->documentation);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Tag")
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
cse.back()->Push(gc, tcallable->tag);
|
||||||
|
gc->BarrierEnd();
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(bA != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Count" || key == "Length")
|
||||||
|
{
|
||||||
|
int64_t len = (int64_t)bA->data.size();
|
||||||
|
if(len < 0) len = 0;
|
||||||
|
|
||||||
|
stk->Push(gc, len);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(list != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Count" || key == "Length")
|
||||||
|
{
|
||||||
|
int64_t len = list->Count();
|
||||||
|
if(len < 0) len = 0;
|
||||||
|
|
||||||
|
stk->Push(gc, len);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(dynList != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Count" || key == "Length")
|
||||||
|
{
|
||||||
|
int64_t len = dynList->Count(ls);
|
||||||
|
if(len < 0) len = 0;
|
||||||
|
|
||||||
|
stk->Push(gc, len);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(dynDict != nullptr)
|
||||||
|
{
|
||||||
|
if(dynDict->MethodExists(ls,"get" + key))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,dynDict->CallMethod(ls,"get" + key, {}));
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, dynDict->GetField(ls,key));
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(dict != nullptr)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
TObject fn = dict->GetValue("get" + key);
|
||||||
|
gc->BarrierEnd();
|
||||||
|
if(std::holds_alternative<THeapObjectHolder>(fn) && dynamic_cast<TCallable*>(std::get<THeapObjectHolder>(fn).obj) != nullptr)
|
||||||
|
{
|
||||||
|
return InvokeOne(ls,fn, dict);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
fn = dict->GetValue(key);
|
||||||
|
stk->Push(gc, fn);
|
||||||
|
gc->BarrierEnd();
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
stk->Push(gc, Undefined());
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
54
src/vm/bc/invokemethod.cpp
Normal file
54
src/vm/bc/invokemethod.cpp
Normal file
@@ -0,0 +1,54 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
#include "TessesFramework/Streams/ByteReader.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
#include <cstddef>
|
||||||
|
#include <exception>
|
||||||
|
#include <iostream>
|
||||||
|
#include <cmath>
|
||||||
|
#include <cstring>
|
||||||
|
#include <sstream>
|
||||||
|
#include <variant>
|
||||||
|
|
||||||
|
namespace Tesses::CrossLang {
|
||||||
|
|
||||||
|
bool InterperterThread::InvokeMethod(GCList& ls, TObject fn, TObject instance, std::vector<TObject> args)
|
||||||
|
{
|
||||||
|
|
||||||
|
if(std::holds_alternative<THeapObjectHolder>(fn))
|
||||||
|
{
|
||||||
|
|
||||||
|
auto obj = dynamic_cast<TCallable*>(std::get<THeapObjectHolder>(fn).obj);
|
||||||
|
if(obj != nullptr)
|
||||||
|
{
|
||||||
|
auto closure = dynamic_cast<TClosure*>(obj);
|
||||||
|
if(closure != nullptr)
|
||||||
|
{
|
||||||
|
|
||||||
|
if(!closure->closure->args.empty() && closure->closure->args[0] == "this")
|
||||||
|
{
|
||||||
|
std::vector<TObject> args2;
|
||||||
|
args2.push_back(instance);
|
||||||
|
args2.insert(args2.end(), args.begin(),args.end());
|
||||||
|
this->AddCallStackEntry(ls,closure,args2);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
this->AddCallStackEntry(ls,closure,args);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
auto val = obj->Call(ls,args);
|
||||||
|
this->call_stack_entries.back()->Push(ls.GetGC(), val);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
this->call_stack_entries.back()->Push(ls.GetGC(),Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
47
src/vm/bc/invoketwo.cpp
Normal file
47
src/vm/bc/invoketwo.cpp
Normal file
@@ -0,0 +1,47 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
#include "TessesFramework/Streams/ByteReader.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
#include <cstddef>
|
||||||
|
#include <exception>
|
||||||
|
#include <iostream>
|
||||||
|
#include <cmath>
|
||||||
|
#include <cstring>
|
||||||
|
#include <sstream>
|
||||||
|
#include <variant>
|
||||||
|
namespace Tesses::CrossLang {
|
||||||
|
bool InterperterThread::InvokeTwo(GCList& ls, TObject fn, TObject left, TObject right)
|
||||||
|
{
|
||||||
|
if(std::holds_alternative<THeapObjectHolder>(fn))
|
||||||
|
{
|
||||||
|
|
||||||
|
auto obj = dynamic_cast<TCallable*>(std::get<THeapObjectHolder>(fn).obj);
|
||||||
|
if(obj != nullptr)
|
||||||
|
{
|
||||||
|
auto closure = dynamic_cast<TClosure*>(obj);
|
||||||
|
if(closure != nullptr)
|
||||||
|
{
|
||||||
|
|
||||||
|
if(!closure->closure->args.empty() && closure->closure->args[0] == "this")
|
||||||
|
{
|
||||||
|
this->AddCallStackEntry(ls,closure,{left,right});
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
this->AddCallStackEntry(ls,closure,{right});
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
this->call_stack_entries[this->call_stack_entries.size()-1]->Push(ls.GetGC(), obj->Call(ls,{right}));
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
372
src/vm/bc/setfield.cpp
Normal file
372
src/vm/bc/setfield.cpp
Normal file
@@ -0,0 +1,372 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
#include "TessesFramework/Streams/ByteReader.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
#include <cstddef>
|
||||||
|
#include <exception>
|
||||||
|
#include <iostream>
|
||||||
|
#include <cmath>
|
||||||
|
#include <cstring>
|
||||||
|
#include <sstream>
|
||||||
|
#include <variant>
|
||||||
|
namespace Tesses::CrossLang {
|
||||||
|
|
||||||
|
static void empty()
|
||||||
|
{
|
||||||
|
|
||||||
|
}
|
||||||
|
bool InterperterThread::SetField(std::shared_ptr<GC> gc)
|
||||||
|
{
|
||||||
|
std::vector<CallStackEntry*>& cse=this->call_stack_entries;
|
||||||
|
|
||||||
|
if(!cse.empty())
|
||||||
|
{
|
||||||
|
auto stk = cse.back();
|
||||||
|
GCList ls(gc);
|
||||||
|
TObject value = stk->Pop(ls);
|
||||||
|
TObject _key = stk->Pop(ls);
|
||||||
|
TObject instance = stk->Pop(ls);
|
||||||
|
|
||||||
|
if(!std::holds_alternative<std::string>(_key))
|
||||||
|
{
|
||||||
|
stk->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
std::string key = std::get<std::string>(_key);
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::TF_Timer_Handle>>(instance))
|
||||||
|
{
|
||||||
|
auto handle = std::get<std::shared_ptr<Tesses::Framework::TF_Timer_Handle>>(instance);
|
||||||
|
if(handle)
|
||||||
|
{
|
||||||
|
int64_t ms;
|
||||||
|
bool b;
|
||||||
|
if(key == "Enabled" && GetObject(value,b))
|
||||||
|
{
|
||||||
|
|
||||||
|
handle->SetEnabled(b);
|
||||||
|
|
||||||
|
cse.back()->Push(gc,b);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(key == "Interval" && GetObject(value, ms))
|
||||||
|
{
|
||||||
|
handle->SetIntervalFromMilliseconds(ms);
|
||||||
|
|
||||||
|
cse.back()->Push(gc,ms);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Callback")
|
||||||
|
{
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetObjectHeap(value,callable))
|
||||||
|
{
|
||||||
|
|
||||||
|
auto obj = CreateMarkedTObject(ls.GetGC(), callable);
|
||||||
|
handle->SetCallback([obj]()->void {
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetObjectHeap(obj->GetObject(), callable))
|
||||||
|
{
|
||||||
|
GCList ls(obj->GetGC());
|
||||||
|
callable->Call(ls,{});
|
||||||
|
}
|
||||||
|
});
|
||||||
|
cse.back()->Push(gc, callable);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
handle->SetCallback(empty);
|
||||||
|
cse.back()->Push(gc, nullptr);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::TextStreams::TextWriter>>(instance))
|
||||||
|
{
|
||||||
|
auto writer = std::get<std::shared_ptr<Tesses::Framework::TextStreams::TextWriter>>(instance);
|
||||||
|
auto stringWriter = std::dynamic_pointer_cast<Tesses::Framework::TextStreams::StringWriter>(writer);
|
||||||
|
if(stringWriter != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Text")
|
||||||
|
{
|
||||||
|
if(std::holds_alternative<std::string>(value))
|
||||||
|
{
|
||||||
|
stringWriter->GetString() = std::get<std::string>(value);
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc, stringWriter->GetString());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(key == "NewLine")
|
||||||
|
{
|
||||||
|
if(std::holds_alternative<std::string>(value))
|
||||||
|
{
|
||||||
|
writer->newline = std::get<std::string>(value);
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,writer->newline);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Filesystem::VFS>>(instance))
|
||||||
|
{
|
||||||
|
|
||||||
|
auto vfs = std::get<std::shared_ptr<Tesses::Framework::Filesystem::VFS>>(instance);
|
||||||
|
auto relative = std::dynamic_pointer_cast<Tesses::Framework::Filesystem::RelativeFilesystem>(vfs);
|
||||||
|
|
||||||
|
if(relative)
|
||||||
|
{
|
||||||
|
if(key == "Working")
|
||||||
|
{
|
||||||
|
Tesses::Framework::Filesystem::VFSPath path;
|
||||||
|
if(GetObjectAsPath(value,path))
|
||||||
|
{
|
||||||
|
if(path.relative)
|
||||||
|
{
|
||||||
|
relative->SetWorking(path.MakeAbsolute(relative->GetWorking()));
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
relative->SetWorking(path);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Http::IHttpServer>>(instance))
|
||||||
|
{
|
||||||
|
auto svr = std::get<std::shared_ptr<Tesses::Framework::Http::IHttpServer>>(instance);
|
||||||
|
auto bas = std::dynamic_pointer_cast<Tesses::Framework::Http::BasicAuthServer>(svr);
|
||||||
|
auto cgi = std::dynamic_pointer_cast<Tesses::Framework::Http::CGIServer>(svr);
|
||||||
|
auto changable = std::dynamic_pointer_cast<Tesses::Framework::Http::ChangeableServer>(svr);
|
||||||
|
if(changable != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Server")
|
||||||
|
{
|
||||||
|
bas->server = ToHttpServer(gc,value);
|
||||||
|
stk->Push(gc,value);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(bas != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Realm")
|
||||||
|
{
|
||||||
|
bool val;
|
||||||
|
if(GetObject(value,val))
|
||||||
|
{
|
||||||
|
bas->realm = val;
|
||||||
|
stk->Push(gc,val );
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(key == "Server")
|
||||||
|
{
|
||||||
|
bas->server = ToHttpServer(gc,value);
|
||||||
|
stk->Push(gc,value);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(key == "Authorization")
|
||||||
|
{
|
||||||
|
TCallable* val;
|
||||||
|
if(GetObjectHeap(value,val))
|
||||||
|
{
|
||||||
|
auto marked= CreateMarkedTObject(ls, val);
|
||||||
|
bas->authorization = [marked](std::string user,std::string password)->bool {
|
||||||
|
GCList ls(marked->GetGC());
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetObjectHeap(marked->GetObject(), callable))
|
||||||
|
{
|
||||||
|
return ToBool(callable->Call(ls,{user,password}));
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
};
|
||||||
|
stk->Push(gc,val);
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(cgi != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "WorkingDirectory")
|
||||||
|
{
|
||||||
|
Tesses::Framework::Filesystem::VFSPath path;
|
||||||
|
if(GetObjectAsPath(value,path))
|
||||||
|
{
|
||||||
|
cgi->workingDirectory = path;
|
||||||
|
stk->Push(gc,path);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
cgi->workingDirectory = std::nullopt;
|
||||||
|
stk->Push(gc,nullptr);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
if(key == "DocumentRoot")
|
||||||
|
{
|
||||||
|
Tesses::Framework::Filesystem::VFSPath path;
|
||||||
|
if(GetObjectAsPath(value,path))
|
||||||
|
{
|
||||||
|
cgi->document_root= path;
|
||||||
|
stk->Push(gc,path);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
cgi->document_root= std::nullopt;
|
||||||
|
stk->Push(gc,nullptr);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
if(key == "AdminEmail")
|
||||||
|
{
|
||||||
|
std::string str;
|
||||||
|
if(GetObject(value,str))
|
||||||
|
{
|
||||||
|
cgi->adminEmail = str;
|
||||||
|
stk->Push(gc,str);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
cgi->adminEmail= std::nullopt;
|
||||||
|
stk->Push(gc,nullptr);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
stk->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Streams::Stream>>(instance))
|
||||||
|
{
|
||||||
|
auto strm = std::get<std::shared_ptr<Tesses::Framework::Streams::Stream>>(instance);
|
||||||
|
|
||||||
|
auto netStrm = std::dynamic_pointer_cast<Tesses::Framework::Streams::NetworkStream>(strm);
|
||||||
|
if(netStrm != nullptr)
|
||||||
|
{
|
||||||
|
int64_t n0;
|
||||||
|
bool bc;
|
||||||
|
if(key == "Broadcast" && GetObject(value,bc))
|
||||||
|
netStrm->SetBroadcast(bc);
|
||||||
|
if(key == "NoDelay" && GetObject(value,bc))
|
||||||
|
netStrm->SetNoDelay(bc);
|
||||||
|
if(key == "ReuseAddress" && GetObject(value,bc))
|
||||||
|
netStrm->SetReuseAddress(bc);
|
||||||
|
if(key == "ReusePort" && GetObject(value,bc))
|
||||||
|
netStrm->SetReusePort(bc);
|
||||||
|
if(key == "MulticastTTL" && GetObject(value,n0))
|
||||||
|
netStrm->SetMulticastTTL((uint8_t)n0);
|
||||||
|
|
||||||
|
}
|
||||||
|
stk->Push(gc, Undefined());
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<THeapObjectHolder>(instance))
|
||||||
|
{
|
||||||
|
auto obj = std::get<THeapObjectHolder>(instance).obj;
|
||||||
|
|
||||||
|
auto dict = dynamic_cast<TDictionary*>(obj);
|
||||||
|
auto dynDict = dynamic_cast<TDynamicDictionary*>(obj);
|
||||||
|
auto natObj = dynamic_cast<TNativeObject*>(obj);
|
||||||
|
auto cls = dynamic_cast<TClassObject*>(obj);
|
||||||
|
if(cls != nullptr)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
auto obj=cls->GetValue(cse.back()->callable->className,"set"+key);
|
||||||
|
gc->BarrierEnd();
|
||||||
|
TClosure* clos;
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetObjectHeap(obj,clos))
|
||||||
|
{
|
||||||
|
this->AddCallStackEntry(ls,clos,{value});
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
else if(GetObjectHeap(obj,callable))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,callable->Call(ls,{value}));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
gc->BarrierBegin();
|
||||||
|
cls->SetValue(cse.back()->callable->className,key,value);
|
||||||
|
gc->BarrierEnd();
|
||||||
|
cse.back()->Push(gc,value);
|
||||||
|
return false;
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
if(natObj != nullptr)
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,natObj->CallMethod(ls,"set"+key,{value}));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
auto tcallable = dynamic_cast<TCallable*>(obj);
|
||||||
|
if(tcallable != nullptr)
|
||||||
|
{
|
||||||
|
if(key == "Tag")
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
tcallable->tag = value;
|
||||||
|
gc->BarrierEnd();
|
||||||
|
cse.back()->Push(gc,nullptr);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(dynDict != nullptr)
|
||||||
|
{
|
||||||
|
if(dynDict->MethodExists(ls,"set" + key))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,dynDict->CallMethod(ls,"set" + key, {value}));
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
dynDict->SetField(ls,key,value);
|
||||||
|
cse.back()->Push(gc,value);
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if(dict != nullptr)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
TObject fn = dict->GetValue("set" + key);
|
||||||
|
gc->BarrierEnd();
|
||||||
|
if(std::holds_alternative<THeapObjectHolder>(fn) && dynamic_cast<TCallable*>(std::get<THeapObjectHolder>(fn).obj) != nullptr)
|
||||||
|
{
|
||||||
|
return InvokeTwo(ls,fn, dict, value);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
dict->SetValue(key, value);
|
||||||
|
stk->Push(gc, value);
|
||||||
|
gc->BarrierEnd();
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
stk->Push(gc, Undefined());
|
||||||
|
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
121
src/vm/bc/sub.cpp
Normal file
121
src/vm/bc/sub.cpp
Normal file
@@ -0,0 +1,121 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
#include "TessesFramework/Streams/ByteReader.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
#include <cstddef>
|
||||||
|
#include <exception>
|
||||||
|
#include <iostream>
|
||||||
|
#include <cmath>
|
||||||
|
#include <cstring>
|
||||||
|
#include <sstream>
|
||||||
|
#include <variant>
|
||||||
|
namespace Tesses::CrossLang {
|
||||||
|
bool InterperterThread::Sub(std::shared_ptr<GC> gc)
|
||||||
|
{
|
||||||
|
std::vector<CallStackEntry*>& cse=this->call_stack_entries;
|
||||||
|
GCList ls(gc);
|
||||||
|
auto right = cse.back()->Pop(ls);
|
||||||
|
auto left = cse.back()->Pop(ls);
|
||||||
|
|
||||||
|
if(std::holds_alternative<int64_t>(left) && std::holds_alternative<int64_t>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<int64_t>(left) - std::get<int64_t>(right));
|
||||||
|
}
|
||||||
|
|
||||||
|
else if(std::holds_alternative<double>(left) && std::holds_alternative<double>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<double>(left) - std::get<double>(right));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<double>(left) && std::holds_alternative<int64_t>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<double>(left) - std::get<int64_t>(right));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<int64_t>(left) && std::holds_alternative<double>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,std::get<int64_t>(left) - std::get<double>(right));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<char>(left) && std::holds_alternative<char>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, (int64_t)(std::get<char>(left) - std::get<char>(right)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<char>(left) && std::holds_alternative<int64_t>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, (int64_t)(std::get<char>(left) - std::get<int64_t>(right)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<int64_t>(left) && std::holds_alternative<char>(right))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, (int64_t)(std::get<int64_t>(left) - std::get<char>(right)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(left) && std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(right))
|
||||||
|
{
|
||||||
|
auto& l = std::get<std::shared_ptr<Tesses::Framework::Date::DateTime>>(left);
|
||||||
|
auto& r = std::get<std::shared_ptr<Tesses::Framework::Date::DateTime>>(right);
|
||||||
|
cse.back()->Push(gc,std::make_shared<Tesses::Framework::Date::TimeSpan>((*l) - (*r)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(left) && std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(right))
|
||||||
|
{
|
||||||
|
auto& l = std::get<std::shared_ptr<Tesses::Framework::Date::DateTime>>(left);
|
||||||
|
auto& r = std::get<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(right);
|
||||||
|
cse.back()->Push(gc,std::make_shared<Tesses::Framework::Date::DateTime>((*l) - (*r)));
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<THeapObjectHolder>(left))
|
||||||
|
{
|
||||||
|
auto obj = std::get<THeapObjectHolder>(left).obj;
|
||||||
|
auto dict = dynamic_cast<TDictionary*>(obj);
|
||||||
|
auto dynDict = dynamic_cast<TDynamicDictionary*>(obj);
|
||||||
|
|
||||||
|
auto natObj = dynamic_cast<TNativeObject*>(obj);
|
||||||
|
|
||||||
|
|
||||||
|
auto cls = dynamic_cast<TClassObject*>(obj);
|
||||||
|
if(cls != nullptr)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
auto obj=cls->GetValue(cse.back()->callable->className,"operator-");
|
||||||
|
gc->BarrierEnd();
|
||||||
|
TClosure* clos;
|
||||||
|
TCallable* callable;
|
||||||
|
if(GetObjectHeap(obj,clos))
|
||||||
|
{
|
||||||
|
this->AddCallStackEntry(ls,clos,{right});
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
else if(GetObjectHeap(obj,callable))
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,callable->Call(ls,{right}));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
return false;
|
||||||
|
|
||||||
|
}
|
||||||
|
else if(natObj != nullptr)
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, natObj->CallMethod(ls,"operator-",{right}));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else if(dict != nullptr)
|
||||||
|
{
|
||||||
|
gc->BarrierBegin();
|
||||||
|
TObject fn = dict->GetValue("operator-");
|
||||||
|
gc->BarrierEnd();
|
||||||
|
return InvokeTwo(ls,fn,left,right);
|
||||||
|
}
|
||||||
|
else if(dynDict != nullptr)
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,dynDict->CallMethod(ls,"operator-",{right}));
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc,Undefined());
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
cse.back()->Push(gc, Undefined());
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
106
src/vm/bc/tobool.cpp
Normal file
106
src/vm/bc/tobool.cpp
Normal file
@@ -0,0 +1,106 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
#include "TessesFramework/Streams/ByteReader.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
#include <cstddef>
|
||||||
|
#include <exception>
|
||||||
|
#include <iostream>
|
||||||
|
#include <cmath>
|
||||||
|
#include <cstring>
|
||||||
|
#include <sstream>
|
||||||
|
#include <variant>
|
||||||
|
|
||||||
|
namespace Tesses::CrossLang {
|
||||||
|
bool ToBool(TObject obj)
|
||||||
|
{
|
||||||
|
if(std::holds_alternative<Tesses::Framework::Filesystem::VFSPath>(obj))
|
||||||
|
{
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<TVMVersion>(obj))
|
||||||
|
{
|
||||||
|
auto v = std::get<TVMVersion>(obj);
|
||||||
|
return v.AsLong() != 0;
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::string>(obj))
|
||||||
|
{
|
||||||
|
return !std::get<std::string>(obj).empty();
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<int64_t>(obj))
|
||||||
|
{
|
||||||
|
return std::get<int64_t>(obj) != 0;
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<double>(obj))
|
||||||
|
{
|
||||||
|
return std::get<double>(obj);
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<bool>(obj))
|
||||||
|
{
|
||||||
|
return std::get<bool>(obj);
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<char>(obj))
|
||||||
|
{
|
||||||
|
return std::get<char>(obj) != 0;
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(obj))
|
||||||
|
{
|
||||||
|
auto& dt = std::get<std::shared_ptr<Tesses::Framework::Date::DateTime>>(obj);
|
||||||
|
return !(dt->Year() == 1970 && dt->Month() == 1 && dt->Day() == 1 && dt->Hour() == 0 && dt->Minute() == 0 && dt->Second() == 0 && !dt->IsLocal());
|
||||||
|
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(obj))
|
||||||
|
{
|
||||||
|
return std::get<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(obj)->TotalSeconds() != 0;
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<Tesses::Framework::Uuid>(obj))
|
||||||
|
{
|
||||||
|
auto& uuid = std::get<Tesses::Framework::Uuid>(obj);
|
||||||
|
return !uuid.IsEmpty();
|
||||||
|
}
|
||||||
|
else if(std::holds_alternative<THeapObjectHolder>(obj))
|
||||||
|
{
|
||||||
|
auto o = std::get<THeapObjectHolder>(obj).obj;
|
||||||
|
auto ls = dynamic_cast<TList*>(o);
|
||||||
|
auto aarray = dynamic_cast<TAssociativeArray*>(o);
|
||||||
|
auto dict = dynamic_cast<TDictionary*>(o);
|
||||||
|
auto ba = dynamic_cast<TByteArray*>(o);
|
||||||
|
auto nat = dynamic_cast<TNative*>(o);
|
||||||
|
auto thrd = dynamic_cast<ThreadHandle*>(o);
|
||||||
|
auto natObj = dynamic_cast<TNativeObject*>(o);
|
||||||
|
|
||||||
|
auto any = dynamic_cast<TAny*>(o);
|
||||||
|
auto cls = dynamic_cast<TClassObject*>(o);
|
||||||
|
if(cls!=nullptr) return true;
|
||||||
|
if(natObj != nullptr) return natObj->ToBool();
|
||||||
|
if(any != nullptr) return any->any.has_value();
|
||||||
|
|
||||||
|
if(ls != nullptr)
|
||||||
|
{
|
||||||
|
return ls->Count() != 0;
|
||||||
|
}
|
||||||
|
if(aarray != nullptr)
|
||||||
|
{
|
||||||
|
return aarray->Count() != 0;
|
||||||
|
}
|
||||||
|
else if(dict != nullptr)
|
||||||
|
{
|
||||||
|
return !dict->items.empty();
|
||||||
|
}
|
||||||
|
else if(ba != nullptr)
|
||||||
|
{
|
||||||
|
return !ba->data.empty();
|
||||||
|
}
|
||||||
|
else if(nat != nullptr)
|
||||||
|
{
|
||||||
|
return !nat->GetDestroyed();
|
||||||
|
}
|
||||||
|
else if(thrd != nullptr)
|
||||||
|
{
|
||||||
|
return !thrd->hasReturned;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
133
src/vm/bc/tostring.cpp
Normal file
133
src/vm/bc/tostring.cpp
Normal file
@@ -0,0 +1,133 @@
|
|||||||
|
#include "CrossLang.hpp"
|
||||||
|
#include "TessesFramework/Serialization/BitConverter.hpp"
|
||||||
|
#include "TessesFramework/Streams/ByteReader.hpp"
|
||||||
|
#include "TessesFramework/Uuid.hpp"
|
||||||
|
#include <cstddef>
|
||||||
|
#include <exception>
|
||||||
|
#include <iostream>
|
||||||
|
#include <cmath>
|
||||||
|
#include <cstring>
|
||||||
|
#include <sstream>
|
||||||
|
#include <variant>
|
||||||
|
namespace Tesses::CrossLang {
|
||||||
|
std::string ToString(std::shared_ptr<GC> gc, TObject o)
|
||||||
|
{
|
||||||
|
if(std::holds_alternative<Tesses::Framework::Filesystem::VFSPath>(o))
|
||||||
|
{
|
||||||
|
return std::get<Tesses::Framework::Filesystem::VFSPath>(o).ToString();
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::string>(o))
|
||||||
|
{
|
||||||
|
return std::get<std::string>(o);
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<TVMVersion>(o))
|
||||||
|
{
|
||||||
|
return std::get<TVMVersion>(o).ToString();
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<int64_t>(o))
|
||||||
|
{
|
||||||
|
return std::to_string(std::get<int64_t>(o));
|
||||||
|
}
|
||||||
|
|
||||||
|
if(std::holds_alternative<double>(o))
|
||||||
|
{
|
||||||
|
return std::to_string(std::get<double>(o));
|
||||||
|
}
|
||||||
|
|
||||||
|
if(std::holds_alternative<char>(o))
|
||||||
|
{
|
||||||
|
return std::string{std::get<char>(o)};
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::nullptr_t>(o))
|
||||||
|
{
|
||||||
|
return "null";
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<Undefined>(o))
|
||||||
|
{
|
||||||
|
return "undefined";
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<bool>(o))
|
||||||
|
{
|
||||||
|
return std::get<bool>(o) ? "true" : "false";
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::DateTime>>(o))
|
||||||
|
{
|
||||||
|
return std::get<std::shared_ptr<Tesses::Framework::Date::DateTime>>(o)->ToString();
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(o))
|
||||||
|
{
|
||||||
|
return std::get<std::shared_ptr<Tesses::Framework::Date::TimeSpan>>(o)->ToString(false);
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<Tesses::Framework::Uuid>(o))
|
||||||
|
{
|
||||||
|
return std::get<Tesses::Framework::Uuid>(o).ToString(Framework::UuidStringifyConfig::LowercaseNoCurly);
|
||||||
|
}
|
||||||
|
if(std::holds_alternative<THeapObjectHolder>(o))
|
||||||
|
{
|
||||||
|
auto obj = std::get<THeapObjectHolder>(o).obj;
|
||||||
|
auto dict = dynamic_cast<TDictionary*>(obj);
|
||||||
|
auto list = dynamic_cast<TList*>(obj);
|
||||||
|
auto bArray = dynamic_cast<TByteArray*>(obj);
|
||||||
|
auto natObj = dynamic_cast<TNativeObject*>(obj);
|
||||||
|
auto cls = dynamic_cast<TClassObject*>(obj);
|
||||||
|
auto aArray = dynamic_cast<TAssociativeArray*>(obj);
|
||||||
|
if(aArray != nullptr)
|
||||||
|
{
|
||||||
|
|
||||||
|
std::string str={};
|
||||||
|
|
||||||
|
gc->BarrierBegin();
|
||||||
|
bool first=true;
|
||||||
|
for(auto item : aArray->items)
|
||||||
|
{
|
||||||
|
if(!first) str.push_back('\n');
|
||||||
|
first=false;
|
||||||
|
str.push_back('[');
|
||||||
|
str.append(Json_Encode(item.first));
|
||||||
|
str.append("] = ");
|
||||||
|
str.append(Json_Encode(item.second));
|
||||||
|
str.append(";");
|
||||||
|
}
|
||||||
|
gc->BarrierEnd();
|
||||||
|
return str;
|
||||||
|
}
|
||||||
|
if(cls != nullptr)
|
||||||
|
{
|
||||||
|
auto res = cls->GetValue("","ToString");
|
||||||
|
TCallable* call;
|
||||||
|
GCList ls(gc);
|
||||||
|
if(GetObjectHeap(res,call)) return ToString(gc, call->Call(ls,{}));
|
||||||
|
return cls->TypeName();
|
||||||
|
}
|
||||||
|
if(natObj != nullptr)
|
||||||
|
{
|
||||||
|
GCList ls(gc);
|
||||||
|
TObject o=natObj->CallMethod(ls,"ToString",{});
|
||||||
|
|
||||||
|
|
||||||
|
return ToString(gc, o);
|
||||||
|
}
|
||||||
|
|
||||||
|
if(dict != nullptr)
|
||||||
|
{
|
||||||
|
GCList ls(gc);
|
||||||
|
if(dict->MethodExists(ls,"ToString"))
|
||||||
|
return ToString(gc,dict->CallMethod(ls,"ToString",{}));
|
||||||
|
else
|
||||||
|
{
|
||||||
|
return Json_Encode(dict);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(bArray != nullptr)
|
||||||
|
{
|
||||||
|
return std::string(bArray->data.begin(),bArray->data.end());
|
||||||
|
}
|
||||||
|
else if(list != nullptr)
|
||||||
|
{
|
||||||
|
return Json_Encode(list);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return "";
|
||||||
|
}
|
||||||
|
}
|
||||||
@@ -11,7 +11,7 @@ namespace Tesses::CrossLang
|
|||||||
{
|
{
|
||||||
TFile* f = new TFile();
|
TFile* f = new TFile();
|
||||||
f->icon = -1;
|
f->icon = -1;
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(f);
|
ls.Add(f);
|
||||||
_gc->Watch(f);
|
_gc->Watch(f);
|
||||||
return f;
|
return f;
|
||||||
@@ -20,7 +20,7 @@ namespace Tesses::CrossLang
|
|||||||
{
|
{
|
||||||
TFile* f = new TFile();
|
TFile* f = new TFile();
|
||||||
f->icon=-1;
|
f->icon=-1;
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(f);
|
ls->Add(f);
|
||||||
_gc->Watch(f);
|
_gc->Watch(f);
|
||||||
return f;
|
return f;
|
||||||
@@ -35,7 +35,7 @@ namespace Tesses::CrossLang
|
|||||||
TFileChunk* TFileChunk::Create(GCList& ls)
|
TFileChunk* TFileChunk::Create(GCList& ls)
|
||||||
{
|
{
|
||||||
TFileChunk* chk = new TFileChunk();
|
TFileChunk* chk = new TFileChunk();
|
||||||
GC* _gc = ls.GetGC();
|
std::shared_ptr<GC> _gc = ls.GetGC();
|
||||||
ls.Add(chk);
|
ls.Add(chk);
|
||||||
_gc->Watch(chk);
|
_gc->Watch(chk);
|
||||||
return chk;
|
return chk;
|
||||||
@@ -43,7 +43,7 @@ namespace Tesses::CrossLang
|
|||||||
TFileChunk* TFileChunk::Create(GCList* ls)
|
TFileChunk* TFileChunk::Create(GCList* ls)
|
||||||
{
|
{
|
||||||
TFileChunk* chk = new TFileChunk();
|
TFileChunk* chk = new TFileChunk();
|
||||||
GC* _gc = ls->GetGC();
|
std::shared_ptr<GC> _gc = ls->GetGC();
|
||||||
ls->Add(chk);
|
ls->Add(chk);
|
||||||
_gc->Watch(chk);
|
_gc->Watch(chk);
|
||||||
return chk;
|
return chk;
|
||||||
@@ -280,7 +280,7 @@ namespace Tesses::CrossLang
|
|||||||
return nullptr;
|
return nullptr;
|
||||||
}
|
}
|
||||||
|
|
||||||
void TFile::Load(GC* gc, std::shared_ptr<Tesses::Framework::Streams::Stream> stream)
|
void TFile::Load(std::shared_ptr<GC> gc, std::shared_ptr<Tesses::Framework::Streams::Stream> stream)
|
||||||
{
|
{
|
||||||
|
|
||||||
uint8_t main_header[18];
|
uint8_t main_header[18];
|
||||||
|
|||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user