1 #include <u.h> 2 typedef unsigned long size_t; 3 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") 7 8 /* 9 * mem routines 10 */ 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); 17 18 /* 19 * string routines 20 */ 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); 41 42 enum 43 { 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) */ 50 }; 51 52 /* 53 * rune routines 54 */ 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*); 66 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*); 79 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 89 /* 90 * malloc 91 */ 92 extern void* malloc(ulong); 93 extern void* mallocz(ulong, int); 94 extern void free(void*); 95 extern ulong msize(void*); 96 extern void* calloc(ulong, ulong); 97 extern void* realloc(void*, ulong); 98 extern void setmalloctag(void*, ulong); 99 extern void setrealloctag(void*, ulong); 100 extern ulong getmalloctag(void*); 101 extern ulong getrealloctag(void*); 102 extern void* malloctopoolblock(void*); 103 104 /* 105 * print routines 106 */ 107 typedef struct Fmt Fmt; 108 struct Fmt{ 109 uchar runes; /* output buffer is runes or chars? */ 110 void *start; /* of buffer */ 111 void *to; /* current place in the buffer */ 112 void *stop; /* end of the buffer; overwritten if flush fails */ 113 int (*flush)(Fmt *); /* called when to == stop */ 114 void *farg; /* to make flush a closure */ 115 int nfmt; /* num chars formatted so far */ 116 va_list args; /* args passed to dofmt */ 117 int r; /* % format Rune */ 118 int width; 119 int prec; 120 ulong flags; 121 }; 122 123 enum{ 124 FmtWidth = 1, 125 FmtLeft = FmtWidth << 1, 126 FmtPrec = FmtLeft << 1, 127 FmtSharp = FmtPrec << 1, 128 FmtSpace = FmtSharp << 1, 129 FmtSign = FmtSpace << 1, 130 FmtZero = FmtSign << 1, 131 FmtUnsigned = FmtZero << 1, 132 FmtShort = FmtUnsigned << 1, 133 FmtLong = FmtShort << 1, 134 FmtVLong = FmtLong << 1, 135 FmtComma = FmtVLong << 1, 136 FmtByte = FmtComma << 1, 137 138 FmtFlag = FmtByte << 1 139 }; 140 141 extern int print(char*, ...); 142 extern char* seprint(char*, char*, char*, ...); 143 extern char* vseprint(char*, char*, char*, va_list); 144 extern int snprint(char*, int, char*, ...); 145 extern int vsnprint(char*, int, char*, va_list); 146 extern char* smprint(char*, ...); 147 extern char* vsmprint(char*, va_list); 148 extern int sprint(char*, char*, ...); 149 extern int fprint(int, char*, ...); 150 extern int vfprint(int, char*, va_list); 151 152 extern int runesprint(Rune*, char*, ...); 153 extern int runesnprint(Rune*, int, char*, ...); 154 extern int runevsnprint(Rune*, int, char*, va_list); 155 extern Rune* runeseprint(Rune*, Rune*, char*, ...); 156 extern Rune* runevseprint(Rune*, Rune*, char*, va_list); 157 extern Rune* runesmprint(char*, ...); 158 extern Rune* runevsmprint(char*, va_list); 159 160 extern int fmtfdinit(Fmt*, int, char*, int); 161 extern int fmtfdflush(Fmt*); 162 extern int fmtstrinit(Fmt*); 163 extern char* fmtstrflush(Fmt*); 164 extern int runefmtstrinit(Fmt*); 165 extern Rune* runefmtstrflush(Fmt*); 166 167 #pragma varargck argpos fmtprint 2 168 #pragma varargck argpos fprint 2 169 #pragma varargck argpos print 1 170 #pragma varargck argpos runeseprint 3 171 #pragma varargck argpos runesmprint 1 172 #pragma varargck argpos runesnprint 3 173 #pragma varargck argpos runesprint 2 174 #pragma varargck argpos seprint 3 175 #pragma varargck argpos smprint 1 176 #pragma varargck argpos snprint 3 177 #pragma varargck argpos sprint 2 178 #pragma varargck argpos vseprint 3 179 #pragma varargck argpos vsnprint 3 180 181 #pragma varargck type "lld" vlong 182 #pragma varargck type "llx" vlong 183 #pragma varargck type "lld" uvlong 184 #pragma varargck type "llx" uvlong 185 #pragma varargck type "ld" long 186 #pragma varargck type "lx" long 187 #pragma varargck type "ld" ulong 188 #pragma varargck type "lx" ulong 189 #pragma varargck type "d" int 190 #pragma varargck type "x" int 191 #pragma varargck type "c" int 192 #pragma varargck type "C" int 193 #pragma varargck type "d" uint 194 #pragma varargck type "x" uint 195 #pragma varargck type "c" uint 196 #pragma varargck type "C" uint 197 #pragma varargck type "f" double 198 #pragma varargck type "e" double 199 #pragma varargck type "g" double 200 #pragma varargck type "s" char* 201 #pragma varargck type "q" char* 202 #pragma varargck type "S" Rune* 203 #pragma varargck type "Q" Rune* 204 #pragma varargck type "r" void 205 #pragma varargck type "%" void 206 #pragma varargck type "n" int* 207 #pragma varargck type "p" void* 208 #pragma varargck flag ',' 209 #pragma varargck type "<" void* 210 #pragma varargck type "[" void* 211 #pragma varargck type "H" void* 212 213 extern int fmtinstall(int, int (*)(Fmt*)); 214 extern int dofmt(Fmt*, char*); 215 extern int dorfmt(Fmt*, Rune*); 216 extern int fmtprint(Fmt*, char*, ...); 217 extern int fmtvprint(Fmt*, char*, va_list); 218 extern int fmtrune(Fmt*, int); 219 extern int fmtstrcpy(Fmt*, char*); 220 extern int fmtrunestrcpy(Fmt*, Rune*); 221 /* 222 * error string for %r 223 * supplied on per os basis, not part of fmt library 224 */ 225 extern int errfmt(Fmt *f); 226 227 /* 228 * quoted strings 229 */ 230 extern char *unquotestrdup(char*); 231 extern Rune *unquoterunestrdup(Rune*); 232 extern char *quotestrdup(char*); 233 extern Rune *quoterunestrdup(Rune*); 234 extern int quotestrfmt(Fmt*); 235 extern int quoterunestrfmt(Fmt*); 236 extern void quotefmtinstall(void); 237 extern int (*doquote)(int); 238 239 /* 240 * random number 241 */ 242 extern void srand(long); 243 extern int rand(void); 244 extern int nrand(int); 245 extern long lrand(void); 246 extern long lnrand(long); 247 extern double frand(void); 248 extern ulong truerand(void); 249 extern ulong ntruerand(ulong); 250 251 /* 252 * math 253 */ 254 extern ulong getfcr(void); 255 extern void setfsr(ulong); 256 extern ulong getfsr(void); 257 extern void setfcr(ulong); 258 extern double NaN(void); 259 extern double Inf(int); 260 extern int isNaN(double); 261 extern int isInf(double, int); 262 263 extern double pow(double, double); 264 extern double atan2(double, double); 265 extern double fabs(double); 266 extern double atan(double); 267 extern double log(double); 268 extern double log10(double); 269 extern double exp(double); 270 extern double floor(double); 271 extern double ceil(double); 272 extern double hypot(double, double); 273 extern double sin(double); 274 extern double cos(double); 275 extern double tan(double); 276 extern double asin(double); 277 extern double acos(double); 278 extern double sinh(double); 279 extern double cosh(double); 280 extern double tanh(double); 281 extern double sqrt(double); 282 extern double fmod(double, double); 283 284 #define HUGE 3.4028234e38 285 #define PIO2 1.570796326794896619231e0 286 #define PI (PIO2+PIO2) 287 288 /* 289 * Time-of-day 290 */ 291 292 typedef 293 struct Tm 294 { 295 int sec; 296 int min; 297 int hour; 298 int mday; 299 int mon; 300 int year; 301 int wday; 302 int yday; 303 char zone[4]; 304 int tzoff; 305 } Tm; 306 307 extern Tm* gmtime(long); 308 extern Tm* localtime(long); 309 extern char* asctime(Tm*); 310 extern char* ctime(long); 311 extern double cputime(void); 312 extern long times(long*); 313 extern long tm2sec(Tm*); 314 extern vlong nsec(void); 315 316 /* 317 * one-of-a-kind 318 */ 319 enum 320 { 321 PNPROC = 1, 322 PNGROUP = 2, 323 }; 324 325 extern void _assert(char*); 326 extern int abs(int); 327 extern int atexit(void(*)(void)); 328 extern void atexitdont(void(*)(void)); 329 extern int atnotify(int(*)(void*, char*), int); 330 extern double atof(char*); 331 extern int atoi(char*); 332 extern long atol(char*); 333 extern double charstod(int(*)(void*), void*); 334 extern char* cleanname(char*); 335 extern int decrypt(void*, void*, int); 336 extern int encrypt(void*, void*, int); 337 extern int dec64(uchar*, int, char*, int); 338 extern int enc64(char*, int, uchar*, int); 339 extern int dec32(uchar*, int, char*, int); 340 extern int enc32(char*, int, uchar*, int); 341 extern int dec16(uchar*, int, char*, int); 342 extern int enc16(char*, int, uchar*, int); 343 extern int encodefmt(Fmt*); 344 extern void exits(char*); 345 extern double frexp(double, int*); 346 extern uintptr getcallerpc(void*); 347 extern char* getenv(char*); 348 extern int getfields(char*, char**, int, int, char*); 349 extern char* getuser(void); 350 extern char* getwd(char*, int); 351 extern int iounit(int); 352 extern long labs(long); 353 extern double ldexp(double, int); 354 extern void longjmp(jmp_buf, int); 355 extern char* mktemp(char*); 356 extern double modf(double, double*); 357 extern int netcrypt(void*, void*); 358 extern void notejmp(void*, jmp_buf, int); 359 extern void perror(char*); 360 extern int postnote(int, int, char *); 361 extern double pow10(int); 362 extern double ipow10(int); 363 extern int putenv(char*, char*); 364 extern void qsort(void*, long, long, int (*)(void*, void*)); 365 extern void* sbrk(ulong); 366 extern int setjmp(jmp_buf); 367 extern double strtod(char*, char**); 368 extern long strtol(char*, char**, int); 369 extern ulong strtoul(char*, char**, int); 370 extern vlong strtoll(char*, char**, int); 371 extern uvlong strtoull(char*, char**, int); 372 extern void sysfatal(char*, ...); 373 #pragma varargck argpos sysfatal 1 374 extern void syslog(int, char*, char*, ...); 375 #pragma varargck argpos syslog 3 376 extern long time(long*); 377 extern int tolower(int); 378 extern int toupper(int); 379 380 /* 381 * synchronization 382 */ 383 typedef 384 struct Lock { 385 int val; 386 } Lock; 387 388 extern int _tas(int*); 389 390 extern void lock(Lock*); 391 extern void unlock(Lock*); 392 extern int canlock(Lock*); 393 394 typedef struct QLp QLp; 395 struct QLp 396 { 397 int inuse; 398 QLp *next; 399 char state; 400 }; 401 402 typedef 403 struct QLock 404 { 405 Lock lock; 406 int locked; 407 QLp *head; 408 QLp *tail; 409 } QLock; 410 411 extern void qlock(QLock*); 412 extern void qunlock(QLock*); 413 extern int canqlock(QLock*); 414 extern void _qlockinit(ulong (*)(ulong, ulong)); /* called only by the thread library */ 415 416 typedef 417 struct RWLock 418 { 419 Lock lock; 420 int readers; /* number of readers */ 421 int writer; /* number of writers */ 422 QLp *head; /* list of waiting processes */ 423 QLp *tail; 424 } RWLock; 425 426 extern int canrlock(RWLock*); 427 extern int canwlock(RWLock*); 428 extern void rlock(RWLock*); 429 extern void runlock(RWLock*); 430 extern void wlock(RWLock*); 431 extern void wunlock(RWLock*); 432 433 extern void** privalloc(void); 434 extern void privfree(void**); 435 436 /* 437 * network dialing 438 */ 439 #define NETPATHLEN 40 440 extern int accept(int, char*); 441 extern int announce(char*, char*); 442 extern int dial(char*, char*, char*, int*); 443 extern void setnetmtpt(char*, int, char*); 444 extern int hangup(int); 445 extern int listen(char*, char*); 446 extern char* netmkaddr(char*, char*, char*); 447 extern int reject(int, char*, char*); 448 449 /* 450 * system calls 451 * 452 */ 453 #define STATMAX 65535U /* max length of machine-independent stat structure */ 454 #define DIRMAX (sizeof(Dir)+STATMAX) /* max length of Dir structure */ 455 #define ERRMAX 128 /* max length of error string */ 456 457 #define MORDER 0x0003 /* mask for bits defining order of mounting */ 458 #define MREPL 0x0000 /* mount replaces object */ 459 #define MBEFORE 0x0001 /* mount goes before others in union directory */ 460 #define MAFTER 0x0002 /* mount goes after others in union directory */ 461 #define MCREATE 0x0004 /* permit creation in mounted directory */ 462 #define MCACHE 0x0010 /* cache some data */ 463 #define MMASK 0x0017 /* all bits on */ 464 465 #define OREAD 0 /* open for read */ 466 #define OWRITE 1 /* write */ 467 #define ORDWR 2 /* read and write */ 468 #define OEXEC 3 /* execute, == read but check execute permission */ 469 #define OTRUNC 16 /* or'ed in (except for exec), truncate file first */ 470 #define OCEXEC 32 /* or'ed in, close on exec */ 471 #define ORCLOSE 64 /* or'ed in, remove on close */ 472 #define OEXCL 0x1000 /* or'ed in, exclusive use (create only) */ 473 474 #define AEXIST 0 /* accessible: exists */ 475 #define AEXEC 1 /* execute access */ 476 #define AWRITE 2 /* write access */ 477 #define AREAD 4 /* read access */ 478 479 480 /* Segattch */ 481 #define SG_RONLY 0040 /* read only */ 482 #define SG_CEXEC 0100 /* detach on exec */ 483 484 #define NCONT 0 /* continue after note */ 485 #define NDFLT 1 /* terminate after note */ 486 #define NSAVE 2 /* clear note but hold state */ 487 #define NRSTR 3 /* restore saved state */ 488 489 /* rfork */ 490 enum 491 { 492 RFNAMEG = (1<<0), 493 RFENVG = (1<<1), 494 RFFDG = (1<<2), 495 RFNOTEG = (1<<3), 496 RFPROC = (1<<4), 497 RFMEM = (1<<5), 498 RFNOWAIT = (1<<6), 499 RFCNAMEG = (1<<10), 500 RFCENVG = (1<<11), 501 RFCFDG = (1<<12), 502 RFREND = (1<<13), 503 RFNOMNT = (1<<14) 504 }; 505 506 /* bits in Qid.type */ 507 #define QTDIR 0x80 /* type bit for directories */ 508 #define QTAPPEND 0x40 /* type bit for append only files */ 509 #define QTEXCL 0x20 /* type bit for exclusive use files */ 510 #define QTMOUNT 0x10 /* type bit for mounted channel */ 511 #define QTAUTH 0x08 /* type bit for authentication file */ 512 #define QTFILE 0x00 /* plain file */ 513 514 /* bits in Dir.mode */ 515 #define DMDIR 0x80000000 /* mode bit for directories */ 516 #define DMAPPEND 0x40000000 /* mode bit for append only files */ 517 #define DMEXCL 0x20000000 /* mode bit for exclusive use files */ 518 #define DMMOUNT 0x10000000 /* mode bit for mounted channel */ 519 #define DMAUTH 0x08000000 /* mode bit for authentication file */ 520 #define DMREAD 0x4 /* mode bit for read permission */ 521 #define DMWRITE 0x2 /* mode bit for write permission */ 522 #define DMEXEC 0x1 /* mode bit for execute permission */ 523 524 typedef 525 struct Qid 526 { 527 uvlong path; 528 ulong vers; 529 uchar type; 530 } Qid; 531 532 typedef 533 struct Dir { 534 /* system-modified data */ 535 ushort type; /* server type */ 536 uint dev; /* server subtype */ 537 /* file data */ 538 Qid qid; /* unique id from server */ 539 ulong mode; /* permissions */ 540 ulong atime; /* last read time */ 541 ulong mtime; /* last write time */ 542 vlong length; /* file length */ 543 char *name; /* last element of path */ 544 char *uid; /* owner name */ 545 char *gid; /* group name */ 546 char *muid; /* last modifier name */ 547 } Dir; 548 549 extern Dir* dirstat(char*); 550 extern Dir* dirfstat(int); 551 extern int dirwstat(char*, Dir*); 552 extern int dirfwstat(int, Dir*); 553 extern long dirread(int, Dir**); 554 extern void nulldir(Dir*); 555 extern long dirreadall(int, Dir**); 556 557 typedef 558 struct Waitmsg 559 { 560 int pid; /* of loved one */ 561 ulong time[3]; /* of loved one & descendants */ 562 char *msg; 563 } Waitmsg; 564 565 typedef 566 struct IOchunk 567 { 568 void *addr; 569 ulong len; 570 } IOchunk; 571 572 extern void _exits(char*); 573 574 extern void abort(void); 575 extern int access(char*, int); 576 extern long alarm(ulong); 577 extern int await(char*, int); 578 extern int bind(char*, char*, int); 579 extern int brk(void*); 580 extern int chdir(char*); 581 extern int close(int); 582 extern int create(char*, int, ulong); 583 extern int dup(int, int); 584 extern int errstr(char*, uint); 585 extern int exec(char*, char*[]); 586 extern int execl(char*, ...); 587 extern int fork(void); 588 extern int rfork(int); 589 extern int fauth(int, char*); 590 extern int fstat(int, uchar*, int); 591 extern int fwstat(int, uchar*, int); 592 extern int fversion(int, int, char*, int); 593 extern int mount(int, int, char*, int, char*); 594 extern int unmount(char*, char*); 595 extern int noted(int); 596 extern int notify(void(*)(void*, char*)); 597 extern int open(char*, int); 598 extern int fd2path(int, char*, int); 599 extern int pipe(int*); 600 extern long pread(int, void*, long, vlong); 601 extern long preadv(int, IOchunk*, int, vlong); 602 extern long pwrite(int, void*, long, vlong); 603 extern long pwritev(int, IOchunk*, int, vlong); 604 extern long read(int, void*, long); 605 extern long readn(int, void*, long); 606 extern long readv(int, IOchunk*, int); 607 extern int remove(char*); 608 extern void* sbrk(ulong); 609 extern long oseek(int, long, int); 610 extern vlong seek(int, vlong, int); 611 extern long segattach(int, char*, void*, ulong); 612 extern int segbrk(void*, void*); 613 extern int segdetach(void*); 614 extern int segflush(void*, ulong); 615 extern int segfree(void*, ulong); 616 extern int sleep(long); 617 extern int stat(char*, uchar*, int); 618 extern Waitmsg* wait(void); 619 extern int waitpid(void); 620 extern long write(int, void*, long); 621 extern long writev(int, IOchunk*, int); 622 extern int wstat(char*, uchar*, int); 623 extern void* rendezvous(void*, void*); 624 625 extern int getpid(void); 626 extern int getppid(void); 627 extern void rerrstr(char*, uint); 628 extern char* sysname(void); 629 extern void werrstr(char*, ...); 630 #pragma varargck argpos werrstr 1 631 632 extern char *argv0; 633 #define ARGBEGIN for((argv0||(argv0=*argv)),argv++,argc--;\ 634 argv[0] && argv[0][0]=='-' && argv[0][1];\ 635 argc--, argv++) {\ 636 char *_args, *_argt;\ 637 Rune _argc;\ 638 _args = &argv[0][1];\ 639 if(_args[0]=='-' && _args[1]==0){\ 640 argc--; argv++; break;\ 641 }\ 642 _argc = 0;\ 643 while(*_args && (_args += chartorune(&_argc, _args)))\ 644 switch(_argc) 645 #define ARGEND SET(_argt);USED(_argt,_argc,_args);}USED(argv, argc); 646 #define ARGF() (_argt=_args, _args="",\ 647 (*_argt? _argt: argv[1]? (argc--, *++argv): 0)) 648 #define EARGF(x) (_argt=_args, _args="",\ 649 (*_argt? _argt: argv[1]? (argc--, *++argv): ((x), abort(), (char*)0))) 650 651 #define ARGC() _argc 652 653 654 /* 655 * Extensions for Inferno to basic libc.h 656 */ 657 658 #define setbinmode() 659 #define __LITTLE_ENDIAN 660 661