/*
- * Copyright (C) 2012
+ * Copyright (C) 2012, 2013
* Wolfgang Bumiller
* Dale Weiler
*
done:
if (len < (int)sizeof(spaces)-1) {
spaces[sizeof(spaces)-1-len] = 0;
- printf(spaces);
+ file_puts(stdout, spaces);
spaces[sizeof(spaces)-1-len] = ' ';
}
}
st.function = func;
if (prog->xflags & VMXF_TRACE) {
- vec_push(prog->function_stack, prog_getstring(prog, func->name));
+ const char *str = prog_getstring(prog, func->name);
+ vec_push(prog->function_stack, str);
}
#ifdef QCVM_BACKUP_STRATEGY_CALLER_VARS
return 0;
}
+static int qc_sqrt(qc_program *prog)
+{
+ qcany *num, out;
+ CheckArgs(1);
+ num = GetArg(0);
+ out._float = sqrt(num->_float);
+ Return(out);
+ return 0;
+}
+
static int qc_vlen(qc_program *prog)
{
qcany *vec, len;
return 0;
}
+static int qc_normalize(qc_program *prog)
+{
+ double len;
+ qcany *vec;
+ qcany out;
+ CheckArgs(1);
+ vec = GetArg(0);
+ len = sqrt(vec->vector[0] * vec->vector[0] +
+ vec->vector[1] * vec->vector[1] +
+ vec->vector[2] * vec->vector[2]);
+ if (len)
+ len = 1.0 / len;
+ else
+ len = 0;
+ out.vector[0] = len * vec->vector[0];
+ out.vector[1] = len * vec->vector[1];
+ out.vector[2] = len * vec->vector[2];
+ Return(out);
+ return 0;
+}
+
static int qc_strcat(qc_program *prog)
{
char *buffer;
static prog_builtin qc_builtins[] = {
NULL,
- &qc_print, /* 1 */
- &qc_ftos, /* 2 */
- &qc_spawn, /* 3 */
- &qc_kill, /* 4 */
- &qc_vtos, /* 5 */
- &qc_error, /* 6 */
- &qc_vlen, /* 7 */
- &qc_etos, /* 8 */
- &qc_stof, /* 9 */
- &qc_strcat, /* 10 */
- &qc_strcmp /* 11 */
+ &qc_print, /* 1 */
+ &qc_ftos, /* 2 */
+ &qc_spawn, /* 3 */
+ &qc_kill, /* 4 */
+ &qc_vtos, /* 5 */
+ &qc_error, /* 6 */
+ &qc_vlen, /* 7 */
+ &qc_etos, /* 8 */
+ &qc_stof, /* 9 */
+ &qc_strcat, /* 10 */
+ &qc_strcmp, /* 11 */
+ &qc_normalize, /* 12 */
+ &qc_sqrt /* 13 */
};
static size_t qc_builtins_count = sizeof(qc_builtins) / sizeof(qc_builtins[0]);
--argc;
++argv;
- if (argc < 3) {
+ if (argc < 2) {
usage();
exit(1);
}
}
else
{
+ printf("unknown parameter: %s\n", argv[1]);
usage();
exit(1);
}
}
- if (argc > 2) {
- usage();
- exit(1);
- }
- if (argc > 1) {
- if (progsfile) {
- printf("only 1 program file may be specified\n");
- usage();
- exit(1);
- }
+ if (argc == 2 && !progsfile) {
progsfile = argv[1];
--argc;
++argv;
}
if (!progsfile) {
+ printf("must specify a program to execute\n");
usage();
exit(1);
}