Function parse_script

include/feat/script.h:67–242

}

static void parse_script(const char *script_file)
{
	if(script_running) return;

	if(file_exists(script_file))
	{
		u32 max_size = _64KB_;
		sys_addr_t sysmem  = sys_mem_allocate(max_size);
		if(!sysmem) return;

		char *buffer, *sep, *pos, *mloop = NULL, *dest = NULL, label[24]; u16 l, count = 0;
		u8 exec_mode = true, enable_db = true, do_else = true; size_t buffer_size;
		char log_file[STD_PATH_LEN]; strcpy(log_file, SC_LOG_FILE); *label = NULL;

	reload_script:
		buffer = (char*)sysmem; buffer_size = read_file(script_file, buffer, max_size, 0); buffer[buffer_size] = 0;
		if(*buffer) strcat(buffer + buffer_size, "\n");

		l = 0, script_running = true;

		if(mloop) {buffer = mloop; mloop = NULL;}
		if(*label) {pos = strcasestr(buffer, label); if(pos) buffer = pos; else *buffer = NULL; *label = NULL;}

		while(*buffer)
		{
			if(++l > 9999 || !working) break;

			while( *buffer && (*buffer <= ' ')) buffer++; // skip blank chars \n \r \t

			if(*buffer == '\0') break;

			// process line
			pos = strchr(line, '\n'); if(!pos) pos = line;

			// process line separator ;
			if(BETWEEN('A', *line, 'z'))  {sep = strchr(line, ';'); if(sep && (sep < pos)) pos = sep;}

			if(pos)
			{
				*pos = NULL; //EOL
				replace_char(line, '\r', 0); // crlf

				if(exec_mode)
				{
					if(IS_WEB_COMMAND(line))
						dest = NULL;
					else
					{
						dest = strstr(line, "=/");
						if(!dest) dest = strstr(line, ",/");
						if(!dest) dest = strstr(line, ", /");
					}
					if(enable_db && (strstr(line, "/dev_blind"))) {enable_dev_blind(NO_MSG); enable_db = false;}
				}
				parse_cmd:
				if(dest)
				{
					*dest++ = NULL; while(*dest == ' ') dest++; //split parameters