char *optgetlabelname(char *opt)
{
int i;
i = 0;
while (islabelchar(opt[i]))
{
i++;
}
return (ft_strsub(opt, 0, i));
}
/* Generates the content of the .exp file by printing all lines with
* everything up to and including the first comment semicolon removed.
*
* Returns 0 on success; a negative enum errcode otherwise.
* Returns -err_internal if @p is the NULL pointer.
* Returns -err_file_write if the .exp file could not be fully written.
*/
static int p_gen_expfile(struct parser *p)
{
int errcode;
enum { slen = 1024 };
char s[slen];
struct pt_directive *pd;
char *filename;
FILE *f;
if (bug_on(!p))
return -err_internal;
pd = p->pd;
/* the directive in the current line must be the .exp directive. */
errcode = yasm_pd_parse(p->y, pd);
if (bug_on(errcode < 0))
return -err_internal;
if (bug_on(strcmp(pd->name, ".exp") != 0))
return -err_internal;
filename = expfilename(p, pd->payload);
if (!filename)
return -err_no_mem;
f = fopen(filename, "w");
if (!f) {
free(filename);
return -err_file_open;
}
for (;;) {
int i;
char *line, *comment;
errcode = yasm_next_line(p->y, s, slen);
if (errcode < 0)
break;
errcode = yasm_pd_parse(p->y, pd);
if (errcode < 0 && errcode != -err_no_directive)
break;
if (errcode == 0 && strcmp(pd->name, ".exp") == 0) {
fclose(f);
printf("%s\n", filename);
free(filename);
filename = expfilename(p, pd->payload);
if (!filename)
return -err_no_mem;
f = fopen(filename, "w");
if (!f) {
free(filename);
return -err_file_open;
}
continue;
}
line = strchr(s, ';');
if (!line)
continue;
line += 1;
comment = strchr(line, '#');
if (comment)
*comment = '\0';
/* remove trailing spaces. */
for (i = (int) strlen(line)-1; i >= 0 && isspace(line[i]); i--)
line[i] = '\0';
for (;;) {
char *tmp, label[256];
uint64_t addr;
int i, zero_padding, qmark_padding, qmark_size, status;
zero_padding = 0;
qmark_padding = 0;
qmark_size = 0;
/* find the label character in the string.
* if there is no label character, we just print
* the rest of the line and end.
*/
tmp = strchr(line, '%');
if (!tmp) {
if (fprintf(f, "%s", line) < 0) {
errcode = -err_file_write;
goto error;
}
break;
}
/* make the label character a null byte and
* print the first portion, which does not
* belong to the label into the file.
*/
*tmp = '\0';
if (fprintf(f, "%s", line) < 0) {
errcode = -err_file_write;
goto error;
}
/* test if there is a valid label name after the %. */
line = tmp+1;
if (*line == '\0' || isspace(*line)) {
errcode = -err_no_label;
goto error;
}
/* check if zero padding is requested. */
if (*line == '0') {
zero_padding = 1;
line += 1;
}
/* chek if ? padding is requested. */
else if (*line == '?') {
qmark_padding = 1;
zero_padding = 1;
qmark_size = 0;
line += 1;
}
/* advance i to the first non alpha-numeric
* character. all characters everything from
* line[0] to line[i-1] belongs to the label
* name.
*/
for (i = 0; islabelchar(line[i]); i++)
;
if (i > 255) {
errcode = -err_label_name;
goto error;
}
strncpy(label, line, i);
label[i] = '\0';
/* advance to next character. */
line = &line[i];
/* lookup the label name and print it to the
* output file.
*/
errcode = yasm_lookup_label(p->y, &addr, label);
if (errcode < 0) {
errcode = l_lookup(p->pt_labels, &addr, label);
if (errcode < 0)
goto error;
if (zero_padding)
status = fprintf(f, "%016" PRIx64, addr);
else
status = fprintf(f, "%" PRIx64, addr);
if (status < 0) {
errcode = -err_file_write;
goto error;
}
continue;
}
/* check if masking is requested. */
if (*line == '.') {
char *endptr;
long int n;
line += 1;
n = strtol(line, &endptr, 0);
/* check if strtol made progress and
* stops on a space or null byte.
* otherwise the int could not be
* parsed.
*/
if (line == endptr ||
(*endptr != '\0' && !isspace(*endptr)
&& !ispunct(*endptr))) {
errcode = -err_parse_int;
goto error;
}
addr &= (1 << (n << 3)) - 1;
line = endptr;
qmark_size = 8 - n;
}
if (qmark_padding) {
int i;
status = fprintf(f, "0x");
if (status < 0) {
errcode = -err_file_write;
goto error;
}
for (i = 0; i < qmark_size; ++i) {
status = fprintf(f, "??");
if (status < 0) {
errcode = -err_file_write;
goto error;
}
}
for (; i < 8; ++i) {
uint8_t byte;
byte = (uint8_t)(addr >> ((7 - i) * 8));
status = fprintf(f, "%02" PRIx8, byte);
if (status < 0) {
errcode = -err_file_write;
goto error;
}
}
} else if (zero_padding)
status = fprintf(f, "0x%016" PRIx64, addr);
else
status = fprintf(f, "0x%" PRIx64, addr);
if (status < 0) {
errcode = -err_file_write;
goto error;
}
}
if (fprintf(f, "\n") < 0) {
errcode = -err_file_write;
goto error;
}
}
