1 98cd2746 2004-04-19 devnull #include <u.h>
 2 98cd2746 2004-04-19 devnull #include <libc.h>
 3 98cd2746 2004-04-19 devnull #include <bio.h>
 4 98cd2746 2004-04-19 devnull #include <mach.h>
 5 98cd2746 2004-04-19 devnull #include "dat.h"
 6 98cd2746 2004-04-19 devnull 
 7 98cd2746 2004-04-19 devnull static int nwarn;
 8 98cd2746 2004-04-19 devnull 
 9 98cd2746 2004-04-19 devnull void
10 98cd2746 2004-04-19 devnull warn(char *fmt, ...)
11 98cd2746 2004-04-19 devnull {
12 98cd2746 2004-04-19 devnull 	va_list arg;
13 98cd2746 2004-04-19 devnull 
14 98cd2746 2004-04-19 devnull 	if(++nwarn < 5){
15 98cd2746 2004-04-19 devnull 		va_start(arg, fmt);
16 98cd2746 2004-04-19 devnull 		fprint(2, "warning: ");
17 98cd2746 2004-04-19 devnull 		vfprint(2, fmt, arg);
18 98cd2746 2004-04-19 devnull 		fprint(2, "\n");
19 98cd2746 2004-04-19 devnull 		va_end(arg);
20 98cd2746 2004-04-19 devnull 	}else if(nwarn == 5)
21 98cd2746 2004-04-19 devnull 		fprint(2, "[additional warnings elided...]\n");
22 98cd2746 2004-04-19 devnull }
23 98cd2746 2004-04-19 devnull 
24 98cd2746 2004-04-19 devnull void*
25 98cd2746 2004-04-19 devnull erealloc(void *v, uint n)
26 98cd2746 2004-04-19 devnull {
27 98cd2746 2004-04-19 devnull 	v = realloc(v, n);
28 98cd2746 2004-04-19 devnull 	if(v == nil)
29 98cd2746 2004-04-19 devnull 		sysfatal("realloc: %r");
30 98cd2746 2004-04-19 devnull 	return v;
31 98cd2746 2004-04-19 devnull }
32 98cd2746 2004-04-19 devnull 
33 98cd2746 2004-04-19 devnull void*
34 98cd2746 2004-04-19 devnull emalloc(uint n)
35 98cd2746 2004-04-19 devnull {
36 98cd2746 2004-04-19 devnull 	void *v;
37 98cd2746 2004-04-19 devnull 
38 98cd2746 2004-04-19 devnull 	v = mallocz(n, 1);
39 98cd2746 2004-04-19 devnull 	if(v == nil)
40 98cd2746 2004-04-19 devnull 		sysfatal("malloc: %r");
41 98cd2746 2004-04-19 devnull 	return v;
42 98cd2746 2004-04-19 devnull }
43 98cd2746 2004-04-19 devnull 
44 98cd2746 2004-04-19 devnull char*
45 98cd2746 2004-04-19 devnull estrdup(char *s)
46 98cd2746 2004-04-19 devnull {
47 98cd2746 2004-04-19 devnull 	s = strdup(s);
48 98cd2746 2004-04-19 devnull 	if(s == nil)
49 98cd2746 2004-04-19 devnull 		sysfatal("strdup: %r");
50 98cd2746 2004-04-19 devnull 	return s;
51 98cd2746 2004-04-19 devnull }
52 98cd2746 2004-04-19 devnull 
53 98cd2746 2004-04-19 devnull TypeList*
54 98cd2746 2004-04-19 devnull mktl(Type *hd, TypeList *tail)
55 98cd2746 2004-04-19 devnull {
56 98cd2746 2004-04-19 devnull 	TypeList *tl;
57 98cd2746 2004-04-19 devnull 
58 98cd2746 2004-04-19 devnull 	tl = emalloc(sizeof(*tl));
59 98cd2746 2004-04-19 devnull 	tl->hd = hd;
60 98cd2746 2004-04-19 devnull 	tl->tl = tail;
61 98cd2746 2004-04-19 devnull 	return tl;
62 98cd2746 2004-04-19 devnull }
63 98cd2746 2004-04-19 devnull 
64 e3de25fe 2005-11-29 devnull static int isBfrog[256];
65 e3de25fe 2005-11-29 devnull 
66 e3de25fe 2005-11-29 devnull int
67 e3de25fe 2005-11-29 devnull Bfmt(Fmt *fmt)
68 e3de25fe 2005-11-29 devnull {
69 e3de25fe 2005-11-29 devnull 	int i;
70 e3de25fe 2005-11-29 devnull 	char *s, *t;
71 e3de25fe 2005-11-29 devnull 	
72 e3de25fe 2005-11-29 devnull 	if(!isBfrog['.']){
73 e3de25fe 2005-11-29 devnull 		for(i=0; i<256; i++)
74 e3de25fe 2005-11-29 devnull 			if(i != '_' && i != '$' && i < Runeself && !isalnum(i))
75 e3de25fe 2005-11-29 devnull 				isBfrog[i] = 1;
76 e3de25fe 2005-11-29 devnull 	}
77 e3de25fe 2005-11-29 devnull 
78 e3de25fe 2005-11-29 devnull 	s = va_arg(fmt->args, char*);
79 e3de25fe 2005-11-29 devnull 	for(t=s; *t; t++){
80 e3de25fe 2005-11-29 devnull 		if(isBfrog[(uchar)*t]){
81 e3de25fe 2005-11-29 devnull 			if(*t == ':' && *(t+1) == ':'){
82 e3de25fe 2005-11-29 devnull 				t++;
83 e3de25fe 2005-11-29 devnull 				continue;
84 e3de25fe 2005-11-29 devnull 			}
85 e3de25fe 2005-11-29 devnull 			goto encode;
86 e3de25fe 2005-11-29 devnull 		}
87 e3de25fe 2005-11-29 devnull 	}
88 e3de25fe 2005-11-29 devnull 	return fmtstrcpy(fmt, s);
89 e3de25fe 2005-11-29 devnull 
90 e3de25fe 2005-11-29 devnull encode:
91 e3de25fe 2005-11-29 devnull 	return fmtprint(fmt, "`%s`", s);
92 e3de25fe 2005-11-29 devnull }