mem.c File Reference

#include "defs.h"
#include "iob.h"

Include dependency graph for mem.c:

Go to the source code of this file.

Data Structures
struct	memblock
Defines
#define	MEMBSIZE   32000
#define	GMEMBSIZE   16000
Typedefs
typedef memblock	memblock
Functions
char *	gmem (int n, int round)
void	mem_init (Void)
char *	mem (int n, int round)
char *	tostring (register char *s, int n)
char *	cpstring (register char *s)
void	new_iob_data (register io_setup *ios, char *name)
char *	string_num (char *pfx, long n)
void	def_start (FILE *outfile, char *s1, char *s2, char *post)
void	other_undefs (FILE *outfile)
Variables
static memblock *	mem0
memblock *	curmemblock
memblock *	firstmemblock
char *	mem_first
char *	mem_next
char *	mem_last
char *	mem0_last
static defines *	define_list

---

Define Documentation

#define GMEMBSIZE   16000

Definition at line 28 of file mem.c.

Referenced by gmem().

#define MEMBSIZE   32000

Definition at line 27 of file mem.c.

Referenced by mem(), and mem_init().

---

Typedef Documentation

typedef struct memblock memblock

Definition at line 72 of file mem.c.

---

Function Documentation

char* cpstring

(

register char *

s

)

Definition at line 177 of file mem.c.

References mem().

Referenced by data_value(), ioseta(), new_iob_data(), and wr_equiv_init().

{
        return strcpy(mem(strlen(s)+1,0), s);
        }

Here is the call graph for this function:

Here is the caller graph for this function:

void def_start	(	FILE *	outfile,
		char *	s1,
		char *	s2,
		char *	post
	)

Definition at line 233 of file mem.c.

References define_list, defines::defname, in_define, mem(), n1, defines::next, and nice_printf().

Referenced by ref_defs(), wr_common_decls(), wr_one_init(), and write_char_init().

{
        defines *d;
        int n, n1;
        extern int in_define;

        n = n1 = strlen(s1);
        if (s2)
                n += strlen(s2);
        d = (defines *)mem(sizeof(defines)+n, 1);
        d->next = define_list;
        define_list = d;
        strcpy(d->defname, s1);
        if (s2)
                strcpy(d->defname + n1, s2);
        in_define = 1;
        nice_printf(outfile, "#define %s", d->defname);
        if (post)
                nice_printf(outfile, " %s", post);
        }

Here is the call graph for this function:

Here is the caller graph for this function:

char* gmem	(	int	n,
		int	round
	)

Definition at line 40 of file mem.c.

References Alloc(), GMEMBSIZE, last, and mem::next.

Referenced by copy_data(), mkext1(), newarg(), and readref().

