home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
minnie.tuhs.org
/
unixen.tar
/
unixen
/
PDP-11
/
Distributions
/
ucb
/
spencer_2bsd.tar.gz
/
2bsd.tar
/
src
/
pi0
/
string.c
< prev
next >
Wrap
C/C++ Source or Header
|
1980-02-17
|
2KB
|
159 lines
/* Copyright (c) 1979 Regents of the University of California */
#
/*
* pi - Pascal interpreter code translator
*
* Charles Haley, Bill Joy UCB
* Version 1.2 January 1979
*
* pxp - Pascal execution profiler
*
* Bill Joy UCB
* Version 1.2 January 1979
*/
#include "0.h"
#ifndef PI01
#ifndef PXP
#include "send.h"
#endif
#endif
/*
* STRING SPACE DECLARATIONS
*
* Strng is the base of the current
* string space and strngp the
* base of the free area therein.
* Strp is the array of descriptors.
*/
#ifndef PI0
static char strings[STRINC];
static char *strng strings;
static char *strngp strings;
#else
char *strng, *strngp;
#endif
#ifndef PI01
#ifndef PXP
static char *strp[20];
static char **stract strp;
int strmax;
#endif
#endif
#ifndef PI01
#ifndef PXP
#ifndef PI0
initstring()
#else
initstring(strings)
char *strings;
#endif
{
*stract++ = strings;
#ifdef PI0
strng = strngp = strings;
#endif
strmax = STRINC * 2;
}
#endif
#endif
/*
* Copy a string into the string area.
*/
savestr(cp)
register char *cp;
{
register int i;
i = strlen(cp) + 1;
if (strngp + i >= strng + STRINC) {
strngp = alloc(STRINC);
if (strngp == -1) {
yerror("Ran out of memory (string)");
pexit(DIED);
}
#ifndef PI01
#ifndef PXP
*stract++ = strngp;
strmax =+ STRINC;
#endif
#endif
strng = strngp;
}
strcpy(strngp, cp);
cp = strngp;
strngp = cp + i;
#ifdef PI0
send(RSTRING, cp);
#endif
return (cp);
}
#ifndef PI1
#ifndef PXP
esavestr(cp)
char *cp;
{
#ifdef PI0
send(REVENIT);
#endif
strngp = (strngp + 1) &~ 1;
return (savestr(cp));
}
#endif
#endif
#ifndef PI01
#ifndef PXP
soffset(cp)
register char *cp;
{
register char **sp;
register int i;
if (cp == NIL || cp == OCT || cp == HEX)
return (-cp);
for (i = STRINC, sp = strp; sp < stract; sp++) {
if (cp >= *sp && cp < (*sp + STRINC))
return (i + (cp - *sp));
i =+ STRINC;
}
i = nlfund(cp);
if (i != 0)
return (i);
panic("soffset");
}
#ifdef PI1
sreloc(i)
register int i;
{
if (i == 0 || i == -OCT || i == -HEX)
return (-i);
if (i < STRINC) {
if (i >= INL)
panic("sreloc INL");
i = nl[i].symbol;
if (i == 0)
panic("sreloc nl[i]");
return (i);
}
if (i > strmax || i < 0)
panic("sreloc");
return (strp[(i / STRINC) - 1] + (i % STRINC));
}
evenit()
{
strngp = (strngp + 1) &~ 1;
}
#endif
#endif
#endif