void embryo_swap_32(unsigned int *v);
Embryo_Function embryo_program_function_find(Embryo_Program *ep, char *name);
Embryo_Cell embryo_program_variable_find(Embryo_Program *ep, char *name);
+ int embryo_program_variable_count_get(Embryo_Program *ep);
+ Embryo_Cell embryo_program_variable_get(Embryo_Program *ep, int num);
void embryo_program_error_set(Embryo_Program *ep, int error);
int embryo_program_error_get(Embryo_Program *ep);
void embryo_program_data_set(Embryo_Program *ep, void *data);
return EMBRYO_CELL_NONE;
}
+int
+embryo_program_variable_count_get(Embryo_Program *ep)
+{
+ Embryo_Header *hdr;
+
+ if (!ep) return 0;
+ if (!ep->base) return 0;
+ hdr = (Embryo_Header *)ep->base;
+ return NUMENTRIES(hdr, pubvars, tags);
+}
+
+Embryo_Cell
+embryo_program_variable_get(Embryo_Program *ep, int num)
+{
+ Embryo_Header *hdr;
+ Embryo_Cell paddr;
+ char pname[sNAMEMAX + 1];
+
+ if (!ep) return EMBRYO_CELL_NONE;
+ if (!ep->base) return EMBRYO_CELL_NONE;
+ hdr = (Embryo_Header *)ep->base;
+ if (_embryo_var_get(ep, num, pname, &paddr) == EMBRYO_ERROR_NONE)
+ return paddr;
+ return EMBRYO_CELL_NONE;
+}
+
void
embryo_program_error_set(Embryo_Program *ep, int error)
{
if (!s2) return -1;
s2[0] = 0;
pnum = (params[0] / sizeof(Embryo_Cell)) - 3;
- for (p = 0, o = 0; (s1[i]) && (o < (params[2] - 1)) && (p < pnum); i++)
+ for (p = 0, o = 0, i = 0; (s1[i]) && (o < (params[2] - 1)) && (p < (pnum + 1)); i++)
{
if ((!inesc) && (!insub))
{
}
else
{
+ Embryo_Cell *cptr;
+
if (inesc)
{
switch (s1[i])
}
inesc = 0;
}
- if (insub)
+ if ((insub) && (p < pnum))
{
switch (s1[i])
{
o++;
break;
case 'c':
- s2[o] = params[4 + p];
+ cptr = embryo_data_address_get(ep, params[4 + p]);
+ if (cptr) s2[o] = (char)(*cptr);
p++;
o++;
break;
else if (s1[i] == 'd') strcpy(fmt, "%d");
else if (s1[i] == 'x') strcpy(fmt, "%x");
else if (s1[i] == 'X') strcpy(fmt, "%08x");
- snprintf(tmp, sizeof(tmp), fmt, params[4 + p]);
+ cptr = embryo_data_address_get(ep, params[4 + p]);
+ if (cptr) snprintf(tmp, sizeof(tmp), fmt, (int)(*cptr));
l = strlen(tmp);
if ((o + l) > (params[2] - 1))
{
if (l < 0) l = 0;
tmp[l] = 0;
}
- strcat(s2, tmp);
+ strcpy(s2 + o, tmp);
o += l;
p++;
}
char tmp[256] = "";
int l;
- snprintf(tmp, sizeof(tmp), "%f", EMBRYO_CELL_TO_FLOAT(params[4 + p]));
+ cptr = embryo_data_address_get(ep, params[4 + p]);
+ if (cptr) snprintf(tmp, sizeof(tmp), "%f", (double)EMBRYO_CELL_TO_FLOAT(*cptr));
l = strlen(tmp);
if ((o + l) > (params[2] - 1))
{
if (l < 0) l = 0;
tmp[l] = 0;
}
- strcat(s2, tmp);
+ strcpy(s2 + o, tmp);
o += l;
p++;
}
if (l < 0) l = 0;
tmp[l] = 0;
}
- strcat(s2, tmp);
+ strcpy(s2 + o, tmp);
o += l;
p++;
}
}
insub = 0;
}
+ else if (insub)
+ insub = 0;
}
}
s2[o] = 0;