From a4772c6096c28195ad7fffadf9c97f1813b1cab3 Mon Sep 17 00:00:00 2001
From: PQCraft <58464017+PQCraft@users.noreply.github.com>
Date: Sat, 18 Sep 2021 23:20:18 -0400
Subject: [PATCH] 0.22
Added file i/o
Improved CLS
Fixed a compiler warning when using clang
Improved program loader to prevent crashing when a virtual device is passed
Stopped CLIBASIC from tainting the terminal and breaking sudo and su input (bug in kbhit() function)
Updated dead links in README.md
Added line number support
Fixed a LABEL/GOTO bug
Added a manpage
Added local (non-root) install support to Makefile
---
Makefile | 109 +++--
README.md | 27 +-
build.sh | 3 +-
clibasic.c | 805 +++++++++++++++++++++++++++----------
commands.c | 269 ++++++++++---
docs/clibasic.man | 74 ++++
docs/clibasic_tmp_cmds.txt | 2 +
docs/manual.odt | Bin 21102 -> 24850 bytes
docs/manual.pdf | Bin 102427 -> 119060 bytes
examples/args.bas | 4 +-
examples/bunkerbomb.bas | 24 +-
examples/cat.bas | 7 +
examples/clock.bas | 18 +
examples/executable.bas | 4 +-
examples/factorial.bas | 7 +-
examples/info.bas | 1 -
examples/linenumbers.bas | 3 +
examples/speedtestfast.bas | 2 +-
examples/test.bas | 14 +-
functions.c | 377 ++++++++++++++++-
logic.c | 69 +++-
package.sh | 45 +--
22 files changed, 1477 insertions(+), 387 deletions(-)
create mode 100644 docs/clibasic.man
create mode 100644 examples/cat.bas
create mode 100644 examples/clock.bas
create mode 100644 examples/linenumbers.bas
diff --git a/Makefile b/Makefile
index 216ce69..b8192b9 100644
--- a/Makefile
+++ b/Makefile
@@ -1,21 +1,28 @@
BASE_CFLAGS = --std=c99 -Wall -Wextra -Ofast -lm -lreadline
-ifdef OS
-ifeq ($(findstring :/, $(PATH)), :/)
-IS_LINUX = true
-else
-IS_LINUX = false
-endif
-else
-IS_LINUX = true
-endif
-
-ifeq ($(IS_LINUX), true)
+ifndef OS
C = gcc
CFLAGS = $(BASE_CFLAGS)
ifeq ($(shell uname -s), Darwin)
-CFLAGS += -I/usr/local/opt/readline/include -L/usr/local/opt/readline/lib
+ifeq ($(shell [ -d ~/.brew/opt/readline/include ] && echo true), true)
+CFLAGS += -I~/.brew/opt/readline/include
+endif
+ifeq ($(shell [ -d /opt/homebrew/opt/readline/include ] && echo true), true)
+CFLAGS += -I/opt/homebrew/opt/readline/include
+endif
+ifeq ($(shell [ -d /usr/local/opt/readline/include ] && echo true), true)
+CFLAGS += -I/usr/local/opt/readline/include
+endif
+ifeq ($(shell [ -d ~/.brew/opt/readline/lib ] && echo true), true)
+CFLAGS += -L~/.brew/opt/readline/lib
+endif
+ifeq ($(shell [ -d /opt/homebrew/opt/readline/lib ] && echo true), true)
+CFLAGS += -L/opt/homebrew/opt/readline/lib
+endif
+ifeq ($(shell [ -d /usr/local/opt/readline/lib ] && echo true), true)
+CFLAGS += -L/usr/local/opt/readline/lib
+endif
else
ifeq ($(shell uname -o), Android)
CFLAGS += -s
@@ -26,17 +33,33 @@ endif
CBITS = $(shell getconf LONG_BIT)
-BUILD_TO = "clibasic"
-BUILD__ = $(C) clibasic.c $(CFLAGS) -DB$(CBITS) -o $(BUILD_TO) && chmod +x $(BUILD_TO)
+BUILD_TO = clibasic
BUILD32 = $(C) clibasic.c -m32 $(CFLAGS) -DB32 -o $(BUILD_TO) && chmod +x $(BUILD_TO)
+ifeq (,$(CBITS))
+BUILD__ = $(BUILD32)
+else
+BUILD__ = $(C) clibasic.c $(CFLAGS) -DB$(CBITS) -o $(BUILD_TO) && chmod +x $(BUILD_TO)
+endif
+
+MAN_PATH = docs/clibasic.man
+
+ifeq ($(shell id -u), 0)
+MAN_INSTALL_PATH = /usr/share/man/man1/clibasic.1
+INSTALL_TO = /usr/bin/clibasic
+else
+MAN_INSTALL_PATH = ~/.local/share/man/man1/clibasic.1
+INSTALL_TO = ~/.local/bin/clibasic
+endif
+INSTALL = mkdir -p $(shell dirname -- $(INSTALL_TO)) $(shell dirname -- $(MAN_INSTALL_PATH)); cp $(BUILD_TO) $(INSTALL_TO); cp $(MAN_PATH) $(MAN_INSTALL_PATH); gzip -f $(MAN_INSTALL_PATH)
-INSTALL_TO = "/usr/bin/clibasic"
-INSTALL = if [ "$$(id -u)" -eq 0 ]; then cp $(BUILD_TO) $(INSTALL_TO); else echo "Root privileges are needed to install."; fi
+UNINSTALL = rm -f $(INSTALL_TO) $(MAN_INSTALL_PATH).gz
-RUN = ./clibasic
+RUN = ./$(BUILD_TO)
CLEAN = rm -f clibasic
+.ONESHELL:
+
.PHONY: all all32 build build32 update install install32 run clean cross
all: clean build run
@@ -54,38 +77,58 @@ update:
([[ ! "$$I" =~ ^[^Yy]$$ ]] && sh -c 'git restore . && git pull' &> /dev/null && chmod +x *.sh) || exit 0
install:
- if [ ! -f $(INSTALL_TO) ]; then $(BUILD__); fi
+ if [ ! -f $(BUILD_TO) ]; then $(BUILD__); fi
$(INSTALL)
install32:
- if [ ! -f $(INSTALL_TO) ]; then $(BUILD32); fi
+ if [ ! -f $(BUILD_TO) ]; then $(BUILD32); fi
$(INSTALL)
+uninstall:
+ $(UNINSTALL)
+
run:
+ifeq (32,$(CBITS))
+ [ ! -f "$(BUILD_TO)" ] && ($(BUILD32))
+else
+ [ ! -f "$(BUILD_TO)" ] && ($(BUILD__))
+endif
$(RUN)
clean:
$(CLEAN)
-.ONESHELL:
-
cross:
ifeq ($(MAKECMDGOALS), cross)
@$(MAKE) cross all
else
@$(eval C = x86_64-w64-mingw32-gcc)
@$(eval C32 = i686-w64-mingw32-gcc)
- @$(eval CFLAGS = $(BASE_CFLAGS) -Ilib)
- @$(eval BUILD_TO = "clibasic.exe")
- @$(eval BUILD__ = cp -f lib/win64/*.dll . && $(C) clibasic.c $(CFLAGS) -Llib/win64 -DB$(CBITS) -o $(BUILD_TO) && chmod -x ./clibasic.exe)
- @$(eval BUILD32 = cp -f lib/win32/*.dll . && $(C32) clibasic.c -m32 $(CFLAGS) -Llib/win32 -DB32 -o $(BUILD_TO) && chmod -x ./clibasic.exe)
- @$(eval INSTALL_TO = "$$HOME/.wine/drive_c/windows/system32")
+ @$(eval CFLAGS = $(BASE_CFLAGS) -s -Ilib)
+ @$(eval BUILD_TO = clibasic.exe)
+ @$(eval INSTALL_TO = "$$HOME/.wine/drive_c/windows/system32/")
@$(eval INSTALL = cp $(BUILD_TO) *.dll $(INSTALL_TO))
- @$(eval RUN = wineconsole clibasic.exe)
+ @$(eval BUILD32 = cp -f lib/win32/*.dll . && $(C32) clibasic.c -m32 $(CFLAGS) -Llib/win32 -DB32 -o $(BUILD_TO) && chmod -x $(BUILD_TO))
+ifeq (,$(CBITS))
+ @$(eval BUILD__ = $(BUILD32))
+else
+ @$(eval BUILD__ = cp -f lib/win64/*.dll . && $(C) clibasic.c $(CFLAGS) -Llib/win64 -DB$(CBITS) -o $(BUILD_TO) && chmod -x $(BUILD_TO))
+endif
+ @$(eval RUN = wineconsole .\\$(BUILD_TO))
@$(eval CLEAN = rm -f clibasic.exe *.dll)
endif
@true
+vt:
+ @$(eval CFLAGS = $(CFLAGS) -DFORCE_VT)
+ @$(eval BUILD32 = cp -f lib/win32/*.dll . && $(C32) clibasic.c -m32 $(CFLAGS) -Llib/win32 -DB32 -o $(BUILD_TO) && chmod -x $(BUILD_TO))
+ifeq (,$(CBITS))
+ @$(eval BUILD__ = $(BUILD32))
+else
+ @$(eval BUILD__ = cp -f lib/win64/*.dll . && $(C) clibasic.c $(CFLAGS) -Llib/win64 -DB$(CBITS) -o $(BUILD_TO) && chmod -x $(BUILD_TO))
+endif
+ @true
+
else
C = gcc
@@ -96,9 +139,11 @@ BUILD_TO = clibasic.exe
BUILD64 = xcopy lib\win64\*.dll . /Y && $(C) clibasic.c -m64 $(CFLAGS) -Llib\win64 -DB64 -o $(BUILD_TO)
BUILD32 = xcopy lib\win32\*.dll . /Y && $(C) clibasic.c -m32 $(CFLAGS) -Llib\win32 -DB32 -o $(BUILD_TO)
-INSTALL_TO = "C:\\windows\\system32"
+INSTALL_TO = C:\windows\system32
INSTALL = xcopy *.dll $(INSTALL_TO) /Y && xcopy $(BUILD_TO) $(INSTALL_TO) /Y
+UNINSTALL = del $(INSTALL_TO)\\$(BUILD_TO)
+
.PHONY: all all32 build build32 update run clean
all: clean build run
@@ -128,5 +173,13 @@ run:
clean:
del /q /f $(BUILD_TO) *.dll
+vt:
+ifeq ($(MAKECMDGOALS), vt)
+ @$(MAKE) vt all
+else
+ @$(eval CFLAGS = $(CFLAGS) -DFORCE_VT)
+endif
+ @echo > nul
+
endif
diff --git a/README.md b/README.md
index 7aea45e..a4c24dd 100644
--- a/README.md
+++ b/README.md
@@ -12,7 +12,7 @@ Debian (`apt`): `build-essential`, `libreadline-dev`
Arch (`pacman`): `base-devel`, `readline`
Alpine (`apk`): `build-base`, `readline-dev`
#### Windows
-NT - 10 (download): [`MinGW`](http://mingw-w64.org/doku.php/download/mingw-builds), [`Make for Windows`](http://gnuwin32.sourceforge.net/packages/make.htm)
+NT - 10 (download): [`MinGW`](http://sourceforge.net/projects/mingw-w64/files/Toolchains%20targetting%20Win32/Personal%20Builds/mingw-builds/installer/mingw-w64-install.exe/download), [`Make for Windows`](http://gnuwin32.sourceforge.net/packages/make.htm)
7 - 10 (`choco`): `mingw`, `make`
#### MacOS
Mojave - Big Sur (`brew`): `gcc`, `make`, `readline`
@@ -31,15 +31,36 @@ Mojave - Big Sur (`brew`): `git`
---
### Building and Running
-#### Linux/Windows/MacOS
+#### Linux/MacOS
To build, use `make build`.
To run, use `make run` or `./clibasic`.
To build then run, use `make` (same as `make all`).
+#### Windows
+Make sure the bin of MinGW is in the %PATH%.
+- Type `gcc` into CMD and if you received a "Can't recognize" message, MinGW is not in your %PATH%.
+To add MinGW to the %PATH% if you used the downloaded installer:
+1. Navigate to where you installed MinGW
+2. Open the `mingw64` folder
+3. Open the `bin` folder
+4. Copy the location
+5. Add the location you copied to the %PATH% environment variable
+ - For Windows 7 and older
+ 1. Open the Start Menu
+ 2. Right-click on Computer and click Properties
+ 3. Click Advanced system settings
+ 4. Click the Advanced tab
+ 5. Click Environment Variables
+ 6. Under System variables, find Path and click Edit
+ - For Windows 8 and newer
+ 1. Open the Start Menu
+ 2. Search for and run 'Edit the system environment variables'
+ 3. Click Environment Variables
+ 4. Under System variables, find Path and click Edit
---
### Notes
- On Arch Linux, you can install CLIBASIC by installing either the [`clibasic`](https://aur.archlinux.org/packages/clibasic/) or [`clibasic-bin`](https://aur.archlinux.org/packages/clibasic-bin/) AUR package.
-- If CLIBASIC is not run in a terminal on unix-like OSs it will, unless GUI_CHECK is not defined, attempt to open in XTerm and skip reading arguments.
+- On unix-like OSs, if CLIBASIC is not run in a terminal it will attempt to open in XTerm unless GUI_CHECK is undefined.
- Due to Windows not having proper fork() and exec\*() functions, EXEC, EXEC(), and EXEC$() are passed through system() under Windows and one issue out of the many with this is a space parsing issue where running `EXEC "test prog"` will attempt to execute `EXEC "test", "prog"` if `test prog` cannot be found in the current directory or %PATH%.
- On Windows, pressing CTRL+C will not display a new prompt line due to the Windows version of readline catching and ignoring the CTRL+C.
- If the file `.clibasic_history` is present in the user's home directory CLIBASIC will automatically save history there. Run `_AUTOCMDHIST`, `_SAVECMDHIST` (without any arguments), or create the file `.clibasic_history` in your home/user folder to enable this feature. Remove the file to disable this feature.
diff --git a/build.sh b/build.sh
index a50d35a..1b86126 100644
--- a/build.sh
+++ b/build.sh
@@ -1,5 +1,6 @@
-# tests if clibasic build on linux and windows successfully
+# tests if clibasic builds on linux and windows successfully
make build clean
+make cross vt build clean
make cross build clean
diff --git a/clibasic.c b/clibasic.c
index 83dab03..5878274 100644
--- a/clibasic.c
+++ b/clibasic.c
@@ -115,7 +115,7 @@
// Base defines
-char VER[] = "0.21.1";
+char VER[] = "0.22";
#if defined(__linux__)
char OSVER[] = "Linux";
@@ -143,13 +143,17 @@ char VER[] = "0.21.1";
char BVER[] = "?";
#endif
+#if defined(FORCE_VT) && defined(_WIN_NO_VT)
+ #undef _WIN_NO_VT
+#endif
+
// Global vars and functions
int progindex = -1;
char** progbuf = NULL;
char** progfn = NULL;
char* progfnstr = NULL;
-int64_t* progcp = NULL;
+int32_t* progcp = NULL;
int* progcmdl = NULL;
int* proglinebuf = NULL;
@@ -204,7 +208,9 @@ bool itdcmd[CB_PROG_LOGIC_MAX];
int itstackp = -1;
int* minitstackp = NULL;
bool didelse = false;
+bool didelseif = false;
bool* olddidelse = NULL;
+bool* olddidelseif = NULL;
cb_jump fnstack[CB_PROG_LOGIC_MAX];
bool fndcmd[CB_PROG_LOGIC_MAX];
@@ -229,7 +235,7 @@ int curx = 0;
int cury = 0;
int concp = 0;
-int64_t cp = 0;
+int32_t cp = 0;
bool cmdint = false;
bool inprompt = false;
@@ -276,6 +282,8 @@ char* startcmd = NULL;
bool changedtitle = false;
bool changedtitlecmd = false;
+int retval = 0;
+
typedef struct {
int pl;
int32_t cp;
@@ -291,37 +299,39 @@ cb_goto** proggotodata = NULL;
int gotomaxct = 0;
int* proggotomaxct = NULL;
-#ifdef __unix__
+typedef struct {
+ FILE* fptr;
+ int32_t size;
+} cb_file;
+
+cb_file* filedata = NULL;
+int filemaxct = 0;
+int fileerror = 0;
+
+#ifndef _WIN32
struct termios term, restore;
+struct termios kbhterm, kbhterm2;
void txtqunlock() {if (textlock || sneaktextlock) {tcsetattr(0, TCSANOW, &restore); textlock = false;}}
int kbhit() {
- static const int STDIN = 0;
- static bool initialized = false;
- if (!initialized) {
- struct termios term;
- tcgetattr(STDIN, &term);
- term.c_lflag &= ~ICANON;
- tcsetattr(STDIN, TCSANOW, &term);
- setbuf(stdin, NULL);
- initialized = true;
- }
- int bytesWaiting;
- ioctl(STDIN, FIONREAD, &bytesWaiting);
- return bytesWaiting;
+ int byteswaiting;
+ ioctl(0, FIONREAD, &byteswaiting);
+ return byteswaiting;
}
+
+sigset_t intmask, oldmask;
#endif
static inline void* setsig(int sig, void* func) {
- #ifdef __unix__
+ #ifndef _WIN32
struct sigaction act, old;
memset (&act, 0, sizeof(act));
memset (&old, 0, sizeof(old));
sigemptyset(&act.sa_mask);
sigaddset(&act.sa_mask, sig);
act.sa_handler = func;
- act.sa_flags = SA_RESTART;
+ //act.sa_flags = SA_RESTART;
sigaction(sig, &act, &old);
return old.sa_handler;
#else
@@ -375,6 +385,9 @@ void txtqunlock() {}
#ifndef ENABLE_VIRTUAL_TERMINAL_PROCESSING
#define ENABLE_VIRTUAL_TERMINAL_PROCESSING 4
#endif
+#ifndef WEXITSTATUS
+#define WEXITSTATUS(x) ((uint8_t)(x))
+#endif
char kbinbuf[256];
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wimplicit-fallthrough"
@@ -415,11 +428,11 @@ uint64_t tval;
void* oldsigh = NULL;
-void nokill() {
+static inline void nokill() {
if (!oldsigh) oldsigh = setsig(SIGINT, nokill);
}
-void yeskill() {
+static inline void yeskill() {
setsig(SIGINT, oldsigh);
oldsigh = NULL;
}
@@ -427,24 +440,24 @@ void yeskill() {
void forceExit() {
#ifndef _WIN32
txtqunlock();
+ tcsetattr(0, TCSANOW, &kbhterm);
#endif
exit(0);
}
static inline void getCurPos();
-
-char* gethome();
-
-inline void initBaseMem();
-inline void freeBaseMem();
-
-void printError(int);
-
+static inline char* gethome();
+static inline void initBaseMem();
+static inline void freeBaseMem();
+static inline void printError(int);
static inline void seterrstr(char*);
-
void unloadAllProg();
-
-char* basefilename(char*);
+static inline char* basefilename(char*);
+static inline char* pathfilename(char*);
+int openFile(char*, char*);
+bool closeFile(int);
+static inline void upCase(char*);
+uint8_t logictest(char*);
void cleanExit() {
txtqunlock();
@@ -457,11 +470,14 @@ void cleanExit() {
putchar('\n');
rl_on_new_line();
rl_replace_line("", 0);
- rl_redisplay();
+ rl_pending_input = false;
+ rl_forced_update_display();
return;
}
setsig(SIGINT, forceExit);
setsig(SIGTERM, forceExit);
+ fflush(stdout);
+ closeFile(-1);
int ret = chdir(gethome());
(void)ret;
if (autohist && !runfile) {
@@ -478,14 +494,10 @@ void cleanExit() {
#else
if (!keep) SetConsoleTextAttribute(hConsole, ocAttrib);
#endif
- do {getCurPos();} while (!curx);
- if (curx != 1) putchar('\n');
- #ifdef __unix__
+ #ifndef _WIN32
int i = kbhit();
while (i > 0) {getchar(); i--;}
- #endif
- #ifndef _WIN_NO_VT
- fputs("\e[2K", stdout);
+ tcsetattr(0, TCSANOW, &kbhterm);
#endif
freeBaseMem();
exit(err);
@@ -507,18 +519,20 @@ void runcmd();
static inline void copyStr(char*, char*);
static inline void copyStrApnd(char*, char*);
#endif
+static inline void copyStrApndNoEsc(char*, char*);
+static inline void copyStrTo(char*, int32_t, char*);
static inline void copyStrSnip(char*, int32_t, int32_t, char*);
uint8_t getVal(char*, char*);
static inline void resetTimer();
bool loadProg(char*);
void unloadProg();
void updateTxtAttrib();
-static inline bool isFile();
+static inline int isFile();
static inline uint64_t usTime();
-char* gethome() {
+static inline char* gethome() {
if (!homepath) {
- #ifdef __unix__
+ #ifndef _WIN32
homepath = getenv("HOME");
#else
char* str1 = getenv("HOMEDRIVE");
@@ -533,7 +547,7 @@ char* gethome() {
char* bfnbuf = NULL;
-char* basefilename(char* fn) {
+static inline char* basefilename(char* fn) {
int32_t fnlen = strlen(fn);
int32_t i;
for (i = fnlen; i > -1; --i) {
@@ -546,7 +560,7 @@ char* basefilename(char* fn) {
return bfnbuf;
}
-char* pathfilename(char* fn) {
+static inline char* pathfilename(char* fn) {
int32_t fnlen = strlen(fn);
int32_t i;
for (i = fnlen; i > -1; --i) {
@@ -555,11 +569,11 @@ char* pathfilename(char* fn) {
if (fn[i] == '\\') break;
#endif
}
- copyStrSnip(fn, 0, i + 1, bfnbuf);
+ copyStrTo(fn, i + 1, bfnbuf);
return bfnbuf;
}
-void ttycheck() {
+static inline void ttycheck() {
if (!isatty(STDERR_FILENO)) {exit(1);}
if (!isatty(STDIN_FILENO)) {fputs("CLIBASIC does not support STDIN redirection.\n", stderr); exit(1);}
if (!isatty(STDOUT_FILENO)) {fputs("CLIBASIC does not support STDOUT redirection.\n", stderr); exit(1);}
@@ -569,8 +583,14 @@ int main(int argc, char** argv) {
#if defined(GUI_CHECK) && defined(__unix__)
if (system("tty -s 1> /dev/null 2> /dev/null")) {
char* command = malloc(CB_BUF_SIZE);
- copyStr("xterm -T CLIBASIC -b 0 -bg black -bcn 200 -bcf 200 -e 'echo -e -n \"\x1b[\x33 q\" && ", command);
- copyStrApnd(argv[0], command);
+ copyStr("xterm -T CLIBASIC -b 0 -bg black -bcn 200 -bcf 200 -e $'clear &&", command);
+ for (int i = 0; i < argc; ++i) {
+ copyStrApnd(" $\\'", command);
+ gpbuf[0] = 0;
+ copyStrApndNoEsc(argv[i], gpbuf);
+ copyStrApndNoEsc(gpbuf, command);
+ copyStrApnd("\\'", command);
+ }
strApndChar(command, '\'');
int ret = system(command);
free(command);
@@ -602,17 +622,17 @@ int main(int argc, char** argv) {
pexit = true;
} else if (!strcmp(argv[i], "--help")) {
if (argc > 2) {fputs("Incorrect number of options passed.\n", stderr); exit(1);}
- printf("Usage: %s [options] {[[{-f|--file}] FILE] [options] [--args [ARG...]] | --exec FILE [ARG...]}\n", argv[0]);
+ printf("Usage: %s [OPTION]...\n", argv[0]);
puts("Options:");
- puts(" --help Shows this help text.");
- puts(" --version Shows the version and license information.");
- puts(" --args [ARG...] Passes ARGs to the program.");
- puts(" {-x|--exec} FILE [ARG...] Runs and passes ARGs to FILE.");
- puts(" {-f|--file} FILE Runs FILE.");
- puts(" {-c|--command} COMMAND Runs COMMAND and exits.");
- puts(" {-k|--keep} Stops CLIBASIC from resetting text attributes.");
- puts(" {-s|--skip} Skips searching for autorun programs.");
- puts(" {-i|--info} Enables the info text.");
+ puts(" --help Displays this help text.");
+ puts(" --version Displays the version and license information.");
+ puts(" --args [ARG]... Passes ARGs to the program.");
+ puts(" -x, --exec FILE [ARG]... Runs and passes ARGs to FILE, then exits.");
+ puts(" -f, --file FILE Runs FILE and exits.");
+ puts(" -c, --command COMMAND Runs COMMAND and exits.");
+ puts(" -k, --keep Stops CLIBASIC from resetting text attributes before exiting.");
+ puts(" -s, --skip Skips searching for autorun programs.");
+ puts(" -i, --info Displays an info string when starting in shell mode.");
pexit = true;
} else if (!strcmp(argv[i], "--args")) {
if (runc || !runfile) {fputs("Args can only be passed when running a program.\n", stderr); exit(1);}
@@ -657,6 +677,21 @@ int main(int argc, char** argv) {
runc = true;
runfile = true;
copyStr(argv[i], conbuf);
+ bool inStr = false;
+ bool inCmd = true;
+ for (int32_t i = 0; conbuf[i]; ++i) {
+ switch (conbuf[i]) {
+ case 'a' ... 'z':
+ if (!inStr || inCmd) conbuf[i] = conbuf[i] - 32;
+ break;
+ case '"':
+ if (!inCmd) inStr = !inStr;
+ break;
+ case ' ':
+ if (!inStr && inCmd) inCmd = false;
+ break;
+ }
+ }
} else if (shortopt && (argv[i][shortopti] == 'c' || argv[i][shortopti] == 'f' || argv[i][shortopti] == 'x')) {
fprintf(stderr, "Short option '%c' requires argument and cannot be grouped.\n", argv[i][shortopti]); exit(1);
} else {
@@ -681,6 +716,14 @@ int main(int argc, char** argv) {
}
if (pexit) exit(0);
ttycheck();
+ #ifndef _WIN32
+ tcgetattr(0, &kbhterm);
+ kbhterm2 = kbhterm;
+ kbhterm2.c_lflag &= ~ICANON;
+ tcsetattr(0, TCSANOW, &kbhterm2);
+ sigemptyset(&intmask);
+ sigaddset(&intmask, SIGINT);
+ #endif
rl_readline_name = "CLIBASIC";
char* rl_tmpptr = calloc(1, 1);
rl_completion_entry_function = rl_get_tab;
@@ -744,7 +787,7 @@ int main(int argc, char** argv) {
#endif
#else
uint32_t tmpsize = CB_BUF_SIZE;
- if (_NSGetExecutablePath(startcmd, &size)) {
+ if (_NSGetExecutablePath(startcmd, &tmpsize)) {
goto scargv;
}
char* tmpstartcmd = realpath(startcmd, NULL);
@@ -779,7 +822,7 @@ int main(int argc, char** argv) {
if (info) printf("Command Line Interface BASIC version %s (%s %s-bit)\n", VER, OSVER, BVER);
strcpy(prompt, "\"CLIBASIC> \"");
#ifdef CHANGE_TITLE
- #ifdef __unix__
+ #ifndef _WIN32
fputs("\e[22;0t", stdout);
changedtitle = true;
printf("\e]2;CLIBASIC %s (%s-bit)%c", VER, BVER, 7);
@@ -799,16 +842,16 @@ int main(int argc, char** argv) {
srand(usTime());
if (!runfile) {
if (!gethome()) {
- #ifdef __unix__
- fputs("Could not find home folder! Please set the 'HOME' environment variable.", stderr);
+ #ifndef _WIN32
+ fputs("Could not find home folder! Please set the 'HOME' environment variable.\n", stderr);
#else
- fputs("Could not find home folder!", stderr);
+ fputs("Could not find home folder!\n", stderr);
#endif
} else if (!skip) {
char* tmpcwd = getcwd(NULL, 0);
int ret = chdir(homepath);
FILE* tmpfile = fopen(HIST_FILE, "r");
- if ((autohist = (bool)tmpfile)) {fclose(tmpfile); read_history(HIST_FILE);}
+ if ((autohist = (tmpfile != NULL))) {fclose(tmpfile); read_history(HIST_FILE);}
inProg = true;
if (!loadProg("AUTORUN.BAS")) if (!loadProg("autorun.bas")) inProg = false;
ret = chdir(tmpcwd);
@@ -845,7 +888,7 @@ int main(int argc, char** argv) {
int tmpt = getVal(prompt, pstr);
if (tmpt != 1) strcpy(pstr, "CLIBASIC> ");
getCurPos();
- #ifdef __unix__
+ #ifndef _WIN32
curx--;
int32_t ptr = strlen(pstr);
while (curx > 0) {pstr[ptr] = 22; ptr++; curx--;}
@@ -859,14 +902,14 @@ int main(int argc, char** argv) {
setsig(SIGINT, rl_sigh);
#endif
conbuf[0] = 0;
- #ifdef __unix__
+ #ifndef _WIN32
setsig(SIGINT, cleanExit);
#endif
txtqunlock();
tmpstr = readline(pstr);
concp = 0;
inprompt = false;
- if (!tmpstr) cleanExit();
+ if (!tmpstr) {err = 0; cleanExit();}
int32_t tmpptr;
if (tmpstr[0] == 0) {free(tmpstr); goto brkproccmd;}
for (tmpptr = 0; tmpstr[tmpptr] == ' '; ++tmpptr) {}
@@ -888,12 +931,28 @@ int main(int argc, char** argv) {
if (!tmphist || strcmp(tmpstr, tmphist->line)) add_history(tmpstr);
copyStr(tmpstr, conbuf);
free(tmpstr);
+ bool inStr = false;
+ bool inCmd = true;
+ for (int32_t i = 0; conbuf[i]; ++i) {
+ switch (conbuf[i]) {
+ case 'a' ... 'z':
+ if (!inStr || inCmd) conbuf[i] = conbuf[i] - 32;
+ break;
+ case '"':
+ if (!inCmd) inStr = !inStr;
+ break;
+ case ' ':
+ if (!inStr && inCmd) inCmd = false;
+ break;
+ }
+ }
cmdint = false;
}
if (runc) runc = false;
cmdl = 0;
didloop = false;
didelse = false;
+ didelseif = false;
bool inStr = false;
if (!runfile) setsig(SIGINT, cmdIntHndl);
progLine = 1;
@@ -929,11 +988,12 @@ int main(int argc, char** argv) {
copyStrSnip(progbuf[progindex], cp - cmdl, cp, cmd);
cmdl = 0;
runcmd();
- if (cmdint) {inProg = false; unloadAllProg(); cmdint = false; goto brkproccmd;}
- if (cp == -1) {inProg = false; unloadAllProg(); goto brkproccmd;}
+ if (cmdint) {err = 0; inProg = false; unloadAllProg(); cmdint = false; goto brkproccmd;}
+ if (cp == -1) {err = 0; inProg = false; unloadAllProg(); goto brkproccmd;}
if (cp > -1 && progbuf[progindex][cp] == 0) {
unloadProg();
if (progindex < 0) {
+ err = 0;
inProg = false;
goto rechk;
} else {
@@ -966,7 +1026,7 @@ int main(int argc, char** argv) {
}
}
brkproccmd:;
- #ifdef __unix__
+ #ifndef _WIN32
setsig(SIGINT, cleanExit);
#endif
txtqunlock();
@@ -990,27 +1050,41 @@ static inline void resetTimer() {
}
static inline void cb_wait(uint64_t d) {
- #ifdef __unix__
+ #ifndef _WIN32
struct timespec dts;
dts.tv_sec = d / 1000000;
dts.tv_nsec = (d % 1000000) * 1000;
nanosleep(&dts, NULL);
#else
uint64_t t = d + usTime();
- while (t > usTime() && !cmdint) {}
+ while (t > usTime() && !cmdint) {
+ if (!textlock) {
+ char kbc;
+ int kbh = kbhit();
+ for (int i = 0; i < kbh; ++i) {
+ kbc = _getch();
+ kbinbuf[i] = kbc;
+ putchar(kbc);
+ if (kbc == 3) {
+ cmdint = true;
+ return;
+ }
+ }
+ fflush(stdout);
+ }
+ }
#endif
}
-static inline bool isFile(char* path) {
+static inline int isFile(char* path) {
struct stat pathstat;
- stat(path, &pathstat);
+ if (stat(path, &pathstat)) return -1;
return !(S_ISDIR(pathstat.st_mode));
}
#ifndef _WIN32
-
int gcpret, gcpi;
-__sighandler_t gcpoldsigh;
+void (*gcpoldsigh)(int);
bool gcpint = false;
void gcpsigh() {
@@ -1022,6 +1096,7 @@ void gcpsigh() {
return;
}
+bool gcp_sig = true;
#endif
static inline void getCurPos() {
@@ -1030,7 +1105,8 @@ static inline void getCurPos() {
#ifndef _WIN32
char buf[16];
register int i;
- nokill();
+ //nokill();
+ if (gcp_sig) pthread_sigmask(SIG_SETMASK, &intmask, &oldmask);
i = kbhit();
while (i > 0) {getchar(); i--;}
if (!textlock) {
@@ -1042,16 +1118,22 @@ static inline void getCurPos() {
}
fputs("\e[6n", stdout);
fflush(stdout);
- while (!(gcpi += kbhit())) {}
+ i = 0;
+ gcpi = 0;
+ while (!gcpi) {gcpi = kbhit();}
+ while (i) {gcpi += i = kbhit();}
gcpret = read(1, &buf, gcpi + 1);
if (!textlock) {
tcsetattr(0, TCSANOW, &restore);
sneaktextlock = false;
}
- yeskill();
- if (!gcpret) return;
- if (cmdint) {cmdint = false; return;}
- sscanf(buf, "\e[%d;%dR", &cury, &curx);
+ i = kbhit();
+ while (i > 0) {getchar(); i--;}
+ //yeskill();
+ //if (cmdint) {cmdint = false; return;}
+ if (gcpret != gcpi) {gcp_sig = false; getCurPos(); gcp_sig = true;}
+ else {sscanf(buf, "\e[%d;%dR", &cury, &curx);}
+ if (gcp_sig) pthread_sigmask(SIG_SETMASK, &oldmask, NULL);
#else
CONSOLE_SCREEN_BUFFER_INFO con;
GetConsoleScreenBufferInfo(hConsole, &con);
@@ -1060,7 +1142,7 @@ static inline void getCurPos() {
#endif
}
-void unloadProg() {
+void unloadProg() {
if (progindex > 0) progfnstr = progfn[progindex - 1];
free(progbuf[progindex]);
free(progfn[progindex]);
@@ -1074,16 +1156,18 @@ void unloadProg() {
cmdl = progcmdl[progindex];
progLine = proglinebuf[progindex];
didelse = olddidelse[progindex];
+ didelseif = olddidelseif[progindex];
dlstackp = mindlstackp[progindex];
itstackp = minitstackp[progindex];
fnstackp = minfnstackp[progindex];
- progcp = (int64_t*)realloc(progcp, progindex * sizeof(int64_t));
+ progcp = (int32_t*)realloc(progcp, progindex * sizeof(int32_t));
progcmdl = (int*)realloc(progcmdl, progindex * sizeof(int));
proglinebuf = (int*)realloc(proglinebuf, progindex * sizeof(int));
mindlstackp = (int*)realloc(mindlstackp, progindex * sizeof(int));
minitstackp = (int*)realloc(minitstackp, progindex * sizeof(int));
minfnstackp = (int*)realloc(minfnstackp, progindex * sizeof(int));
olddidelse = (bool*)realloc(olddidelse, progindex * sizeof(bool));
+ olddidelseif = (bool*)realloc(olddidelseif, progindex * sizeof(bool));
proggotodata = (cb_goto**)realloc(proggotodata, progindex * sizeof(cb_goto*));
proggotomaxct = (int*)realloc(proggotomaxct, progindex * sizeof(int));
progindex--;
@@ -1097,6 +1181,7 @@ void unloadAllProg() {
}
bool loadProg(char* filename) {
+ retval = 0;
fputs("Loading...", stdout);
fflush(stdout);
seterrstr(filename);
@@ -1148,12 +1233,13 @@ bool loadProg(char* filename) {
progfnstr = progfn[progindex];
++progindex;
progbuf = (char**)realloc(progbuf, progindex * sizeof(char*));
- progcp = (int64_t*)realloc(progcp, progindex * sizeof(int64_t));
+ progcp = (int32_t*)realloc(progcp, progindex * sizeof(int32_t));
progcmdl = (int*)realloc(progcmdl, progindex * sizeof(int));
proglinebuf = (int*)realloc(proglinebuf, progindex * sizeof(int));
mindlstackp = (int*)realloc(mindlstackp, progindex * sizeof(int));
minitstackp = (int*)realloc(minitstackp, progindex * sizeof(int));
olddidelse = (bool*)realloc(olddidelse, progindex * sizeof(bool));
+ olddidelseif = (bool*)realloc(olddidelseif, progindex * sizeof(bool));
minfnstackp = (int*)realloc(minfnstackp, progindex * sizeof(int));
proggotodata = (cb_goto**)realloc(proggotodata, progindex * sizeof(cb_goto*));
proggotomaxct = (int*)realloc(proggotomaxct, progindex * sizeof(int));
@@ -1173,9 +1259,10 @@ bool loadProg(char* filename) {
cmdl = 0;
progLine = 1;
didelse = false;
+ didelseif = false;
getCurPos();
int tmpx = curx, tmpy = cury;
- uint32_t fsize = (uint32_t)ftell(prog);
+ int32_t fsize = (uint32_t)ftell(prog);
uint64_t time2 = usTime();
fseek(prog, 0, SEEK_SET);
#ifndef _WIN_NO_VT
@@ -1186,7 +1273,7 @@ bool loadProg(char* filename) {
printf("(%llu bytes)...", (long long unsigned)fsize);
fflush(stdout);
progbuf[progindex] = (char*)malloc(fsize + 1);
- int64_t j = 0;
+ int32_t j = 0;
bool comment = false;
bool inStr = false;
#ifndef _WIN_NO_VT
@@ -1196,13 +1283,14 @@ bool loadProg(char* filename) {
#endif
printf("(0/%llu bytes)...", (long long unsigned)fsize);
fflush(stdout);
- while (!feof(prog)) {
+ while (j < fsize && !feof(prog)) {
int tmpc = fgetc(prog);
if (tmpc == '"') inStr = !inStr;
if (!inStr && (tmpc == '\'' || tmpc == '#')) comment = true;
if (tmpc == '\n') comment = false;
if (tmpc == '\r' || tmpc == '\t') tmpc = ' ';
- if (!comment) {progbuf[progindex][j] = (char)tmpc; j++;}
+ if (tmpc < 0) tmpc = 0;
+ if (!comment) {progbuf[progindex][j] = (char)((inStr) ? tmpc : ((tmpc >= 'a' && tmpc <= 'z') ? tmpc -= 32 : tmpc)); j++;}
if (usTime() - time2 >= 250000) {
time2 = usTime();
#ifndef _WIN_NO_VT
@@ -1234,8 +1322,7 @@ bool loadProg(char* filename) {
#endif
putchar('\r');
fflush(stdout);
- if (j < 1) j = 1;
- progbuf[progindex][j - 1] = 0;
+ progbuf[progindex][j] = 0;
fclose(prog);
return true;
}
@@ -1293,6 +1380,25 @@ static inline bool isSpChar(char c) {
}
}
+static inline bool isExSpChar(char c) {
+ switch (c) {
+ case '+':
+ case '-':
+ case '*':
+ case '/':
+ case '^':
+ case '=':
+ case '<':
+ case '>':
+ case ',':
+ return true;
+ break;
+ default:
+ return false;
+ break;
+ }
+}
+
static inline bool isValidVarChar(char c) {
switch (c) {
case 'A' ... 'Z':
@@ -1330,48 +1436,60 @@ static inline bool isValidHexChar(char c) {
#ifndef BUILT_IN_STRING_FUNCS
static inline void copyStr(char* str1, char* str2) {
- int32_t i;
- for (i = 0; str1[i]; ++i) {str2[i] = str1[i];}
- str2[i] = 0;
+ for (; *str1; ++str1, ++str2) {*str2 = *str1;}
+ *str2 = 0;
}
static inline void copyStrApnd(char* str1, char* str2) {
- int32_t j = 0, i = 0;
- for (i = strlen(str2); str1[j]; ++i) {str2[i] = str1[j]; ++j;}
- str2[i] = 0;
+ while (*str2) {++str2;}
+ for (; *str1; ++str1, ++str2) {*str2 = *str1;}
+ *str2 = 0;
}
#endif
+static inline void copyStrApndNoEsc(char* str1, char* str2) {
+ while (*str2) {++str2;}
+ for (; *str1; ++str1, ++str2) {
+ if ((*str2 = *str1) == '\\') {*str2 = '\\';}
+ if (*str1 == '\'') {*str2 = '\\'; *++str2 = '\'';}
+ }
+ *str2 = 0;
+}
+
static inline void copyStrSnip(char* str1, int32_t i, int32_t j, char* str2) {
- int32_t i2 = 0;
- for (; i < j && str1[i]; ++i) {str2[i2] = str1[i]; ++i2;}
- str2[i2] = 0;
+ str1 += i;
+ for (; i < j && *str1; ++str1, ++str2, ++i) {*str2 = *str1;}
+ *str2 = 0;
}
static inline void copyStrTo(char* str1, int32_t i, char* str2) {
int32_t i2 = 0;
- int32_t i3;
- for (i3 = i; str1[i]; ++i) {str2[i3] = str1[i2]; ++i2; ++i3;}
- str2[i3] = 0;
+ for (; *str1 && i2 < i; ++str1, ++str2, ++i2) {*str2 = *str1;}
+ *str2 = 0;
+}
+
+static inline void copyStrFrom(char* str1, int32_t i, char* str2) {
+ str1 += i;
+ for (; *str1; ++str1, ++str2) {*str2 = *str1;}
+ *str2 = 0;
}
static inline void strApndChar(char* str, char c) {
- int32_t len = 0;
- while (str[len]) {len++;}
- str[len] = c;
- len++;
- str[len] = 0;
+ while (*str) {++str;}
+ *str = c;
+ ++str;
+ *str = 0;
}
static inline void upCase(char* str) {
- for (int32_t i = 0; str[i]; ++i) {
- if (str[i] >= 'a' && str[i] <= 'z') str[i] -= 32;
+ for (;*str; ++str) {
+ if (*str >= 'a' && *str <= 'z') *str -= 32;
}
}
static inline void lowCase(char* str) {
- for (int32_t i = 0; str[i]; ++i) {
- if (str[i] >= 'A' && str[i] <= 'Z') str[i] += 32;
+ for (;*str; ++str) {
+ if (*str >= 'A' && *str <= 'Z') *str += 32;
}
}
@@ -1435,7 +1553,7 @@ void updateTxtAttrib() {
char buf[CB_BUF_SIZE];
-void getStr(char* str1, char* str2) {
+static inline void getStr(char* str1, char* str2) {
int32_t j = 0, i;
for (i = 0; str1[i]; ++i) {
char c = str1[i];
@@ -1474,17 +1592,61 @@ void getStr(char* str1, char* str2) {
copyStr(buf, str2);
}
-uint8_t getType(char* str) {
- if (str[0] == '"') {if (str[strlen(str) - 1] != '"') {return 0;} return 1;}
+static inline uint8_t getType(char* str) {
+ if (*str == '"') {if (str[strlen(str) - 1] != '"') {return 0;} return 1;}
bool p = false;
- for (int32_t i = 0; str[i]; ++i) {
- if (str[i] == '-') {} else
- if ((str[i] < '0' || str[i] > '9') && str[i] != '.') {return 255;} else
- if (str[i] == '.') {if (p) {return 0;} p = true;}
+ for (; *str; ++str) {
+ if (*str == '-') {} else
+ if ((*str < '0' || *str > '9') && *str != '.') {return 255;} else
+ if (*str == '.') {if (p) {return 0;} p = true;}
}
return 2;
}
+static inline bool isLineNumber(char* str) {
+ if (!*str || *str == '-') return false;
+ while (*str) {
+ if (*str == '.') return false;
+ if (*str < '0' || *str > '9') return false;
+ ++str;
+ }
+ return true;
+}
+
+int cbrmIndex = 0;
+
+bool cbrm(char* path) {
+ fileerror = 0;
+ if (isFile(path)) {
+ if (remove(path)) {fileerror = errno; return false;}
+ return true;
+ }
+ char* odir = (cbrmIndex) ? NULL : getcwd(NULL, 0);
+ ++cbrmIndex;
+ if (chdir(path)) {fileerror = errno; goto cbrm_fail;}
+ DIR* cwd = opendir(".");
+ struct dirent* dir;
+ struct stat pathstat;
+ while ((dir = readdir(cwd))) {
+ if (strcmp(dir->d_name, ".") && strcmp(dir->d_name, "..")) {
+ stat(dir->d_name, &pathstat);
+ if (S_ISDIR(pathstat.st_mode)) {cbrm(dir->d_name);}
+ else {remove(dir->d_name);}
+ }
+ }
+ --cbrmIndex;
+ chdir((cbrmIndex) ? ".." : odir);
+ if (!cbrmIndex) free(odir);
+ if (rmdir(path)) {fileerror = errno; return false;}
+ return true;
+ cbrm_fail:
+ --cbrmIndex;
+ chdir((cbrmIndex) ? ".." : odir);
+ if (!cbrmIndex) free(odir);
+ if (rmdir(path)) fileerror = errno;
+ return false;
+}
+
static inline int getArg(int, char*, char*);
static inline int getArgCt(char*);
@@ -1507,27 +1669,44 @@ uint8_t getFunc(char* inbuf, char* outbuf) {
gftmp[1] = getFunc_gftmp[1];
}
++getFuncIndex;
- int32_t i;
- for (i = 0; inbuf[i] != '('; ++i) {if (inbuf[i] >= 'a' && inbuf[i] <= 'z') inbuf[i] = inbuf[i] - 32;}
- copyStrSnip(inbuf, i + 1, strlen(inbuf) - 1, gftmp[0]);
- fargct = getArgCt(gftmp[0]);
- farg = malloc((fargct + 1) * sizeof(char*));
- flen = malloc((fargct + 1) * sizeof(int));
- fargt = malloc((fargct + 1) * sizeof(uint8_t));
- for (int j = 0; j <= fargct; ++j) {
- if (j == 0) {
- flen[0] = i;
- farg[0] = (char*)malloc(flen[0] + 1);
- copyStrSnip(inbuf, 0, i, farg[0]);
- } else {
- getArg(j - 1, gftmp[0], gftmp[1]);
- fargt[j] = getVal(gftmp[1], gftmp[1]);
- if (fargt[j] == 0) goto fnoerrscan;
- if (fargt[j] == 255) fargt[j] = 0;
- flen[j] = strlen(gftmp[1]);
- farg[j] = (char*)malloc(flen[j] + 1);
- copyStr(gftmp[1], farg[j]);
- ftmpct++;
+ {
+ int32_t i;
+ for (i = 0; inbuf[i] != '('; ++i) {if (inbuf[i] >= 'a' && inbuf[i] <= 'z') inbuf[i] = inbuf[i] - 32;}
+ int32_t j = strlen(inbuf) - 1;
+ copyStrSnip(inbuf, i + 1, j, gftmp[0]);
+ fargct = getArgCt(gftmp[0]);
+ farg = malloc((fargct + 1) * sizeof(char*));
+ flen = malloc((fargct + 1) * sizeof(int));
+ fargt = malloc((fargct + 1) * sizeof(uint8_t));
+ for (int j = 0; j <= fargct; ++j) {
+ farg[j] = NULL;
+ }
+ for (int j = 0; j <= fargct; ++j) {
+ if (j == 0) {
+ flen[0] = i;
+ farg[0] = (char*)malloc(flen[0] + 1);
+ copyStrTo(inbuf, i, farg[0]);
+ if (!strcmp(farg[0], "~") || !strcmp(farg[0], "_TEST")) {
+ ftype = 2;
+ if (fargct != 1) {cerr = 3; goto fexit;}
+ cerr = 0;
+ if (getArg(0, gftmp[0], gftmp[1]) == -1) {outbuf[0] = 0; goto fexit;}
+ int ret = logictest(gftmp[1]);
+ if (ret == -1) {outbuf[0] = 0; goto fexit;}
+ outbuf[0] = '0' + ret;
+ outbuf[1] = 0;
+ goto fexit;
+ }
+ } else {
+ if (getArg(j - 1, gftmp[0], gftmp[1]) == -1) {outbuf[0] = 0; goto fexit;}
+ fargt[j] = getVal(gftmp[1], gftmp[1]);
+ if (fargt[j] == 0) goto fnoerrscan;
+ if (fargt[j] == 255) fargt[j] = 0;
+ flen[j] = strlen(gftmp[1]);
+ farg[j] = (char*)malloc(flen[j] + 1);
+ copyStr(gftmp[1], farg[j]);
+ ftmpct++;
+ }
}
}
outbuf[0] = 0;
@@ -1556,7 +1735,6 @@ uint8_t getVar(char* vn, char* varout) {
if (vn[vnlen - 1] == ')') {
return getFunc(vn, varout);
}
- upCase(vn);
if (!vn[0] || vn[0] == '[' || vn[0] == ']') {
cerr = 4;
seterrstr(vn);
@@ -1632,11 +1810,8 @@ uint8_t getVar(char* vn, char* varout) {
return 0;
}
-bool delVar(char*);
-
bool setVar(char* vn, char* val, uint8_t t, int32_t s) {
int32_t vnlen = strlen(vn);
- upCase(vn);
if (!vn[0] || vn[0] == '[' || vn[0] == ']') {
cerr = 4;
seterrstr(vn);
@@ -1705,11 +1880,6 @@ bool setVar(char* vn, char* val, uint8_t t, int32_t s) {
vardata[v].data = (char**)malloc((s + 1) * sizeof(char*));
for (int32_t i = 0; i <= s; ++i) {
vardata[v].data[i] = (char*)malloc(strlen(val) + 1);
- if (!vardata[v].data[i]) {
- delVar(vn);
- cerr = 26;
- return false;
- }
copyStr(val, vardata[v].data[i]);
}
} else {
@@ -1728,7 +1898,6 @@ bool setVar(char* vn, char* val, uint8_t t, int32_t s) {
}
bool delVar(char* vn) {
- upCase(vn);
if (!vn[0] || vn[0] == '[' || vn[0] == ']') {
cerr = 4;
seterrstr(vn);
@@ -1772,6 +1941,68 @@ bool delVar(char* vn) {
return true;
}
+int openFile(char* path, char* mode) {
+ fileerror = 0;
+ int i = 0;
+ int j = -1;
+ for (; i < filemaxct; ++i) {
+ if (!filedata[i].fptr) {j = i; break;}
+ }
+ if (j == -1) {
+ j = filemaxct;
+ ++filemaxct;
+ filedata = (cb_file*)realloc(filedata, filemaxct * sizeof(cb_file));
+ }
+ if (!(filedata[j].fptr = fopen(path, mode))) {
+ fileerror = errno;
+ --filemaxct;
+ filedata = (cb_file*)realloc(filedata, filemaxct * sizeof(cb_file));
+ return -1;
+ }
+ fseek(filedata[j].fptr, 0, SEEK_END);
+ filedata[j].size = ftell(filedata[j].fptr);
+ fseek(filedata[j].fptr, 0, SEEK_SET);
+ return j;
+}
+
+bool closeFile(int num) {
+ fileerror = 0;
+ if (num > -1 && num < filemaxct) {
+ if (filedata[num].fptr) {
+ if (fclose(filedata[num].fptr)) {
+ fileerror = errno;
+ filedata[num].fptr = NULL;
+ return false;
+ }
+ filedata[num].fptr = NULL;
+ for (int i = filemaxct - 1; i > -1; --i) {
+ if (!(filedata[i].fptr)) {
+ --filemaxct;
+ } else {
+ break;
+ }
+ }
+ filedata = (cb_file*)realloc(filedata, filemaxct * sizeof(cb_file));
+ } else {
+ return false;
+ }
+ } else {
+ if (num == -1) {
+ for (int i = 0; i < filemaxct; ++i) {
+ if (filedata[i].fptr) {
+ fclose(filedata[i].fptr);
+ filedata[i].fptr = NULL;
+ }
+ }
+ filemaxct = 0;
+ } else {
+ fileerror = EINVAL;
+ return false;
+ }
+ }
+ return true;
+}
+
static inline bool gvchkchar(char* tmp, int32_t i) {
if (isSpChar(tmp[i + 1])) {
if (tmp[i + 1] == '-') {
@@ -1930,7 +2161,6 @@ uint8_t getVal(char* inbuf, char* outbuf) {
pct = 0;
bct = 0;
while (1) {
- //printf("-: [%d]: [%d] [%d %d %d] {%s} {%s} {%s} {%s}\n", getValIndex, numAct, p1, p2, p3, tmp[0], tmp[1], tmp[2], tmp[3]);
numAct = 0;
p1 = 0, p2 = 0, p3 = 0;
for (register int32_t i = 0; tmp[0][i]; ++i) {
@@ -2080,7 +2310,7 @@ uint8_t getVal(char* inbuf, char* outbuf) {
if (dp) tmp[1][--i] = '-';
copyStrSnip(tmp[1], i, j + 1, tmp[2]);
copyStrSnip(tmp[0], p3, strlen(tmp[0]), tmp[3]);
- if (p1) copyStrSnip(tmp[0], 0, p1, tmp[1]);
+ if (p1) copyStrTo(tmp[0], p1, tmp[1]);
else {tmp[1][0] = 0;}
copyStrApnd(tmp[2], tmp[1]);
copyStrApnd(tmp[3], tmp[1]);
@@ -2103,6 +2333,7 @@ uint8_t getVal(char* inbuf, char* outbuf) {
if (!tmp[1][i] || tmp[1][i] == '.') {--i;}
if (dp) tmp[1][--i] = '-';
copyStrSnip(tmp[1], i, j + 1, outbuf);
+ if (outbuf[0] == '-' && outbuf[1] == '0' && outbuf[2] == 0) {outbuf[0] = '0'; outbuf[1] = 0;}
} else {
copyStr(tmp[1], outbuf);
}
@@ -2116,7 +2347,7 @@ uint8_t getVal(char* inbuf, char* outbuf) {
char satmpbuf[CB_BUF_SIZE];
-bool solvearg(int i) {
+static inline bool solvearg(int i) {
if (i == 0) {
argt[0] = 0;
arg[0] = tmpargs[0];
@@ -2138,22 +2369,27 @@ static inline int getArgCt(char* inbuf) {
int ct = 0;
bool inStr = false;
int pct = 0, bct = 0;
- int32_t j = 0;
- while (inbuf[j] == ' ') {--j;}
- for (int32_t i = j; inbuf[i]; ++i) {
+ while (*inbuf == ' ') {++inbuf;}
+ for (; *inbuf; ++inbuf) {
if (ct == 0) ct = 1;
- if (inbuf[i] == '(' && !inStr) {pct++;}
- if (inbuf[i] == ')' && !inStr) {pct--;}
- if (inbuf[i] == '[' && !inStr) {bct++;}
- if (inbuf[i] == ']' && !inStr) {bct--;}
- if (inbuf[i] == '"') inStr = !inStr;
- if (inbuf[i] == ',' && !inStr && pct == 0 && bct == 0) ct++;
+ if (*inbuf == '"') inStr = !inStr;
+ if (!inStr) {
+ switch (*inbuf) {
+ case '(': ++pct; break;
+ case ')': --pct; break;
+ case '[': ++bct; break;
+ case ']': --bct; break;
+ case ',': if (pct == 0 && bct == 0) {++ct;}; break;
+ }
+ }
}
return ct;
}
static inline int getArg(int num, char* inbuf, char* outbuf) {
bool inStr = false;
+ bool lookingForSpChar = false;
+ bool sawSpChar = false;
int pct = 0, bct = 0;
int ct = 0;
int32_t len = 0;
@@ -2167,12 +2403,22 @@ static inline int getArg(int num, char* inbuf, char* outbuf) {
}
}
if (inbuf[i] == '"') inStr = !inStr;
- if (!inStr && pct == 0 && bct == 0 && inbuf[i] == ',') {++ct;} else
- if (ct == num && (inStr || inbuf[i] != ' ')) {outbuf[len] = inbuf[i]; len++;}
+ if (!inStr && pct == 0 && bct == 0 && inbuf[i] == ',') {++ct;}
+ else if (ct == num) {
+ if (!inStr) {
+ if (inbuf[i] == ' ' && !sawSpChar && len > 0) {lookingForSpChar = true;}
+ if (isExSpChar(inbuf[i])) {lookingForSpChar = false; sawSpChar = true;}
+ }
+ if (inStr || inbuf[i] != ' ') {
+ if (!isExSpChar(inbuf[i])) sawSpChar = false;
+ if (lookingForSpChar) {outbuf[0] = 0; cerr = 1; return -1;}
+ outbuf[len] = inbuf[i];
+ ++len;
+ }
+ }
}
if (pct || bct || inStr) {outbuf[0] = 0; cerr = 1; return -1;}
outbuf[len] = 0;
- //printf("arg outbuf: {%s}\n", outbuf);
return len;
}
@@ -2180,12 +2426,12 @@ char tmpbuf[2][CB_BUF_SIZE];
void mkargs() {
int32_t j = 0;
- while (cmd[j] == ' ') {j++;}
+ while (cmd[j] == ' ') {++j;}
int32_t h = j;
- while (cmd[h] != ' ' && cmd[h] != '=' && cmd[h]) {h++;}
+ while (cmd[h] != ' ' && cmd[h] != '=' && cmd[h]) {++h;}
copyStrSnip(cmd, h + 1, strlen(cmd), tmpbuf[0]);
int32_t tmph = h;
- while (cmd[tmph] == ' ' && cmd[tmph]) {tmph++;}
+ while (cmd[tmph] == ' ' && cmd[tmph]) {++tmph;}
if (cmd[tmph] == '=') {
strcpy(tmpbuf[1], "SET ");
cmd[tmph] = ',';
@@ -2200,16 +2446,19 @@ void mkargs() {
argct = getArgCt(tmpbuf[0]);
tmpargs = (char**)realloc(tmpargs, (argct + 1) * sizeof(char*));
argl = (int32_t*)realloc(argl, (argct + 1) * sizeof(int32_t));
+ for (int i = 0; i <= argct; ++i) {
+ tmpargs[i] = NULL;
+ }
for (int i = 0; i <= argct; ++i) {
argl[i] = 0;
if (i == 0) {
copyStrSnip(cmd, j, h, tmpbuf[0]);
- argl[i] = strlen(tmpbuf[0]);
- tmpargs[i] = malloc(argl[i] + 1);
- copyStr(tmpbuf[0], tmpargs[i]);
+ argl[0] = strlen(tmpbuf[0]);
+ tmpargs[0] = malloc(argl[0] + 1);
+ copyStr(tmpbuf[0], tmpargs[0]);
copyStrSnip(cmd, h + 1, strlen(cmd), tmpbuf[0]);
} else {
- argl[i] = getArg(i - 1, tmpbuf[0], tmpbuf[1]);
+ if ((argl[i] = getArg(i - 1, tmpbuf[0], tmpbuf[1])) == -1) {cerr = 1; return;}
tmpargs[i] = malloc(argl[i] + 1);
copyStr(tmpbuf[1], tmpargs[i]);
}
@@ -2219,27 +2468,53 @@ void mkargs() {
for (int i = 0; i <= argct; ++i) {tmpargs[i][argl[i]] = 0;}
}
-char lttmp[3][CB_BUF_SIZE];
+char* lttmp_tmp[3];
+int logictestexpr_index = 0;
-uint8_t logictestexpr(char* inbuf) {
+static inline uint8_t logictestexpr(char* inbuf) {
int32_t tmpp = 0;
uint8_t t1 = 0;
uint8_t t2 = 0;
int32_t p = 0;
bool inStr = false;
+ bool lookingForSpChar = false;
+ bool sawSpChar = false;
int pct = 0, bct = 0;
+ int ret = 255;
+ char* lttmp[3];
+ if (!logictestexpr_index) {
+ lttmp[0] = lttmp_tmp[0];
+ lttmp[1] = lttmp_tmp[1];
+ lttmp[2] = lttmp_tmp[2];
+ } else {
+ lttmp[0] = malloc(CB_BUF_SIZE);
+ lttmp[1] = malloc(CB_BUF_SIZE);
+ lttmp[2] = malloc(CB_BUF_SIZE);
+ }
+ ++logictestexpr_index;
while (inbuf[p] == ' ') {++p;}
if (p >= (int32_t)strlen(inbuf)) {cerr = 10; goto ltreturn;}
- for (int32_t i = p; true; ++i) {
- if (inbuf[i] == '(' && !inStr) {pct++;}
- if (inbuf[i] == ')' && !inStr) {pct--;}
- if (inbuf[i] == '[' && !inStr) {bct++;}
- if (inbuf[i] == ']' && !inStr) {bct--;}
+ for (int32_t i = p; inbuf[i]; ++i) {
+ if (!inStr) {
+ switch (inbuf[i]) {
+ case '(': ++pct; break;
+ case ')': --pct; break;
+ case '[': ++bct; break;
+ case ']': --bct; break;
+ }
+ }
if (inbuf[i] == '"') {inStr = !inStr;}
if (inbuf[i] == 0) {cerr = 1; goto ltreturn;}
if ((inbuf[i] == '<' || inbuf[i] == '=' || inbuf[i] == '>') && !inStr && pct == 0 && bct == 0) {p = i; break;}
- if (inbuf[i] == ' ' && !inStr) {} else
- {lttmp[0][tmpp] = inbuf[i]; tmpp++;}
+ if (!inStr && pct == 0 && bct == 0) {
+ if (inbuf[i] == ' ' && !sawSpChar) {lookingForSpChar = true;}
+ if (isExSpChar(inbuf[i])) {lookingForSpChar = false; sawSpChar = true;}
+ }
+ if (inStr || inbuf[i] != ' ') {
+ if (!isExSpChar(inbuf[i])) sawSpChar = false;
+ if (lookingForSpChar) {cerr = 1; goto ltreturn;}
+ lttmp[0][tmpp] = inbuf[i]; tmpp++;
+ }
}
lttmp[0][tmpp] = 0;
tmpp = 0;
@@ -2250,10 +2525,32 @@ uint8_t logictestexpr(char* inbuf) {
}
lttmp[1][tmpp] = 0;
tmpp = 0;
- for (int32_t i = p; true; ++i) {
- if (inbuf[i] == 0) {break;}
- if (inbuf[i] == ' ' && !inStr) {} else
- {lttmp[2][tmpp] = inbuf[i]; tmpp++;}
+ inStr = false;
+ lookingForSpChar = false;
+ sawSpChar = false;
+ pct = 0; bct = 0;
+ while (inbuf[p] == ' ') {++p;}
+ for (int32_t i = p; inbuf[i]; ++i) {
+ if (!inStr) {
+ switch (inbuf[i]) {
+ case '(': ++pct; break;
+ case ')': --pct; break;
+ case '[': ++bct; break;
+ case ']': --bct; break;
+ }
+ }
+ if (inbuf[i] == '"') {inStr = !inStr;}
+ if (inbuf[i] == 0) {cerr = 1; goto ltreturn;}
+ if ((inbuf[i] == '<' || inbuf[i] == '=' || inbuf[i] == '>') && !inStr && pct == 0 && bct == 0) {p = i; break;}
+ if (!inStr && pct == 0 && bct == 0) {
+ if (inbuf[i] == ' ' && !sawSpChar) {lookingForSpChar = true;}
+ if (isExSpChar(inbuf[i])) {lookingForSpChar = false; sawSpChar = true;}
+ }
+ if (inStr || inbuf[i] != ' ') {
+ if (!isExSpChar(inbuf[i])) sawSpChar = false;
+ if (lookingForSpChar) {cerr = 1; goto ltreturn;}
+ lttmp[2][tmpp] = inbuf[i]; tmpp++;
+ }
}
lttmp[2][tmpp] = 0;
t1 = getVal(lttmp[0], lttmp[0]);
@@ -2262,89 +2559,116 @@ uint8_t logictestexpr(char* inbuf) {
if (t2 == 0) goto ltreturn;
if (t1 != t2) {cerr = 2; goto ltreturn;}
if (!strcmp(lttmp[1], "=")) {
- return (uint8_t)(bool)!strcmp(lttmp[0], lttmp[2]);
+ ret = (uint8_t)(bool)!strcmp(lttmp[0], lttmp[2]);
+ goto ltreturn;
} else if (!strcmp(lttmp[1], "<>")) {
- return (uint8_t)(bool)strcmp(lttmp[0], lttmp[2]);
+ ret = (uint8_t)(bool)strcmp(lttmp[0], lttmp[2]);
+ goto ltreturn;
} else if (!strcmp(lttmp[1], ">")) {
if (t1 == 1) {cerr = 2; goto ltreturn;}
double num1, num2;
sscanf(lttmp[0], "%lf", &num1);
sscanf(lttmp[2], "%lf", &num2);
- return num1 > num2;
+ ret = num1 > num2;
+ goto ltreturn;
} else if (!strcmp(lttmp[1], "<")) {
if (t1 == 1) {cerr = 2; goto ltreturn;}
double num1, num2;
sscanf(lttmp[0], "%lf", &num1);
sscanf(lttmp[2], "%lf", &num2);
- return num1 < num2;
+ ret = num1 < num2;
+ goto ltreturn;
} else if (!strcmp(lttmp[1], ">=")) {
if (t1 == 1) {cerr = 2; goto ltreturn;}
double num1, num2;
sscanf(lttmp[0], "%lf", &num1);
sscanf(lttmp[2], "%lf", &num2);
- return num1 >= num2;
+ ret = num1 >= num2;
+ goto ltreturn;
} else if (!strcmp(lttmp[1], "<=")) {
if (t1 == 1) {cerr = 2; goto ltreturn;}
double num1, num2;
sscanf(lttmp[0], "%lf", &num1);
sscanf(lttmp[2], "%lf", &num2);
- return num1 <= num2;
+ ret = num1 <= num2;
+ goto ltreturn;
} else if (!strcmp(lttmp[1], "=>")) {
if (t1 == 1) {cerr = 2; goto ltreturn;}
double num1, num2;
sscanf(lttmp[0], "%lf", &num1);
sscanf(lttmp[2], "%lf", &num2);
- return num1 >= num2;
+ ret = num1 >= num2;
+ goto ltreturn;
} else if (!strcmp(lttmp[1], "=<")) {
if (t1 == 1) {cerr = 2; goto ltreturn;}
double num1, num2;
sscanf(lttmp[0], "%lf", &num1);
sscanf(lttmp[2], "%lf", &num2);
- return num1 <= num2;
+ ret = num1 <= num2;
+ goto ltreturn;
}
cerr = 1;
ltreturn:;
- return 255;
+ --logictestexpr_index;
+ if (logictestexpr_index) {
+ free(lttmp[0]);
+ free(lttmp[1]);
+ free(lttmp[2]);
+ }
+ return ret;
}
-char ltbuf[CB_BUF_SIZE];
+char* ltbuf_tmp = NULL;
+int logictest_index = 0;
uint8_t logictest(char* inbuf) {
bool inStr = false;
int32_t i = 0, j = 0;
+ int pct = 0, bct = 0;
uint8_t ret = 0, out = 0;
uint8_t logicActOld = 0;
+ char* ltbuf;
+ if (!logictest_index) {
+ ltbuf = ltbuf_tmp;
+ } else {
+ ltbuf = malloc(CB_BUF_SIZE);
+ }
+ ++logictest_index;
while (inbuf[i]) {
uint8_t logicAct = 0;
for (;inbuf[j] && !logicAct; ++j) {
switch (inbuf[j]) {
case '"': inStr = !inStr; break;
- case '|': if (!inStr) {logicAct = 1; --j;} break;
- case '&': if (!inStr) {logicAct = 2; --j;} break;
+ case '(': if (!inStr) ++pct; break;
+ case ')': if (!inStr) --pct; break;
+ case '[': if (!inStr) ++bct; break;
+ case ']': if (!inStr) --bct; break;
+ case '|': if (!inStr && !pct && !bct) {logicAct = 1; --j;} break;
+ case '&': if (!inStr && !pct && !bct) {logicAct = 2; --j;} break;
}
}
copyStrSnip(inbuf, i, j, ltbuf);
- //printf("{%s} {%s} [%d, %d] [%d, %d]\n", inbuf, ltbuf, i, j, logicAct, logicActOld);
switch (logicActOld) {
case 1:
- //printf("OR: {%s}\n", ltbuf);
- if ((ret = logictestexpr(ltbuf)) == 255) {return 255;}
+ if ((ret = logictestexpr(ltbuf)) == 255) {out = 255; goto ltexit;}
out |= ret;
break;
case 2:
- //printf("AND: {%s}\n", ltbuf);
- if ((ret = logictestexpr(ltbuf)) == 255) {return 255;}
+ if ((ret = logictestexpr(ltbuf)) == 255) {out = 255; goto ltexit;}
out &= ret;
break;
default:
- //printf("NONE: {%s}\n", ltbuf);
out = logictestexpr(ltbuf);
break;
}
+ if (!inbuf[j]) break;
i = ++j;
- if (!inbuf[i + 1]) break;
+ if (!inbuf[i]) {if (inbuf[j - 1] == '|' || inbuf[j - 1] == '&') {cerr = 10; out = 255;} break;}
logicActOld = logicAct;
}
+ ltexit:;
+ --logictest_index;
+ if (logictest_index) free(ltbuf);
return out;
}
@@ -2353,21 +2677,53 @@ char ltmp[2][CB_BUF_SIZE];
bool runlogic() {
ltmp[0][0] = 0; ltmp[1][0] = 0;
int32_t i = 0;
- while (cmd[i] == ' ') {i++;}
+ while (cmd[i] == ' ') {++i;}
int32_t j = i;
- while (cmd[j] != ' ' && cmd[j]) {j++;}
+ while (cmd[j] != ' ' && cmd[j]) {++j;}
int32_t h = j;
- while (cmd[h] == ' ') {h++;}
+ while (cmd[h] == ' ') {++h;}
if (cmd[h] == '=') return false;
copyStrSnip(cmd, i, j, ltmp[0]);
- upCase(ltmp[0]);
+ if (isLineNumber(ltmp[0])) {
+ int tmp = -1;
+ for (int j = 0; j < gotomaxct; ++j) {
+ if (!gotodata[j].used) {tmp = j; break;}
+ else if (!strcmp(gotodata[j].name, ltmp[0])) {
+ if (gotodata[j].cp == cmdpos) {goto skiplbl;}
+ cerr = 28; return true;
+ }
+ }
+ if (tmp == -1) {
+ tmp = gotomaxct;
+ ++gotomaxct;
+ gotodata = realloc(gotodata, gotomaxct * sizeof(cb_goto));
+ }
+ gotodata[tmp].name = malloc(strlen(ltmp[0]) + 1);
+ copyStr(ltmp[0], gotodata[tmp].name);
+ gotodata[tmp].cp = cmdpos;
+ gotodata[tmp].pl = progLine;
+ gotodata[tmp].used = true;
+ gotodata[tmp].dlsp = dlstackp;
+ gotodata[tmp].fnsp = fnstackp;
+ gotodata[tmp].itsp = itstackp;
+ skiplbl:;
+ while (cmd[i] != ' ' && cmd[i]) {++i;}
+ while (cmd[i] == ' ') {++i;}
+ j = i;
+ while (cmd[j] != ' ' && cmd[j]) {++j;}
+ h = j;
+ while (cmd[h] == ' ') {++h;}
+ if (cmd[h] == '=') return false;
+ copyStrSnip(cmd, i, j, ltmp[0]);
+ copyStrFrom(cmd, i, cmd);
+ }
cerr = 0;
chkCmdPtr = ltmp[0];
#include "logic.c"
return false;
}
-void initBaseMem() {
+static inline void initBaseMem() {
getVal_tmp[0] = malloc(CB_BUF_SIZE);
getVal_tmp[1] = malloc(CB_BUF_SIZE);
getVal_tmp[2] = malloc(CB_BUF_SIZE);
@@ -2375,9 +2731,13 @@ void initBaseMem() {
getFunc_gftmp[0] = malloc(CB_BUF_SIZE);
getFunc_gftmp[1] = malloc(CB_BUF_SIZE);
bfnbuf = malloc(CB_BUF_SIZE);
+ ltbuf_tmp = malloc(CB_BUF_SIZE);
+ lttmp_tmp[0] = malloc(CB_BUF_SIZE);
+ lttmp_tmp[1] = malloc(CB_BUF_SIZE);
+ lttmp_tmp[2] = malloc(CB_BUF_SIZE);
}
-void freeBaseMem() {
+static inline void freeBaseMem() {
nfree(getVal_tmp[0]);
nfree(getVal_tmp[1]);
nfree(getVal_tmp[2]);
@@ -2385,9 +2745,13 @@ void freeBaseMem() {
nfree(getFunc_gftmp[0]);
nfree(getFunc_gftmp[1]);
nfree(bfnbuf);
+ nfree(ltbuf_tmp);
+ nfree(lttmp_tmp[0]);
+ nfree(lttmp_tmp[1]);
+ nfree(lttmp_tmp[2]);
}
-void printError(int error) {
+static inline void printError(int error) {
getCurPos();
if (curx != 1) putchar('\n');
if (inProg) {printf("Error %d on line %d of '%s': '%s': ", error, progLine, basefilename(progfnstr), cmd);}
@@ -2418,7 +2782,7 @@ void printError(int error) {
fputs("ENDIF without IF", stdout);
break;
case 8:
- fputs("ELSE without IF", stdout);
+ fputs("ELSE or ELSEIF without IF", stdout);
break;
case 9:
fputs("NEXT without FOR", stdout);
@@ -2439,7 +2803,7 @@ void printError(int error) {
fputs("Reached FOR limit", stdout);
break;
case 15:
- printf("File not found: '%s'", errstr);
+ printf("File or directory not found: '%s'", errstr);
break;
case 16:
fputs("Invalid data or data range exceeded", stdout);
@@ -2501,9 +2865,6 @@ void printError(int error) {
case 255:
printf("Not a command: '%s'", arg[0]);
break;
- case -1:
- fputs("Internal error", stdout);
- break;
}
putchar('\n');
}
@@ -2513,20 +2874,24 @@ void runcmd() {
cerr = 0;
bool lgc = runlogic();
if (lgc) goto cmderr;
+ if (cmd[0] == 0) return;
if (dlstackp > ((progindex > -1) ? mindlstackp[progindex] : -1)) {if (dldcmd[dlstackp]) return;}
if (itstackp > ((progindex > -1) ? minitstackp[progindex] : -1)) {if (itdcmd[itstackp]) return;}
if (fnstackp > ((progindex > -1) ? minfnstackp[progindex] : -1)) {if (fndcmd[fnstackp]) return;}
+ bool madeargs = false;
mkargs();
+ if (cerr) goto cmderr;
+ madeargs = true;
argt = (uint8_t*)realloc(argt, argct + 1);
arg = (char**)realloc(arg, (argct + 1) * sizeof(char*));
for (int i = 1; i <= argct; ++i) {arg[i] = NULL;}
solvearg(0);
- upCase(arg[0]);
cerr = 255;
chkCmdPtr = arg[0];
#include "commands.c"
cmderr:;
if (cerr) {
+ err = 0;
if (runc || runfile) err = 1;
printError(cerr);
cp = -1;
@@ -2538,8 +2903,10 @@ void runcmd() {
for (int i = 0; i <= argct; ++i) {
free(tmpargs[i]);
}
- for (int i = 1; i <= argct; ++i) {
- free(arg[i]);
+ if (madeargs) {
+ for (int i = 1; i <= argct; ++i) {
+ free(arg[i]);
+ }
}
return;
}
diff --git a/commands.c b/commands.c
index db7bea4..12e3cf1 100644
--- a/commands.c
+++ b/commands.c
@@ -2,9 +2,23 @@ if (chkCmdPtr[0] == '_') goto _cmd;
if (chkCmd(2, "EXIT", "QUIT")) {
if (argct > 1) {cerr = 3; goto cmderr;}
cerr = 0;
- if (argct == 1) {if (!solvearg(1)) goto cmderr; err = atoi(arg[1]);}
- if (inProg) {inProg = false; goto cmderr;}
- cleanExit();
+ err = 0;
+ if (argct == 1) {
+ if (!solvearg(1)) goto cmderr;
+ if (runfile) {
+ err = retval = atoi(arg[1]);
+ } else {
+ err = atoi(arg[1]);
+ }
+ }
+ if (inProg) {
+ if (progindex > 0) unloadProg();
+ else inProg = false;
+ retval = err;
+ } else {
+ cleanExit();
+ }
+ goto cmderr;
}
if (chkCmd(1, "PUT")) {
cerr = 0;
@@ -19,13 +33,16 @@ if (chkCmd(2, "SET", "LET")) {
if (!setVar(tmpargs[1], arg[2], argt[2], -1)) goto cmderr;
goto noerr;
}
-if (chkCmd(2, "@", "LABEL")) {
+if (chkCmd(3, "@", "LABEL", "LBL")) {
if (argct != 1) {cerr = 3; goto cmderr;}
cerr = 0;
int i = -1;
for (int j = 0; j < gotomaxct; ++j) {
if (!gotodata[j].used) {i = j; break;}
- else if (!strcmp(gotodata[j].name, tmpargs[1])) {cerr = 28; goto cmderr;}
+ else if (!strcmp(gotodata[j].name, tmpargs[1])) {
+ if (gotodata[j].cp == cmdpos) {goto noerr;}
+ cerr = 28; goto cmderr;
+ }
}
if (i == -1) {
i = gotomaxct;
@@ -40,8 +57,9 @@ if (chkCmd(2, "@", "LABEL")) {
gotodata[i].dlsp = dlstackp;
gotodata[i].fnsp = fnstackp;
gotodata[i].itsp = itstackp;
+ goto noerr;
}
-if (chkCmd(2, "%", "GOTO")) {
+if (chkCmd(3, "%", "GOTO", "GO")) {
if (argct != 1) {cerr = 3; goto cmderr;}
cerr = 0;
int i = -1;
@@ -62,10 +80,11 @@ if (chkCmd(2, "%", "GOTO")) {
itstackp = gotodata[i].itsp;
gotodata[i].used = false;
bool r = false;
- while (gotomaxct > 0 && !gotodata[gotomaxct].used) {--gotomaxct; r = true;}
+ while (gotomaxct > 0 && !gotodata[gotomaxct - 1].used) {--gotomaxct; r = true;}
if (r) gotodata = realloc(gotodata, gotomaxct * sizeof(cb_goto));
didloop = true;
lockpl = true;
+ goto noerr;
}
if (chkCmd(1, "DIM")) {
if (argct != 3) {cerr = 3; goto cmderr;}
@@ -136,12 +155,13 @@ if (chkCmd(1, "COLOR")) {
goto noerr;
}
if (chkCmd(1, "LOCATE")) {
+ if (argct > 2 || argct < 1) {cerr = 3; goto cmderr;}
cerr = 0;
int tmp = 0;
- if (argct > 2 || argct < 1) {cerr = 3; goto cmderr;}
if (!solvearg(1)) goto cmderr;
- if (argt[1] == 0) {} else
- if (argt[1] != 2) {cerr = 2; goto cmderr;}
+ getCurPos();
+ if (argt[1] == 0) {}
+ else if (argt[1] != 2) {cerr = 2; goto cmderr;}
else {
tmp = atoi(arg[1]);
if (tmp < 1) {cerr = 16; goto cmderr;}
@@ -149,8 +169,8 @@ if (chkCmd(1, "LOCATE")) {
}
if (argct > 1) {
if (!solvearg(2)) goto cmderr;
- if (argt[2] == 0) {} else
- if (argt[2] != 2) {cerr = 2; goto cmderr;}
+ if (argt[2] == 0) {}
+ else if (argt[2] != 2) {cerr = 2; goto cmderr;}
else {
tmp = atoi(arg[2]);
if (tmp < 1) {cerr = 16; goto cmderr;}
@@ -166,18 +186,32 @@ if (chkCmd(1, "LOCATE")) {
goto noerr;
}
if (chkCmd(1, "CLS")) {
- cerr = 0;
if (argct > 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
uint8_t tbgc = bgc;
+ #ifndef _WIN_NO_VT
+ uint32_t ttbgc = truebgc;
+ #endif
if (argct) {
if (!solvearg(1)) goto cmderr;
if (argt[1] != 2) {cerr = 2; goto cmderr;}
+ #ifndef _WIN_NO_VT
+ if (txt_truecolor) {
+ ttbgc = (uint32_t)atoi(arg[1]);
+ } else {
+ tbgc = (uint8_t)atoi(arg[1]);
+ }
+ #else
tbgc = (uint8_t)atoi(arg[1]);
+ #endif
}
#ifndef _WIN_NO_VT
- if (argct) printf("\e[48;5;%um", tbgc);
+ if (argct) {
+ if (txt_truecolor) printf("\e[48;2;%u;%u;%um", (uint8_t)(ttbgc >> 16), (uint8_t)(ttbgc >> 8), (uint8_t)ttbgc);
+ else printf("\e[48;5;%um", tbgc);
+ }
fputs("\e[H\e[2J\e[3J", stdout);
- if (txt_bgc) printf("\e[48;5;%um", bgc);
+ updateTxtAttrib();
fflush(stdout);
#else
SetConsoleTextAttribute(hConsole, (fgc % 16) + (tbgc % 16) * 16);
@@ -187,8 +221,8 @@ if (chkCmd(1, "CLS")) {
goto noerr;
}
if (chkCmd(1, "WAITUS")) {
- cerr = 0;
if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 2) {cerr = 2; goto cmderr;}
uint64_t d;
@@ -197,34 +231,34 @@ if (chkCmd(1, "WAITUS")) {
goto noerr;
}
if (chkCmd(1, "WAITMS")) {
- cerr = 0;
if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 2) {cerr = 2; goto cmderr;}
- uint64_t d;
- sscanf(arg[1], "%llu", (long long unsigned *)&d);
+ double d;
+ sscanf(arg[1], "%lf", &d);
cb_wait(d * 1000);
goto noerr;
}
if (chkCmd(1, "WAIT")) {
- cerr = 0;
if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 2) {cerr = 2; goto cmderr;}
- uint64_t d;
- sscanf(arg[1], "%llu", (long long unsigned *)&d);
+ double d;
+ sscanf(arg[1], "%lf", &d);
cb_wait(d * 1000000);
goto noerr;
}
if (chkCmd(1, "RESETTIMER")) {
- cerr = 0;
if (argct) {cerr = 3; goto cmderr;}
+ cerr = 0;
resetTimer();
goto noerr;
}
if (chkCmd(2, "SRAND", "SRND")) {
- cerr = 0;
if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 2) {cerr = 2; goto cmderr;}
double rs;
@@ -233,8 +267,8 @@ if (chkCmd(2, "SRAND", "SRND")) {
goto noerr;
}
if (chkCmd(1, "CALL")) {
- cerr = 0;
if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 1) {cerr = 2; goto cmderr;}
inprompt = !runfile;
@@ -246,8 +280,8 @@ if (chkCmd(1, "CALL")) {
goto noerr;
}
if (chkCmd(1, "RUN")) {
- cerr = 0;
if (argct < 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 1) {cerr = 2; goto cmderr;}
#ifndef _WIN32
@@ -270,7 +304,8 @@ if (chkCmd(1, "RUN")) {
exit(0);
}
else if (pid > 0) {
- while (wait(NULL) != pid) {}
+ while (wait(&retval) != pid) {}
+ retval = WEXITSTATUS(retval);
}
free(runargs);
#else
@@ -297,8 +332,8 @@ if (chkCmd(1, "RUN")) {
goto noerr;
}
if (chkCmd(2, "$", "SH")) {
- cerr = 0;
if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 1) {cerr = 2; goto cmderr;}
#ifndef _WIN_NO_VT
@@ -317,7 +352,7 @@ if (chkCmd(2, "$", "SH")) {
int duperr;
duperr = dup(2);
close(2);
- cerr = system(arg[1]);
+ retval = WEXITSTATUS(system(arg[1]));
dup2(duperr, 2);
close(duperr);
if (sh_restoreAttrib) updateTxtAttrib();
@@ -325,8 +360,8 @@ if (chkCmd(2, "$", "SH")) {
goto noerr;
}
if (chkCmd(1, "EXEC")) {
- cerr = 0;
if (argct < 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 1) {cerr = 2; goto cmderr;}
#ifndef _WIN_NO_VT
@@ -356,10 +391,11 @@ if (chkCmd(1, "EXEC")) {
if (pid < 0) cerr = -1;
if (pid == 0) {
execvp(runargs[0], runargs);
- exit(0);
+ exit(127);
}
else if (pid > 0) {
- while (wait(NULL) != pid) {}
+ while (wait(&retval) != pid) {}
+ retval = ((retval >> 8) & 0xFF);
}
else if (sh_silent) {
dup2(stdout_dup, 1);
@@ -391,8 +427,7 @@ if (chkCmd(1, "EXEC")) {
dup2(fd, 1);
dup2(fd, 2);
}
- int ret = system(tmpcmd);
- (void)ret;
+ retval = WEXITSTATUS(system(tmpcmd));
if (sh_silent) {
dup2(stdout_dup, 1);
dup2(stderr_dup, 2);
@@ -410,6 +445,12 @@ if (chkCmd(1, "FILES")) {
if (argct) {
if (!solvearg(1)) goto cmderr;
if (argt[1] != 1) {cerr = 2; goto cmderr;}
+ int tmpret = isFile(arg[1]);
+ if (tmpret) {
+ if (tmpret == -1) {cerr = 15; seterrstr(arg[1]);}
+ else {cerr = 19;}
+ goto cmderr;
+ }
olddn = malloc(CB_BUF_SIZE);
getcwd(olddn, CB_BUF_SIZE);
if (chdir(arg[1])) {
@@ -420,8 +461,7 @@ if (chkCmd(1, "FILES")) {
}
}
DIR* cwd = opendir(".");
- if (!cwd) {if (argct) {free(olddn);} cerr = 20; goto cmderr;}
- DIR* tmpdir;
+ if (!cwd) {if (argct) {chdir(olddn); free(olddn);} goto noerr;}
struct dirent* dir;
#ifdef _WIN32
#define DIRPFS "%s\\\n"
@@ -431,14 +471,15 @@ if (chkCmd(1, "FILES")) {
puts("./\n../");
#endif
long dbegin = telldir(cwd);
+ struct stat pathstat;
while ((dir = readdir(cwd))) {
- if ((tmpdir = opendir(dir->d_name)) && strcmp(dir->d_name, ".") && strcmp(dir->d_name, "..")) printf(DIRPFS, dir->d_name);
- if (tmpdir) closedir(tmpdir);
+ stat(dir->d_name, &pathstat);
+ if (S_ISDIR(pathstat.st_mode) && strcmp(dir->d_name, ".") && strcmp(dir->d_name, "..")) printf(DIRPFS, dir->d_name);
}
seekdir(cwd, dbegin);
while ((dir = readdir(cwd))) {
- if (!(tmpdir = opendir(dir->d_name))) puts(dir->d_name);
- if (tmpdir) closedir(tmpdir);
+ stat(dir->d_name, &pathstat);
+ if (!(S_ISDIR(pathstat.st_mode))) puts(dir->d_name);
}
if (argct) {
chdir(olddn);
@@ -448,8 +489,8 @@ if (chkCmd(1, "FILES")) {
goto noerr;
}
if (chkCmd(2, "CHDIR", "CD")) {
- cerr = 0;
if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 1) {cerr = 2; goto cmderr;}
if (chdir(arg[1])) {
@@ -459,12 +500,114 @@ if (chkCmd(2, "CHDIR", "CD")) {
}
goto noerr;
}
+if (chkCmd(1, "FCLOSE")) {
+ cerr = 0;
+ fileerror = 0;
+ if (argct != 1) {cerr = 3; goto cmderr;}
+ if (!solvearg(1)) {goto cmderr;}
+ if (argt[1] != 2) {cerr = 3; goto cmderr;}
+ if (!closeFile(atoi(arg[1]))) {cerr = 16; goto cmderr;}
+ goto noerr;
+}
+if (chkCmd(1, "FWRITE")) {
+ cerr = 0;
+ fileerror = 0;
+ if (argct != 2) {cerr = 3; goto cmderr;}
+ if (!solvearg(1)) {goto cmderr;}
+ if (!solvearg(2)) {goto cmderr;}
+ if (argt[1] != 2 || argt[2] != 1) {cerr = 2; goto cmderr;}
+ int fnum = atoi(arg[1]);
+ if (fnum < 0 || fnum >= filemaxct) {
+ cerr = 16;
+ goto cmderr;
+ } else {
+ errno = 0;
+ fputs(arg[2], filedata[fnum].fptr);
+ fileerror = errno;
+ }
+ goto noerr;
+}
+if (chkCmd(1, "FSEEK")) {
+ cerr = 0;
+ fileerror = 0;
+ if (argct != 2) {cerr = 3; goto cmderr;}
+ if (!solvearg(1)) {goto cmderr;}
+ if (!solvearg(2)) {goto cmderr;}
+ if (argt[1] != 2 || argt[2] != 2) {cerr = 2; goto cmderr;}
+ int fnum = atoi(arg[1]);
+ if (fnum < 0 || fnum >= filemaxct) {
+ cerr = 16;
+ goto cmderr;
+ } else {
+ errno = 0;
+ int32_t pos = atoi(arg[2]);
+ if (pos < 0) {
+ cerr = 16;
+ } else {
+ fseek(filedata[fnum].fptr, (pos > filedata[fnum].size) ? filedata[fnum].size : pos, SEEK_SET);
+ fileerror = errno;
+ }
+ }
+ goto noerr;
+}
+if (chkCmd(1, "FLUSH")) {
+ cerr = 0;
+ fileerror = 0;
+ if (argct != 1) {cerr = 3; goto cmderr;}
+ if (!solvearg(1)) {goto cmderr;}
+ if (argt[1] != 2) {cerr = 2; goto cmderr;}
+ int fnum = atoi(arg[1]);
+ if (fnum < 0 || fnum >= filemaxct) {
+ cerr = 16;
+ goto cmderr;
+ }
+ errno = 0;
+ fflush(filedata[fnum].fptr);
+ fileerror = errno;
+ goto noerr;
+}
+if (chkCmd(2, "MD", "MKDIR")) {
+ cerr = 0;
+ fileerror = 0;
+ if (argct != 1) {cerr = 3; goto cmderr;}
+ if (!solvearg(1)) {goto cmderr;}
+ if (argt[1] != 1) {cerr = 2; goto cmderr;}
+ errno = 0;
+ #ifndef _WIN32
+ mkdir(arg[1], S_IRWXU | S_IRWXG | S_IROTH | S_IXOTH);
+ #else
+ mkdir(arg[1]);
+ #endif
+ fileerror = errno;
+ goto noerr;
+}
+if (chkCmd(2, "RM", "REMOVE")) {
+ cerr = 0;
+ fileerror = 0;
+ if (argct != 1) {cerr = 3; goto cmderr;}
+ if (!solvearg(1)) {goto cmderr;}
+ if (argt[1] != 1) {cerr = 2; goto cmderr;}
+ cbrm(arg[1]);
+ goto noerr;
+}
+if (chkCmd(4, "MV", "MOVE", "REN", "RENAME")) {
+ cerr = 0;
+ fileerror = 0;
+ if (argct != 2) {cerr = 3; goto cmderr;}
+ if (!solvearg(1)) {goto cmderr;}
+ if (!solvearg(2)) {goto cmderr;}
+ if (argt[1] != 1 || argt[2] != 1) {cerr = 2; goto cmderr;}
+ errno = 0;
+ rename(arg[1], arg[2]);
+ fileerror = errno;
+ goto noerr;
+}
goto cmderr;
_cmd:
if (chkCmd(1, "_RESETTITLE")) {
if (inProg) {cerr = 254; goto cmderr;}
+ if (argct) {cerr = 3; goto cmderr;}
cerr = 0;
- if (argct != 0) {cerr = 3; goto cmderr;}
#ifndef _WIN_NO_VT
if (!changedtitle) {
if (changedtitlecmd) fputs("\e[23;0t", stdout);
@@ -482,8 +625,8 @@ if (chkCmd(1, "_RESETTITLE")) {
}
if (chkCmd(1, "_TITLE")) {
if (inProg) {cerr = 254; goto cmderr;}
- cerr = 0;
if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 1) {cerr = 2; goto cmderr;}
#ifndef _WIN_NO_VT
@@ -499,10 +642,35 @@ if (chkCmd(1, "_TITLE")) {
#endif
goto noerr;
}
+if (chkCmd(1, "_SETENV")) {
+ if (argct != 2) {cerr = 3; goto cmderr;}
+ cerr = 0;
+ if (!solvearg(1)) goto cmderr;
+ if (!solvearg(2)) goto cmderr;
+ if (argt[1] != 1 || argt[2] != 1) {cerr = 2; goto cmderr;}
+ #ifndef _WIN32
+ setenv(arg[1], arg[2], 1);
+ #else
+ SetEnvironmentVariable(arg[1], arg[2]);
+ #endif
+ goto noerr;
+}
+if (chkCmd(1, "_UNSETENV")) {
+ if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
+ if (!solvearg(1)) goto cmderr;
+ if (argt[1] != 1) {cerr = 2; goto cmderr;}
+ #ifndef _WIN32
+ unsetenv(arg[1]);
+ #else
+ SetEnvironmentVariable(arg[1], "");
+ #endif
+ goto noerr;
+}
if (chkCmd(1, "_PROMPT")) {
if (inProg) {cerr = 254; goto cmderr;}
- cerr = 0;
if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 1) {cerr = 2; goto cmderr;}
copyStr(tmpargs[1], prompt);
@@ -510,23 +678,23 @@ if (chkCmd(1, "_PROMPT")) {
}
if (chkCmd(1, "_PROMPTTAB")) {
if (inProg) {cerr = 254; goto cmderr;}
- cerr = 0;
if (argct != 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (!solvearg(1)) goto cmderr;
if (argt[1] != 2) {cerr = 2; goto cmderr;}
tab_width = atoi(arg[1]);
}
if (chkCmd(1, "_AUTOCMDHIST")) {
if (inProg) {cerr = 254; goto cmderr;}
+ if (argct) {cerr = 3; goto cmderr;}
cerr = 0;
- if (argct != 0) {cerr = 3; goto cmderr;}
autohist = true;
goto noerr;
}
if (chkCmd(1, "_SAVECMDHIST")) {
if (inProg) {cerr = 254; goto cmderr;}
- cerr = 0;
if (argct > 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
if (argct) {
if (!solvearg(1)) goto cmderr;
if (argt[1] != 1) {cerr = 2; goto cmderr;}
@@ -545,8 +713,8 @@ if (chkCmd(1, "_SAVECMDHIST")) {
}
if (chkCmd(1, "_LOADCMDHIST")) {
if (inProg) {cerr = 254; goto cmderr;}
- cerr = 0;
if (argct > 1) {cerr = 3; goto cmderr;}
+ cerr = 0;
clear_history();
if (argct) {
if (!solvearg(1)) goto cmderr;
@@ -610,7 +778,7 @@ if (chkCmd(1, "_TXTATTRIB")) {
if (!strcmp(arg[1], "UNDERLINE_COLOR")) attrib = 12; else
if (!strcmp(arg[1], "FGC")) attrib = 13; else
if (!strcmp(arg[1], "BGC")) attrib = 14; else
- if (!strcmp(arg[1], "TRUECOLOR") || !strcmp(arg[1], "TRUE_COLOR") || !strcmp(arg[1], "24BIT_COLOR")) attrib = 15; else
+ if (!strcmp(arg[1], "TRUECOLOR") || !strcmp(arg[1], "TRUE_COLOR") || !strcmp(arg[1], "24BITCOLOR") || !strcmp(arg[1], "24BIT_COLOR")) attrib = 15; else
{cerr = 16; goto cmderr;}
} else {
attrib = atoi(arg[1]);
@@ -666,7 +834,8 @@ if (chkCmd(1, "_TXTATTRIB")) {
case 6: txt_strike = (bool)val; break;
case 7: txt_overln = (bool)val; break;
case 8: txt_dim = (bool)val; break;
- case 9: txt_hidden = (bool)val; break;
+ case 9: txt_blink = (bool)val; break;
+ case 10: txt_hidden = (bool)val; break;
case 11: txt_reverse = (bool)val; break;
case 12: txt_underlncolor = val; break;
case 13: txt_fgc = (bool)val; break;
diff --git a/docs/clibasic.man b/docs/clibasic.man
new file mode 100644
index 0000000..08f3444
--- /dev/null
+++ b/docs/clibasic.man
@@ -0,0 +1,74 @@
+.TH CLIBASIC 1 "2021-09-09" "0.22"
+.SH NAME
+CLIBASIC \- Command Line Interface BASIC
+.SH SYNOPSIS
+\fBclibasic\fR [\fIOPTION\fR]...
+.SH DESCRIPTION
+A BASIC interpreter for the terminal (or console), written in C
+.SH OPTIONS
+.PP
+.TP 7
+\fB\-\-help\fR
+Shows the usage and option information.
+.TP
+\fB\-\-version\fR
+Shows the version and license information.
+.TP
+\fB\-\-args\fR [\fI\,ARG\/\fR]...
+Passes ARGs to the program.
+.TP
+\fB\-x\fR, \fB\-\-exec\fR \fI\,FILE\/\fR [\fI\,ARG\/\fR]...
+Runs and passes ARGs to FILE.
+.TP
+\fB\-f\fR, \fB\-\-file\fR \fI\,FILE\/\fR
+Runs FILE.
+.TP
+\fB\-c\fR, \fB\-\-command\fR \fI\,COMMAND\/\fR
+Runs COMMAND and exits.
+.TP
+\fB\-k\fR, \fB\-\-keep\fR
+Stops CLIBASIC from resetting text attributes.
+.TP
+\fB\-s\fR, \fB\-\-skip\fR
+Skips searching for autorun programs.
+.TP
+\fB\-i\fR, \fB\-\-info\fR
+Enables the info text.
+.SH EXAMPLES
+.TP
+\fBclibasic\fR
+Runs CLIBASIC in shell mode.
+.TP
+\fBclibasic\fR \-i
+Runs CLIBASIC in shell mode and displays the info header like earlier versions of CLIBASIC.
+.TP
+\fBclibasic\fR examples/info.bas
+Looks for ./examples/info.bas and if successful, loads and runs the file. CLIBASIC will exit once an error has occurred or execution completes successfully.
+.TP
+\fBclibasic\fR \-f \-bar\-.bas
+In the case you want to run a file that starts with a hyphen, use the \-file or \-f option which will cause the next argument to be evaluated as a file name.
+.TP
+\fBclibasic\fR \-c 'PRINT "FOO"; "BAR"'
+If you want to run a single command, use the \-\-command or \-c option which will interpret the next argument as if it were typed in during shell mode.
+.SH EXIT STATUS
+.TP
+\fB0\fR
+Success.
+.TP
+\fB1\fR
+Error occurred.
+.TP
+\fBNOTE:\fR
+Any exit status (0\-255) can be returned by the program or command via the 'EXIT' command.
+.SH FILES
+.TP
+\fB\fI~/.clibasic_history\fR
+History file for storing previously entered commands from shell mode.
+.SH AUTHOR
+.TP
+PQCraft <0456523@gmail.com>
+.SH COPYRIGHT
+Copyright (C) 2021 PQCraft
+.br
+Licensed under the GNU General Public License version 3.0
+
diff --git a/docs/clibasic_tmp_cmds.txt b/docs/clibasic_tmp_cmds.txt
index 6188c1b..de19a0d 100644
--- a/docs/clibasic_tmp_cmds.txt
+++ b/docs/clibasic_tmp_cmds.txt
@@ -60,3 +60,5 @@ $txtlock:do:k$=inkey$():if asc(k$)<>0:print k$,"\n":endif:loop
for i, 0, i < 4, 1: print "bruh": next
for i, 0, i < 4, 1: print "bruh": for j, 0, j < 4, 1: print "__bruh__": next: next
for i, 0, i < 4, 1: print "i", i: for j, 0, j < 4, 1: print "j", j: next: next
+do: i = fread(0): if i <> -1: print chr$(i);: loop: endif: print
+if i=0: print "zero": elseif i=1: print "one": else: print "other": endif
diff --git a/docs/manual.odt b/docs/manual.odt
index 41e6990b52b98e91295c9f711c0eb09470ee8499..c45700428aa7b5e58d5df0667dcc600d1c0bb48c 100644
GIT binary patch
delta 22026
zcmY(q1ymiuvNnoakl^mYA-KB+4esvl1PC^`yCt~026uOt;4Z->xWn7zoO|DYS!>pG
zS65Y6SAAVAvpLHLkM99TQjmd!!TGMfmXlw#2gjw61
z?Em=#nFMBQ>SFlW-PR^bdDL!&>0{d+9U_N%7)m?5CU|)60jc3ku@
zxTm{0-mlxD_S+|86BF?x=ZxR#J(C+$CChw#fwpMejozh#ZtI!+!4Yfc(NLbPAZq=zG06wL`4
z2B%;fqYi&zlIp=3#M%EFOopAVC&h|V1S?_@tLXnsFDjfaMl-S{ou*r$VAtd>@8Wu-
z`V1#P>~M`axG}V|eHDGBHS%^T-2hEGjsL3jbE)9BQ!KtVUvWaxM$t3VMOcit(_OZU
z8~3a9jxhmnRtYyakh&4yx+Q%k@U0Y$NK;ntar~vxZMns8Xr87c&0+9s(sk2e-AVx5
zSazvqv!4a{xTT9n1c$mTfo-;Ff$8}73aC%I((S*D#Nm6oA+D}Sw!SV`V8iFS(;RIf
zKh-+b*y0ect~)BGQ-Wb}d)?SvC@gMn>Af`R=9lW=fw@0d);
zg{DP72&9zblJbC2!b_NkrT`YQuzzuV2e)mC=PWo1kv@bnDJJ_|#91(?czj)R{cu}l
z&7Si2<53*KEKWW@y8(lM(bvDk=K-yg23q|sP}o!s=)UA<#EEz
zOJJ%?f|jP@Y|+%;Eiis|#atbk3;f+)v(o
zB}BKCugaTG_R*nm4>A;(8qMZ5c0w?d>(!tEmrb^-_`1bJXuC9JWtUw>wn*XK6S$=P
zY&jOM{Fz)ssLrzd^z+_^u-n4ui|l&ze6Usd-o)ZW+9b06NJfWxYq1X2-%j0brLuHY
z6r##4WAMQkEXHJ#miE=|38rq6avjY0HHG<7_b-Tgzdxg(zlxRs?t!`Ugm#5>41rRF
z4JswJv~dGY{FTm!&_Xl`>k3B?7JluPKd?Sj%&ZLh`1p_zrI5nGF^DllVZ%whB9Y)S
zjbi$p2nBO_he}je^UF@7=X_Ktq}L(Jwi)ej6ly+pjc#8d?vm{kC=BPB?{!4AJpuU
z4TGD{dF7f_z!J{w7ZzhPyS&t;j7;$nwh#C9
zOX%aC&96=8+ya0t%4v(eJQKmJU-5icAc
zTA-a@Vm4eJVK=SBW9FJqG~8rWB5Q%#4{KolKEf2u6(_3oiVKs1lnlY>Ql0u*Kwj2=Rv!mMlwAU9c5
zOCHF`$3$C8Botvu()>21AQZDgIOaa}+Qavke`|WlW_pu-kf?A&WQcJ(5m_zMB*h8J
z^fVZPa7wrHrL+6_>%5?qtUgibAv1^s)}95|pUWrP0PwmN+pYIK^Pl6(XCh#6R7ZAg
zhn*VYg!~vv$H=5)TMqVTqNS|(7qzpAc5YH^`C*owgm}giJ^0!TEs?(*4a=o58uN#*
zy>Lvx*4<8(B
znAYe};(+Gila#R4-0CS5pCj)vSp@||)#-=Yc5B`BS!3bWF4tC3YHsVlrxpQ|_b#sC
z@JM0VWvB?%CWzlpDTP%?8yB|?YeyS9b?3)U1VU)%48g-B;UQ+znbluObSERSsG?%5
z=zZI;74t(I9$>UQV3y@6(9rbfm4CY;I`<(8>i{fY6BKpXp_gxvGpoC#ErbYic19r<
z#8{?n>(y5b~jqOMCagwo#
z@pV|*SE*hbe)3g|Mxb-OR>KBYiPlUe%#BK)&i%;lx3-apQ2}>qlGcy%+cvUt4*KnS+H)AG5ZG{4w^2;Sw)MxV#&Do0Fb5QtoDD
zl#$mAyiqC{PNbbONlInPVvmzfn*tOGLRw58^kdy~+U)KXTQC@}DyC{Rd_)2ruLWSS
zKnkVf>#-bVaYDY<)$7T!onItNbvG_|mIVuHp?|6SF*O!a^{S#0fm6OoRghIpUw!Y|
z9v4}|q0~MWTiG>X-5*l)zOox?>?R)4XRwNDi)XoZjpESrYUZ{Y?$l>;gY3OC40LD<
zqY)zNdI2YWtPFi`o>soUI2nUKJ)?ndaV}oIe@Vb+*pz~&|I7q^cinFMWfRx8HJQMO
z%%p4ex~7=qkCb!135B*(B$NyuQqz(~TF|7Vf>
z@5W78ImyaJ4h9VD{lNiCP*B86phEftj3~&eh$F!v!@y(0A`&AZqa$NuBY(t2Lqfqo
zK|{kpz()OukAaCtKm?CWg@Q(gL_ms;MS@R6jYGipk(?HTj+K-Mg#sOo6c3w{2#nN*h=}5_$NNbxaYn!O(SgISC>KNE)TiPjGxLIk+Tk9(unJZbF=zO!%H8D1_
zGdH%jwl=c)W^eCcZTsEa(bL7s#M92k6L7W#ylowvoSj|Wo!ouCJ3Cs~1h{(ox_gAW
z_(l8p2YCfV23eW}d)xWCIYa`kLB1~je%?`j-y-~ggdmT&sPFzk0g)krVG$uwkzoNL
zsX?I`5m9mBk*P7U;Q?{!5wXc}(UA!W(Fuu(nJI}sf2KsH=EW!GCZw07XXIvO1G%aB
z+ET19k1!1XzA{2
z?H+0vTIlFmXq{T`X>06hZ5ill{WLbxIW=6f(c8J%+u7CI-Q6?VGdeNe(=|RaI5sxg
zJ25pjF_++nf&p|d&Q8wGOi%w_nq696o}XD;{Jp%q+BbDPxw1F4usgf4J-ui(b3`d>CMr}
z<)6RT7rWb6Cr39Ir;j(Mmsi)fw+|1u*G~_(udlD5y*}{v_O?AVvJVCZDIg^#tm3|W
zI`<&+TNr21adhZ&i#YFrQ-thEu5-@G@0w97x(Y-(-k}jCUg~e0Ps^uAoCh^?BcBgH
zekku?Pz$G7sb3N|t=HOXczQ-})}BUrLGwes$RrLnyl48m{oQQf%WK3IBqR(X4wFHb
zFZjPg0t&ih!qi6u;5h=ZaazG*<@4pRfyO78-mh_i{FmG`Y6<-?qEW2hwvgmUnlIfZ
zX!X|&?(av>3O9S@CM83sr0a9YDy=hQ)=t@Uw~n&~YB-e2;%m;ZJIA8uY57Y~GVqF6
zZaOd$|3tKsP)(YB%ShHP)g{1EO~@5F*M!yHt@BVQ&??Af117hq<8(?C=)|^JQZuKo
z!iOp(g4<5XW^DATmLV@*h|TJCFJxEw^_rfu02yw+$lb&)EnWAarM}Q=+@~L%1e@#W
ztJB<8s$J7as0j@oN}g1AY0lgX6)So99alw|a^D_gw5%9g`(BX-C{Ry%^M2tOyUIrr
zwTqVK21mH#0P;R8I?Tq}%PzO<(%Z4I&O`(I)a^0GyNTJ$r~&@w9!gRn0}SK(y!qdT
z2N)J^^durX3T~=Y$Q?EIer*fvJwJM%)~=0@L*7B*{Xi7V=?j!mThRUHJa~S08<7{F
z={-kUALZRO%f459xKb*Q9C4(+&fGsa?WtMld;KxAnSl
zEmTg8Xl$)d>Z%*ZEIr%0+-CNrO%ip3;(M%fZWURVyCxm9>a`5fIthojo%frSACT5w
zjMtb*RUm;7AORd*4TJ?W(1S#=BR{Bqu={bmW)S81{d@|_SYnkT2LAu|nBs;06+-H^
zb__ij92`198M6%BFX0W780c8cj)A&NjjmkcryW#a=0Los#JN4na8mUj@`|?&cl38m
z$F#tx8y=XW8J-$zLcC3zH^yf^;r6^qkt&?dT6;M?uYKaJnkU^!T;o9qi&!9;p?P8T
z5u;e{X@kdd9ed-TOR%>qbbXOZrUo(^GLZM(gpbU*IL~7GgQF;p0HR;$xsOnOTLe6T
zJqp57yS${Sj
z!6#*hrW8FBQ{)0a4k*L*b0UieDIFN~5bo^KDc1*Xef>P)C|FuwK;Gt1EuZY!!%JE3
zm)7HSD|RL_YxE}+VNjR0FHWK(q?MB9_2XPT4aKJDr{1w@GOg2C)$G$nhsbPAzj3mX
zI*hpwG&{dbT=5l%M&u^DB~uJlCyUiqb)(p4mf;HM+&`8DUIK!hOAM_wPbTd3U0|Xm
z91HG^j`+jYlJ|x4CerOHp0AbWMdwhE^0O|&9T5DQDoQbmDt6X&L8LlIei-3;!@_5b
zcMKL9BF(r0U6xhYHe)ykh&i{Sf83o8xsqH*Q~It(OZzwQj7s#~l4mqb;N7z1zm;Ld
zZ3o;@pWClxw7pKXz+Q2Co?qq&H$TcK7TeKzyEl
zT_!9e{Cx8{1jAGzDri|DLxP${vb7;>T5-;l)|yl!S&-)qNTWa
zHmYwr@oyzI#1vW+ztzThZVdK24qc?|&2e+mAyGOKT?SeXNQ1fp+2E)<7Im^w`S+3ru?5#2*)9HFwKI9h%&kifTt%|s>IH0`@2`Ii<2^fF!-glSjfId
zD^d$R%{NW|10uqH<)zVt5SJ?J*(v*tBV^WfaqOea{5k8ZuPU77j5c>CF8T=uhZzqY
z<=idNhw#m1Z19A%lT3M*hIT
zF~X2W%Td>@5w5LoIk}uS7BM=nfu+fDce>)pE!PLmFUr2sb&lD1^+?46l9c}Se*@~>
zA+5pYXHe!Zk;=g}uzjjOuXo}3emjIc{zp*vsjmD-IE6iaeCOcwskVD3)L#bFdq7%i
zBo3ID&fLGjR|*XG1Jx#I9}cib(ru3Sw54R=(lR;CWlJ}VLn-8(t@K*?$h3COu)4lt
zFer_OSh+QgrUq1ZWRj;i+5Dq2@0eADnD(PSQ}l1{}bxtXOXesEVUSG9gtW
zu$juU-1I$|*`52|SlromwKhrc_)>`ugn6j0*|6@!lamF^mYJRNU-@Q};Nk8K6q~K$
zIPBFc)*diWX+G)DN6mFIN1LT#=k+0>5mH}xIeO1(ZeCt^IJ?}(|FKG+)X=U$^DGeJ
zQ2<NH%l%Xr>?+3nbe<#rA
z%{0=l?856ZyoMUD(^-pT%F*G6!Toa>KW|HdLvd=0Ir7^!HH-jV-Yi{o&pJ}erJ!x?
zS>p}6>3n#=sQ0sbNSw#7Y(VTY!o+3?$=l0fQTfqXI*=w)x@Vs&l7YWMg))(iU;Bu<
z2~&WgUHO`w`yd^^;If-cb-5QEtUxmTIbYX_wHPDI`(YDef0y9t`C?J8^oX4|#WtHA
z?`@?GT#y9l&QHVkGlGK_R3
zfdpMh!or2w@Ct~7lxBgR|FiPft`hoy|GUoCB_;+ER=AS)o?a2`8d`hnyW!bPMHuc0aZA79+TQxZvvF+!c5hu@|K$g8
zNjM19|NXGiC;@pQ4x4-~z6(GrEq~DeB=5ZeG`kUt_hNtf^7_$pxGKcQ!R=Fo(J}Rd
zCnJM#P!3wuA7UaRWa31P22XFONo2BTZl00+bBL9*$plJ!wdk{G8;qO)`OiN0%4*wJ
z-fTa$MXc(zzFf@8{=Nw4-v8m5*X7A!&T@mO$`8@Ryk!w)xC&G5*vqLKrQEkG64`fW6soZ0@b+g}|({kz|ToD7*mD@Krrx
zU|-(|_8{j(TPS&xQJ41HA>O{0Eh!Z$_
zhA)l%(kOSgvGX-D_X+xCim!zPW#>&Neg8{Z&B0G14G}trkOD$OGTnP7cf%%Nb7ePg
z_aZa)h!Go$+Ow(#hvd7pJKJkF>8~!o0D3P2<1*ro$D(}RNB}FoGpB&@E*cU$&hG~z
zMoL%LDUkA<$%r72d{+Hs>&u1AuNSAw-6qdb-
zI$^;Twk2LkyGdV58vG2x2B2TT##OZr2cqZ~Bt#%^+nOw)e{mxj|C%cxe)x48G~4;|
zX*K~jd-TgGLK^klAoQ(@dZlG|R^x*oR`8qkKsvW`ybjwp
z@!dFyNg6gJn_&}k;`9A5W_
zh?OF4pQ-&rzgKE3qYV8{s5=Mi3I5?J>JqZleQkl@agt0tI>&x`9g}XOi4>)f-%yzS
zuuLO3FBzXgOMz>mR6y|2yCAxQ39Vas9!p?`=~HR`w{p4fk%kgj1*)kve+CKT
ztau`a#+g{GN3AUKftuc-oEjlv6(ErhFE$5~Xm#gA6tg1f$P)cbx?~_-x@7V{&(f_y
zF|D}+l|%Ek-06%W|g@)>p6!TEpMH6HDdKD_DUerYBaUQqr&l~wxK*&g7)BOV?5g{
z6v72Nd&~RQ_ZjS|e@75GUWpU+(gtJEcrEIKTnRGAB~kvXVC2UW@2?2YcZxX86F&lC
z+0xr?{k%>_`C)H*SLcJ9{zd|kZe+6du;i-!ogrtPaT^rgIQ^YBac-PskM7MO=y{s2
zLlFSPWl|$&f(Qx?^TO4WYlHK|-3zwxLA(U2c;hE+jw^Y}thC`FBN;`i+PrcGSZbHJ
zANACCOeL(I>A(4Ov2Op~UhMZ53_>_QTykU`B55~%N4y8ii-F}oxfezrK*AuxL}1;$
zn9os=NwaQOqibv~S?0(hb!@P^(mi^u_wND5KG`2D6c>!kEh+wKY4U1!;@BuS)2E}x
z0m-5wz#S$>T0=nB`t^{DbYn5h&R9bP&F6{aoO`&pVN0O(3!b0y2zi)&pu_OxD&6`i
zAqPel784%Z0G&!Qw`#sf$#
z_zmsLJFFG18lf;IDylttvK>6G$G=^ZY*vKGk;MA66Q3BwET%_AV%gONjyPw`$Z6pE
zouby$hsihbLyV}(09~{UV%A*8;x$YE^&vh^w
zEB;;m2--3_s(i_fO%2Y|L{897fh2%YDHoIBDBg?=mkq|IRWoA1S8Vn`h1R;1?axZPh+B07s+@uaeisU+qTU(MiuR^r(?9~Xa&3#9HKO906S
zuara5YSChyVhO6St?o4_=8%gvG9W}Gjr;*VqT*BJWsP!Uao)Y$w@
zg=Cj2)IVGWG-i;tm0~8-Q4Ccrgg~+XApk=XAqA0*Hn%oDbcfQtw)5balnt0s8*sTC
z?_C&5hr@Xm{m2EG`)fZYSf-DibuEXK$<6BQ#l`$j6x}
z5LlCj|JDE%4Y$TU+Ub#Y>Y;*p++`U0aZax!fcERPtKR2eYYW9A&0$f8)W4X
zPNT(evofw;v4wlTZJvm$%3OYhY{5Sx^&F`ba)#P7#c_pMKn%s~D^2*tQ*tYXIq!o4
z!nK@ZTm2BwWq3@HtVkKA3P2F;Z|RPynz0&JKZBxWiBN~ftT$tJgTUPNq*z{7
zqwM{F339Kk%1^UNOT~!*b5Kvy4rwbA;*+t6x|-3T@S)RQ|MOR3W}bE(wg4T$Hq@3UP#5t_SjpoN*Q$ta0_2T{m5n!ZcN&gpN
zQcdUQge}uIE!G6~+Rkv*+AqHV%HH8uvkLAZ5Qu7R6m!NfS#kA1C|l9sd@`OEO3bJO
z`S6MJU;J?kMOXA~HFHb<@d8yyx2~&Sn_6q1_crc0Ex)NlPbIZ0^#;#!y#zp
zi@1EAV-QFIpz=GFZWT!dCtj+Rf#%;d6W+A~5KDwvMb7Jg3HihzTVIr#5eM6{9
z|A&z8{TV_*QL-t?2}}uFf#GT(%&rNESIyL3&4kFNs
zrjQY~y%6S$XYD(ueCvh}J0Dj|%IVQ)u+i@~7=J)t32*R{6GLPF5JvF*Lx~}GiXk(C
z4guVcdqd~6T7q#Wiv_qMmettlj~SRk!FJM3U$}V^haE&EdcUcG;Tp-*m?E&S;MxsY
z989#3^l}hX3gj8`S^Fan*L+LasRRg0Ncrh}Ba{6-C@CO7qae-O;xF?>jC4tItyc%l
zB3vg?Z;&2MM8yIwQM<)S1QOABIni7Kx{-HYQXx8D#A!vsuo@|0GPvkM2WvtVQ%Q#w^}Pdyq6QP#?<>PGv?2IIq6jl0eRD3FqI3K3|kW-O~r
z3f6kHJ~&f^at$;zEg%Qu6tf3t3L@62$hNo9fzlC1lv0uP!J&N_b`q_{6Gn`
z4yptcU_{_|Dt|dKj4YwCR_e{WQFxiL=Ng;ErBa&upb;8oZ^1Vk3B`#KDstuix0w;f
zWwwFlLg-x`lKc=hBxSP8NE^w!eZf?_qv)j?oYVx0pcDyd)r)?40~svKulr*dWD2O(
zFEpBHaUA^KGaDbNzE2l$!p$Jf)BRu7bTA&lCI^YKdH-eDXD4Sl%^OGZEH-sql`rPt
zBi(S%-ao)%pp-TJXWK(1t|hH2^>>qZZ&|pDRN^R5C?`^1`Ty@w3|2g1YRo`@_}Bjp
zB*KHh$OEVu8>S9qZ3FVKh4$y5v3d&&HUs)2u29PRRiK`?S%ziUHx8{17>J
zmvi_Zie*74CIRK03&?-&PA4-*BoQx4H~)w6EsSQPE+q!lymA%LvdCmGpQ;SPFoF2A
z7=m@|d!#FtM3HNuVR$FCSlek5`ibb6zyId|VLCoFh^+WigH1TLnE9!`SR1fKT8kcS
z&Xm*2RExt9%^MP==1WgJgvRmaJ1`tXVLI4~E`TJ4{d`ol_^nn1<#6GB-}_@+O5ePp
zTEy`<+KP)39X|1Q8oWt8*EB-YfRa;n1u2O^Rwb+^&
zxiy_{qZWEcYeb`sTD3E4NYc=sBCNh7xHV0e4zv_)t^Jtsy6^9&eA$>;^&?0APWhb0
zzGRb884ERU%Pi^j&ZaL6)cjbXqpXV!^=MM9@wNc`xMNDF&1W3
zpWj(%_`c5QG^=eyO$kN9mPz&?g?O25_5*Td`F2YBLhei%Zxzz1l&tBKokk+xkJKiY
zUPl^{77AsoGS(EH{(@$)X(Wte2=Vge#CFyc*^2C@9Kuv24DK3H_^Vp$69sEg8xu%z
zA3fBSU@=l!))Xyaz)@7p6tX|uaWCv2J5tSu9BNJln}cg7h1Ds6HJI?{?8O-q*{w;I
z6g*)?EY3RJCOgH$`kOoK5)?|F@%K)RvWQ!lqW-Rso+rdhVY_rJ_7>#43
zN{;p5n{3wPsxTAbPu=cdMViCK91d!^;om_;w_+B+fqu~CBZbI_2^VCMCPgum!>4JL
z>JG2j6^&q42dnmnCLgLu(_aO}w9xQy)*PKH7bd@kIl9pyjo&A-Ttirqk8=w>`x52i
zU6{e)6$##kW!?T6CC1H7O)P)6;}mC_lVW#mGm2zby4
zMghQDSbHHXOzq>s&6pW(V^@tNYi2VXMawalgJ)TBY16^Etb?MDB!A}g;0FKvB{E!>
zpE;zkg;+bJMJf^=Ha|P&qYkn#`Dd9jC(38TAXB=e7
zH#~J=ZU!Y|oxVdr#Yz>dwe&nbqqT1-+z+tCYb^KfMgLqeUTGMbNiq-FiE8+w_-(~Z
z1U`+`*e-@tJ9=z}h(mvHl_>uwZ9@B^4ym=Li!NteFNi8XyqcLAg!pew{
z<{XxIQuoP@W}_7?ZQpFJDaUBd;KJe(=H;=C$jGQEJtc=f=J;Y$T;`-%+9QlVanGx{ppwmfp|NsZ3BKj&;pA3)x88
z^}RC}hE2F@L;=6`m-%w$f}TA;&X4T0#}nHrJ0hlQmTkFd9O#va-}W!Yeihc7iDiB-
zSDDWkW*w{=X;J=O5Tb<@@uo5lWQ>;OR)+D&L>+(KQ=O|pqO7Pqc2;RGu%Orbs=KgX
z984}lucf+h!%Z_guCUW0@I^eFp>|R6y-8y_C71Ano_c!lo
z%7l-;LF39Gu~Z{oC`3edkWw}|e|pA$rMk?#6nc%h`5SIL01K&)MZoI#kzkyez3{cT
z;@J5oE`cpbSsI#|7RfY-2XrJw6SXR>Y^a=^)(-Arvz`SJJw~x83dK`ET}30VnLQ4C
z^G0TEEdoiu@8+>~4~`$x6A4X<9c^D}b;ZnzoovIcmRfGo`%8CoG4vu!IyiRvZ@;I*
z8-jjn0}&M;Uti7a&9h^*MDM6NQoB62uy@aq!=e=&ZdGDqi^rn8)K*sWN!K_m{<@xf
zs6R@|-qFlrY#C}dexQyZjOJ`=L61;t24^_dB+3-Ke>s5a*eLOrU6$3iCs+?r@
zwL~86v%U@H+QVaBVOc)8F(_wGttqdD!mM=@{WZT>b4{ci1#*qrqz&`U;L?+!24HQn
zX2;|y3TGTOhL2!&K4?&hn!+)9&*fi}ntND;(-Iv@gVmVou
zU|uop;u1nplRA#qQ8)12Mo8=V*Zy;@R6&aNh(OTBHD~qrPN$8o%;fLw_6Ao)6rIA!
zav?OM4;~v`dpV=t0YNG(75jHc$H3z=QMXToX)eP!rKCyajIeB3?~Dx@U&Ao}1~0`(
zn$ODjwNSGKldgyLcul(TN~sR#nR2;8s`?ReNw(HA#NiowUDGY!f~9n&a#cJN6Js8L
zIV~!*URv4Q*gt=XkE2`_jjcqs2+M4?kV(xl;k-_R3(As12G%;MoHvDH03bJTE@k_b
z$K*}1^H7C!5|fM*<34WOF0O69CH-kYS;x5p&AMTLrQ!z;iq&|@4D$_^cG9s2aXDA`
zu*j)YGC3x(-vC~^5Rm`4>)PU2N>$0mHBSrU~d;?C{#q(4f
zt!)}juV0_Ln8nwm_#AE<)yl(yp-7oou|mhBi|omC+9Wl3<4dLE%s-^ywf!!w&gxos
zOekT;T1FAW%$44$ArFy>b!U#5^l7LvN%(wsT*?fI6Q(>2DunyI835e%1=Xs2!pgP8
zi$HYXF6r}E%5cx&tT3U=-~r!Sto-@sR3`GH)38m(KPOX|I=0(~8-YKZ53p;a2cX-!|tjc24va;
zxNqS735@tb_axUD2L_>MLr;*A0>O-TxdwrE12YEdT)tR{PE~GR));$d7XBf>H9hI_vLfzyJ718T}}p@`HAC#U>TkR+a#$
zT!QZ{WY*ep-ASv
zfrUgf2!ucwxb13~dLnbb2Vb?Lz6V#7*|_WJm0F3}n^!7S(@eB%n3b%R#*e1nR=q@e
z@@KuI2Ycxddc_dP=?Vgu2OHjnZwQnE(rK4u-Pkt@!3zH7AC02HxRvt|4~c}
z1KvAwNWTL%^#Tg5Z@a5Lbo;TAL1;C+91eDBmk3oJ2wAWzHni$6#A0StFj7R{v*
z!`Me%gFg7M8P}(~SSvLqq;&}#cYItk2ETJ8SQim`M>0fbT6@?TbW16;r+fWPK-@|90FBV@;bg|6Up4xEErJdoKv2@}WxMdU5{S-~?
zr_?K(B`AA{9@V-;S#NpL&NE?^c_Z#<%=rhvNPQ!f<}n||KhBYLOW9-eH&mnjaAV^TfA%;KK*?@9Afj;E(OOmL3NXA5
zI&3BC=0?+ZL5CJ&{VorMe8BjI^DrF~Rz=D>4CR$Ap4&0Z>fb%i-Cs^RCGS=BM)6J1
z@w~lP;VSs!mngN+u0IyQ6yzjW6pj6-8C#vnqZk`{0)#;^QxmSGra2SEJZ~_|LGG1U
z?=LWTL-InKsUad&=i0=*eUq^lW`W)6?W@?YPS`J!uPZTcGOsTz4*}1Uqr20iySVUb
zo5aKR-x2#6c`;hdjFMDS;)r-bT
zEl{&S|10Dl_Oez|(lsL@CeOGB3~m<=MUY$fC$g)mVHguJaMfpp9_fab2~Z+0Iffze
zeo@~cWsPLEG!=FOLi7HxQgNw2hx0k|8@&#je12V*g1T@x*ScGBc#A=W--g4JaL{(=
zgHx~~NeD)%;@v;Jy}6nD_5hzCt8)1qA`(zjwHg~?7ga>{FeUJGl?5A*;k+IAXIqzfPf~0|
ze-5z`npM!DLZY0K$0vpAUdUr2ZQ=xrc#Q^m31_&$bHmW=_@6wVC57CSN#
z%mFG3hY0EAUfa1gPbx|bJZl>)NDK4(myYl}B?^oO(VWCh^gOOl9_v%tGCUJWRI46m
z`vFA$4`TNez$a75BK)`s5u<8nmT9V5n9Bl4Hz5h~16o0J;7~A7Y$c4--*1TO3i&|V
znB_w*Iv6T}9+e+<;$jwG6ge}7_(!|$(Ht&}2ia@Bk2*zx0voHY0_h#LS+6QnDDYc0
z+lTyZDIX3^@)@^z!JOgd}j;p6=>d8
z_9^h{Hvhn<1o4+NoGN+Rdo$+jOs0*+Z!CS@Wb1ZO`O~l7!+yIi?GGF1ki_8Mo{X+pt
zOwmy;fW?*a`QtrGM1gr~Kv)hIr^HCSd|T*FZ@|H5ET3H4#X3upR96OJR@Mh5Cp{wl
zx~xA@Jab^llo{pApF%MzL#w1jA`Qe|g$?A;IMkQ
zG=0`Z$OhDl;2D?^pIgCD8wuQKaGb9a;Zs35-td`j47<(3@R=v?K96RXk0^0BDMu`g
z$m-~KYVYAn?F4)MP~&XvIdp5h2)^iHsXm=(r{=l~ntD9kK5__j?2?^t#SltI7mlic
zG=jK$cOg^6j}`vKu9B
zpg&+DsH$osUCHZWy$qCX6F7@H;Wq;H!|v@b^fzQ6<3j#Os<(728gc%lT!Utkk}Ah^
zlRmPz+H;|d_5X1r**E-LldwH{go1rUZGfgeFTg0MBx;4jYcL>+cyy&9#Fu5<_xDcCOK|vd*VV91zW&1kIAuB
zMMyYr6xM7CJ`>%ZcEHBL5|*k0P>R84sb<-gF+d_AKnn53UitF`TT6W!qSK7j_v)KJeCS?o2(lp{r<(C45*rfi5kE|P0x}l|3xgav
z$X7RQq@{clTw>8xOql7~$BS6iuSN!?F<=p|4|XYi&7n;Z^^k-H18e
z9rQ+HPctLjYoh3_+nW?|1w^DSqDF{XTwZ-ETFLzRT{WZyPngh$EC~Dgqoc|S
zMjBs(X#*U}R#Ah_xu22J#iXSOesfjY26#C4j4TH}WONv+7k(
z0AkG(vkIrCt(^}S(SE}`Gz(W-k6}P}5|+*~U5RqQ0K%WEAa~h~agD_1?=}^S?W3z>
za#MH37gC3EW?jDFaj31F3^s=^bv`#8FQ?ltjmPe=*w2%0TSw0)OC1hNug!Q8zOOD~
zX1f-#X;1`7rljDtv_ea(|H5(a#2b
z4cn&+-ujl+a3zZLCWvq{5yf~p@xSe>lzHA;pgrEpprFqiilJ{DHiGEKNXSnBhG|iT
z@m|Exsr+c%0Lu=woj&vN5V@VHuJ!l*HCy$c;4unen4&C9odCW#-30XuTJ6xTbwoef
zW>>WLg6PY#=f?oAy@g{}J`){%FYI+fw+%ZWlq7GFod^S$%!n!Yg7l5Bb?ewr^SZ@*
z_RN(R+gQP_>PpHWmuck&yBV?#AD^|#p7BSX%&={=xrQ+Nc2s)x{x<$e>%Cq*s!}0g
zKbsKu1D4<=H{d^08Wc>5Q#ksAgx$m(eNp!3ikXtntqhxttey`9ea(rT)}K?vrl5sh
z!>v%MX5RYU540LYq}C(9DY3T;N}xM38jD<;cJFA+P!}#2y1u47)6M)nS=p8A8NDd$
zD3I^8UzwwJvg^FRFJ{54|0_2}y80VtQE9esJSd``7!@!CR>rlru8+32?=NkR{YXiQ
z`Y45m7}aeYjl@_=1Mfce48nTt;OctdDY;|cJJ2o=XL(e#|0ynlDRkRg(?JjV^^lf!
zj7Aau^{jABpbR3?j;Ud`J-6@m)gWB~(vxd~Pu(d%|IE|1X!Ol%^$<-aL#6}5TDBs`0h`fL{%@u>O7Xqg_eal_4RoTHJm$M(g>nb#Vh?yuW02XS(Y
ze5~$SgQu#GD`Zh3sN@o)VX
z1JNLCxY0%L`N98F?twAcw$<7?U#5qEnwMi+ST_3Xis91
zu9gr7H}l&~d7>`Eq2}y-Pu6bc`gsvd>Y8WQDj+F=T(6(98@KrnsRqd9C
z0YGXdfeCrTIZ+mzpxZ=?eVK{QaH7STPzt-CC2UIEQnlqcBmd)(&3>aC8t=G8#O-Uw
zHji=VFFr7qfl-CEE7v540-Sz|5|=Qw(ADA?>y1<6(N%&@dwT(!DLMj<)$EIj))Iwm
z6}`AM!c`i?VsIPDM(+oKrNsuuHbH^T3LyFW4y%(fXH2`i-6qu!G`X1{W@(8zlFj@h
zC#^ku7G}+MZl@TWpAa4#u5O!TatqK)%kEQ$_@9!W8Ov3ftsH_S3RQ7CJC)M>F;@(^l^?B
zgkr|TM^J8u$zM)tlG0%EH1h~*e6@q1dZrK86D31Z=fe-q59@%-6=P!tr~Sm+SKvox5(&A
z6h*VOVL%XMMRJm?FW1UCy5M#@_A5I$ctf3wH`ak*cj9zEx;X%F`r%v
z$|trAlh39UWkAAIAYO@HQbh
zl&-a0*4$SwRO;POF*WhvU!s(Q>c0;&d2?h5&R}jppvSpX&ZeB^AP?WLi;NR4=3qOG
zs;qXBT&b{2ZCUI7+!jHqi=Q&G(8G`
z_H-HL6Os*4yVZOEgwA`aBG2dhW1T$~f>Og4U?B+IlISZf@n;!?xa~izcEU){U_=fp
zyc4;ja06z7uj}|M#KHTdwt~pSGPHzI7s8VlF$yEknxAgFr?iun&lKm?SHeZ|5NyMr
zKSe%}Wjapj(RezkQG6Hv(;=9ED}4A=78()TLbu^;P~`z=4dY37GA*fH7ZKr6Yb=;w
z>xRA`=FHrrw%qJ(ShVJT>LjG{tr^UH9dN9VIWaS6QCGVQlA=iAA39aI9Qy(iu9MRp)%N2B&;3?si2ht)$A`EBc-fIVkL4Jz5ZI`!H=5Axbp#j2&s+eDkVEyE2X38&dl8MV_7J7eXQI?%L=1szx+Ug4EK
zs1X{hQFK^LWgQw#P5a!MqWJ;REOW6YxdDjb2t`^m-%6L%0}bR#3031;ahTU$7Lc|@
z=A0vOQq`*G2Mh{KKfaVgktQzm*J+sEj_q350u5q$kz6ndw&a|~dd{e(GO_n@`KEem
zSoo-4?{dvzw8hZ4GXc`~g0>xHn-?xi4r?egUo}LpXDx!plq?ssU2{hW*-f9{h5~bs
zn2dXPtaq_W_#)%ud!J%O$-wsE<#-56DehUK)zMNHk|l{%Zr89=_LX#V_P!ogDKk?X
z;?q_#{Dx0w0YwZlU6NkfYAo<&XT;&Ua}$ng?tRC-_W?dkHV;2P+(=$7bEnkDjMP=s
ze$N!ELXQsir%K8Ot&rdA@vH};`v6gEc9bdR8zulR&e={E4$ppTihSdZn2_@vJ4ej#
z)orNw@1XG6GP8|>GYja&^R8K4ygs?73|XcI>#$h+#r4GJ?+^UEzNq0F1g?pHY~B{Q
z1)AXI@&Ff4CAwApFk%~;4l7)#{Ye!yJ0R&){)zR-mq-3-#gFamhvV+@I{>%Rn{k+o
zwZzf#cF|c|{y^`hnwPk@inC%*ax|njdb=Y}VT=cq|S@T5yWlM#g
z6ewQmqU_se|C@@Gf}hzyU`;y+O^dcBzWhffDG3kxPY$*9$1_
z1AQ?Ad4&|g819OUn;!(}@kkm=O2X#hJv^wVjK%zqzih2GG%Z0;bLN?(zTrHzoG+pR
zGzn+jeRekNfaD;u$Ho@I7c8-33LwNT%xN=2jCXK?`oiqb*LaIMT=L6ykD%WDUs|_~
z10Fu>-?{l1hL1i12dV!_9OIdfzA>4(mW!r
z<7!RBq{&#$T-)*sow{VldW!_95!+ZL3I@CPWWxY{^8>%D}Nm6E_~I>m)#*<
zJ?BTGXKT^F{z=H5+jhb=yVox|fbPLOuS)ypg%faW&*_nHm4#FKQ!V5CSbiEEE%NSy
z#2*2q?kY^j?or|~>D=Vqqf;_oP)EQAM)~gf13@|rXyvRq>m>Ho{hvwkE{k2Q)3-O}{!$rK|Z8<(omT#lg#*yu&krAxiv0cpQ4p(Z6UDN=J
zZoEEQA7%KlXre0ZZOb>C8Z4PWu)mj^Tz?PhL~RCb_@FZGZg~QXo%)v7FgCXkV77&A
z%e2c_!$21K_GHat82^331;^-otcPJ3X|&>s=GjlmWqD!j7i0xEZ%i19xV;p(Vdcw4
zEK3QjYI?>`@<@Gn@D2yeDHDkA%~Pu%>Y|v=Of_;V;jK@tt_52@oTP)&k-Oz
zD6iyC_Y+JY$~-X&Jq@{OW|u%CUmwujX@4F{p`x%_6L36#g3|hS!+w$yBOESP$QnS+
z&bYNdwkNHU;;d>u@M1bGL66CJ<7~3o4Ygb84s5Hpy>K&
zWkSO${dwuV!cD!VWI3M67CRRpOb+5|<+yf_Up@5cO~uuID_gDNR}7G~y%V^MzSyhg
z!ZcDvH{k%UC|ua1JF7z$OL^C^gYfTUA@rWGPn^29hIvNDWZ|^D@Vceb$$>UL)AILc
zZ~rb1BZD-<*quqO40Z_WpLqRc`IufrDUaMy?f`x=u#r*DncODU%l#-NLK^nHvlC4J
zyvR_yN+b6Co6W#tq$l7Z*sUrdamxWc!e=r_RyZd+T6=|DVNA4$2{f7d_Sou|hmJ2-
zc7xUlUeqPh`64Yyj{Uk>0<{Mc`w+(n%quVSr1kvbJP6ycv||}1B{@TO^^-OhFa^()
zB}dNQ
z=K~?D1dWoHdw|V4;{&I6s}8s`^y{bHSPBh3m|81`7H}v-I%?!Zh&;)Grd&8^eJ)0K
z`^k{#^$<}Y-(En@8#7x59V0k0hfbyp-!gdGGBr0QMHn@yQ$(ZDz
ziU-|B)06kj+1$1xg99_~ZtBBmEtE5BY2*m5Ep%u2=_L$d&GJV+5hwv~+4*@Z5
z0)PW3>T=vE0Na+8r>wAU9alTebCbt*k;x-oJgV$7!5>DoztJ1ii;#LNxhp4X)h4X_
zx{~f@W#uGn0(p2SR>@y$?z$s#d9jYNE)3#l`OH?nFt{gtnSZ!=LF_pu|3izcv==@kgCC2E1lWQ@
zaxnS=8~I=IrDg9XO$Oms_Z;Kyim_G%zmCOQ3-w>>sLt%oeU3ev?c3<}dXoPPlBy3>
z?lL^`Q+Xn5EBVS2?;er2WOoAZRn!)RZV$28JYBp*rd
zSYtWlF4Z?d1Dkn=9wOCnf8~w&wF??OS0N%NXs>=9J#THSeoW^RdG1JEUEJPEwa5hd
z3CbDK^Z{1K28mxxw`80@7JE;Cy79pg?|87qJxPk^7RwPd0mCyxOMD%l|k>lcIuU7mGD)9Bm5)n50
z$Ie{uN+!aA@#WwCJP0P0$zpM4NF+tIu^e>MMLFr2{OKfpq!)A*K95nDB`YX=rDd+J
z?rl$u#N;G5K8NY-4VA?eerJ=*tpMYqz`oNvrLd
z2kO(odbFD0`vQZ<;%+1HE-5p5n0V(G3aPA$b$xWg(UsMbwi#kld7Itot#r$LcAF70
z-ESx&)d%LLg>+kS5|Ka
z5my5zb`{niG<@s5r0%;(16xWmm><07Zh8*pvm01fNI(f^y=>dCEqzdHl2Yd|3#*U-
zzfb33d`zZSip_b`9eE?U&l_TQ{kGCm*iDQEj@;^K@Uaid70iPJ?!3+-4ilMySSU#=
zQ7hoMxrJv3@E~4K<{gGGoRdrH7m~XfwGBNcg{b{{v|2xA(HvBRM{6#X72$7VW|PrW
zRk`S5psk29=qj82P{(X_##4qDA3tu}dpHDf4n@>}^AXzMp;>$j2o
zKP?Rp3(LdC)6*XM%Hubf^nd34KOCI({PuOQ2xZG9?&rawCJud)7RFVaUzyJY(0Rd69B#uXv0smXXk;Z$Y{Y!oNA4Z~{9vuAt
z5>4C!B~2s*#rWHtSoA@k=pp@o?XmxD=ln-*3-t3pB@P(R-?B~}j1Ls}AXGvA*XP3(
z5IZwhBPLHf+h|q!*i{mY_6JQd*J=*KUFJQ{!m={2r80ig!VNO83egk4;47Zj2g+4Wu5&ENFz8!^ccCVDuW{^pYY)R~iK=A=uEQne>z=^hvVNGwm?`t}F_1E6dNw
zHkBkSE=u;Q`Qh+|C+72fK(&UQL*}%UBMtsnR5z4R9Hupw{M!rf#O*wqttGvZ!L(%0
zbmL!b{UnZMn)h0-4nbc%Ov0XCthZT9QqJ^iHGuuJG~JOb3y5#twGm1|;9_6|XG#*%
z!pe9F4CJ&5tW4X4;XVOc!x#-&MFvIDoKvH@>MD{hs**f9fXr*-^6k}
zl>dAl=^STzXW4*%BHkFT>c#Eco{SFHlV$8!TRN5|toS2P6snCAOhbXJDD!amI?1%+(WvkVsKY&wWZqU-DNHSfO!rR;;}
zMvux7~U!MDA^t`*@9`l=q+&OyescrdIxy)UKhTNm(*6i}Vk!IQa
z%7D>K=qKPau~1M9)HrUUDvJ%?pbV^Gt*eC_Tn#pI6L3boQZXa5YXZ^wm0q5qm>?@U)lJA6k`h7!S
zF~m&z4DvzV(}CH!J76_wry;c(1FMqXo@$&m_~n3S8beFH$S}x8lY&RVlk8d^u^2tpCqO-4z|*cC4q=vq)p$)t1WDn2gG^T!e^E3i
zK$rvf*U($dC>4i+`6I+TrjUOs2YFQ;lo64-U!o|Qyr0NJnx!b)OQ#T%f1q8Q&KPdr
zsFkaof7uO?IscsLomzytiNfWNwGuuS2u7QHx7`AH5V>D67Kk$R%mtrDi`v68M{I%j
zi%hDXD=chKPQP(Z
zl;=Q)%}G2Hgys%&WZ-15ZVjUj0viCDxVOFj^-1zp*&b?z)0jC(zBR?aw~9l
zV{(oyJ&X1@nG}f&7m;;z%BPOL1Frn
zv2jW{H2j<`*45{I@
z(ygOqeJ4?j(|X2;hvX!5pVhgx1L;92j3$>&-LY|@8_NP{oPWnN-$^}1G{6D@c@?*>
z1tbmD=Z)aso3q{G7ts6{?}L{&TA416YJTV$w&{^2Wqp2hzwNc~;o%(!3K5%{hk?{$
z3u$*xBq@v2wY~beyuZ51WMl50Bbt2t(@(4b!ry8ljUI@rIvkix9F+WwCA1MqqawEI
z1J1|~epZYI8_s+}Yt0+NZ5#rSFyR)DlvHJaoq0hkY8g_plf+D2ef75?OaD#6_*GKc
zUxYP~I##AjS~8R#ccl>I=Eu2FuZr+AliP+Z;k6l!0>)@sO_P}l!f5#@RH_{FLwFY>
z74qrS4n&OLssHv#-098UlX#`OMq4|BQjHi&rBEqK_frwt{>+`q2}e4>dkMBfycv|g
z=i$Gl8g9c|Pp9qn6Gm$qu0wAZWcCLyi_&t}5{bMkskj
zFU{ZYMY)pTZ%C9IG`agR)w9RZ@4-_u90spCzD|`R9ud=EPf*;6tE$@jhel)l3Peg3
z{6UY;iO{zcc*u;BKgw)??>|jlrv+xDtiQO3uw)2{FvI^D)YCA{*KFrVkk@r@&RxB5
z4W$ligui)%(Ccn2MzgxLQ55{7ud8y9@#j&k6EtZ08Ii+%`#mmetsL6yT_Jiuu`n~_
zN}VE+7F~`1-k@;?Iv*(+t}Fbm$^&z1>x=^gyi*fLs~iyuiK){DIGrhgHYmQMLZ6dX
zsr(AK+cgPE;4W=NWht_!!>9_Yx4U6PLTR1T&?0fG)GmsA*4|m!ws#>wUA--EfzMEX
zMq0U!gWZ|;N`n8Ajq=S;LyP^bNS{Hi-(v|!f0;o34V6X7#UmmdjGfgCIZ21Og*j3{
zUz5H8TyfMZ>giVvz?2Y!j6y^qlp*nprS(fI%Vf+eM+##C*PpM~1E58+<6XREDnChY
z`FS-q66JFd#D99EXMbi{Z%sNa?|#_H2WfFL#R46>1>M!t5vwYvM{}l!um;WH(3=)^
zIUqkYJIC41f#3Z4R^5J8?SEbMuDbRL{WnQ+jOzH3L4$zc$Fu$?N&e4rO_eaA6;lcd
z1Vkzk4p9^sQj${>M}$Fwg2jYJAVx+;M?%3xLqx_vMnlC!Ku5(wMa9L(z$C=Sg+-!9
zMk7NcAVtR_!6%}@Az()#r^BHCL_&Z>iH=5!hfP9EK|xADM~(i88JnL9kCKFhjGTsv
zfr62NmV)XtB|RHGJqs-pFEi_>Pjqx#%#7@GEF3JLjETPx@qy1GiabJ65`1Kmf;@73
z9I|}e5<(0zLOiO{yduKF;^I|se-m-xmoL(ni$(#nAq6Z7~8rz
zI5^taeKm9Oash0Nz3q*>?QOkXZJpgczq&YC+6KCM2Y&VT^YjY)77+Z^KN<)~3$`*1
z^>&B?+@t;7BK?8HV6XV-uK~e<{((`E5rNTB;enwU!C~1^F>w)58L@E@0dX0TaVbgB
zA@MO$iSf}niNQ%pNhxU=-_w)Q($a(C%A+#!6O!^0vVhXetlXR*c{zn;1>d9cvok9S
zGV}8b3W_VL$_vZN%L@u?ax2=)Dr>6hii_%-D;gVr7U$PhRd!St*VR_m*4EXvw6{0a
zwKcVLwKcW1w^udvmbdh@b@sHjjn@uLwD$D3_6;`pWYmwUhiMt9^Sv4-aTFI
z?cAQ8++UqN-yU4w+}zwhJ>B2FJl(&&y?re9-{0Re8Pl;qK*0H=#e~&7SI*`iWapd+
zhMXcpOnHN$%me!@m+DEO&zywoD;$!Ni_Yqez-3OVwxtiFsoYnXGC5doGxZ|t#;Sz-
zQb;#L%of*Qs(+u;J?9#bv5yxc)V7ND1Vi-ZeIyh1Ys-o!&T3oz8}QJzX@
z>co{fBK8U+w37JQ6qWVA)*a-)7PUtL#fuh&?&IkO8k+ZO>hDozQ1gZN*jIYiC)b>s
zZsK_-f406n*c3XK_l+>C9+qJCsL5w`JN7A)O4?&ayocrgXkGJ=`bD6g$4yvtxV&;FjbIDQ)UUEy
zZJ3njPl)0BwJlR`IEqso*z{kqiP!d>uDAsc+)Q>LZWo_86LV3d6NS);61!25DBtQk
z!O%|RdemtSXszeL}{_n0N5M2Q*bFXd|Jp>dKH&F+(95f^m3X2#JSp5+T
zah(xUwaia9q{PaB@JNMozmx5(9x&{aU>D&O;FN`FiBVrV=xd%}MPcp%yu6&gP1vl(
zIl(zgk~&@SEWF|h=AqdcZ9u^D9srriBjuT;>y8POzdVZUiu<1Q;+}DxA75*he%2H$
zle>$kjWe-i!GqTiH0soL=yEJhuR>WXAu$baCVA$QLbbp
z+zu9XuU$jmU@b*l!$_&4cE-+dr(x
zW;YaK0uc>vizQuHSkftmTda__>UXVV?}a4s3!!{Pq+#IPx*~o-f`+^&P>V9@{b}5O
zIeDGByc7}&N2Z}=uq_%`mC_dtwmudpnv-ofyzp{=RzSaGm&e|tpGp*`yu%USZm^`dsp-*#9VO6fL<4yU^DfeHlo;*5<122BoFZM7>fOAhme$cgDdD
zdIuj=r&-1t&2EiVM*WjyteFcN;2k!EaK&(GPTJNng$VYO4y$dLFZn?;ijA7ubD&4a
zJCqE;u2X1F~cXj0BBI0O_i8+5VGkia(0jOy*6H^sX<@$C6gHKi1N*R85H9j*U
zPYVG#T#ZWj{p5_}cWuF(8El@nD~6&Ovm()qZ?U{+m+va~m?ySgiFblV^*FEc`cHwn
z^}1PK`G7)?gO}Qa-#kUs-GdeGz3{D73Sl1VjG=&@9-9XJNx+}*Eh2avt^oRo7zL^E
zFW0hQ_sccFZ^XX&J7a5{<71Q15qD_TG>X)VqP|Z2aIHMxpBV;
zd>)g8=h@{cRs?HAH`8k%Zdb0HK3l!v)?6=<|AHE@>_V>o?IAYGd*V^ONBTbcv=zxS
zrIygH>R;5w68&8?!j5C_$$mNitYBB4noy7&)`y%S(CaHgGIr9O{%sd5p^LE42v!!`
zK;fH+gZZC2tc1NGrO*67T#;X=9Fhed#-}@t*iX32NSA(G#p}M$BP2c?DSi%~&?mL5
zO6ETYY?jQyzc&`Tz~@n~f<7R5FTu)nZr)>F5rMv5zqVtI?k~<8`|7W%+G-e#F1B@C
z*yY^QXvn%ec-2M<;>)lY7CfTPhO9pp;Q962RAY7Xi>i+VALD-l^Vy_46Hmxn-gbBS
zT!+fbNA(2_UCcmJXmCayx)FQS65N!~>KOeFNLvDxCD%nhh*D`B(r)I?08`702A?mn
z6S@;-L#+rVt{A}A0{@xv?PrREA!2vyWuV&?)B;F_te{rvKaA@@x4XX#8$qqbe;8MR
zZa04!$;1`&_*#8=>;kIEgYSxtchXEDl!;nGT}lV0x}2LbIwDKA?c9Kg$}5p5gH?v=
z&B{LNG@eHjh6%)uX;XX2(3pyFoffA+pe
zhlYTh9%kW`_`Eyl_o+HML)?LTWaZGeb65w&0c1kDDXDkJx{AIAB`8=IdZVKrA@_v%&e#DWE?gnQDolp&`tcsiEO^
zAgh=Wf;tI#P^!Pb=*K})NOuITzR5wyzbku~N%tZd?T7
zKS+%5A-F)65)_)q|IoWnhA;Uphu-`Y9PKhKcO-?~fD=~|_v`H!(}k#I8vaA~iN2if
z!~p>Cn%69Ff?_VRPhms<5JB_LHW6IBnO;;q_{wg+ysW-ob8a>gq60*_o!odr%+~3h
z*tze{CH2@u)DFIzg3I1vdD~ah@q$76*SAy1=dohnIb#wwy{&LRArxB5y+1yBKGF=-
zcdU~Cslx0j{!NqLiOevnCl+m;5_2BQfa1Sk0WI)GNq=>Vf{2xZg3!kmv1wk=NR04Z
z;aC)^!Gk}DG?fNI!y@_5WEZ>N`#9s*(kINok-|}lO(QY
zYC8ZY08x{~0d?q&H^iyj%5lc%&LtMZZ7_=o56$n69$~nFX+`ni;6p2r$Ui=HT55|${9wfi7(QxqY(=97i3P-Mdg@_-*#TCZ2&|#{
zSu<3oam=XXSh=l?-Pq{wdRmVztXFcXvGkc<2m}yWQ9dB#O7)C#nSE&|o;fMI_+8ms
zZIbcM&T~W{L0!fzoX0xk4plkZdPt;H1rNxGHmrsAo
z_I7yeyt0BJK2%`@JKl|pr4a<{cHZY0yq(~H9-FWTcz^lTMcX8_;+^>fB3-#X{pcU<
z-;{D%l<1Bq9G{PC
zFN-9rD;avt+b1D2Re8Q1y&oqvP-FkgPkc5v=2(OoI
zv>AInz^^w1A9$#Z6~b26xRgjq>P5&6vMLJSv|ReBnwf+Qdo*<`>|=Z?hN+frV!vQH
z`jr+N!D|x*$HVt$@I`)ul@{$@vMg^Ta;_!03#KiLEq`ydDj{U*e%+J8pI7#SEDUq#
zQQ5{jS$U?trT7I4ZIgkWT~byD`U-SCL_RR_K)R=O@QCi*@HCrUwg7ZKOmx&RtFDv0
z$!DVX%o7#l2VI<|w0lY?l3JCk>IIZ#EgUf<1l1kMq256iUNr)CDD+AA<_Z2TN_jDPbx(e66RwV`V0NsqCo~T?w8^faV0c#$Aos8`u)Ff^4cXd8*Rn=
z2P05=R8;B7I5bT4Q|7m%%qoX-X(~%&6Ewk1xi2H3(|k(`Ohe4jkFA|9(iBU9f@itX
ze=a+G(NfkBF_!r`9GPg=tW>klTq^1&G@5-2!^|c&p7NASc=`qETi3D*6&g!;>IuKw
zR!Y1Q7;MUp_a){hM{Ds2O3TVL%W{vCpG&+71$qyc5W)=3lP!$5*hk3zMCs9rmQ|JzZd!)A+;Z`i97ly>Eme=;H4oD1yMf92h<)
z2keQ1K99B8HyVsTyzY{?D&6o^Ke&xT%sNmRaL9g|$6vFC4??;GY8x#Kb}DO_d}Iu;
zu_p-}4dOl1SUj1$o+EIwFuml+XMHytBI@{QlRNaka4;uB77jr;J?$80!i%-1E%m}c
zprV(;TEmuB&Snc<8oMO>IqX;J1*znHnK
z#>9Z=bk-^EyF9D9Aj9k>1a4CXyx_t=}h5N$#`^
zBx=mRG_e^>O}=^j{F&$^+-W^1BsiC(VtmNSaG#BU7-18>4%`HSD!5;dv
zqx%M^6xhKc0Y+2o{I`~^8;w`U5NokOLX8tAbU??TFr$>?r+h_PZro^vBCT0$AyO7Ypnw)oA>w6Na?Wn{E=?G!KnvAj?Ih
z;|Pb7t$U%+i=X+c&wu8xKGI)G5NgUx&Lw~reZa~OOYQ_&i`UIL0jqu_{!-oM?#
z;N%Y&=SjqBRPZ!PER8c)C4xcy=^kKP$qJ2v;7Y^o7CPMzX4z(5v`Vv-Kvg=a+@kBL^2D=;HBhJPJsaZ@YsGTi3@
z!tBdA+VnV`{~f{-HfT@4-vKC}ESZn*<(To%CnDO-URS$e)R|vHM^wTGd74S|$-Fhh
zXfDXTl~snN$b@MYvsdgHoD7?e?^TlyiKD~v9({!DqYpx@`89TfKy2bjW&JxXBK^}M
z&x#i3lWr{nEWIi&BKZ@&Jn+Toq{J`76um;^pMiaG`WP5{-%l8Cs!xAou@mtTcG8jn
zxt}Dsi1cdgP6KxNBATS^Qrhl+V^!kz#fe&pbfvZ;QKRNxM*Uw#_-m*1zdh!7pjz-t
zl-x$iazExRI6_B~$^#se2ScrQjQt}NK!nZ^y#XQ}J8l_X8%>eQ3C)4R53)qhV5MA+
znsK{)FyCq+ovSfRt=znSgSgQoO%43x+FwM78=$kRldXX#d|>Ne6clt;W)yHs$^1L(
zt0gQLxGO=~uKzgySD^@&t3HWm=6~uyzDO-YgQ6Dn$bU`L1_`A9#1{PTJPntbCoudk
zg|5m;Qp=$#coHR3AJe{|Y?Nl56BLp39~6*|78Rmu%>38IU?xyms)`u1|3PIm-29CC
zxK4CL)IS}758RNJhZLZ&Mf?Z1F>vEp;Wgv`Rhawm(k?F~{$Je1x#_C^Z(M^UP$rlc
zeN3;~98aS*=aVS^L~Q5tckgU7B)5(Q<*|$rgKbihaeB6YFwtIXf1S#pOLba3YN<8S
z1uVpmdXNbgx3K*#O3}?~&2>VFa!t`M42=O%@$!Wp(-+DOx$L&&7
zv|8{wUoen}tm8EBPYS_8MPR1?G20D#o-s25$6u6o{m0OcUe{4Wg!6~k@Z&V+
zi(m1|dsclWs%d34)=9v%NdQm}1vkQ3(`VfqjZHao?Utj-C{#$%h}_f=kg%%E4k^Ji
z5W2{7-bmQS3rB$CxOnMgQlwdjnV9s*oNr|66|Dok=MITe#?&p)(`vz9;ir5ewO$1h
z$O$1!0YaW{1R13hdZ~}e!Z2=L%4$ux>Mh@mA}5Qvtfyl>$Md_1z8henm|BFLu=t2B
zjy(HMu8p7mN
z!3Oand<3@Jk}O9ZBxDV`0K)O(#xf+a=NMiRVDr>%gcPYwi3-7G%UH62j3d1i0)cq=
zly4LgMfIqSZdwuoP)*x~(1b_nND7{W`orm0GF&zwxh^1s3!(W5r`embkFhA7q?y06
zDD}{%Kz1%{k3Ji9$B|zB(3R*z0B?v<`w+!!x7OXVAxx?uhNAOaZ|q*=dD9X_P`mhL
zCtTuIP!obvvH`go@S(=|ubPv3$lQhLzGtH!0jU=7fCxIZX~c)&WJVbIthh=+rH;rN
z$lP#rwgEqiOF9xgxwILUKA{hxNdIF!uYZIXp~^f48c5ikLM{Jak@U1o%0j`?=x*KR{JaW
z`eA^dDeS|Gvkc`sCOqtZDurQ;kI`v-`A4I!Qip6mWKB4F?fi#Ewttx)WBqeZyT#^<_T7_Fhgn5Q55HO!wU}7$Dd)?IVj*OxEJ~UM4|5J$CX~=)BNjhJ9dk4j5v*MkexWLeC3bk+$j@qadV}y^Ru;@Hh##j
zqNr0)5vTQJ_3SFWRZ&G6N^43uP5xw}m0Ej)yFvfd*<1XLk$?!@d-(9?6%a>``sI4i
ziAWHOar_l+5DQUWHT|PeMS&>E7Ba
z1~~zS)dWj~cc0^#=zHiN@APWdUfR*fY8zXn2k^}0SBxV;?b5S3wG+$@v1~bGF^%Fn
z%%%cvcxI7v-v)j1m{zb7Go@&Xf?d6w!8=EN(8yM>tlTbqe&K(VuenbU^!1EX+JUq>
z47}?pU)8tOGq6S{n#`8#+3BiM=DBOFrGNX6q!hR>{mYB$w4aI|s^tmwikG4{3Ua+{y-_uE$i_v&K|M5);O^EkFAc)0C^8l
zwLD$1KOLrm(*9D&wn7aMCP`~=Jsj8uPCX919x{_OEwRDMJ9z7UXzE_qXP+APLI@C=`AL5_FJf%e@*eBfFf68ktuilA?}S`vTWukJONy_TM5ya9!v_6FXrfFWY;`S4Q3
z?6b`&RW
zl4q#E=@z|akT_;_XlO0z_Kz+D(NLXIHnlh7o08f!^zIi+N!(X45%@0b4n0a#xUb>+
zdz4Hmi|@~qc%!oUm}!G*#wy(5(vg(+g6{@)lvGOLvWB$uEm;+N*|Qq()8}a9d;WWAZo#v&tgYtSOHuuIbaqwtHF7PB`9QXm8oG(rS@T&YlN$biQ
zCMe-QUrxohN@4DUq|KI`ofN?zaE6|*kWnolcOdmYGU#N`T{aAohC7__;~FtSoCk_C
z3C<{(&X@P}n=SH%bkalUFxsk%;LyZQVn*9St#UkJN3Gh!;KCw$Z-+z&uC3E}3*%;D
z$KTWs04@YlqXt2doWRr#`2+;%n+kFpRnGRdF?Z^d0Q($}<$y;afR6pd+V8jPR9yM~
zt^0~`*Y9N%^x?qo0J*t~*zrBVr`rMFxS8)rX&5n%xtrf_vP2T~P{i-s6VXA`
z5UC;tR7^O|ArDq)wt}GqOSj%R`SmS#mAfb*kXXcPPIk3p&Oq;H6vhRKvdh=s2Eu2;
zM^+5$g~j$*Lfu8+I1Rq{1Kwm4!#hzCb`s=){@mdY*6Z!r<0JtF$K2PTwhPtvN~}-k
zLSZme1c+Bn``ax~3enuwc>PR!L9r~VeNj1^6PM^w
zK3PTB3M{wit{#+T^zy6)h@0U)Mb73M-156_}&gL`7|lP=_T#?H8eZNSC?P=$0CV@L^$mSV7a+)Bqr51@4$Yc;`h=B
zWu-5OX@UCQOvV%YrvAobN0jRhZ3$cA1ipr{G;UP?S^@Uog`k3VR^Z-K8`)Ew^Z4;?-?b#+4xs=
z1n-HQEqRQ4+tE-PD#v}Z>5XBK6Xx&`Z@bRNE$2c76Dc0%K4-H|3=0~!d_i2gEJTyu
z4d?-Te6Hs}|!{LP7
z-4<$uWRij|gg$os9r*30#4n@a%MhIgcSuEoU!u;1z2MRIMhYtV%qLJHqQ
zTDcjlOvbT_yyfdhMWR7g0eDKG$&a^vp`hYWX|5Gu5meT6PpPiBw3@s7H*=zo
zhWB~8x^-{u$2ShIE)i=mq{cQva5YNGh-APJDZHdTg}v4_ZJWa$dT-K+Tf8Kj1*o|&YopG{B_2Td
zC{bnD=le-X^S+CX(I5%1-w@fD4Y`m()Lcw*=K1LlF-<9BazsNhzGu-~Gk0gPXD;V`XX97m2Bk`=J
z`t#mEOhvp1WIMY>+pG|y`J-*xHF573lwKOZIgh1AM$Bke0oy~@>Fi~A=`zbiH4WP+
z+dV6eOg~tso4#|~lFOCQ5_5>j`uA#fMp+m{EI~(CJGbB&uwQr;tVVTMj6%T0XT-$h
z-_az9EjhEX>WQYH>g|LKzxYjwz_p&gIt4$HFM#euo;EJ{sCEv=|1ZZZh{~CL9fs
zt;phhZFz4lkJ6+e#dLx{GY!SYQ(H0;
z-z~fUB5}6X*mkC0?eckW_I?mCHl4s+`EeMxJ6nqyXz6Iv=PxKM4Yr2M(TiPFzeM;$
z|2_C!|1&-n9E7Hhcw%T4miPAO*WQW&Lhz+HEM|Y5;d|Jra7Vh|N^33>$1vepbbeZV
zYt0I07|jFo
zHP1XB`(IvM&AZROFE5Si(G>EGn=wuB=*p2@;VVxW+HrL3N2^)+njV2+bzB{1ore<+
zRaFYr%#EE!(B#EJ!#EBnBM)4tWVLkL;O?EwgbueDlPxpR;cKDY#0b0TtBNrePq9X4
zl#+1Kv~|!OtxaJ@uFpl@xb7M>nQW3=k+d%9t)r`xw=|uDcd^KU+lUbmW>n2W=bF5wXncC@
z;F`-O>cJ0Y5fT(V?;-9Up^5@;FS`H+4?DA1HoE=cwG?m^aS}pN#PUJD>3S&bOwBr^
zau#F5h+l+H9qnbY^gc(mQ^3`^wZ|*80{IWA0>g|Bp|iyhLrWC%Y?&#B<3HyW3{O99
z)p=+z`>Thzp&0q^X%Q}1GnHO1`6jTbst
z%{ZwebhU5#e@cigGt9RUOTRg-$~KMYNPeFsXp*|SPyv}EF_xVlqF3!0bx$^=1dg86
z%UpYsBeRBs-H7jM3|or@8#ymNm0;fEwi>p_TMQ!8xL#XOGqwfAU%u6c%B|um*BYR;
zavCJQ@63k~D>7fKVDK(jfcqCv?LN~tP|C3tjlo(m1@gx}SOz4xkO>Fj9mVE>$zs#?
zm1<%nIM2c3+{`dEYXn4`&HW_N1(+z7mn@wyT|Lc=;PSrC-supoYvpyscGPB^`;~u}
zNO;O>&dFOWG)lRFyl{L(Ai%!y=uN!jqD7@O^*-Kb~2VWE|r$%+8
z9iRM-*9kjXs#beT^VohD4}QuY)@e=@6}*$zv)pv`c9w&W
z5s?@spQx;`T$CRW3(wF}i_XwWXWYZh;JlhX?Lv-C_B9e*snxK7x01SGeoQ
zoa+kJE-tSpP57X-&EMddvt%x@B=WmukNuS%I*>%cDE6#o
zXt~=-5_Iq0q}b*9m+&T{fH3nb!UK0Yhhf>x$iWL)=2xXc{R!tCL_X4}pBu7e^eT~0
zemu4BXSV#>y@#nQ!+jcs*!fNZ-xq3k}ctfZp)83wuG0ZVlY8sJ?r(x&Uk4Xm|pmGz3T;Er|GY26ONx6S#EHI
zG%X(dzMqRp&FV(bb$|Wlq~vwKLD{ISfddC7
zues60d$I9AM*{Ce#RQf85_%=&x!sY2pv`2I0sua$xP2t!wXd*RQ?5{t3V1j{RuCWm
zUWM_gy?qY7pH%;edR-r##*h=k$#*&dqRg@=xOTU3N^SAnMBJ;AWOY#d6*ob*H?i;e
z(Ia3
zG{q(iQ;KlRWG@+BINw=SRr13l)?wJUaHmIM(Cn}*v9uNZe02Uu@|@mdzC~c`n=tVH
z{IXz1B?oUu_!_E%gRqm228qV)e*H4+X8{mm%7CPIA=Tawcc%wjj?8erJZ^$lv4Lwb
zhe7%*K@#haOS?4SMDHa=rVi(vf+{;VQyq$QXpARp7wZzvJ79<*b%I!N*b*7on34(7
zkzp0WeLNQj6m3nL$PT$UcgEYwT2{-0{UEUA;Qhnsz7eU5v3he6(>O+^_R!~50RS=>
zwHMA5q8K*3w4yD8+{eSWCd=hb34zi&lNP&BkcV
z41?VESPV>Py3Z+0)&6YQEtHKvRcB3n$Pdoi>Rwmx2S6Xr8`mWQ4^FS`UnF1EoxG;P
zoXd$Fcs%OlP_CL`wo#r?P=Sp$8$!p25y<_ef_r7vFKb(}dY64lVrarngV^2sU%FmT
zd%G(mYyJ?1ma7M6nR80J6b~8cK*V2y`YJdzNzUCn!^#X66ZFD}@bPDbk^NYm
z_|6-qL|E|4O`I;d3!Bo=ivO0W#~F~^EM}dX!^=ZH8fT+(Hf*?
zUyhb`%DDl%e5*ijqXm#>@m<}050x!cg(iPqp)B07@vU0HgpsC?RGbu_0NKHv8r>)z
z`@XBWeteVFBffiz3uwX*c0DrgAmCP0Ms-z!Y|i8IMn4i#^sHsiu;LDBLhr^UcOD-Y
zx2a>JTzMNue}0v&RxI$~rB*3`_fRR|LDOhZ$SnPYFD2P$PsL&jF{{%|?LvW)>kjRnjdH0~*qq}FAFE3$I=LKPh=(}Ta{_x>_-xS36
zanRd*vmTg?=_X+FeC`=W|2l#b+kR7S+#KPnYsKE>fx^CMw~pghT$J)hi=bl@V}SI^b;e}gUT
zFjHDr)LsFEdY+qTlTRh-Thp*cXQ)E=#Fy!N51d@IJ`EJivR1C0e@1EAE&un{({tbbdG;&mSJ(ARPBGE1H;5{I|IzS%i;~~e
z^q>%6QuvCrklwW4*OYoFC$ddt=>*s^auQ}^u?
zI?Mj_vb+4<*`5Dt_s*wvHhXO!SY4lc@1V=Vh3wJKcTRX^QuBr3yYaJMjC@-}Ee
zX)Q15TC(b(&570SH42x$wBKIa;I+GWThF}q2sGy
z9VlYhQ*<)#L*cy;_x7Vg-1Tp_&H4D{@v~=#w>|CNyP{r}w{3N*&UvfAOqr$qtn&9S
zKfAp#xwK_}=Y!bJ-LI4$=dWKdd5`MHXXg%?Gs{)WU4PrZH&>Zyw}gb?Lm|cF^~qZs
zriL8g*_LD=!XGy&Gd?%g%3?X|rb!>K&HZsGm4BV}R!s>vXXpG-8D9YpzJ^`j>$m;3
zdGY&bu=3*@(zQE$RoiYqS^Cgyrq&&`%Wbz)Ru$Y{`q~(yd{+bJ#37fXnt4%pRYeGVQzPeT|Gt1iy
zzIdwo?VFdd>+Emm*)sY+RvcgVN+YFU|AT|gtPlNI0w+3dIX%aH^5*;l2@#B2Tm3UD
zukn5Qo~>F@EgZ0E+lvwpwIh>NnD^UzRrhhK?FUVa{7n6srdeaRX6n3{%HRJPL2K3@
zD!WJ+=rJ&?*v*=WpYjo_%xQuda=@z_r_>|SFnTF%&{=GGgz!7))h?q
z#Ys=T9;*Xpv&F&0+`;@AQ2v8B@R2W*b>q!>K_{`~1CQhYpU5$}FkVw0Bm&!i4BCFo
z16)au08=OLjF(mbsex}q25v@{KqvsRKJrZF=arhwm%tMaQi#0Np9@7{zAytraYr(+Hnw)G92$SbVL`*?F@8o)QsXH<59%obZyxg12Kbm#8<3Iyi@vg=A2-}Z%z9}g8Jbo_DXUP$(S3vocUGv}2f%$j*
z_puUgyrYgrlQfwA!I70{K?u3q$Q`~U=0vbssg6^|fJDN=waFpF@rhTj10r>+}I{hiU6Zh2)50}B)7wRwM_(jk^^e}q&{=RB{)r3~fjRN2?zH_>I
zyAnCl@X~3K)+qC_G0dF_gTIZCiwTL#F{D4DnnI+&8~s2I7RkR}aoaq0RI54^J(<3m-(m4n!y^^rkjWdMMhuu(PowHG4oRun}Gn
zFa1@5=pT=RNG_&ieimomfeT26`GctJGU@Mm51dD1ajAb9PjcR!&yZD32l=$a2j3QO
z2vvy*1F5p#SIu0F-AZv&E4VS+TqAQ00d`(0E|AQMe$?z~2`FL?Q@y3AZl2{fC~N$koCC7pwx)(nh}
z`RjVpPAFWEcO}pGwaX3ITyIZ&QC)
z{6vu0LA?n0oVE#(un}P2mar^1H1#9M!YS#x+~`alh*`uZ-9iPoM4r&K(@;PvNhbrD
z{VYAHT`_>#-nh}io-~gxBPUvd;4!rz+t{o0fot?z-s*z&3(sRiR`Z%k9b05b0^C4|
zqrSp@UF@M@S!1rS2`;>5-1kTijEMyH%CaY7gz8aw1lLVwsT`oU@??ep4y{#>noI@@
zzg{@IwTo{}WmciGJkp}i{Y&-PFEzQy>bV?M9Q3O905gbg!BZmCbiFg(FRXa-x*e2>
ziIB&j5<5mLD9p$UOfNO!2(0j?>_DKK(Z^ExtI<`#f-nz5uS-+r}H&W!RjWa^pc!p!-zlWnR)J-PH#mW86A-DGuKhc2L=
zSE9;>Z{8M3y~0EC4#XKb6a>uNW^yra8i~WD#dO#3?W80jDJCqB!3t?BwXRTD=Z0{<76p106e-oMcZF}
zBb*#3)|JJzRzG*@h04^2cbVJ~z;{LmvcHr*cJ+nrN_?C?gjw<6VI|?s(*9^H&vJy(
zV69x*rVU{HLwgL2!s{x!EJb~98i%2}@ZmVG|FTYU$t?1^wkXjXthw3kqb828Jgjej
z-d1+8CLwNOST`fwaQ{PXe=O?;hoUCjFxdOt4sv7nT64o;rd?An0S(e!c>0@@7J5C(
z*){@GaX)n&2rWp$kGM?!^Rj9`=`~?Oe0742TuJT6d5Bq6UeqYz$-v4ef!kPYB~1dg
zf{W%*M;Y8$|1*HB{v!sY!3$K=vhL4q`ryM^@O2pU@lYeFV(}l+)o9P!-AW=W8&|P5
zP{VakezsnqfJoi&r@JG>jGA+dlxkYtIp?~TB!rK^<9JYbY#YwUO9i-L#BiIMxE;-`8%bpC*t+?Qeq}-tKiMsQVS!
z(d_B06gxY~+%*`PS#aWHHsdhSEzzF`up_IC{I!Qq-eeGfp=uYu(@~jZQYbhl64U0X
zC1QTqVyCJ@y0#<~xD_f8dEmgLXZ82{T?PYWVmX5dUnH
zwZ(FN#yszebAFq752}Zf8oP~DVW6;81PZwN+LHelFmb#B*kY9(xErMD0KVNfV7)y`
z7MwQ4Kh3|mU^iTlf_1={Iz~|n>V*cnZd9P=sNt1p`
zE43PwG56EOxu2Gvm@$DkAkohAqwfO({LGG0@r6TEOz9O?Oo{8mOyOL!rbLG7!Cq0PLePcZM%$
zN?h^fhBK?DQXhG)#?UTsJwY=kaX!5bvSgIqq@pj^)fM2ebP~RaKq>dpjDcm>KK$c$?C?ls7Of*fEh8_+K}u_>cx&MW2&|mT@CTr0&u+*l$S+1@p)RF{aVnf
z7EMAMuBZ;UF=ag`@jodxq0}<8V0)TA8zL=4V28hB6KO$U^d2q8?}eCgz~2L$@AG=3
zk&WW!fH}(?i0ZKZ7{fhKOI0Rm$EV^1ub5Em1=ZT&%Brx6<$qS40m^YqJY^FPE}q%^
zkD(3J;1JJIEv0J+n_AmTLjtTK!{u88%?|aGcEwZ42wn>Qlq;zOS(pPwoD)-MkBL=B
ziYu6GFWdd0$)DYlQo!7AM+DK&07+6cvX>O`)jp|AV(ul2MKvLdPgABI!YpL!Zo<=%
zx(@YESOVccj2G0&06_P`?TxLateVv7_#=>w<9T0#f~$2cOluDm7Hd`=A%#5K+kvIk
zz)xG_p`y4lYS5|c(PpI}@*zqeD_>(Ee7ESNtX!Vs{_P^V>__vVdOmgz7#`GHj#{Lu
zRv`K=kyN2~vGLCK`&*&iaQz(PouVB#p5m9N2@__L>XR(HY|l|pInnJr`A%lFoS>@u
z^{XD={qVXwxBbz1l(823mKvk1<5)j)>RZU#y(vory<`B-;5gjFvDi?2n&hRAQ+%Qu2{IK&$G;
zk+&ks=#5!D`akJIq~^eW4azh9;w0G}RSe)?PheZp5Mfo18stbybGA!+F>hMBnqIV2+_
z%eO1j%uM_$Kwf~vHgiZ@ATyA(I*b(CTrF|vIbL)lLq<1FGWt-4Tq)i#h2ZEc&7KADB1*sF7B3!AsKE^!U38fS>4J
z-ahmkE(&3Q#r5w1cxsK3e``0T|5;4*FZ+*bC`3A?4L1~~KoX0t>k3g*)+rj+2iqRa
zZrc+P7sAbty#^wV8Udu&cT)g6GC`7}V_7
z8xfYhUPOT(x^>|8wMG2G9%R41B^B5T!ak|wLWT<&mqxjy_BgkUPb#2w>N!+f6*-2i
z@9zmA@O9N%4=|UWr`U#QW~Q)Cp2b0}@>7+9krCXKoy8Y;wiHeRU|zkex3Gh|dNjZY
z$y&+mAkN;cA6rlyE
z3{#QC|CQ2f9)fi`DDU^n$vzaZeaZ+^nV@9*ctSF6LxF`o69m;qLDZcz1P%@1Q2(r!
z&6W)k#CjdKr6(O8pqjCdHH>G-pqSq8vOcOJ0}&qGEej$fVRY;hT!>K`w^~qYu#`x{z18(Y=#Lx0`}FbfHQjE
zA}OpVJnJ=(?16H<-LlyW_qdzXhh0Ues+?@;haF8-YIkd
z1I3fyzEhIR9z9XNi1&4;hm~_yN!_<61l^^Jj#by^Dp;ujCZ@4*ds${p$bDBjR*r8T
z_#@att>Ie3r+a7iJX$81V%EQ=o+ynow8FT8&5AD8-5+{_e#;1Y^M#eB67$#H3hJQh
zIJuyN6~|I-;rXoE{+{kPqyvq)+qV23q9aw4_;|bvpz*@3M;d^nv9>p-XoUwt&?YZ*4-(N4BJ
zx~vnpcm6RySyhcyjyS%fZLO4(y|r{v)W4Vx^0^4Rc2zURSbc
zTfoV1fYzR+uMQ^{(b1PY?#RMGK6%J3tYRA>5&C+jK3}F8ENRGN9mFoQPW;i)09hAu
zFu8PxHc%0Ha2R?VpUKOf&ZHcCcrx+>AdERy)EX)E;W`!H)2lz>ZyRAS}^G^yxM{lgsb3B$lM@rQ`nq}
zQ;JLM9lCJ%U_T6)T{kRF2bw>FaR_rT+UC!#QAp`ZCDHa8r0(NgE&
z4X0xrbCS2C<|xHK(>ZLq#+F#_nGW|T!MtznLe4d8BddQ?v1_Bjn%Z
z41OBfZ%$J}9sm}(FsXd$1kctlRm=s1g>{*1cISlCKM^^hV^1J);@QiVio_jst7+di
z$&|jk4`EDJaKRR$3XthSJd_}rkB{Si8gk{
zWzSR08^W*V2EDtI(zNTTS#`lNeD7=@Cq-PA%aVhui+~{Pr7}*~Sj#M4I6vuG
z20)hIr`_9Yk?HW=q(XyB)1U^T00OHIzZH)cj|UFH->fQk5`pvHFaw2LZCc)#5>qLc
zG=P|uR(l<3$LK*;z$T3pgMT}jN*?@5I%(_XR2%-88>myn8c)Az=o2QB{)c*1C?Ri~
ztowyX1|^<*AAa7
zMAOARqc*FzH{Z7(cq7lZw@1j1x$Kz<#7Y>X9lMEgLG^5_k;fYHhlxrYs;c&pxcB?R
z$Mcu^0K;+gJ}3m(G^QqH3pScc-5`~u3a;D*HRR^DZ0tdN`Zq!V4uI_~;Z;$l8>dUW
z(pQh9r2n<5MtZb#L|cD-H8aKSDjjR03z(>ORf;
zClfdjG&HXFGPX)f<}iN#w^m^`V)wfKM4eHT{U}|O6@lo58K4%UFq*8fD(;X>3`=!^
zX(O34VaS04%2~nQ!PvzvyML)0rj(S3O$EvS##?Z1s~5(s)V82JFC%o^F5fEqy|0~{
z!vP5ygZ9KqI-;0t;b@4jsajrZU40`V)R|^nXon;9H{9n
z6$TVT20)=-XN{F;7mcR@59LY-8z%gCbQ!7e#!#5!O)X^e1b1&zyur97_^HbJ
zYJ4+{ciXIud4Hx1ci7uzx}6MpP^vpKC4BnLrNw)KeB_E{A|B!K*ASOPmj7-7NvHX#
zoLit^Yt;i^&mmn4%$U}j?k7mYE~zBfGInS3v%|ziBw&v|V!$ov
z%`$#U1D$D%k|`v|>Y7e8E@yddTa#5w{u`JFN^jf}ha=@X`*RduPW|TSN{$kVTU`L<
zaGY77Ctwm&vc_u{lT>1K=vKt!Pn~?qEzY1#qXhvEj!9H@G!YAk!!8pEf6YVaQfd~M+m`_gh;QDD}$Xrzwa?A!!mk|8k
zu#4pnlp9=z1+FmM%*^~4(CSYA_jm3?4Y+ez%^S~Oky7p0TnD3V$jdvj;g9G*P7`Fw
zA)wCAnbUBnN2*dJO|?h=jHa>PWAVkt`>kwjAul|kWORJWF?b$r-Cdu!vbYJF?ZUge
z4$im%Fa48TrOS@`cM@<$ev43nFz%S1*skRn-kV(Ew9}Xq4yrQA5&^cZs;dz7g^Gc=
zY(LwnwYc#U_~MDA`YY92Sl>;CI6aMqGeG*0zqkWMhJ*HZDz6J+nHtZI=yI&P$!;nS
z=6Bypqo1#gTQZOSolU@#-^tvYbJLdYke24+_nJ-Fdl&~W
zGs;jTy=_Fq@{Fj2tsPXV*8VsRlanq1)1%F;V;p^>