{
        static char *last, *next;
        char *rv;
        if (round)
#ifdef CRAY
                if ((long)next & 0xe000000000000000)
                        next = (char *)(((long)next & 0x1fffffffffffffff) + 1);
#else
#ifdef MSDOS
                if ((int)next & 1)
                        next++;
#else
                next = (char *)(((long)next + sizeof(char *)-1)
                                & ~((long)sizeof(char *)-1));
#endif
#endif
        rv = next;
        if ((next += n) > last) {
                rv = Alloc(n + GMEMBSIZE);

                next = rv + n;
                last = next + GMEMBSIZE;
                }
        return rv;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

char* mem	(	int	n,
		int	round
	)

Definition at line 97 of file mem.c.

References Alloc(), b, curmemblock, MEMBSIZE, memblock::next, and s.

Referenced by cds(), cpstring(), def_start(), do_p1_charp(), dtos(), fmtname(), ioseta(), mkname(), new_iob_data(), p1getf(), putif(), putwhile(), setfmt(), string_num(), tostring(), and unamstring().

{
        memblock *b;
        register char *rv, *s;

        if (round)
#ifdef CRAY
                if ((long)mem_next & 0xe000000000000000)
                        mem_next = (char *)(((long)mem_next & 0x1fffffffffffffff) + 1);
#else
#ifdef MSDOS
                if ((int)mem_next & 1)
                        mem_next++;
#else
                mem_next = (char *)(((long)mem_next + sizeof(char *)-1)
                                & ~((long)sizeof(char *)-1));
#endif
#endif
        rv = mem_next;
        s = rv + n;
        if (s >= mem_last) {
                if (n > MEMBSIZE)  {
                        fprintf(stderr, "mem(%d) failure!\n", n);
                        exit(1);
                        }
                if (!(b = curmemblock->next)) {
                        b = (memblock *)Alloc(sizeof(memblock));
                        curmemblock->next = b;
                        b->next = 0;
                        }
                curmemblock = b;
                rv = b->buf;
                mem_last = rv + sizeof(b->buf);
                s = rv + n;
                }
        mem_next = s;
        return rv;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

void mem_init

(

Void

)

Definition at line 80 of file mem.c.

References Alloc(), memblock::buf, curmemblock, firstmemblock, mem0, MEMBSIZE, and memblock::next.

Referenced by fileinit().

{
        curmemblock = firstmemblock = mem0
                = (memblock *)Alloc(sizeof(memblock));
        mem_first = mem0->buf;
        mem_next  = mem0->buf;
        mem_last  = mem0->buf + MEMBSIZE;
        mem0_last = mem0->buf + MEMBSIZE;
        mem0->next = 0;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

void new_iob_data	(	register io_setup *	ios,
		char *	name
	)

Definition at line 189 of file mem.c.

References cpstring(), iob_data::fields, iob_list, mem(), iob_data::name, iob_data::next, and iob_data::type.

Referenced by startrw().

{
        register iob_data *iod;
        register char **s, **se;

        iod = (iob_data *)
                mem(sizeof(iob_data) + ios->nelt*sizeof(char *), 1);
        iod->next = iob_list;
        iob_list = iod;
        iod->type = ios->fields[0];
        iod->name = cpstring(name);
        s = iod->fields;
        se = s + ios->nelt;
        while(s < se)
                *s++ = "0";
        *s = 0;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

void other_undefs

(

FILE *

outfile

)

Definition at line 260 of file mem.c.

References define_list, defines::defname, defines::next, and nice_printf().

Referenced by start_formatting().

{
        defines *d;
        if (d = define_list) {
                define_list = 0;
                nice_printf(outfile, "\n");
                do
                        nice_printf(outfile, "#undef %s\n", d->defname);
                        while(d = d->next);
                nice_printf(outfile, "\n");
                }
        }

Here is the call graph for this function:

Here is the caller graph for this function:

char* string_num	(	char *	pfx,
		long	n
	)

Definition at line 214 of file mem.c.

References buf, and mem().

Referenced by ioset(), and mkcxcon().

{
        char buf[32];
        sprintf(buf, "%s%ld", pfx, n);
        /* can't trust return type of sprintf -- BSD gets it wrong */
        return strcpy(mem(strlen(buf)+1,0), buf);
        }

Here is the call graph for this function:

Here is the caller graph for this function:

char* tostring	(	register char *	s,
		int	n
	)

Definition at line 143 of file mem.c.

References mem(), s1, str_fmt, and t.

Referenced by ioseta().

{
        register char *s1, *se, **sf;
        char *rv, *s0;
        register int k = n + 2, t;

        sf = str_fmt;
        sf['%'] = "%";
        s0 = s;
        se = s + n;
        for(; s < se; s++) {
                t = *(unsigned char *)s;
                s1 = sf[t];
                while(*++s1)
                        k++;
                }
        sf['%'] = "%%";
        rv = s1 = mem(k,0);
        *s1++ = '"';
        for(s = s0; s < se; s++) {
                t = *(unsigned char *)s;
                sprintf(s1, sf[t], t);
                s1 += strlen(s1);
                }
        *s1 = 0;
        return rv;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

memblock* curmemblock

Definition at line 75 of file mem.c.

Referenced by mem(), mem_init(), and procinit().

defines* define_list [static]

Definition at line 223 of file mem.c.

Referenced by def_start(), and other_undefs().

memblock * firstmemblock

Definition at line 75 of file mem.c.

Referenced by mem_init(), and procinit().

memblock* mem0 [static]

Definition at line 74 of file mem.c.

Referenced by mem_init().

char * mem0_last

Definition at line 77 of file mem.c.

char* mem_first

Definition at line 77 of file mem.c.

char * mem_last

Definition at line 77 of file mem.c.

char * mem_next

Definition at line 77 of file mem.c.

---