Convert more files to pure Objective-C
FossilOrigin-Name: 46c577957085f072871cb93b46340fd8349c1e20503a448cc8e6d33ddaea1552
This commit is contained in:
parent
b4d52ea3ec
commit
61bf59bbfc
14 changed files with 176 additions and 162 deletions
574
src/commands.m
Normal file
574
src/commands.m
Normal file
|
|
@ -0,0 +1,574 @@
|
|||
// command.cpp: implements the parsing and execution of a tiny script language
|
||||
// which is largely backwards compatible with the quake console language.
|
||||
|
||||
#include "cube.h"
|
||||
|
||||
#import "Alias.h"
|
||||
#import "Command.h"
|
||||
#import "Identifier.h"
|
||||
#import "OFString+Cube.h"
|
||||
#import "Variable.h"
|
||||
|
||||
// contains ALL vars/commands/aliases
|
||||
static OFMutableDictionary<OFString *, __kindof Identifier *> *identifiers;
|
||||
|
||||
static void
|
||||
cleanup(char **string)
|
||||
{
|
||||
free(*string);
|
||||
}
|
||||
|
||||
void
|
||||
alias(OFString *name, OFString *action)
|
||||
{
|
||||
Alias *alias = identifiers[name];
|
||||
|
||||
if (alias == nil) {
|
||||
alias = [Alias aliasWithName:name action:action persisted:true];
|
||||
|
||||
if (identifiers == nil)
|
||||
identifiers = [[OFMutableDictionary alloc] init];
|
||||
|
||||
identifiers[name] = alias;
|
||||
} else {
|
||||
if ([alias isKindOfClass:Alias.class])
|
||||
alias.action = action;
|
||||
else
|
||||
conoutf(
|
||||
@"cannot redefine builtin %@ with an alias", name);
|
||||
}
|
||||
}
|
||||
COMMAND(alias, ARG_2STR)
|
||||
|
||||
int
|
||||
variable(OFString *name, int min, int cur, int max, int *storage,
|
||||
void (*function)(), bool persisted)
|
||||
{
|
||||
Variable *variable = [Variable variableWithName:name
|
||||
min:min
|
||||
max:max
|
||||
storage:storage
|
||||
function:function
|
||||
persisted:persisted];
|
||||
|
||||
if (identifiers == nil)
|
||||
identifiers = [[OFMutableDictionary alloc] init];
|
||||
|
||||
identifiers[name] = variable;
|
||||
|
||||
return cur;
|
||||
}
|
||||
|
||||
void
|
||||
setvar(OFString *name, int i)
|
||||
{
|
||||
*[identifiers[name] storage] = i;
|
||||
}
|
||||
|
||||
int
|
||||
getvar(OFString *name)
|
||||
{
|
||||
return *[identifiers[name] storage];
|
||||
}
|
||||
|
||||
bool
|
||||
identexists(OFString *name)
|
||||
{
|
||||
return (identifiers[name] != nil);
|
||||
}
|
||||
|
||||
OFString *
|
||||
getalias(OFString *name)
|
||||
{
|
||||
Alias *alias = identifiers[name];
|
||||
|
||||
if ([alias isKindOfClass:Alias.class])
|
||||
return alias.action;
|
||||
|
||||
return nil;
|
||||
}
|
||||
|
||||
bool
|
||||
addcommand(OFString *name, void (*function)(), int argumentsTypes)
|
||||
{
|
||||
Command *command = [Command commandWithName:name
|
||||
function:function
|
||||
argumentsTypes:argumentsTypes];
|
||||
|
||||
if (identifiers == nil)
|
||||
identifiers = [[OFMutableDictionary alloc] init];
|
||||
|
||||
identifiers[name] = command;
|
||||
|
||||
return false;
|
||||
}
|
||||
|
||||
// parse any nested set of () or []
|
||||
static char *
|
||||
parseexp(char **p, int right)
|
||||
{
|
||||
int left = *(*p)++;
|
||||
char *word = *p;
|
||||
for (int brak = 1; brak;) {
|
||||
int c = *(*p)++;
|
||||
if (c == '\r')
|
||||
*(*p - 1) = ' '; // hack
|
||||
if (c == left)
|
||||
brak++;
|
||||
else if (c == right)
|
||||
brak--;
|
||||
else if (!c) {
|
||||
(*p)--;
|
||||
conoutf(@"missing \"%c\"", right);
|
||||
return NULL;
|
||||
}
|
||||
}
|
||||
char *s = strndup(word, *p - word - 1);
|
||||
if (left == '(') {
|
||||
OFString *t;
|
||||
@try {
|
||||
t = [OFString
|
||||
stringWithFormat:@"%d", execute(@(s), true)];
|
||||
} @finally {
|
||||
free(s);
|
||||
}
|
||||
s = strdup(t.UTF8String);
|
||||
}
|
||||
return s;
|
||||
}
|
||||
|
||||
// parse single argument, including expressions
|
||||
static char *
|
||||
parseword(char **p)
|
||||
{
|
||||
(*p) += strspn(*p, " \t\r");
|
||||
if ((*p)[0] == '/' && (*p)[1] == '/')
|
||||
*p += strcspn(*p, "\n\0");
|
||||
if (**p == '\"') {
|
||||
(*p)++;
|
||||
char *word = *p;
|
||||
*p += strcspn(*p, "\"\r\n\0");
|
||||
char *s = strndup(word, *p - word);
|
||||
if (**p == '\"')
|
||||
(*p)++;
|
||||
return s;
|
||||
}
|
||||
if (**p == '(')
|
||||
return parseexp(p, ')');
|
||||
if (**p == '[')
|
||||
return parseexp(p, ']');
|
||||
char *word = *p;
|
||||
*p += strcspn(*p, "; \t\r\n\0");
|
||||
if (*p - word == 0)
|
||||
return NULL;
|
||||
return strndup(word, *p - word);
|
||||
}
|
||||
|
||||
// find value of ident referenced with $ in exp
|
||||
OFString *
|
||||
lookup(OFString *n)
|
||||
{
|
||||
__kindof Identifier *identifier = identifiers[[n substringFromIndex:1]];
|
||||
|
||||
if ([identifier isKindOfClass:Variable.class]) {
|
||||
return [OFString stringWithFormat:@"%d", *[identifier storage]];
|
||||
} else if ([identifier isKindOfClass:Alias.class])
|
||||
return [identifier action];
|
||||
|
||||
conoutf(@"unknown alias lookup: %@", [n substringFromIndex:1]);
|
||||
return n;
|
||||
}
|
||||
|
||||
int
|
||||
executeIdentifier(__kindof Identifier *identifier,
|
||||
OFArray<OFString *> *arguments, bool isDown)
|
||||
{
|
||||
if (identifier == nil) {
|
||||
@try {
|
||||
return [arguments[0] intValueWithBase:0];
|
||||
} @catch (OFInvalidFormatException *e) {
|
||||
conoutf(@"unknown command: %@", arguments[0]);
|
||||
return 0;
|
||||
} @catch (OFOutOfRangeException *e) {
|
||||
conoutf(@"invalid value: %@", arguments[0]);
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
||||
if ([identifier isKindOfClass:Command.class])
|
||||
// game defined commands use very ad-hoc function signature,
|
||||
// and just call it
|
||||
return [identifier callWithArguments:arguments isDown:isDown];
|
||||
|
||||
if ([identifier isKindOfClass:Variable.class]) {
|
||||
if (!isDown)
|
||||
return 0;
|
||||
|
||||
// game defined variables
|
||||
if (arguments.count < 2 || arguments[1].length == 0)
|
||||
[identifier printValue];
|
||||
else
|
||||
[identifier
|
||||
setValue:[arguments[1] cube_intValueWithBase:0]];
|
||||
}
|
||||
|
||||
if ([identifier isKindOfClass:Alias.class]) {
|
||||
// alias, also used as functions and (global) variables
|
||||
for (int i = 1; i < arguments.count; i++) {
|
||||
// set any arguments as (global) arg values so
|
||||
// functions can access them
|
||||
OFString *t = [OFString stringWithFormat:@"arg%d", i];
|
||||
alias(t, arguments[i]);
|
||||
}
|
||||
|
||||
return execute([identifier action], isDown);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
// all evaluation happens here, recursively
|
||||
int
|
||||
execute(OFString *string, bool isDown)
|
||||
{
|
||||
char *copy __attribute__((__cleanup__(cleanup))) =
|
||||
strdup(string.UTF8String);
|
||||
char *p = copy;
|
||||
const int MAXWORDS = 25; // limit, remove
|
||||
OFString *w[MAXWORDS];
|
||||
int val = 0;
|
||||
for (bool cont = true; cont;) {
|
||||
// for each ; seperated statement
|
||||
int numargs = MAXWORDS;
|
||||
loopi(MAXWORDS)
|
||||
{
|
||||
// collect all argument values
|
||||
w[i] = @"";
|
||||
if (i > numargs)
|
||||
continue;
|
||||
// parse and evaluate exps
|
||||
char *s = parseword(&p);
|
||||
if (!s) {
|
||||
numargs = i;
|
||||
s = strdup("");
|
||||
}
|
||||
@try {
|
||||
if (*s == '$')
|
||||
// substitute variables
|
||||
w[i] = lookup(@(s));
|
||||
else
|
||||
w[i] = @(s);
|
||||
} @finally {
|
||||
free(s);
|
||||
}
|
||||
}
|
||||
|
||||
p += strcspn(p, ";\n\0");
|
||||
// more statements if this isn't the end of the string
|
||||
cont = *p++ != 0;
|
||||
OFString *c = w[0];
|
||||
// strip irc-style command prefix
|
||||
if ([c hasPrefix:@"/"]) {
|
||||
c = [c substringFromIndex:1];
|
||||
w[0] = c;
|
||||
}
|
||||
// empty statement
|
||||
if (c.length == 0)
|
||||
continue;
|
||||
|
||||
val = executeIdentifier(identifiers[c],
|
||||
[OFArray arrayWithObjects:w count:numargs], isDown);
|
||||
}
|
||||
|
||||
return val;
|
||||
}
|
||||
|
||||
// tab-completion of all identifiers
|
||||
|
||||
int completesize = 0, completeidx = 0;
|
||||
|
||||
void
|
||||
resetcomplete()
|
||||
{
|
||||
completesize = 0;
|
||||
}
|
||||
|
||||
void
|
||||
complete(OFMutableString *s)
|
||||
{
|
||||
if (![s hasPrefix:@"/"])
|
||||
[s insertString:@"/" atIndex:0];
|
||||
|
||||
if (s.length == 1)
|
||||
return;
|
||||
|
||||
if (!completesize) {
|
||||
completesize = s.length - 1;
|
||||
completeidx = 0;
|
||||
}
|
||||
|
||||
__block int idx = 0;
|
||||
[identifiers enumerateKeysAndObjectsUsingBlock:^(
|
||||
OFString *name, Identifier *identifier, bool *stop) {
|
||||
if (strncmp(identifier.name.UTF8String, s.UTF8String + 1,
|
||||
completesize) == 0 &&
|
||||
idx++ == completeidx)
|
||||
[s replaceCharactersInRange:OFMakeRange(1, s.length - 1)
|
||||
withString:identifier.name];
|
||||
}];
|
||||
|
||||
completeidx++;
|
||||
|
||||
if (completeidx >= idx)
|
||||
completeidx = 0;
|
||||
}
|
||||
|
||||
bool
|
||||
execfile(OFIRI *cfgfile)
|
||||
{
|
||||
OFString *command;
|
||||
@try {
|
||||
command = [OFString stringWithContentsOfIRI:cfgfile];
|
||||
} @catch (OFOpenItemFailedException *e) {
|
||||
return false;
|
||||
} @catch (OFReadFailedException *e) {
|
||||
return false;
|
||||
}
|
||||
|
||||
execute(command, true);
|
||||
return true;
|
||||
}
|
||||
|
||||
void
|
||||
exec(OFString *cfgfile)
|
||||
{
|
||||
if (!execfile([Cube.sharedInstance.userDataIRI
|
||||
IRIByAppendingPathComponent:cfgfile]) &&
|
||||
!execfile([Cube.sharedInstance.gameDataIRI
|
||||
IRIByAppendingPathComponent:cfgfile]))
|
||||
conoutf(@"could not read \"%@\"", cfgfile);
|
||||
}
|
||||
|
||||
void
|
||||
writecfg()
|
||||
{
|
||||
OFStream *stream;
|
||||
@try {
|
||||
OFIRI *IRI = [Cube.sharedInstance.userDataIRI
|
||||
IRIByAppendingPathComponent:@"config.cfg"];
|
||||
stream = [[OFIRIHandler handlerForIRI:IRI] openItemAtIRI:IRI
|
||||
mode:@"w"];
|
||||
} @catch (id e) {
|
||||
return;
|
||||
}
|
||||
|
||||
[stream writeString:@"// automatically written on exit, do not modify\n"
|
||||
@"// delete this file to have defaults.cfg "
|
||||
@"overwrite these settings\n"
|
||||
@"// modify settings in game, or put settings in "
|
||||
@"autoexec.cfg to override anything\n"
|
||||
@"\n"];
|
||||
writeclientinfo(stream);
|
||||
[stream writeString:@"\n"];
|
||||
|
||||
[identifiers enumerateKeysAndObjectsUsingBlock:^(
|
||||
OFString *name, __kindof Identifier *identifier, bool *stop) {
|
||||
if (![identifier isKindOfClass:Variable.class] ||
|
||||
![identifier persisted])
|
||||
return;
|
||||
|
||||
[stream writeFormat:@"%@ %d\n", identifier.name,
|
||||
*[identifier storage]];
|
||||
}];
|
||||
[stream writeString:@"\n"];
|
||||
|
||||
writebinds(stream);
|
||||
[stream writeString:@"\n"];
|
||||
|
||||
[identifiers enumerateKeysAndObjectsUsingBlock:^(
|
||||
OFString *name, __kindof Identifier *identifier, bool *stop) {
|
||||
if (![identifier isKindOfClass:Alias.class] ||
|
||||
[identifier.name hasPrefix:@"nextmap_"])
|
||||
return;
|
||||
|
||||
[stream writeFormat:@"alias \"%@\" [%@]\n", identifier.name,
|
||||
[identifier action]];
|
||||
}];
|
||||
|
||||
[stream close];
|
||||
}
|
||||
|
||||
COMMAND(writecfg, ARG_NONE)
|
||||
|
||||
// below the commands that implement a small imperative language. thanks to the
|
||||
// semantics of () and [] expressions, any control construct can be defined
|
||||
// trivially.
|
||||
|
||||
void
|
||||
intset(OFString *name, int v)
|
||||
{
|
||||
alias(name, [OFString stringWithFormat:@"%d", v]);
|
||||
}
|
||||
|
||||
void
|
||||
ifthen(OFString *cond, OFString *thenp, OFString *elsep)
|
||||
{
|
||||
execute((![cond hasPrefix:@"0"] ? thenp : elsep), true);
|
||||
}
|
||||
|
||||
void
|
||||
loopa(OFString *times, OFString *body)
|
||||
{
|
||||
int t = times.cube_intValue;
|
||||
|
||||
loopi(t)
|
||||
{
|
||||
intset(@"i", i);
|
||||
execute(body, true);
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
whilea(OFString *cond, OFString *body)
|
||||
{
|
||||
while (execute(cond, true))
|
||||
execute(body, true);
|
||||
}
|
||||
|
||||
void
|
||||
onrelease(bool on, OFString *body)
|
||||
{
|
||||
if (!on)
|
||||
execute(body, true);
|
||||
}
|
||||
|
||||
void
|
||||
concat(OFString *s)
|
||||
{
|
||||
alias(@"s", s);
|
||||
}
|
||||
|
||||
void
|
||||
concatword(OFString *s)
|
||||
{
|
||||
concat([s stringByReplacingOccurrencesOfString:@" " withString:@""]);
|
||||
}
|
||||
|
||||
int
|
||||
listlen(OFString *a_)
|
||||
{
|
||||
const char *a = a_.UTF8String;
|
||||
|
||||
if (!*a)
|
||||
return 0;
|
||||
|
||||
int n = 0;
|
||||
while (*a)
|
||||
if (*a++ == ' ')
|
||||
n++;
|
||||
|
||||
return n + 1;
|
||||
}
|
||||
|
||||
void
|
||||
at(OFString *s_, OFString *pos)
|
||||
{
|
||||
int n = pos.cube_intValue;
|
||||
char *copy __attribute__((__cleanup__(cleanup))) =
|
||||
strdup(s_.UTF8String);
|
||||
char *s = copy;
|
||||
loopi(n)
|
||||
{
|
||||
s += strcspn(s, " \0");
|
||||
s += strspn(s, " ");
|
||||
}
|
||||
s[strcspn(s, " \0")] = 0;
|
||||
concat(@(s));
|
||||
}
|
||||
|
||||
COMMANDN(loop, loopa, ARG_2STR)
|
||||
COMMANDN(while, whilea, ARG_2STR)
|
||||
COMMANDN(if, ifthen, ARG_3STR)
|
||||
COMMAND(onrelease, ARG_DWN1)
|
||||
COMMAND(exec, ARG_1STR)
|
||||
COMMAND(concat, ARG_VARI)
|
||||
COMMAND(concatword, ARG_VARI)
|
||||
COMMAND(at, ARG_2STR)
|
||||
COMMAND(listlen, ARG_1EST)
|
||||
|
||||
int
|
||||
add(int a, int b)
|
||||
{
|
||||
return a + b;
|
||||
}
|
||||
COMMANDN(+, add, ARG_2EXP)
|
||||
|
||||
int
|
||||
mul(int a, int b)
|
||||
{
|
||||
return a * b;
|
||||
}
|
||||
COMMANDN(*, mul, ARG_2EXP)
|
||||
|
||||
int
|
||||
sub(int a, int b)
|
||||
{
|
||||
return a - b;
|
||||
}
|
||||
COMMANDN(-, sub, ARG_2EXP)
|
||||
|
||||
int
|
||||
divi(int a, int b)
|
||||
{
|
||||
return b ? a / b : 0;
|
||||
}
|
||||
COMMANDN(div, divi, ARG_2EXP)
|
||||
|
||||
int
|
||||
mod(int a, int b)
|
||||
{
|
||||
return b ? a % b : 0;
|
||||
}
|
||||
COMMAND(mod, ARG_2EXP)
|
||||
|
||||
int
|
||||
equal(int a, int b)
|
||||
{
|
||||
return (int)(a == b);
|
||||
}
|
||||
COMMANDN(=, equal, ARG_2EXP)
|
||||
|
||||
int
|
||||
lt(int a, int b)
|
||||
{
|
||||
return (int)(a < b);
|
||||
}
|
||||
COMMANDN(<, lt, ARG_2EXP)
|
||||
|
||||
int
|
||||
gt(int a, int b)
|
||||
{
|
||||
return (int)(a > b);
|
||||
}
|
||||
COMMANDN(>, gt, ARG_2EXP)
|
||||
|
||||
int
|
||||
strcmpa(OFString *a, OFString *b)
|
||||
{
|
||||
return [a isEqual:b];
|
||||
}
|
||||
COMMANDN(strcmp, strcmpa, ARG_2EST)
|
||||
|
||||
int
|
||||
rndn(int a)
|
||||
{
|
||||
return a > 0 ? rnd(a) : 0;
|
||||
}
|
||||
COMMANDN(rnd, rndn, ARG_1EXP)
|
||||
|
||||
int
|
||||
explastmillis()
|
||||
{
|
||||
return lastmillis;
|
||||
}
|
||||
COMMANDN(millis, explastmillis, ARG_1EXP)
|
||||
Loading…
Add table
Add a link
Reference in a new issue