#ifndef _EXECUTE

#define _EXECUTE

#ifdef INFORMATION

Copyright (C)2011-2021 by Bruce Wilcox

Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal

in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

#include "common.h"

#define MAX_DISPLAY 2500

#define LCLVARDATA_PREFIX '`'

#define FAILCODES ( FAILTOPRULE_BIT | RESTART_BIT | FAILINPUT_BIT | FAILTOPIC_BIT | FAILLOOP_BIT | FAILRULE_BIT | FAILSENTENCE_BIT | RETRYSENTENCE_BIT | RETRYTOPIC_BIT | UNDEFINED_FUNCTION | RETRYINPUT_BIT )

#define SUCCESSCODES ( ENDTOPRULE_BIT | ENDINPUT_BIT | ENDSENTENCE_BIT | NEXTLOOP_BIT | ENDTOPIC_BIT | ENDRULE_BIT | ENDCALL_BIT | ENDLOOP_BIT)

#define ENDCODES ( FAILCODES | SUCCESSCODES )

#define RESULTBEYONDTOPIC ( RESTART_BIT | FAILSENTENCE_BIT | ENDSENTENCE_BIT | RETRYSENTENCE_BIT | ENDINPUT_BIT | FAILINPUT_BIT | RETRYINPUT_BIT )

#define RETRYCODES (RETRYRULE_BIT | RETRYTOPRULE_BIT | RETRYTOPIC_BIT | RETRYSENTENCE_BIT | RETRYINPUT_BIT)

typedef FunctionResult (*EXECUTEPTR)(char* buffer);

#define SAMELINE 2

typedef struct SystemFunctionInfo

} SystemFunctionInfo;

#define VARIABLE_ARG_COUNT -1 // evaled

#define STREAM_ARG -2

#define UNEVALED -3 // split but not evaled

#define NOEVAL_ARG1 0x00000100

#define NOEVAL_ARG2 0x00000200

#define NOEVAL_ARG3 0x00000400

#define NOEVAL_ARG4 0x00000800

#define NOEVAL_ARG5 0x00001000

enum TestMode {

};

extern TestMode wasCommand;

extern char* traceTestPatternBuffer;

extern int tracepatterndata;

extern bool directAnalyze;

extern HEAPREF patternwordthread;

extern HEAPREF memoryMarkThreadList;

extern HEAPREF memoryVariableThreadList;

extern HEAPREF memoryVariableChangesThreadList;

#define MAX_ARG_LIST 200

#define MAX_CALL_DEPTH 400

extern char* codeStart;

extern char* rawtestpatterninput;

extern char testpatternlabel[100];

extern bool softRestart;

extern APICall csapicall;

extern char* style;

extern int rulesExecuted;

extern char* traceTestPattern;

extern bool testpatternblocksave;

extern char* realCode;

extern int do_nl_save;

extern unsigned int callIndex;

extern WORDP callStack[MAX_CALL_DEPTH];

extern int callArgumentBases[MAX_CALL_DEPTH]; // arguments to functions

extern unsigned int callArgumentIndex;

extern int maxGlobalSeen;

extern long http_response;

extern char lastcurltime[100];

extern char* currentFunctionName;

extern HEAPREF savedSentencesThreadList;

extern HEAPREF savedSentencesBinaryList;

extern char* testpatterninput;

extern int testPatternIndex;

#define MAX_ARG_LIMIT 31 // max args to a call -- limit using 2 bit (COMPILE/KEEP_QUOTES) per arg for table mapping behavior

extern unsigned int currentIterator;

extern char* fnOutput;

extern bool allowBootKill;

extern char* lastInputSubstitution;

extern int globalDepth;

#ifndef DISCARDWEBSOCKET

void WebSocketClient(char* url,char* startmessage);

FunctionResult WebsocketCloseCode(char* buffer);

#ifdef WIN32

FunctionResult InitWinsock();

FunctionResult RunJavaScript(char* definition, char* buffer,unsigned int args);

void DeletePermanentJavaScript();

void DeleteTransientJavaScript();

HEAPREF MakeFunctionDefinition(char* data);

unsigned int MACRO_ARGUMENT_COUNT(unsigned char* defn);

void DebugConcepts(HEAPREF list, int wordindex);

FunctionResult FindRuleCode1(char* buffer, char* word);

int GetFnArgCount(char* func,int& flags);

bool NeedNL(MEANING patterns);

char* InitDisplay(char* list);

void RestoreDisplay(char** base, char* list);

extern SystemFunctionInfo systemFunctionSet[];

extern bool planning;

extern bool nobacktrack;

CALLFRAME* GetCallFrame(int depth);

FunctionResult MemoryMarkCode(char* buffer);

char* GetArgOfMacro(int i, char* buffer, int limit);

FunctionResult MemoryFreeCode(char* buffer);

unsigned char* FindAppropriateDefinition(WORDP D, FunctionResult& result,bool finddefn = false);

void ResetReuseSafety();

unsigned char* GetDefinition(WORDP D);

void InitFunctionSystem();

char* DoFunction(char* name, char* ptr, char* buffer,FunctionResult &result);

void DumpFunctions();

unsigned int Callback(WORDP D,char* arguments,bool boot,bool mainoutput = false);

void ResetFunctionSystem();

void SaveMark(char* buffer,unsigned int iterator);

FunctionResult RegularReuse(int topic, int id, char* rule,char* buffer,char* arg3,bool crosstopic);

void UpdateTrace(char* value);

FunctionResult InternalCall(char* name, EXECUTEPTR fn, char* arg1, char* arg2, char* arg3, char* buffer);

FunctionResult KeywordTopicsCode(char* buffer);

void SetBaseMemory();

FACT* AddToList(FACT* newlist,FACT* oldfact,GetNextFact getnext,SetNextFact setnext);

FACT* DeleteFromList(FACT* oldlist,FACT* oldfact,GetNextFact getnext,SetNextFact setnext);

FunctionResult ReviseFactCode(char* buffer);

FunctionResult ReviseFact1Code(char* buffer, bool arrayallowed = false);

FunctionResult LengthCode(char* buffer);

char* ResultCode(FunctionResult result);

FunctionResult FLR(char* buffer,char* which);

void ResetUser(char* input);

bool RuleTest(char* rule);

extern int debugValue;

FunctionResult DebugCode(char* buffer);

FunctionResult IdentifyCode(char* buffer);

FunctionResult MatchCode(char* buffer);