CMakeLists.txt

@@ -3,12 +3,3 @@ project(TLangInterperter)
 
 add_subdirectory(libtlang)
 add_subdirectory(tlang)
-install(TARGETS tlang RUNTIME DESTINATION bin)
-set(CPACK_PACKAGE_NAME "tlang")
-set(CPACK_PROJECT_NAME "tlang")
-
-set(CPACK_PACKAGE_VERSION_MAJOR 0)
-set(CPACK_PACKAGE_VERSION_MINOR 0)
-set(CPACK_PACKAGE_VERSION_PATCH 0)
-set(CPACK_PACKAGE_VERSION_PATCH 1)
-include(CPack)

README.md

@@ -1,3 +1 @@
 # TLang Scripting Language
-
-## Please don't use yet (still in buggy state and will probably change)

docker/Wii/Dockerfile

@@ -1,7 +0,0 @@
-FROM devkitpro/devkitppc:20230501
-RUN dkp-pacman --noconfirm -Su && dkp-pacman --noconfirm -S libfat-ogc ppc-zlib ppc-jansson
-WORKDIR "/tmp"
-RUN wget https://gitlab.com/4TU/wii-packages/uploads/686f898638fb96af55e3754b92c5aaa7/libwiisocket-0.1-1-any.pkg.tar.zst https://gitlab.com/4TU/wii-packages/uploads/fc3378553929e58a397df6ec6204a1c0/wii-mbedtls-2.16.6-1-any.pkg.tar.zst https://gitlab.com/4TU/wii-packages/uploads/2b19acc728140dcfbbf7e18f9d9e312a/wii-curl-7.75.0-1-any.pkg.tar.zst && dkp-pacman --noconfirm -U libwiisocket-0.1-1-any.pkg.tar.zst wii-mbedtls-2.16.6-1-any.pkg.tar.zst wii-curl-7.75.0-1-any.pkg.tar.zst
-WORKDIR "/usr/local/bin"
-COPY run.sh run.sh
-ENTRYPOINT ["bash","/usr/local/bin/run.sh"]

docker/Wii/meta.xml

@@ -1,10 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<app version="1">
-	<name>TLang Scripting Language</name>
-	<version>0.0.0.1</version>
-	<release_date>20230510000000</release_date>
-	<coder>Tesses</coder>
-	<short_description>TLang Wii Version</short_description>
-	<long_description>My Scripting Language Created In 2023
-</long_description>
-</app>

docker/Wii/run.sh

@@ -1,10 +0,0 @@
-#!/bin/bash
-mkdir /project
-cd /project
-git clone https://gitlab.tesses.net/tesses50/tlang-c .
-cd libtlang
-make -f Makefile.wii
-mkdir -p /out/apps/TLang/
-cp boot.dol /out/apps/TLang/
-cp /project/docker/Wii/meta.xml /out/apps/TLang/
-cp /project/docker/Wii/icon.png /out/apps/TLang/

libtlang/CMakeLists.txt

@@ -1,7 +1,6 @@
 project(tlanginterp)
-add_definitions(-DCMAKE_TLANG_BUILD)
 add_library(tlanginterp STATIC src/addnode.c src/bit.c src/bitwiseand.c src/bitwiseor.c src/breaknode.c src/bwnot.c src/closurenode.c src/constnode.c src/curl.c src/dict.c src/dirittr.c src/dividenode.c src/eachnode.c src/eq.c src/forloop.c src/fs.c src/functioncallnode.c src/getarraynode.c src/getmembernode.c src/getvariablenode.c src/getvariablenode.c src/greaterthan.c src/greaterthanequal.c src/if.c src/ittr.c src/json.c src/leftshift.c src/lessthan.c src/lessthanequal.c src/lexer.c src/lextokenlist.c src/listittr.c src/logicaland.c src/logicalor.c src/mbed.c src/methodcallnode.c src/modulonode.c src/multiplynode.c src/neg.c src/neq.c src/net.c src/nodetwo.c src/not.c src/parser.c src/postfixdecrementnode.c src/postfixincrementnode.c src/rand.c src/returnnode.c src/rightshift.c src/runtime.c src/scope.c src/scopenode.c src/sdl2.c src/setvariablenode.c src/stream.c src/string.c src/stringittr.c src/subnode.c src/switch.c src/threading.c src/tobject.c src/whileloop.c src/wpad-wii.c src/xor.c include/FreeMonoBold.h include/myfeatures.h include/tlang_version.h include/tlang.h)
-
+add_definitions(-DCMAKE_TLANG_BUILD)
 option(USE_SDL "Enable SDL2" ON)
 option(USE_NETWORK "Enable Networking" ON)
 option(USE_CURL "Enable curl" ON)

libtlang/include/tlang.h

@@ -285,7 +285,7 @@ void list_create(runtime_t* rt,list_tobject_t* ls,int count);
 void list_add(list_tobject_t* a,tobject_t* item);
 void string_appendn(string_t* s,double val);
 bool string_samep(string_t* s,const char* text);
-string_t* string_replace(string_t* text,string_t* old,string_t*);
+string_t* string_replace(string_t* text,string_t* old,string_t* new);
 tobject_t* string_split(runtime_t* rt,string_t* text,string_t* del,int max,bool empty);
 bool string_startswith(string_t* haystack,string_t* needle);
 bool string_endswith(string_t* haystack,string_t* needle);

