Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#include "rc.h"
2 
#include "exec.h"
3 
#include "io.h"
4 
#include "fns.h"
5 
 
6 
void *
7 
emalloc(long n)
8 
{
9 
	void *p = Malloc(n);
10 
 
11 
	if(p==0)
12 
		panic("Can't malloc %d bytes", n);
13 
/*	if(err){ pfmt(err, "malloc %d->%p\n", n, p); flush(err); } /**/
14 
	return p;
15 
}
16 
 
17 
void
18 
efree(void *p)
19 
{
20 
/*	pfmt(err, "free %p\n", p); flush(err); /**/
21 
	if(p)
22 
		free(p);
23 
	else pfmt(err, "free 0\n");
24 
}
25 
extern int lastword, lastdol;
26 
 
27 
void
28 
yyerror(char *m)
29 
{
30 
	pfmt(err, "rc: ");
31 
	if(runq->cmdfile && !runq->iflag)
32 
		pfmt(err, "%s:%d: ", runq->cmdfile, runq->lineno);
33 
	else if(runq->cmdfile)
34 
		pfmt(err, "%s: ", runq->cmdfile);
35 
	else if(!runq->iflag)
36 
		pfmt(err, "line %d: ", runq->lineno);
37 
	if(tok[0] && tok[0]!='\n')
38 
		pfmt(err, "token %q: ", tok);
39 
	pfmt(err, "%s\n", m);
40 
	flush(err);
41 
	lastword = 0;
42 
	lastdol = 0;
43 
	while(lastc!='\n' && lastc!=EOF) advance();
44 
	nerror++;
45 
	setvar("status", newword(m, (word *)0));
46 
}
47 
char *bp;
48 
 
49 
static void
50 
iacvt(int n)
51 
{
52 
	if(n<0){
53 
		*bp++='-';
54 
		n=-n;	/* doesn't work for n==-inf */
55 
	}
56 
	if(n/10)
57 
		iacvt(n/10);
58 
	*bp++=n%10+'0';
59 
}
60 
 
61 
void
62 
inttoascii(char *s, long n)
63 
{
64 
	bp = s;
65 
	iacvt(n);
66 
	*bp='\0';
67 
}
68 
 
69 
void
70 
panic(char *s, int n)
71 
{
72 
	pfmt(err, "rc: ");
73 
	pfmt(err, s, n);
74 
	pchr(err, '\n');
75 
	flush(err);
76 
	Abort();
77 
}