mirror of
https://github.com/fachat/xa65.git
synced 2024-06-01 22:41:32 +00:00
105 lines
2.7 KiB
C
105 lines
2.7 KiB
C
/* xa65 - 65xx/65816 cross-assembler and utility suite
|
|
*
|
|
* Copyright (C) 1989-1997 Andre Fachat (afachat@gmx.de)
|
|
*
|
|
* Options module (handles pass options and writing them out to disk)
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "xah.h"
|
|
#include "xar.h"
|
|
#include "xa.h"
|
|
#include "xat.h"
|
|
#include "xao.h"
|
|
|
|
/*
|
|
static Fopt *olist =NULL;
|
|
static int mlist =0;
|
|
static int nlist =0;
|
|
*/
|
|
|
|
/* sets file option after pass 1 */
|
|
void set_fopt(int l, signed char *buf, int reallen) {
|
|
/*printf("set_fopt(%s, l=%d\n",buf,l);*/
|
|
while (afile->fo.mlist <= afile->fo.nlist) {
|
|
afile->fo.mlist += 5;
|
|
afile->fo.olist = realloc(afile->fo.olist,
|
|
afile->fo.mlist * sizeof(Fopt));
|
|
if (!afile->fo.olist) {
|
|
fprintf(stderr,
|
|
"Fatal: Couldn't alloc memory (%lu bytes) for fopt list!\n",
|
|
(unsigned long) (afile->fo.mlist * sizeof(Fopt)));
|
|
exit(1);
|
|
}
|
|
}
|
|
afile->fo.olist[afile->fo.nlist].text = malloc(l);
|
|
if (!afile->fo.olist[afile->fo.nlist].text) {
|
|
fprintf(stderr, "Fatal: Couldn't alloc memory (%d bytes) for fopt!\n",
|
|
l);
|
|
exit(1);
|
|
}
|
|
memcpy(afile->fo.olist[afile->fo.nlist].text, buf, l);
|
|
afile->fo.olist[afile->fo.nlist++].len = reallen;
|
|
}
|
|
|
|
/* writes file options to a file */
|
|
void o_write(FILE *fp) {
|
|
int i, j, l, afl;
|
|
signed char *t;
|
|
|
|
for (i = 0; i < afile->fo.nlist; i++) {
|
|
l = afile->fo.olist[i].len;
|
|
t = afile->fo.olist[i].text;
|
|
/* do not optimize */
|
|
t_p2_l(t, &l, &afl);
|
|
|
|
if (l > 254) {
|
|
errout(E_OPTLEN);
|
|
} else {
|
|
fputc((l + 1) & 0xff, fp);
|
|
}
|
|
for (j = 0; j < l; j++) {
|
|
fputc(t[j], fp);
|
|
/*printf("%02x ", t[j]); */
|
|
}
|
|
/*printf("\n");*/
|
|
}
|
|
fputc(0, fp); /* end option list */
|
|
|
|
for (i = 0; i < afile->fo.nlist; i++) {
|
|
free(afile->fo.olist[i].text);
|
|
}
|
|
free(afile->fo.olist);
|
|
afile->fo.olist = NULL;
|
|
afile->fo.nlist = 0;
|
|
afile->fo.mlist = 0;
|
|
}
|
|
|
|
size_t o_length(void) {
|
|
int i;
|
|
size_t n = 0;
|
|
for (i = 0; i < afile->fo.nlist; i++) {
|
|
/*printf("found option: %s, len=%d, n=%d\n", afile->fo.olist[i].text, afile->fo.olist[i].len,n);*/
|
|
n += afile->fo.olist[i].len + 1;
|
|
}
|
|
return ++n;
|
|
}
|
|
|