libtlang/src/getarraynode.c

@@ -96,7 +96,7 @@ tobject_t* __node_getarray_execute(node_t* n,scope_t* s,retarg_t* retArg)
 } 
 void __kvp_set(tobject_t* parent_obj,tobject_t* argument_obj,tobject_t* variable)
 {
-    if(parent_obj->type != tdict) return;
+    if(parent_obj->type != tdict) return NULL;
     if(argument_obj->type == tstring)
     {
         char* p = string_dupp(argument_obj->data.string);

libtlang/src/methodcallnode.c

@@ -44,7 +44,7 @@ tobject_t* __node_method_call_execute(node_t* n,scope_t* s,retarg_t* retArg)
             o->type = tchar;
             o->data.chr= parent_obj->data.boolean ? 'y' : 'n';
         }
-        if(strcmp(name,"toNumber") == 0)
+        if(strcmp(name,'toNumber') == 0)
         {
             o = tobject_create(s->rt);
             o->type = tnumber;

libtlang/src/runtime.c

@@ -123,7 +123,7 @@ tobject_t* __fs_readalltext_external_method(runtime_t* rt,void* ptr,list_tobject
         if(f)
         {
             string_t* str = string_create();
-            string_read(str,f,(size_t (*)(void*,size_t,size_t,void*))fread);
+            string_read(str,f,fread);
             free(fileName);
             fclose(f);
             return tobject_string(rt,str);

libtlang/src/switch.c

@@ -1,11 +1,11 @@
 #include "tlang.h"
 extern void __node_two_free(node_t* n);
  extern void __node_single_free(node_t* n);
-tobject_t* __case_node_exec(node_t* n,scope_t* s,retarg_t* retArg)
+node_t* __case_node_exec(node_t* n,scope_t* s,retarg_t* retArg)
 {
     return n->data.two_node_node.right->execute(n->data.two_node_node.right,s,retArg);
 }
-tobject_t* __default_node_exec(node_t* n,scope_t* s,retarg_t* retArg)
+node_t* __default_node_exec(node_t* n,scope_t* s,retarg_t* retArg)
 {
     return n->data.single_node_node->execute(n->data.single_node_node,s,retArg);
 }

libtlang/src/whileloop.c

@@ -1,7 +1,7 @@
 #include "tlang.h"
 extern tobject_t* __loop_exec2(node_t* n,scope_t* s,retarg_t* retArg);
 extern bool __loop_bool(node_t* n,scope_t* s,retarg_t* retArg);
-tobject_t* __while_loop_exec(node_t* n,scope_t* s,retarg_t* retArg)
+node_t* __while_loop_exec(node_t* n,scope_t* s,retarg_t* retArg)
 {
    
      s=scope_begin(s);

tlang/CMakeLists.txt

@@ -1,5 +1,3 @@
 project(tlang)
 add_executable(tlang src/main.c)
-
 target_link_libraries(tlang tlanginterp)
-

tlang/src/main.c

@@ -4,12 +4,63 @@ void register_funcs(runtime_t* rt)
 {
 
 }
+#if defined(GEKKO)
+#include <fat.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <gccore.h>
+
+void init_ogc(runtime_t* rt)
+{
+	#if defined(HW_RVL)
+	__reg_wpad(rt);
+	#endif
+	VIDEO_Init();
+
+    fatInitDefault();
+	// Obtain the preferred video mode from the system
+	// This will correspond to the settings in the Wii menu
+	rmode = VIDEO_GetPreferredMode(NULL);
+
+	// Allocate memory for the display in the uncached region
+	xfb = MEM_K0_TO_K1(SYS_AllocateFramebuffer(rmode));
+
+	// Initialise the console, required for printf
+	console_init(xfb,20,20,rmode->fbWidth,rmode->xfbHeight,rmode->fbWidth*VI_DISPLAY_PIX_SZ);
+
+	// Set up the video registers with the chosen mode
+	VIDEO_Configure(rmode);
+
+	// Tell the video hardware where our display memory is
+	VIDEO_SetNextFramebuffer(xfb);
+
+	// Make the display visible
+	VIDEO_SetBlack(FALSE);
+
+	// Flush the video register changes to the hardware
+	VIDEO_Flush();
+
+	// Wait for Video setup to complete
+	VIDEO_WaitVSync();
+	if(rmode->viTVMode&VI_NON_INTERLACE) VIDEO_WaitVSync();
+
+
+	// The console understands VT terminal escape codes
+	// This positions the cursor on row 2, column 0
+	// we can use variables for this with format codes too
+	// e.g. printf ("\x1b[%d;%dH", row, column );
+	printf("\x1b[2;0H");
+}
+#endif
+
 int main(int argc,char** argv)
 {
     runtime_t* rt = runtime_init();
     runtime_register_std(rt);
     runtime_register(rt,register_funcs);
-    
+    #if defined(GEKKO)
+    init_ogc(rt);
+    #endif
     if(argc < 2)
     {
         string_t* cmd=string_create();
@@ -37,7 +88,7 @@ int main(int argc,char** argv)
         
         FILE* f = fopen(argv[1],"r");
         if(f != NULL){
-                string_read(cmd,f,(size_t (*)(void*,size_t,size_t,void*))fread);
+                string_read(cmd,f,fread);
                 fclose(f);
         }