nanomud-script.c File Reference

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <time.h>
#include <windows.h>
#include <winsock.h>
#include <richedit.h>
#include "NanoMud.h"
#include <assert.h>
#include "nanomud-script.h"

Include dependency graph for nanomud-script.c:

Go to the source code of this file.

Enumerations
enum	{ SC_NORM, SC_VAR, SC_FUN, SC_NONE }
Functions
BOOL	check_alias (char *input)
void	check_macro (char *input)
BOOL	check_path (char *input)
void	check_string (char *pattern, char *str)
void	check_trigger (char *input)
void	free_alias (void)
void	free_class (void)
void	free_macro (void)
void	free_path (void)
void	free_trigger (void)
void	handle_aliases (char *input)
void	handle_capture (char *input)
void	handle_class (char *input)
void	handle_help (char *input)
void	handle_input (char *in)
void	handle_log (char *input)
void	handle_macros (char *input)
void	handle_open (char *input)
void	handle_option (char *input)
void	handle_path (char *input)
void	handle_save (char *input)
void	handle_script (char *input)
void	handle_scripts (char *input, char *output)
void	handle_set_options (char *input)
void	handle_triggers (char *input)
void	handle_url (char *input)
void	handle_var (char *input)
void	init_scripts (void)
int	is_function (char *str)
BOOL	is_operator (char *point)
void	load_scripts (void)
void	make_token (char *str)
char *	makelower (char *str)
char *	makeupper (char *str)
AL *	new_alias (void)
CL *	new_class (void)
MC *	new_macro (void)
PA *	new_path (void)
TR *	new_trigger (void)
VR *	new_var (void)
void	parse_script (const unsigned char *script)
void	save_aliases (FILE *fp)
void	save_macros (FILE *fp)
void	save_paths (FILE *fp)
void	save_scripts (void)
void	save_triggers (FILE *fp)
void	save_vars (FILE *fp)
void	sort_list (int count, struct script_table_command tab[])
void	write_func_interp (void)
void	write_shit_good (void)
Variables
AL *	aliaslist
CL *	classlist
cstack **	cmd_stack
AL *	freealias
CL *	freeclass
MC *	freemacro
PA *	freepath
TR *	freetrigger
VR *	freevar
func_type	func_table []
MC *	macrolist
PA *	pathlist
script_table_command	stable []
enum { ... }	state
char	str_emp [1]
TR *	triggerlist
VR *	varlist

---

Enumeration Type Documentation

anonymous enum

Enumeration values: SC_NORM  SC_VAR  SC_FUN  SC_NONE  Definition at line 58 of file nanomud-script.c. { SC_NORM, SC_VAR, SC_FUN, SC_NONE } state;

---

Function Documentation

BOOL check_alias (  char *  input  )

