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_grammar (unsigned long int *token)
void	check_macro (char *input)
BOOL	check_path (char *input)
void	check_string (char *pattern, char *str)
void	check_trigger (char *input)
void	compile_script (char *scr)
void	do_math_internal (char *str)
BOOL	eval_expression (char *exp)
void	free_alias (void)
void	free_class (void)
void	free_macro (void)
void	free_path (void)
void	free_scripts (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_math (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	strip_paren (char *str)
void	strip_space (char *str)
unsigned long int	tokenize (char *str)
int	unlink (const char *filename)
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 944 of file nanomud-script.c. References AL, BOOL, alias::name, alias::next, and one_argument(). Referenced by handle_input(). { AL *alias; char command[32000]; 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; } } return FALSE; }

Here is the call graph for this function:

void check_grammar (  unsigned long int *  token  )

Definition at line 1726 of file nanomud-script.c. References LOG(), TOK_CLOSEB, TOK_CLOSEP, TOK_CONST, TOK_OPENB, TOK_OPENP, TOK_OPER, and TOK_STRING. { int paren=0; //Parenthesis number. int brack=0; //Bracket ( {} ) number. unsigned long int runner=0; //iterater. unsigned long int tok; for (runner=0;token[runner]!= TOK_END;runner++) { tok = token[runner]; switch (tok) { case TOK_OPENP: paren++; continue; break; case TOK_CLOSEP: paren--; continue; break; case TOK_STRING: case TOK_CONST: continue; break; case TOK_OPENB: brack++; continue; break; case TOK_CLOSEB: brack--; continue; break; case TOK_OPER: continue; break; } } if (paren > 0) { LOG("Unmatching parenthesis."); } if (paren < 0) { LOG("Unmatching parenthesis: Too many closing parenthesis."); } if (brack <0) { LOG("Unmatching brackets: Too many closing brackets."); } if (brack >0) { LOG("Unmatching brackets: Too many opening brackets."); } return; }

Here is the call graph for this function:

void check_macro (  char *  input  )

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

BOOL check_path (  char *  input  )

Definition at line 992 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 1406 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 972 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 compile_script (  char *  scr  )

Definition at line 1793 of file nanomud-script.c. References BOOL, eval_expression(), free, is_function_internal(), is_operator(), LOG(), makeupper(), malloc, and strip_space(). Referenced by init_scripts(). { unsigned long int *token; // README: Free this damn thing when we're done. unsigned long int i; // Interator. char *point; char *exp; char buf[2555]=""; char buf2[2555]=""; char *buffer; char exp_buf[21024]; //expression buffer -- used to validate expressions buffer = buf2; BOOL endl=FALSE; // used to various boolean stuff within parse. int paren; if (scr == NULL || scr[0] == '\0') return; token = (unsigned long int*)malloc(strlen(scr)*3000); // give it lots fo space. memset(token, 0, sizeof(token)); point = scr; exp = scr; i=0; for (;;point++,exp++) { if (!*point) { token[i] = TOK_END; i++; break; } if (*point == ' ') continue; if ((*point >= 'a' && *point <= 'z') || (*point >= 'A' && *point <= 'Z')) //a-zA-Z { buf[0] = '\0'; for (;*point;point++) { *buffer = *point; if (is_operator(buffer) || *point == ' ') { *--point; break; } buffer[1] = '\0'; strcat(buf, buffer); } if (is_function_internal(buf)) { token[i] = TOK_FUNCTION; if (!strcmp(makeupper(buf), "IF")) { *++exp; *++exp; paren = 0; exp_buf[0] = '\0'; for (;*exp;exp++) { if (*exp == '(') paren++; if (*exp == ')') paren--; *buffer = *exp; buffer[1] = '\0'; strcat(exp_buf, buffer); if (paren == 0) { exp_buf[0] = ' '; exp_buf[strlen(exp_buf)-1] = ' '; strip_space(exp_buf); eval_expression(exp_buf); free(token); return; } } LOG("Paren: %d", paren); } i++; buf[0] = '\0'; } else { token[i] = TOK_UNKNOWN; i++; buf[0] = '\0'; } continue; } if (*point >= '0' && *point <= '9') { token[i] = TOK_CONST; i++; for (;*point >= '0' && *point <= '9';point++); *--point; continue; } if (*point == '\"') { *point++; for (;*point;point++) { endl = TRUE; if (*point == '\"') { token[i] = TOK_STRING; i++; endl= FALSE; break; } } if (endl == TRUE) { token[i] = TOK_ERROR; i++; token[i] = TOK_END; i++; endl = FALSE; } continue; } if (*point == '(') { token[i] = TOK_OPENP; i++; continue; } if (*point == ')') { token[i] = TOK_CLOSEP; i++; continue; } if (*point == '}') { token[i] = TOK_CLOSEB; i++; continue; } if (*point == '{') { token[i] = TOK_OPENB; i++; continue; } *buffer = *point; buffer[1] = '\0'; buf[0] = '\0'; strcat(buf,buffer); if (is_operator(buf)) { token[i] = TOK_OPER; i++; continue; } } i=0; /* LOG("%s\n\n", scr); for (;;) { if (token[i] == TOK_END) { LOG("Token END"); break; } switch (token[i]) { case TOK_FUNCTION: LOG("TOK_FUNCTION"); break; case TOK_CONST: LOG("TOK_CONST"); break; case TOK_OPER: LOG("TOK_OPER"); break; case TOK_STRING: LOG("TOK_STRING"); break; case TOK_OPENP: LOG("TOK_OPENP"); break; case TOK_CLOSEP: LOG("TOK_CLOSEP"); break; case TOK_UNKNOWN: LOG("TOK_UNKNOWN"); break; case TOK_INVALID: LOG("TOK_INVALID"); break; case TOK_ERROR: LOG("TOK_ERROR"); break; case TOK_END: LOG("TOK_END"); break; case TOK_OPENB: LOG("TOK_OPENB"); break; case TOK_CLOSEB: LOG("TOK_CLOSEB"); break; } i++; } check_grammar(token); */ //free(token); //exit(0); }

Here is the call graph for this function:

void do_math_internal (  char *  str  )

Definition at line 1548 of file nanomud-script.c. References GiveError(), is_math(), isdigit(), strip_paren(), and strip_space(). Referenced by eval_expression(). { long int total; char arg1[100]; char arg2[100]; char *buffer; char buf[100]; buffer = buf; char *point; point = str; int oper; arg1[0] = arg2[0] = buf[0] = '\0'; enum { MUL, DIV, ADD, SUB, MODULO}; strip_space(str); strip_paren(str); if (!is_math(str)) GiveError("Wow............",1); for (;*point;point++) { if(*point == '+' || *point == '-' || *point == '/' || *point == '*' || *point == '%') break; *buffer = *point; buffer[1] = '\0'; strcat(arg1, buffer); } switch (*point) { case '+': oper = ADD; break; case '-': oper = SUB; break; case '/': oper = DIV; break; case '*': oper = MUL; break; case '%': oper = MODULO; break; default: return; } *++point; for (;*point;point++) { if(*point == '+' || *point == '-' || *point == '/' || *point == '*' || *point == '%') break; *buffer = *point; buffer[1] = '\0'; strcat(arg2, buffer); } switch (oper) { case ADD: if (!isdigit(arg1[0]) || !isdigit(arg2[0])) { sprintf(str,"%s%s", arg1,arg2); return; } total = atoi(arg1) + atoi(arg2); break; case MUL: total = atoi(arg1) * atoi (arg2); break; } str[0] = '\0'; sprintf(str, "%ld", total); }

Here is the call graph for this function:

BOOL eval_expression (  char *  exp  )

Definition at line 1624 of file nanomud-script.c. References BOOL, do_math_internal(), get_mid(), interp_function(), is_function_internal(), is_math(), left_token(), LOG(), and right_token(). Referenced by compile_script(). { int idx,ldx,fdx; BOOL quote=FALSE; char *buffer; char buf[11024]; char stack[11024]; buffer = buf; idx = ldx = 0; char new_string[strlen(exp)*2]; new_string[0] = '\0'; int i,x,y,z; idx =0; char function[11000]; char *ret; static int c=0; int len = strlen(exp); stack[0] = '\0'; char *point=exp; fdx = 0; for (;*point;point++) { if (*point == '(') fdx++; if (*point == ')') fdx--; } while (idx < len) { if (!quote && exp[idx+1] == ')') { ldx = left_token(exp,idx,"("); if (idx == 0) { LOG("Missing open paren"); return 0; } get_mid(exp, stack, ldx-1,idx+2 ); if (is_math(stack)) { do_math_internal(stack); // x = strlen(stack); // memcpy(new_string, exp, ldx); // new_string[ldx] = '\0'; // strcat(new_string, stack); // strcat(new_string, &exp[idx+2]); // memcpy (exp, new_string, strlen(new_string)+1); // len = strlen(exp); } ldx = left_token(exp, ldx-2,"("); memset(function,0,1000); get_mid(exp,function, ldx,right_token(exp, ldx,"(")); if (is_function_internal(function)) { ret = interp_function(function, stack,0,0,0); memcpy(new_string, exp, ldx); new_string[ldx] = '\0'; x = strlen(new_string); memcpy(&new_string[x], ret, strlen(ret)+1); //strcat(new_string, ret); //strcat(new_string, &exp[idx+2]); memcpy(&new_string[x + strlen(ret)], &exp[idx+2], strlen(exp) - (idx)); memcpy (exp, new_string, strlen(new_string)+1); c++; len = strlen(exp); } idx=ldx=0; } idx++; } return FALSE; }

Here is the call graph for this function:

void free_alias (  void   )

Definition at line 652 of file nanomud-script.c. References AL, free, and alias::next. Referenced by free_scripts(). { AL *al; for (al=aliaslist;al;al=al->next) free(al); return; }

void free_class (  void   )

Definition at line 624 of file nanomud-script.c. References CL, free, and classes::next. Referenced by free_scripts(). { CL *cl; for (cl=classlist;cl;cl=cl->next) free(cl); return; }

void free_macro (  void   )

Definition at line 660 of file nanomud-script.c. References free, MC, and macro::next. Referenced by free_scripts(). { MC *mc; for (mc=macrolist;mc;mc=mc->next) free(mc); return; }

void free_path (  void   )

Definition at line 632 of file nanomud-script.c. References free, path::next, and PA. Referenced by free_scripts(). { PA *pa; for (pa=pathlist;pa;pa=pa->next) free(pa); return; }

void free_scripts (  void   )

Definition at line 615 of file nanomud-script.c. References free_alias(), free_class(), free_macro(), free_path(), and free_trigger(). Referenced by WindowProcedure(). { free_class(); free_path(); free_trigger(); free_alias(); free_macro(); }

Here is the call graph for this function:

void free_trigger (  void   )

Definition at line 641 of file nanomud-script.c. References free, trigger::next, and TR. Referenced by free_scripts(). { TR * tr; for (tr = triggerlist;tr;tr=tr->next) free(tr); return; }

void handle_aliases (  char *  input  )

Definition at line 779 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 920 of file nanomud-script.c. Referenced by handle_input(). { return; }

void handle_class (  char *  input  )

Definition at line 672 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 916 of file nanomud-script.c. { return; }

void handle_input (  char *  in  )

Definition at line 1174 of file nanomud-script.c. References AL, ANSI_YELLOW, termbuf::buffer, check_alias(), check_output(), check_path(), do_repeat(), echo_off, give_term_debug(), 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 do_repeat(), 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]; char buff2[10000]; char buffer[10000]; char buff3[10000]; char buff4[10000]; 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); 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 == '\0') break; if (*point == ';') { buff3[0] = '\0'; handle_input(buff4); buff4[0] = '\0'; continue; } *pbuf = *point; pbuf[1] = '\0'; 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; pbuf[1] = '\0'; strcat(buff4,pbuf); } strcat(buff2, buff4); strcat(buff2, "\n"); for (runner=0;runner<=100 || send_buff[runner] != NULL;runner++) { if (send_buff[runner]->buffer == NULL) { 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, strlen(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)) { buff3[0] = '\0'; buffer[0] = '\0'; // strcat(buff3, path->script); // strcat(buff3, " "); // strcat(buff3, in); memcpy(buffer, buff3, strlen(buff3));//sizeof(buff3)); give_term_debug(path->script); handle_input(path->script); return; } } } } if (!echo_off && buffer[0] != '\0') { strcat(buff2, ANSI_YELLOW); strcat(buff2, buffer); strcat(buff2, "\e[0m "); strcat(buff2, "\n"); strcat(buff2,"\0"); 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); else if (!strprefix(command, "#repeat")) do_repeat(in,NULL,NULL,NULL); SendMessage(MudInput, WM_SETTEXT, 0, (LPARAM)(LPCSTR)""); return; }

Here is the call graph for this function:

void handle_log (  char *  input  )

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

void handle_macros (  char *  input  )

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

void handle_open (  char *  input  )

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

void handle_option (  char *  input  )

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

void handle_path (  char *  input  )

Definition at line 858 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 932 of file nanomud-script.c. Referenced by handle_input(). { return; }

void handle_script (  char *  input  )

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

</ void handle_scripts (  char *  input, char *  output