mirror of
https://github.com/fachat/xa65.git
synced 2024-06-09 14:29:29 +00:00
184 lines
3.8 KiB
C
184 lines
3.8 KiB
C
/* xa65 - 65xx/65816 cross-assembler and utility suite
|
||
*
|
||
* Copyright (C) 1989-1997 Andr<64> Fachat (a.fachat@physik.tu-chemnitz.de)
|
||
*
|
||
* Memory manager/malloc() stub module
|
||
*
|
||
* 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" /* structs */
|
||
|
||
static int ninc = 0;
|
||
static char **nip = NULL;
|
||
|
||
void reg_include(char *path) {
|
||
char **nip2;
|
||
if (path && *path) {
|
||
nip2 = realloc(nip, sizeof(char*) * (ninc + 1));
|
||
if (nip2) {
|
||
nip = nip2;
|
||
nip[ninc++] = path;
|
||
} else {
|
||
fprintf(stderr, "Warning: couldn' alloc mem (reg_include)\n");
|
||
}
|
||
}
|
||
}
|
||
|
||
FILE* xfopen(const char *fn, const char *mode) {
|
||
FILE *file;
|
||
char c, *cp, n[MAXLINE], path[MAXLINE];
|
||
char xname[MAXLINE], n2[MAXLINE];
|
||
int i, l = (int) strlen(fn);
|
||
|
||
if (l >= MAXLINE) {
|
||
fprintf(stderr, "filename '%s' too long!\n", fn);
|
||
return NULL;
|
||
}
|
||
|
||
// copy to xname by replacing windows backslashes with the proper DIRCHAR
|
||
for (i = 0; i < l + 1; i++) {
|
||
xname[i] = ((fn[i] == '\\') ? DIRCHAR : fn[i]);
|
||
}
|
||
|
||
//printf("name=%s, xname=%s, mode=%s\n",fn,xname, mode);
|
||
|
||
if (mode[0] == 'r') {
|
||
if ((file = fopen(fn, mode)) == NULL
|
||
&& (file = fopen(xname, mode)) == NULL) {
|
||
for (i = 0; (!file) && (i < ninc); i++) {
|
||
strcpy(n, nip[i]);
|
||
c = n[(int) strlen(n) - 1];
|
||
if (c != DIRCHAR)
|
||
strcat(n, DIRCSTRING);
|
||
strcpy(n2, n);
|
||
strcat(n2, xname);
|
||
strcat(n, fn);
|
||
file = fopen(n, mode);
|
||
if (!file)
|
||
file = fopen(n2, mode);
|
||
}
|
||
if ((!file) && (cp = getenv("XAINPUT")) != NULL) {
|
||
strcpy(path, cp);
|
||
cp = strtok(path, ",");
|
||
while (cp && !file) {
|
||
if (cp[0]) {
|
||
strcpy(n, cp);
|
||
c = n[(int) strlen(n) - 1];
|
||
if (c != DIRCHAR && c != ':')
|
||
strcat(n, DIRCSTRING);
|
||
strcpy(n2, n);
|
||
strcat(n2, xname);
|
||
strcat(n, fn);
|
||
file = fopen(n, mode);
|
||
if (!file)
|
||
file = fopen(n2, mode);
|
||
}
|
||
cp = strtok(NULL, ",");
|
||
}
|
||
}
|
||
}
|
||
} else {
|
||
if ((cp = getenv("XAOUTPUT")) != NULL) {
|
||
strcpy(n, cp);
|
||
if (n[0]) {
|
||
c = n[(int) strlen(n) - 1];
|
||
if (c != DIRCHAR && c != ':')
|
||
strcat(n, DIRCSTRING);
|
||
}
|
||
cp = strrchr(fn, DIRCHAR);
|
||
if (!cp) {
|
||
cp = strrchr(fn, ':');
|
||
if (!cp)
|
||
cp = (char*) fn;
|
||
else
|
||
cp++;
|
||
} else
|
||
cp++;
|
||
strcat(n, cp);
|
||
file = fopen(n, mode);
|
||
} else
|
||
file = fopen(fn, mode);
|
||
}
|
||
if (file)
|
||
setvbuf(file, NULL, _IOFBF, BUFSIZE);
|
||
|
||
return (file);
|
||
}
|
||
|
||
#if 0
|
||
|
||
static char *m_base;
|
||
static char *m_act;
|
||
static char *m_end;
|
||
|
||
int m_init(void)
|
||
{
|
||
int er=E_NOMEM;
|
||
|
||
m_base=m_end=m_act=0L;
|
||
/*
|
||
fprintf(stderr, "MEMLEN=%ld\n",MEMLEN);
|
||
getchar();
|
||
*/
|
||
/*
|
||
if ((m_base=(char*)malloc(MEMLEN))!=NULL)
|
||
{
|
||
m_end =m_base+MEMLEN;
|
||
m_act =(char*)(((long)m_base+3)&0xfffffffcl);
|
||
er=E_OK;
|
||
}
|
||
else m_base=NULL;
|
||
*/
|
||
er=E_OK;
|
||
|
||
return(er);
|
||
}
|
||
|
||
void m_exit(void)
|
||
{
|
||
/*
|
||
free(m_base);
|
||
*/
|
||
}
|
||
|
||
int m_alloc(long n, char **adr)
|
||
{
|
||
int er=E_NOMEM;
|
||
|
||
if((*adr=calloc(n,1))) {
|
||
er=E_OK;
|
||
}
|
||
/*
|
||
if(m_act+n<m_end)
|
||
{
|
||
*adr=m_act;
|
||
m_act=m_act+n;
|
||
er=E_OK;
|
||
}
|
||
*/
|
||
/*
|
||
fprintf(stderr, "m_alloc n=%ld adr=%lx\n",n,*adr);
|
||
getchar();
|
||
*/
|
||
return(er);
|
||
}
|
||
|
||
#endif
|