2 #pragma src "/sys/src/libc"
4 #define nelem(x) (sizeof(x)/sizeof((x)[0]))
5 #define offsetof(s, m) (ulong)(&(((s*)0)->m))
6 #define assert(x) if(x){}else _assert("x")
11 extern void* memccpy(void*, void*, int, ulong);
12 extern void* memset(void*, int, ulong);
13 extern int memcmp(void*, void*, ulong);
14 extern void* memcpy(void*, void*, ulong);
15 extern void* memmove(void*, void*, ulong);
16 extern void* memchr(void*, int, ulong);
21 extern char* strcat(char*, char*);
22 extern char* strchr(char*, int);
23 extern int strcmp(char*, char*);
24 extern char* strcpy(char*, char*);
25 extern char* strecpy(char*, char*, char*);
26 extern char* strdup(char*);
27 extern char* strncat(char*, char*, long);
28 extern char* strncpy(char*, char*, long);
29 extern int strncmp(char*, char*, long);
30 extern char* strpbrk(char*, char*);
31 extern char* strrchr(char*, int);
32 extern char* strtok(char*, char*);
33 extern long strlen(char*);
34 extern long strspn(char*, char*);
35 extern long strcspn(char*, char*);
36 extern char* strstr(char*, char*);
37 extern int cistrncmp(char*, char*, int);
38 extern int cistrcmp(char*, char*);
39 extern char* cistrstr(char*, char*);
40 extern int tokenize(char*, char**, int);
44 UTFmax = 4, /* maximum bytes per rune */
45 Runesync = 0x80, /* cannot represent part of a UTF sequence (<) */
46 Runeself = 0x80, /* rune and UTF sequences are the same (<) */
47 Runeerror = 0xFFFD, /* decoding error in UTF */
48 Runemax = 0x10FFFF, /* 21 bit rune */
49 Runemask = 0x1FFFFF, /* bits used by runes (see grep) */
55 extern int runetochar(char*, Rune*);
56 extern int chartorune(Rune*, char*);
57 extern int runelen(long);
58 extern int runenlen(Rune*, int);
59 extern int fullrune(char*, int);
60 extern int utflen(char*);
61 extern int utfnlen(char*, long);
62 extern char* utfrune(char*, long);
63 extern char* utfrrune(char*, long);
64 extern char* utfutf(char*, char*);
65 extern char* utfecpy(char*, char*, char*);
67 extern Rune* runestrcat(Rune*, Rune*);
68 extern Rune* runestrchr(Rune*, Rune);
69 extern int runestrcmp(Rune*, Rune*);
70 extern Rune* runestrcpy(Rune*, Rune*);
71 extern Rune* runestrncpy(Rune*, Rune*, long);
72 extern Rune* runestrecpy(Rune*, Rune*, Rune*);
73 extern Rune* runestrdup(Rune*);
74 extern Rune* runestrncat(Rune*, Rune*, long);
75 extern int runestrncmp(Rune*, Rune*, long);
76 extern Rune* runestrrchr(Rune*, Rune);
77 extern long runestrlen(Rune*);
78 extern Rune* runestrstr(Rune*, Rune*);
80 extern Rune tolowerrune(Rune);
81 extern Rune totitlerune(Rune);
82 extern Rune toupperrune(Rune);
83 extern int isalpharune(Rune);
84 extern int islowerrune(Rune);
85 extern int isspacerune(Rune);
86 extern int istitlerune(Rune);
87 extern int isupperrune(Rune);
88 extern int isdigitrune(Rune);
93 extern void* malloc(ulong);
94 extern void* mallocz(ulong, int);
95 extern void free(void*);
96 extern ulong msize(void*);
97 extern void* mallocalign(ulong, ulong, long, ulong);
98 extern void* calloc(ulong, ulong);
99 extern void* realloc(void*, ulong);
100 extern void setmalloctag(void*, uintptr);
101 extern void setrealloctag(void*, uintptr);
102 extern uintptr getmalloctag(void*);
103 extern uintptr getrealloctag(void*);
104 extern void* malloctopoolblock(void*);
109 typedef struct Fmt Fmt;
111 uchar runes; /* output buffer is runes or chars? */
112 void *start; /* of buffer */
113 void *to; /* current place in the buffer */
114 void *stop; /* end of the buffer; overwritten if flush fails */
115 int (*flush)(Fmt *); /* called when to == stop */
116 void *farg; /* to make flush a closure */
117 int nfmt; /* num chars formatted so far */
118 va_list args; /* args passed to dofmt */
119 int r; /* % format Rune */
127 FmtLeft = FmtWidth << 1,
128 FmtPrec = FmtLeft << 1,
129 FmtSharp = FmtPrec << 1,
130 FmtSpace = FmtSharp << 1,
131 FmtSign = FmtSpace << 1,
132 FmtZero = FmtSign << 1,
133 FmtUnsigned = FmtZero << 1,
134 FmtShort = FmtUnsigned << 1,
135 FmtLong = FmtShort << 1,
136 FmtVLong = FmtLong << 1,
137 FmtComma = FmtVLong << 1,
138 FmtByte = FmtComma << 1,
140 FmtFlag = FmtByte << 1
143 extern int print(char*, ...);
144 extern char* seprint(char*, char*, char*, ...);
145 extern char* vseprint(char*, char*, char*, va_list);
146 extern int snprint(char*, int, char*, ...);
147 extern int vsnprint(char*, int, char*, va_list);
148 extern char* smprint(char*, ...);
149 extern char* vsmprint(char*, va_list);
150 extern int sprint(char*, char*, ...);
151 extern int fprint(int, char*, ...);
152 extern int vfprint(int, char*, va_list);
154 extern int runesprint(Rune*, char*, ...);
155 extern int runesnprint(Rune*, int, char*, ...);
156 extern int runevsnprint(Rune*, int, char*, va_list);
157 extern Rune* runeseprint(Rune*, Rune*, char*, ...);
158 extern Rune* runevseprint(Rune*, Rune*, char*, va_list);
159 extern Rune* runesmprint(char*, ...);
160 extern Rune* runevsmprint(char*, va_list);
162 extern int fmtfdinit(Fmt*, int, char*, int);
163 extern int fmtfdflush(Fmt*);
164 extern int fmtstrinit(Fmt*);
165 extern char* fmtstrflush(Fmt*);
166 extern int runefmtstrinit(Fmt*);
167 extern Rune* runefmtstrflush(Fmt*);
169 #pragma varargck argpos fmtprint 2
170 #pragma varargck argpos fprint 2
171 #pragma varargck argpos print 1
172 #pragma varargck argpos runeseprint 3
173 #pragma varargck argpos runesmprint 1
174 #pragma varargck argpos runesnprint 3
175 #pragma varargck argpos runesprint 2
176 #pragma varargck argpos seprint 3
177 #pragma varargck argpos smprint 1
178 #pragma varargck argpos snprint 3
179 #pragma varargck argpos sprint 2
181 #pragma varargck type "lld" vlong
182 #pragma varargck type "llo" vlong
183 #pragma varargck type "llx" vlong
184 #pragma varargck type "llb" vlong
185 #pragma varargck type "lld" uvlong
186 #pragma varargck type "llo" uvlong
187 #pragma varargck type "llx" uvlong
188 #pragma varargck type "llb" uvlong
189 #pragma varargck type "ld" long
190 #pragma varargck type "lo" long
191 #pragma varargck type "lx" long
192 #pragma varargck type "lb" long
193 #pragma varargck type "ld" ulong
194 #pragma varargck type "lo" ulong
195 #pragma varargck type "lx" ulong
196 #pragma varargck type "lb" ulong
197 #pragma varargck type "zd" intptr
198 #pragma varargck type "zo" intptr
199 #pragma varargck type "zx" intptr
200 #pragma varargck type "zb" intptr
201 #pragma varargck type "zd" uintptr
202 #pragma varargck type "zo" uintptr
203 #pragma varargck type "zx" uintptr
204 #pragma varargck type "zb" uintptr
205 #pragma varargck type "d" int
206 #pragma varargck type "o" int
207 #pragma varargck type "x" int
208 #pragma varargck type "c" int
209 #pragma varargck type "C" int
210 #pragma varargck type "b" int
211 #pragma varargck type "d" uint
212 #pragma varargck type "x" uint
213 #pragma varargck type "c" uint
214 #pragma varargck type "C" uint
215 #pragma varargck type "b" uint
216 #pragma varargck type "f" double
217 #pragma varargck type "e" double
218 #pragma varargck type "g" double
219 #pragma varargck type "s" char*
220 #pragma varargck type "q" char*
221 #pragma varargck type "S" Rune*
222 #pragma varargck type "Q" Rune*
223 #pragma varargck type "r" void
224 #pragma varargck type "%" void
225 #pragma varargck type "n" int*
226 #pragma varargck type "p" uintptr
227 #pragma varargck type "p" void*
228 #pragma varargck flag ','
229 #pragma varargck flag ' '
230 #pragma varargck flag 'h'
231 #pragma varargck type "<" void*
232 #pragma varargck type "[" void*
233 #pragma varargck type "H" void*
234 #pragma varargck type "lH" void*
236 extern int fmtinstall(int, int (*)(Fmt*));
237 extern int dofmt(Fmt*, char*);
238 extern int dorfmt(Fmt*, Rune*);
239 extern int fmtprint(Fmt*, char*, ...);
240 extern int fmtvprint(Fmt*, char*, va_list);
241 extern int fmtrune(Fmt*, int);
242 extern int fmtstrcpy(Fmt*, char*);
243 extern int fmtrunestrcpy(Fmt*, Rune*);
245 * error string for %r
246 * supplied on per os basis, not part of fmt library
248 extern int errfmt(Fmt *f);
253 extern char *unquotestrdup(char*);
254 extern Rune *unquoterunestrdup(Rune*);
255 extern char *quotestrdup(char*);
256 extern Rune *quoterunestrdup(Rune*);
257 extern int quotestrfmt(Fmt*);
258 extern int quoterunestrfmt(Fmt*);
259 extern void quotefmtinstall(void);
260 extern int (*doquote)(int);
261 extern int needsrcquote(int);
266 extern void srand(long);
267 extern int rand(void);
268 extern int nrand(int);
269 extern long lrand(void);
270 extern long lnrand(long);
271 extern double frand(void);
272 extern ulong truerand(void); /* uses /dev/random */
273 extern ulong ntruerand(ulong); /* uses /dev/random */
278 extern ulong getfcr(void);
279 extern void setfsr(ulong);
280 extern ulong getfsr(void);
281 extern void setfcr(ulong);
282 extern double NaN(void);
283 extern double Inf(int);
284 extern int isNaN(double);
285 extern int isInf(double, int);
286 extern ulong umuldiv(ulong, ulong, ulong);
287 extern long muldiv(long, long, long);
289 extern double pow(double, double);
290 extern double atan2(double, double);
291 extern double fabs(double);
292 extern double atan(double);
293 extern double log(double);
294 extern double log10(double);
295 extern double exp(double);
296 extern double floor(double);
297 extern double ceil(double);
298 extern double hypot(double, double);
299 extern double sin(double);
300 extern double cos(double);
301 extern double tan(double);
302 extern double asin(double);
303 extern double acos(double);
304 extern double sinh(double);
305 extern double cosh(double);
306 extern double tanh(double);
307 extern double sqrt(double);
308 extern double fmod(double, double);
310 #define HUGE 3.4028234e38
311 #define PIO2 1.570796326794896619231e0
312 #define PI (PIO2+PIO2)
317 typedef struct Tzone Tzone;
318 #pragma incomplete Tzone
324 int nsec; /* nseconds (range 0...1e9) */
325 int sec; /* seconds (range 0..60) */
326 int min; /* minutes (0..59) */
327 int hour; /* hours (0..23) */
328 int mday; /* day of the month (1..31) */
329 int mon; /* month of the year (0..11) */
330 int year; /* year A.D. */
331 int wday; /* day of week (0..6, Sunday = 0) */
332 int yday; /* day of year (0..365) */
333 char zone[16]; /* time zone name */
334 int tzoff; /* time zone delta from GMT */
335 Tzone *tz; /* time zone associated with this date */
344 #pragma varargck type "Ï„" Tmfmt
346 extern Tzone* tzload(char *name);
347 extern Tm* tmnow(Tm*, Tzone*);
348 extern Tm* tmtime(Tm*, vlong, Tzone*);
349 extern Tm* tmtimens(Tm*, vlong, int, Tzone*);
350 extern Tm* tmparse(Tm*, char*, char*, Tzone*, char **ep);
351 extern vlong tmnorm(Tm*);
352 extern Tmfmt tmfmt(Tm*, char*);
353 extern void tmfmtinstall(void);
355 extern Tm* gmtime(long);
356 extern Tm* localtime(long);
357 extern char* asctime(Tm*);
358 extern char* ctime(long);
359 extern double cputime(void);
360 extern long times(long*);
361 extern long tm2sec(Tm*);
362 extern vlong nsec(void);
364 extern void cycles(uvlong*); /* 64-bit value of the cycle counter if there is one, 0 if there isn't */
375 extern void _assert(char*);
377 extern int atexit(void(*)(void));
378 extern void atexitdont(void(*)(void));
379 extern int atnotify(int(*)(void*, char*), int);
380 extern double atof(char*);
381 extern int atoi(char*);
382 extern long atol(char*);
383 extern vlong atoll(char*);
384 extern double charstod(int(*)(void*), void*);
385 extern char* cleanname(char*);
386 extern int decrypt(void*, void*, int);
387 extern int encrypt(void*, void*, int);
388 extern int dec64(uchar*, int, char*, int);
389 extern int enc64(char*, int, uchar*, int);
390 extern int dec32(uchar*, int, char*, int);
391 extern int enc32(char*, int, uchar*, int);
392 extern int dec16(uchar*, int, char*, int);
393 extern int enc16(char*, int, uchar*, int);
394 extern int dec64chr(int);
395 extern int enc64chr(int);
396 extern int dec32chr(int);
397 extern int enc32chr(int);
398 extern int dec16chr(int);
399 extern int enc16chr(int);
400 extern int encodefmt(Fmt*);
401 extern void exits(char*);
402 extern double frexp(double, int*);
403 extern uintptr getcallerpc(void*);
404 extern char* getenv(char*);
405 extern int getfields(char*, char**, int, int, char*);
406 extern int gettokens(char *, char **, int, char *);
407 extern char* getuser(void);
408 extern char* getwd(char*, int);
409 extern int iounit(int);
410 extern long labs(long);
411 extern double ldexp(double, int);
412 extern void longjmp(jmp_buf, int);
413 extern char* mktemp(char*);
414 extern double modf(double, double*);
415 extern int netcrypt(void*, void*);
416 extern void notejmp(void*, jmp_buf, int);
417 extern void perror(char*);
418 extern int postnote(int, int, char *);
419 extern double pow10(int);
420 extern int putenv(char*, char*);
421 extern void qsort(void*, long, long, int (*)(void*, void*));
422 extern int setjmp(jmp_buf);
423 extern double strtod(char*, char**);
424 extern long strtol(char*, char**, int);
425 extern ulong strtoul(char*, char**, int);
426 extern vlong strtoll(char*, char**, int);
427 extern uvlong strtoull(char*, char**, int);
428 extern void sysfatal(char*, ...);
429 #pragma varargck argpos sysfatal 1
430 extern void syslog(int, char*, char*, ...);
431 #pragma varargck argpos syslog 3
432 extern long time(long*);
433 extern int tolower(int);
434 extern int toupper(int);
440 Profoff, /* No profiling */
441 Profuser, /* Measure user time only (default) */
442 Profkernel, /* Measure user + kernel time */
443 Proftime, /* Measure total time */
444 Profsample, /* Use clock interrupt to sample (default when there is no cycle counter) */
446 extern void prof(void (*fn)(void*), void *arg, int entries, int what);
456 extern int _tas(int*);
458 extern void lock(Lock*);
459 extern void unlock(Lock*);
460 extern int canlock(Lock*);
462 typedef struct QLp QLp;
479 extern void qlock(QLock*);
480 extern void qunlock(QLock*);
481 extern int canqlock(QLock*);
482 extern void _qlockinit(void* (*)(void*, void*)); /* called only by the thread library */
488 int readers; /* number of readers */
489 int writer; /* number of writers */
490 QLp *head; /* list of waiting processes */
494 extern void rlock(RWLock*);
495 extern void runlock(RWLock*);
496 extern int canrlock(RWLock*);
497 extern void wlock(RWLock*);
498 extern void wunlock(RWLock*);
499 extern int canwlock(RWLock*);
509 extern void rsleep(Rendez*); /* unlocks r->l, sleeps, locks r->l again */
510 extern int rwakeup(Rendez*);
511 extern int rwakeupall(Rendez*);
512 extern void** privalloc(void);
514 extern void procsetname(char*, ...);
515 #pragma varargck argpos procsetname 1
520 #define NETPATHLEN 40
521 extern int accept(int, char*);
522 extern int announce(char*, char*);
523 extern int dial(char*, char*, char*, int*);
524 extern void setnetmtpt(char*, int, char*);
525 extern int hangup(int);
526 extern int listen(char*, char*);
527 extern char* netmkaddr(char*, char*, char*);
528 extern int reject(int, char*, char*);
533 extern int pushssl(int, char*, char*, char*, int*);
534 extern int pushtls(int, char*, char*, int, char*, char*);
539 typedef struct NetConnInfo NetConnInfo;
542 char *dir; /* connection directory */
543 char *root; /* network root */
544 char *spec; /* binding spec */
545 char *lsys; /* local system */
546 char *lserv; /* local service */
547 char *rsys; /* remote system */
548 char *rserv; /* remote service */
549 char *laddr; /* local address */
550 char *raddr; /* remote address */
552 extern NetConnInfo* getnetconninfo(char*, int);
553 extern void freenetconninfo(NetConnInfo*);
555 extern int idn2utf(char*, char*, int);
556 extern int utf2idn(char*, char*, int);
562 #define STATMAX 65535U /* max length of machine-independent stat structure */
563 #define DIRMAX (sizeof(Dir)+STATMAX) /* max length of Dir structure */
564 #define ERRMAX 128 /* max length of error string */
566 #define MORDER 0x0003 /* mask for bits defining order of mounting */
567 #define MREPL 0x0000 /* mount replaces object */
568 #define MBEFORE 0x0001 /* mount goes before others in union directory */
569 #define MAFTER 0x0002 /* mount goes after others in union directory */
570 #define MCREATE 0x0004 /* permit creation in mounted directory */
571 #define MCACHE 0x0010 /* cache some data */
572 #define MMASK 0x0017 /* all bits on */
574 #define OREAD 0 /* open for read */
575 #define OWRITE 1 /* write */
576 #define ORDWR 2 /* read and write */
577 #define OEXEC 3 /* execute, == read but check execute permission */
578 #define OTRUNC 16 /* or'ed in (except for exec), truncate file first */
579 #define OCEXEC 32 /* or'ed in, close on exec */
580 #define ORCLOSE 64 /* or'ed in, remove on close */
581 #define OEXCL 0x1000 /* or'ed in, exclusive use (create only) */
583 #define AEXIST 0 /* accessible: exists */
584 #define AEXEC 1 /* execute access */
585 #define AWRITE 2 /* write access */
586 #define AREAD 4 /* read access */
589 #define SG_RONLY 0040 /* read only */
590 #define SG_CEXEC 0100 /* detach on exec */
592 #define NCONT 0 /* continue after note */
593 #define NDFLT 1 /* terminate after note */
594 #define NSAVE 2 /* clear note but hold state */
595 #define NRSTR 3 /* restore saved state */
597 /* bits in Qid.type */
598 #define QTDIR 0x80 /* type bit for directories */
599 #define QTAPPEND 0x40 /* type bit for append only files */
600 #define QTEXCL 0x20 /* type bit for exclusive use files */
601 #define QTMOUNT 0x10 /* type bit for mounted channel */
602 #define QTAUTH 0x08 /* type bit for authentication file */
603 #define QTTMP 0x04 /* type bit for not-backed-up file */
604 #define QTFILE 0x00 /* plain file */
606 /* bits in Dir.mode */
607 #define DMDIR 0x80000000 /* mode bit for directories */
608 #define DMAPPEND 0x40000000 /* mode bit for append only files */
609 #define DMEXCL 0x20000000 /* mode bit for exclusive use files */
610 #define DMMOUNT 0x10000000 /* mode bit for mounted channel */
611 #define DMAUTH 0x08000000 /* mode bit for authentication file */
612 #define DMTMP 0x04000000 /* mode bit for non-backed-up files */
613 #define DMREAD 0x4 /* mode bit for read permission */
614 #define DMWRITE 0x2 /* mode bit for write permission */
615 #define DMEXEC 0x1 /* mode bit for execute permission */
644 /* system-modified data */
645 ushort type; /* server type */
646 uint dev; /* server subtype */
648 Qid qid; /* unique id from server */
649 ulong mode; /* permissions */
650 ulong atime; /* last read time */
651 ulong mtime; /* last write time */
652 vlong length; /* file length */
653 char *name; /* last element of path */
654 char *uid; /* owner name */
655 char *gid; /* group name */
656 char *muid; /* last modifier name */
659 /* keep /sys/src/ape/lib/ap/plan9/sys9.h in sync with this -rsc */
663 int pid; /* of loved one */
664 ulong time[3]; /* of loved one & descendants */
675 extern void _exits(char*);
677 extern void abort(void);
678 extern int access(char*, int);
679 extern long alarm(ulong);
680 extern int await(char*, int);
681 extern int bind(char*, char*, int);
682 extern int brk(void*);
683 extern int chdir(char*);
684 extern int close(int);
685 extern int create(char*, int, ulong);
686 extern int dup(int, int);
687 extern int errstr(char*, uint);
688 extern int exec(char*, char*[]);
689 extern int execl(char*, ...);
690 extern int fork(void);
691 extern int rfork(int);
692 extern int fauth(int, char*);
693 extern int fstat(int, uchar*, int);
694 extern int fwstat(int, uchar*, int);
695 extern int fversion(int, int, char*, int);
696 extern int mount(int, int, char*, int, char*);
697 extern int unmount(char*, char*);
698 extern int noted(int);
699 extern int notify(void(*)(void*, char*));
700 extern int open(char*, int);
701 extern int fd2path(int, char*, int);
702 extern int pipe(int*);
703 extern long pread(int, void*, long, vlong);
704 extern long preadv(int, IOchunk*, int, vlong);
705 extern long pwrite(int, void*, long, vlong);
706 extern long pwritev(int, IOchunk*, int, vlong);
707 extern long read(int, void*, long);
708 extern long readn(int, void*, long);
709 extern long readv(int, IOchunk*, int);
710 extern int remove(char*);
711 extern void* sbrk(ulong);
712 extern long oseek(int, long, int);
713 extern vlong seek(int, vlong, int);
714 extern void* segattach(int, char*, void*, ulong);
715 extern void* segbrk(void*, void*);
716 extern int segdetach(void*);
717 extern int segflush(void*, ulong);
718 extern int segfree(void*, ulong);
719 extern int semacquire(long*, int);
720 extern long semrelease(long*, long);
721 extern int sleep(long);
722 extern int stat(char*, uchar*, int);
723 extern int tsemacquire(long*, ulong);
724 extern Waitmsg* wait(void);
725 extern int waitpid(void);
726 extern long write(int, void*, long);
727 extern long writev(int, IOchunk*, int);
728 extern int wstat(char*, uchar*, int);
729 extern void* rendezvous(void*, void*);
731 extern Dir* dirstat(char*);
732 extern Dir* dirfstat(int);
733 extern int dirwstat(char*, Dir*);
734 extern int dirfwstat(int, Dir*);
735 extern long dirread(int, Dir**);
736 extern void nulldir(Dir*);
737 extern long dirreadall(int, Dir**);
738 extern int getpid(void);
739 extern int getppid(void);
740 extern void rerrstr(char*, uint);
741 extern char* sysname(void);
742 extern void werrstr(char*, ...);
743 #pragma varargck argpos werrstr 1
745 extern long ainc(long*);
746 extern long adec(long*);
749 #define ARGBEGIN for((argv0||(argv0=*argv)),argv++,argc--;\
750 argv[0] && argv[0][0]=='-' && argv[0][1];\
752 char *_args, *_argt;\
754 _args = &argv[0][1];\
755 if(_args[0]=='-' && _args[1]==0){\
756 argc--; argv++; break;\
759 while(*_args && (_args += chartorune(&_argc, _args)))\
761 #define ARGEND SET(_argt);USED(_argt,_argc,_args);}USED(argv, argc);
762 #define ARGF() (_argt=_args, _args="",\
763 (*_argt? _argt: argv[1]? (argc--, *++argv): 0))
764 #define EARGF(x) (_argt=_args, _args="",\
765 (*_argt? _argt: argv[1]? (argc--, *++argv): ((x), abort(), (char*)0)))
769 /* this is used by sbrk and brk, it's a really bad idea to redefine it */