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"
7 98cd2746 2004-04-19 devnull static int nwarn;
10 98cd2746 2004-04-19 devnull warn(char *fmt, ...)
12 98cd2746 2004-04-19 devnull va_list arg;
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");
25 98cd2746 2004-04-19 devnull erealloc(void *v, uint n)
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;
34 98cd2746 2004-04-19 devnull emalloc(uint n)
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;
45 98cd2746 2004-04-19 devnull estrdup(char *s)
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;
53 98cd2746 2004-04-19 devnull TypeList*
54 98cd2746 2004-04-19 devnull mktl(Type *hd, TypeList *tail)
56 98cd2746 2004-04-19 devnull TypeList *tl;
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;
64 e3de25fe 2005-11-29 devnull static int isBfrog[256];
67 e3de25fe 2005-11-29 devnull Bfmt(Fmt *fmt)
70 e3de25fe 2005-11-29 devnull char *s, *t;
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;
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) == ':'){
83 e3de25fe 2005-11-29 devnull continue;
85 e3de25fe 2005-11-29 devnull goto encode;
88 e3de25fe 2005-11-29 devnull return fmtstrcpy(fmt, s);
91 e3de25fe 2005-11-29 devnull return fmtprint(fmt, "`%s`", s);