1 #include "rc.h"
2 #include "exec.h"
3 #include "io.h"
4 #include "fns.h"
5
6 void *
emalloc(long n)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
efree(void * p)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
yyerror(char * m)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
iacvt(int n)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
inttoascii(char * s,long n)62 inttoascii(char *s, long n)
63 {
64 bp = s;
65 iacvt(n);
66 *bp='\0';
67 }
68
69 void
panic(char * s,int n)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 }
78