Definition at line 982 of file nanomud-script.c. References AL, BOOL, alias::name, alias::next, and one_argument(). Referenced by handle_input(). { AL *alias; char command[500]; char buf[500]; input = one_argument(input, command); alias = aliaslist; if (alias == NULL) return FALSE; for (alias = aliaslist; alias != NULL; alias = alias->next) { if (!strcmp(command, alias->name)) { // MessageBox(MudMain, alias->script,"",MB_OK); //handle_input (alias->script); return TRUE; continue; } } return FALSE; }

Here is the call graph for this function:

void check_macro (  char *  input  )

Definition at line 1052 of file nanomud-script.c. { return; }

BOOL check_path (  char *  input  )

Definition at line 1031 of file nanomud-script.c. References BOOL, path::name, path::next, one_argument(), and PA. Referenced by handle_input(). { PA *path; char command[500]; input = one_argument(input, command); path = pathlist; if (path == NULL) return FALSE; for (path=pathlist; path != NULL; path = path->next) { if (!strcmp(command, path->name)) { return TRUE; continue; } } return FALSE; }

Here is the call graph for this function:

void check_string (  char *  pattern, char *  str )

Definition at line 1423 of file nanomud-script.c. References FALSE, fnmatch(), and GiveError(). { // LOG("Analyzing string: %s with pattern of: %s", str, pattern); if (fnmatch(pattern, str, 0) == 0) GiveError("Match", FALSE); }

Here is the call graph for this function:

void check_trigger (  char *  input  )

Definition at line 1011 of file nanomud-script.c. References trigger::name, trigger::next, and TR. { TR *trigger; char *point; trigger = triggerlist; if (trigger == NULL) return; for (; trigger != NULL; trigger = trigger->next) { point = strstr(input, trigger->name); if (point != NULL) { //parse_trigger(trigger); // parse will do all the real work! } } return; }

void free_alias (  void   )

Definition at line 697 of file nanomud-script.c. { return; }

void free_class (  void   )

Definition at line 682 of file nanomud-script.c. { return; }

void free_macro (  void   )

Definition at line 702 of file nanomud-script.c. { return; }

void free_path (  void   )

Definition at line 687 of file nanomud-script.c. { return; }

void free_trigger (  void   )

Definition at line 692 of file nanomud-script.c. { return; }

void handle_aliases (  char *  input  )

Definition at line 817 of file nanomud-script.c. References AL, aliaslist, CL, alias::cl, classlist, alias::enabled, FALSE, GiveError(), classes::name, alias::name, new_alias(), alias::next, alias::priority, alias::script, script_strip(), str_dup(), string_compare(), and TRUE. Referenced by handle_input(). { AL *alias; alias = new_alias(); if (alias == NULL) GiveError("Alias Failed to initialize", TRUE); char name[200]; char value[200]; char priority[4]; char cls[100]; CL *cls2; int pri; input = script_strip(input, name); input = script_strip(input, value); input = script_strip(input, priority); input = script_strip(input, cls); if (name[0] == '\0') { GiveError("Improper Alias format of type: name", FALSE); return; } if (value[0] == '\0') { GiveError("Improper Alias format of type: value", FALSE); return; } if (atoi (priority) > 1000) pri = 1000; else if (atoi (priority) < 0) pri = 0; else pri = atoi(priority); for (cls2 = classlist; cls2 != NULL; cls2++) { if (string_compare(cls, cls2->name)) break; } alias->name = str_dup(name); alias->enabled = TRUE; alias->priority = pri; alias->script = str_dup(value); alias->next = aliaslist; alias->cl = (cls2 == NULL ? classlist : cls2); aliaslist = alias; return; }

Here is the call graph for this function:

void handle_capture (  char *  input  )

Definition at line 958 of file nanomud-script.c. Referenced by handle_input(). { return; }

void handle_class (  char *  input  )

Definition at line 710 of file nanomud-script.c. References CL, classlist, classes::enabled, GiveError(), classes::name, new_class(), classes::next, classes::priority, script_strip(), str_dup(), and TRUE. Referenced by handle_input(). { if (classlist == NULL) { // this should only run once! classlist = new_class(); classlist->enabled = TRUE; classlist->name = str_dup("main_class"); classlist->priority = 0; classlist->next = NULL; } CL *newClass; newClass = new_class(); if (newClass == NULL) GiveError("Null class encountered... that's not good m'kay?", TRUE); char thisName[100]; char thisPriority[4]; int pri; input = script_strip(input, thisName); input = script_strip(input, thisPriority); if (thisName[0] == '\0') { // this means it's a default class! newClass = classlist; return; } else { if (atoi (thisPriority) > 1000) pri = 1000; else if (atoi (thisPriority) < 0) pri = 0; else pri = atoi(thisPriority); newClass->name = str_dup(thisName); newClass->enabled = TRUE; newClass->priority = pri; newClass->next = classlist->next; classlist->next = newClass; } return; }

Here is the call graph for this function:

void handle_help (  char *  input  )

Definition at line 954 of file nanomud-script.c. { return; }

void handle_input (  char *  in  )

Definition at line 1206 of file nanomud-script.c. References AL, ANSI_YELLOW, termbuf::buffer, check_alias(), check_output(), check_path(), echo_off, handle_aliases(), handle_capture(), handle_class(), handle_log(), handle_macros(), handle_open(), handle_option(), handle_path(), handle_save(), handle_set_options(), handle_triggers(), handle_url(), handle_var(), MudInput, alias::name, path::name, alias::next, path::next, one_argument(), PA, ParseLines(), SBuf, alias::script, path::script, send_buff, str_dup(), strprefix(), and tbuf. Referenced by EditProc(), load_scripts(), and load_settings(). { unsigned long int runner=0; typedef struct termbuf SBuf; unsigned long int ilen=strlen(in); if (ilen < 10) ilen = 10; char command[ilen]; int err; char buff2[ilen+20]; char buffer[ilen+20]; char buff3[ilen+20]; char buff4[ilen+20]; command[0] = '\0'; buff2[0] = '\0'; buff3[0] = '\0'; buff4[0] = '\0'; buffer[0] = '\0'; strcpy(buffer,in); extern SBuf *send_buff[100]; in = one_argument(in,command); bool found; AL *alias; PA *path; char *point = buffer; char *pbuf; pbuf = buff3; if (strprefix("#",&command[0])) { if ((strchr(buffer, ';') != NULL) && (strlen(strstr(buffer, ";")) != strlen(buffer))) { for (;*point;point++) { if (*point == ';') { buff3[0] = '\0'; handle_input(buff4); buff4[0] = '\0'; continue; } *pbuf = *point; strcat(buff4,pbuf); } if (buff4[0] != '\0') { buff3[0] = '\0'; handle_input(buff4); buff4[0] = '\0'; return; } return; } else if (buffer[0] == ';' && (strstr(&buffer[1], ";") != NULL)) { // Let's send the first command on off to the thingie for (runner=0;*point;point++,runner++) { if (*point == ';' && runner != 0) break; *pbuf = *point; strcat(buff4,pbuf); } strcat(buff2, buff4); strcat(buff2, "\n"); for (runner=0;runner<=100, send_buff[runner] != NULL;runner++) { if (send_buff[runner]->buffer == '\0') { send_buff[runner]->buffer = str_dup(buff2); check_output(); break; } } buff2[0] = '\0'; strcat(buff2, ANSI_YELLOW); strcat(buff2, buff4); strcat(buff2, "\e[0m"); strcat(buff2, "\n"); ParseLines(str_dup(buff2)); tbuf->y_end += 13; tbuf->x_end =0; pbuf[0] = '\0'; buff4[0] = '\0'; buff2[0] = '\0'; buff3[0] = '\0'; *point++; for (;*point;*point++) { *pbuf = *point; strcat(buff4, pbuf); } handle_input(buff4); return; } if (check_alias(command) == TRUE) { for (alias = aliaslist; alias!= NULL;alias = alias->next) { if (!strcmp(command, alias->name)) { strcat(buff3, alias->script); strcat(buff3, " "); strcat(buff3, in); memcpy(buffer, buff3, sizeof(buff3)); handle_input(buffer); return; } } } if (!strprefix(".", &command[0])) { if (check_path(&command[1]) == TRUE) { for (path = pathlist; path != NULL; path = path->next) { if (!strcmp(&command[1], path->name)) { strcat(buff3, path->script); strcat(buff3, " "); strcat(buff3, in); memcpy(buffer, buff3, sizeof(buff3)); handle_input(buffer); return; } } } } if (!echo_off && buffer[0] != '\0') { strcat(buff2, ANSI_YELLOW); strcat(buff2, buffer); strcat(buff2, "\e[0m "); strcat(buff2, "\n"); ParseLines(str_dup(buff2)); } if (strlen(buff2) == 0) strcat(buff2, "\n"); strcat(buffer, "\n"); for (runner=0;runner<=100, send_buff[runner] != NULL;runner++) { if (send_buff[runner]->buffer == '\0') { send_buff[runner]->buffer = str_dup(buffer); check_output(); break; } } tbuf->y_end +=13; tbuf->x_end = 0; buffer[0] = '\0'; return; } if (!strprefix(command, "#trigger")) handle_triggers(in); else if (!strprefix(command, "#alias")) handle_aliases(in); else if (!strprefix(command, "#macro")) handle_macros(in); else if (!strprefix(command, "#path")) handle_path(in); else if (!strprefix(command, "#url")) handle_url(in); else if (!strprefix(command, "#class")) handle_class(in); else if (!strprefix(command, "#open")) handle_open(in); else if (!strprefix(command, "#log")) handle_log(in); else if (!strprefix(command, "#capture")) handle_capture(in); else if (!strprefix(command, "#option")) handle_option(in); else if (!strprefix(command, "#save")) handle_save(in); else if (!strprefix(command, "#var")) handle_var(in); else if (!strprefix(command, "#setoption")) handle_set_options(in); SendMessage(MudInput, WM_SETTEXT, 0, (LPARAM)(LPCSTR)""); return; }

Here is the call graph for this function:

void handle_log (  char *  input  )

Definition at line 950 of file nanomud-script.c. Referenced by handle_input(). { return; }

void handle_macros (  char *  input  )

Definition at line 868 of file nanomud-script.c. Referenced by handle_input(). { return; }

void handle_open (  char *  input  )

Definition at line 946 of file nanomud-script.c. Referenced by handle_input(). { return; }

void handle_option (  char *  input  )

Definition at line 966 of file nanomud-script.c. Referenced by handle_input(). { return; }

void handle_path (  char *  input  )

Definition at line 896 of file nanomud-script.c. References CL, path::cl, classlist, path::enabled, FALSE, GiveError(), classes::name, path::name, new_path(), path::next, PA, pathlist, path::priority, path::script, script_strip(), str_dup(), string_compare(), and TRUE. Referenced by handle_input(). { PA *path; path = new_path(); if (path == NULL) GiveError("Path failed to initialize", TRUE); char name[200]; char whereto[200]; char priority[4]; char cls[100]; CL *cls2; int pri; input = script_strip(input, name); input = script_strip(input, whereto); input = script_strip(input, priority); input = script_strip(input, cls); if (name[0] == '\0') { GiveError("Improper Path format of type: name", FALSE); return; } if (atoi (priority) > 1000) pri = 1000; else if (atoi (priority) < 0) pri = 0; else pri = atoi(priority); for (cls2 = classlist; cls2 != NULL; cls2++) { if (string_compare(cls, cls2->name)) break; } path->name = str_dup(name); path->enabled = TRUE; path->priority = pri; path->script = str_dup(whereto); path->next = pathlist; path->cl = (cls2 == NULL ? classlist : cls2); pathlist = path; return; }

Here is the call graph for this function:

void handle_save (  char *  input  )

Definition at line 970 of file nanomud-script.c. Referenced by handle_input(). { return; }

void handle_script (  char *  input  )

Definition at line 962 of file nanomud-script.c. { return; }

void handle_scripts (  char *  input, char *  output )

Definition at line 976 of file nanomud-script.c. { return; }

void handle_set_options (  char *  input  )

Definition at line 1057 of file nanomud-script.c. References session_data::colour, session_data::EnableAliases, session_data::EnableBlinkies, session_data::EnableClientChat, session_data::EnableMacros, session_data::EnablePaths, session_data::EnablePing, session_data::EnableScripts, session_data::EnableSound, session_data::EnableSplashScreen, session_data::EnableTestLogging, session_data::EnableTN, session_data::EnableTriggers, session_data::EnableUsageReports, give_term_error(), session_data::host, session_data::IsBetaTester, session_data::max_buffer, session_data::name, session_data::OptimizeDualScreen, session_data::port, str_dup(), strprefix(), this_session, and session_data::UseMemoryCompression. Referenced by handle_input(). { input[strlen(input)-1] = '\0'; if (!strprefix("name", input)) { this_session->name = str_dup(&input[5]); } else if (!strprefix("host", input)) { this_session->host = str_dup(&input[5]); } else if (!strprefix("port", input)) { this_session->port = atoi(&input[5]); } else if (!strprefix("colour", input)) { if (input[7] == '1') this_session->colour = TRUE; else this_session->colour = FALSE; } else if (!strprefix("max_buffer", input)) this_session->max_buffer = atoi(&input[11]); else if (!strprefix("UseMemoryCompression", input)) { if (input[strlen("UseMemoryCompression")+1] == '1') this_session->UseMemoryCompression = TRUE; else this_session->UseMemoryCompression = FALSE; } else if (!strprefix("IsBetaTester", input)) { if (input[strlen("IsBetaTester")+1] == '1') this_session->IsBetaTester = TRUE; else this_session->IsBetaTester = FALSE; } else if (!strprefix("EnableTestLogging", input)) { if (input[strlen("EnableTestLogging")+1] == '1') this_session->EnableTestLogging = TRUE; else this_session->EnableTestLogging = FALSE; } else if (!strprefix("OptimizeDualScreen", input)) { if (input[strlen("OptimizeDualScreen")+1] == '1') this_session->OptimizeDualScreen = TRUE; else this_session->OptimizeDualScreen = FALSE; } else if (!strprefix("EnableScripts", input)) { if (input[strlen("EnableScripts")+1] == '1') this_session->EnableScripts = TRUE; else this_session->EnableScripts = FALSE; } else if (!strprefix("EnableAliases", input)) { if (input[strlen("EnableAliases")+1] == '1') this_session->EnableAliases = TRUE; else this_session->EnableAliases = FALSE; } else if (!strprefix("EnableTriggers", input)) { if (input[strlen("EnableTriggers")+1] == '1') this_session->EnableTriggers = TRUE; else this_session->EnableTriggers = FALSE; } else if (!strprefix("EnablePaths", input)) { if (input[strlen("EnablePaths")+1] == '1') this_session->EnablePaths = TRUE; else this_session->EnablePaths = FALSE; } else if (!strprefix("EnableMacros", input)) { if (input[strlen("EnableMacros")+1] == '1') this_session->EnableMacros = TRUE; else this_session->EnableMacros = FALSE; } else if (!strprefix("EnableSplashScreen", input)) { if (input[strlen("EnableSplashScreen")+1] == '1') this_session->EnableSplashScreen = TRUE; else this_session->EnableSplashScreen = FALSE; } else if (!strprefix("EnableClientChat", input)) { if (input[strlen("EnableClientChat")+1] == '1') this_session->EnableClientChat = TRUE; else this_session->EnableClientChat = FALSE; } else if (!strprefix("EnablePing", input)) { if (input[strlen("EnablePing")+1] == '1') this_session->EnablePing = TRUE; else this_session->EnablePing = FALSE; } else if (!strprefix("EnableUsageReports", input)) { if (input[strlen("EnableUsageReports")+1] == '1') this_session->EnableUsageReports = TRUE; else this_session->EnableUsageReports = FALSE; } else if (!strprefix("EnableBlinkies", input)) { if (input[strlen("EnableBlinkies")+1] == '1') this_session->EnableBlinkies = TRUE; else this_session->EnableBlinkies = FALSE; } else if (!strprefix("EnableSound", input)) { if (input[strlen("EnableSound")+1] == '1') this_session->EnableSound = TRUE; else this_session->EnableSound = FALSE; } else if (!strprefix("EnableTN", input)) { if (input[strlen("EnableTN")+1] == '1') this_session->EnableTN = TRUE; else this_session->EnableTN = FALSE; } else give_term_error("Unrecognized option. Please try again."); }

Here is the call graph for this function:

void handle_triggers (  char *  input  )

Definition at line 761 of file nanomud-script.c. References CL, trigger::cl, classlist, trigger::enabled, FALSE, GiveError(), classes::name, trigger::name, new_trigger(), trigger::next, trigger::priority, trigger::script, script_strip(), str_dup(), string_compare(), TR, triggerlist, and TRUE. Referenced by handle_input(). { TR *trigger; trigger = new_trigger(); if (trigger == NULL) GiveError("Trigger reported NULL!", TRUE); char thisName[1000]; char thisScript[10000]; char thisPriority[4]; char cls[100]; CL *cls2; int pri; input = script_strip(input, thisName); input = script_strip(input, thisScript); input = script_strip(input, thisPriority); input = script_strip(input, cls); if (thisName[0] == '\0') { GiveError("Improper Trigger format of type: Name", FALSE); return; } if (atoi (thisPriority) > 1000) pri = 1000; else if (atoi (thisPriority) < 0) pri = 0; else pri = atoi(thisPriority); for (cls2 = classlist; cls2 != NULL; cls2++) { if (string_compare(cls, cls2->name)) break; } trigger->name = str_dup(thisName); trigger->script = str_dup(thisScript); trigger->enabled = TRUE; trigger->priority = pri; trigger->next = triggerlist; // NOTE we should add a GLOBAL class that is the default // WHEN we do, this NEEDS to be updated. - Alex // done and done, classlist points to the uberclass item // only problem is if it never ran the handle_class function.... crap // mike, you wanna some up with a better solution? // well I guess it will still work, since the classlist pointer is changed // in that code, but until it does run a handle_class funtion, this will // point to NULL, or worse -Alex trigger->cl = (cls2 == NULL ? classlist : cls2); triggerlist = trigger; return; }

Here is the call graph for this function:

void handle_url (  char *  input  )

Definition at line 942 of file nanomud-script.c. Referenced by handle_input(). { return; }

void handle_var (  char *  input  )

Definition at line 872 of file nanomud-script.c. References GiveError(), vars::name, new_var(), vars::next, vars::script, script_strip(), str_dup(), TRUE, varlist, and VR. Referenced by handle_input(). { VR *pvar; pvar = new_var(); if (pvar == NULL) GiveError("Variable failed to initialize.", TRUE); char name[200]; char value[2048]; char cls[100]; input = script_strip(input, name); input = script_strip(input, value); pvar->next = varlist; pvar->name = str_dup(name); pvar->script = str_dup(value); varlist = pvar; }

Here is the call graph for this function:

void init_scripts (  void   )

Definition at line 82 of file nanomud-script.c. References cmd_stack, cstack, malloc, new_trigger(), parse_script(), trigger::script, str_dup(), and TR. Referenced by WinMain(). { cmd_stack = (cstack **)malloc(500 * sizeof(*cmd_stack)); TR *tri = new_trigger(); tri->script = str_dup("%if( %eval( %eval( %secs - %1)/1000/60/60\60), \"+hour\", %if( %eval( %eval( %secs - %1)/1000/60\60) < 10, 0)%eval( %eval( %secs - %1)/1000/60\60):%if( %eval( %eval( %secs - %1)/1000\60) < 10, 0)%eval( %eval( %secs - %1)/1000\60))"); parse_script(tri->script); }

Here is the call graph for this function:

int is_function (  char *  str  )

Definition at line 1460 of file nanomud-script.c. References makeupper(), script_table_command::name, stable, and script_table_command::token. Referenced by parse_script(). { int i=0; for (i=0;stable[i].name != NULL;i++) if (!strcmp(makeupper(stable[i].name), makeupper(str))) return stable[i].token; return -1; }

Here is the call graph for this function:

BOOL is_operator (  char *  point  )

Definition at line 1431 of file nanomud-script.c. References BOOL. Referenced by check_url(), and count_op(). { if (!point) return FALSE; if (point[0] == '{' || point[0] == '}' || point[0] == '+' || point[0] == '-' || point[0] == '=' || point[0] == '*' || point[0] == '/' || point[0] == '#' || point[0] == '%' || point[0] == '@' || point[0] == '(' || point[0] == ')' || point[0] == '\\'|| point[0] == '|' || point[0] == '^' || point[0] == '$' || point[0] == '!' || point[0] == '<' || point[0] == '>' || point[0] == '?' || point[0] == ':' || point[0] == '\'' || point[0] == ';' || point[0] == ',' || point[0] == '~' || point[0] == '`' || point[0] == '\"'|| point[0] == '[' || point[0] == ']') { return TRUE; } return FALSE; }

void load_scripts (  void   )

Definition at line 1757 of file nanomud-script.c. References give_term_debug(), give_term_echo(), handle_input(), and read_string(). Referenced by WinMain(). { FILE *fp; int ret; char temp[5000]; char buf[6000]; if ((fp = fopen(