100 lines
2.6 KiB
C
100 lines
2.6 KiB
C
/*
|
|
SlideScript - minimalistic top-down scripting language.
|
|
(C) Copyright 2014-2022 Chris Dorman - some rights reserved (GPLv2)
|
|
|
|
View README file supplied with this software for more details
|
|
*/
|
|
|
|
#include "inc/deps.h"
|
|
#include "inc/inset.h"
|
|
#include "inc/lexer.h"
|
|
#include "inc/vars.h"
|
|
#include "inc/util.h"
|
|
|
|
BQ s_bqf [MAX_BQ_FUNCTIONS];
|
|
|
|
void s_inset(int index, char *function)
|
|
{
|
|
s_bqf[index].function = qmalloc(QM_BQ, (strlen(function) + 1));
|
|
strcpy(s_bqf[index].function, function);
|
|
}
|
|
|
|
int get_bq_count()
|
|
{
|
|
int yy;
|
|
for(yy = 0; yy < MAX_BQ_FUNCTIONS; yy++)
|
|
{
|
|
if(s_bqf[yy].function != NULL)
|
|
{
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
return yy;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
char *parse_bq(char *string)
|
|
{
|
|
int str_char, var_len;
|
|
char *varbuffer, *finished;
|
|
|
|
/* String pointers */
|
|
char *input_pointer;
|
|
char *output_pointer;
|
|
char *variable_pointer;
|
|
|
|
varbuffer = qmalloc(QM_BQ, strlen(string) + 1);
|
|
finished = qmalloc(QM_BQ, (strlen(string) + 1));
|
|
|
|
*finished = NULLBYTE;
|
|
|
|
for (input_pointer = string, output_pointer = finished;
|
|
(str_char = *input_pointer) != NULLBYTE;
|
|
input_pointer++)
|
|
{
|
|
if (str_char != TOKEN_BQ)
|
|
{ *output_pointer++ = str_char; *output_pointer = NULLBYTE; continue; }
|
|
|
|
variable_pointer = varbuffer;
|
|
do { *variable_pointer++ = (str_char = *++input_pointer); }
|
|
while ((str_char != NULLBYTE) && (str_char != TOKEN_BQ));
|
|
|
|
str_char = *input_pointer;
|
|
if ((str_char != NULLBYTE) && (str_char != TOKEN_BQ))
|
|
syn_error("ss:error:backquote buffer out of sync");
|
|
str_char = variable_pointer [-1];
|
|
if ((str_char != NULLBYTE) && (str_char != TOKEN_BQ))
|
|
syn_error("ss:error:backquote out of sync");
|
|
|
|
variable_pointer[-1] = NULLBYTE;
|
|
|
|
if(*varbuffer == NULLBYTE)
|
|
syn_error("ss:error:backquote syntax error!");
|
|
|
|
// Add newline so other function processing doesn't miss end quotes
|
|
strcat (varbuffer, "\n");
|
|
|
|
variable_pointer = process_line(varbuffer);
|
|
//tar_free_pool();
|
|
if(variable_pointer == NULL)
|
|
syn_error("ss:error:backquoted function must return string!");
|
|
|
|
var_len = strlen(variable_pointer);
|
|
|
|
int moo = output_pointer - finished;
|
|
finished = qrealloc(finished, (strlen(finished) + var_len + 1));
|
|
output_pointer = moo + finished;
|
|
|
|
strcat (finished, variable_pointer);
|
|
output_pointer += var_len;
|
|
if(*input_pointer == NULLBYTE) break;
|
|
}
|
|
|
|
*output_pointer = NULLBYTE;
|
|
return finished;
|
|
}
|
|
|