1 /* 2 * Based on FreeBSD lib9.h 3 * Copyright © 1998, 1999 Lucent Technologies Inc. All rights reserved. 4 * Revisions Copyright © 1999, 2002 Vita Nuova Limited. All rights reserved. 5 * Revisions Copyright © 2002, 2003 Corpus Callosum Corporation. All rights reserved. 6 */ 7 8 /* define _BSD_SOURCE to use ISO C, POSIX, and 4.4BSD things. */ 9 #ifndef _BSD_SOURCE 10 #define _BSD_SOURCE 11 #endif 12 #define _LARGEFILE64_SOURCE 1 13 #define _FILE_OFFSET_BITS 64 14 15 #include <sys/types.h> 16 #include <sys/stat.h> 17 #include <stdlib.h> 18 #include <stdarg.h> 19 #include <unistd.h> 20 #include <errno.h> 21 #include <string.h> 22 #include "math.h" 23 #include <fcntl.h> 24 #include <setjmp.h> 25 #include <float.h> 26 #include <time.h> 27 28 #define nil ((void*)0) 29 30 // typedef unsigned short ushort; 31 typedef unsigned char uchar; 32 typedef unsigned long ulong; 33 // typedef unsigned int uint; 34 typedef signed char schar; 35 typedef long long vlong; 36 typedef unsigned long long uvlong; 37 typedef unsigned int Rune; 38 typedef unsigned int u32int; 39 typedef uvlong u64int; 40 41 typedef unsigned int mpdigit; /* for /sys/include/mp.h */ 42 typedef unsigned short u16int; 43 typedef unsigned char u8int; 44 typedef unsigned long uintptr; 45 46 typedef signed char int8; 47 typedef unsigned char uint8; 48 typedef short int16; 49 typedef unsigned short uint16; 50 typedef int int32; 51 typedef unsigned int uint32; 52 typedef long long int64; 53 typedef unsigned long long uint64; 54 55 /* handle conflicts with host os libs */ 56 #define getwd infgetwd 57 #define scalb infscalb 58 #define div infdiv 59 #define panic infpanic 60 #define rint infrint 61 #define rcmd infrcmd 62 #define pow10 infpow10 63 64 #ifndef EMU 65 typedef struct Proc Proc; 66 #endif 67 68 /* 69 * math module dtoa 70 */ 71 #include <machine/endian.h> 72 #define __LITTLE_ENDIAN 73 74 #define USED(x) if(x){}else{} 75 #define SET(x) 76 77 #define nelem(x) (sizeof(x)/sizeof((x)[0])) 78 #undef offsetof 79 #undef assert 80 #define offsetof(s, m) (ulong)(&(((s*)0)->m)) 81 #define assert(x) if(x){}else _assert("x") 82 83 /* 84 * mem and string routines are declared by ANSI/POSIX files above 85 */ 86 87 extern char* strecpy(char*, char*, char*); 88 extern char* strdup(const char*); 89 extern int cistrncmp(char*, char*, int); 90 extern int cistrcmp(char*, char*); 91 extern char* cistrstr(char*, char*); 92 extern int tokenize(char*, char**, int); 93 extern vlong strtoll(const char*, char**, int); 94 #define qsort infqsort 95 extern void qsort(void*, long, long, int (*)(void*, void*)); 96 97 enum 98 { 99 UTFmax = 4, /* maximum bytes per rune */ 100 Runesync = 0x80, /* cannot represent part of a UTF sequence (<) */ 101 Runeself = 0x80, /* rune and UTF sequences are the same (<) */ 102 Runeerror = 0xFFFD, /* decoding error in UTF */ 103 Runemax = 0x10FFFF, /* 21-bit rune */ 104 Runemask = 0x1FFFFF, /* bits used by runes (see grep) */ 105 }; 106 107 /* 108 * rune routines 109 */ 110 extern int runetochar(char*, Rune*); 111 extern int chartorune(Rune*, char*); 112 extern int runelen(long); 113 extern int runenlen(Rune*, int); 114 extern int fullrune(char*, int); 115 extern int utflen(char*); 116 extern int utfnlen(char*, long); 117 extern char* utfrune(char*, long); 118 extern char* utfrrune(char*, long); 119 extern char* utfutf(char*, char*); 120 extern char* utfecpy(char*, char*, char*); 121 122 extern Rune* runestrcat(Rune*, Rune*); 123 extern Rune* runestrchr(Rune*, Rune); 124 extern int runestrcmp(Rune*, Rune*); 125 extern Rune* runestrcpy(Rune*, Rune*); 126 extern Rune* runestrncpy(Rune*, Rune*, long); 127 extern Rune* runestrecpy(Rune*, Rune*, Rune*); 128 extern Rune* runestrdup(Rune*); 129 extern Rune* runestrncat(Rune*, Rune*, long); 130 extern int runestrncmp(Rune*, Rune*, long); 131 extern Rune* runestrrchr(Rune*, Rune); 132 extern long runestrlen(Rune*); 133 extern Rune* runestrstr(Rune*, Rune*); 134 135 extern Rune tolowerrune(Rune); 136 extern Rune totitlerune(Rune); 137 extern Rune toupperrune(Rune); 138 extern int isalpharune(Rune); 139 extern int islowerrune(Rune); 140 extern int isspacerune(Rune); 141 extern int istitlerune(Rune); 142 extern int isupperrune(Rune); 143 144 /* 145 * malloc 146 */ 147 extern void* malloc(size_t); 148 extern void* mallocz(ulong, int); 149 extern void free(void*); 150 extern ulong msize(void*); 151 extern void* calloc(size_t, size_t); 152 extern void* realloc(void*, size_t); 153 extern void setmalloctag(void*, ulong); 154 extern void setrealloctag(void*, ulong); 155 extern ulong getmalloctag(void*); 156 extern ulong getrealloctag(void*); 157 extern void* malloctopoolblock(void*); 158 159 /* 160 * print routines 161 */ 162 typedef struct Fmt Fmt; 163 struct Fmt{ 164 uchar runes; /* output buffer is runes or chars? */ 165 void *start; /* of buffer */ 166 void *to; /* current place in the buffer */ 167 void *stop; /* end of the buffer; overwritten if flush fails */ 168 int (*flush)(Fmt *); /* called when to == stop */ 169 void *farg; /* to make flush a closure */ 170 int nfmt; /* num chars formatted so far */ 171 va_list args; /* args passed to dofmt */ 172 int r; /* % format Rune */ 173 int width; 174 int prec; 175 ulong flags; 176 }; 177 178 enum{ 179 FmtWidth = 1, 180 FmtLeft = FmtWidth << 1, 181 FmtPrec = FmtLeft << 1, 182 FmtSharp = FmtPrec << 1, 183 FmtSpace = FmtSharp << 1, 184 FmtSign = FmtSpace << 1, 185 FmtZero = FmtSign << 1, 186 FmtUnsigned = FmtZero << 1, 187 FmtShort = FmtUnsigned << 1, 188 FmtLong = FmtShort << 1, 189 FmtVLong = FmtLong << 1, 190 FmtComma = FmtVLong << 1, 191 FmtByte = FmtComma << 1, 192 193 FmtFlag = FmtByte << 1 194 }; 195 196 extern int print(char*, ...); 197 extern char* seprint(char*, char*, char*, ...); 198 extern char* vseprint(char*, char*, char*, va_list); 199 extern int snprint(char*, int, char*, ...); 200 extern int vsnprint(char*, int, char*, va_list); 201 extern char* smprint(char*, ...); 202 extern char* vsmprint(char*, va_list); 203 extern int sprint(char*, char*, ...); 204 extern int fprint(int, char*, ...); 205 extern int vfprint(int, char*, va_list); 206 207 extern int runesprint(Rune*, char*, ...); 208 extern int runesnprint(Rune*, int, char*, ...); 209 extern int runevsnprint(Rune*, int, char*, va_list); 210 extern Rune* runeseprint(Rune*, Rune*, char*, ...); 211 extern Rune* runevseprint(Rune*, Rune*, char*, va_list); 212 extern Rune* runesmprint(char*, ...); 213 extern Rune* runevsmprint(char*, va_list); 214 215 extern int fmtfdinit(Fmt*, int, char*, int); 216 extern int fmtfdflush(Fmt*); 217 extern int fmtstrinit(Fmt*); 218 extern char* fmtstrflush(Fmt*); 219 extern int runefmtstrinit(Fmt*); 220 extern Rune* runefmtstrflush(Fmt*); 221 222 extern int fmtinstall(int, int (*)(Fmt*)); 223 extern int dofmt(Fmt*, char*); 224 extern int dorfmt(Fmt*, Rune*); 225 extern int fmtprint(Fmt*, char*, ...); 226 extern int fmtvprint(Fmt*, char*, va_list); 227 extern int fmtrune(Fmt*, int); 228 extern int fmtstrcpy(Fmt*, char*); 229 extern int fmtrunestrcpy(Fmt*, Rune*); 230 /* 231 * error string for %r 232 * supplied on per os basis, not part of fmt library 233 */ 234 extern int errfmt(Fmt *f); 235 236 /* 237 * quoted strings 238 */ 239 extern char *unquotestrdup(char*); 240 extern Rune *unquoterunestrdup(Rune*); 241 extern char *quotestrdup(char*); 242 extern Rune *quoterunestrdup(Rune*); 243 extern int quotestrfmt(Fmt*); 244 extern int quoterunestrfmt(Fmt*); 245 extern void quotefmtinstall(void); 246 extern int (*doquote)(int); 247 248 /* 249 * random number 250 */ 251 252 extern int nrand(int); 253 extern ulong truerand(void); 254 extern ulong ntruerand(ulong); 255 256 /* 257 * math 258 */ 259 extern int isNaN(double); 260 extern double NaN(void); 261 extern int isInf(double, int); 262 extern double pow(double, double); 263 264 /* 265 * Time-of-day 266 */ 267 268 typedef struct Tm Tm; 269 struct Tm { 270 int sec; 271 int min; 272 int hour; 273 int mday; 274 int mon; 275 int year; 276 int wday; 277 int yday; 278 char zone[4]; 279 int tzoff; 280 }; 281 extern vlong osnsec(void); 282 #define nsec osnsec 283 284 /* 285 * one-of-a-kind 286 */ 287 extern void _assert(char*); 288 extern double charstod(int(*)(void*), void*); 289 extern char* cleanname(char*); 290 extern double frexp(double, int*); 291 extern uintptr getcallerpc(void*); 292 extern int getfields(char*, char**, int, int, char*); 293 extern char* getuser(void); 294 extern char* getwd(char*, int); 295 extern double ipow10(int); 296 extern double ldexp(double, int); 297 extern double modf(double, double*); 298 extern void perror(const char*); 299 extern double pow10(int); 300 extern uvlong strtoull(const char*, char**, int); 301 extern void sysfatal(char*, ...); 302 extern int dec64(uchar*, int, char*, int); 303 extern int enc64(char*, int, uchar*, int); 304 extern int dec32(uchar*, int, char*, int); 305 extern int enc32(char*, int, uchar*, int); 306 extern int dec16(uchar*, int, char*, int); 307 extern int enc16(char*, int, uchar*, int); 308 extern int encodefmt(Fmt*); 309 310 /* 311 * synchronization 312 */ 313 typedef 314 struct Lock { 315 int val; 316 int pid; 317 } Lock; 318 319 extern int _tas(int*); 320 321 extern void lock(Lock*); 322 extern void unlock(Lock*); 323 extern int canlock(Lock*); 324 325 typedef struct QLock QLock; 326 struct QLock 327 { 328 Lock use; /* to access Qlock structure */ 329 Proc *head; /* next process waiting for object */ 330 Proc *tail; /* last process waiting for object */ 331 int locked; /* flag */ 332 }; 333 334 extern void qlock(QLock*); 335 extern void qunlock(QLock*); 336 extern int canqlock(QLock*); 337 extern void _qlockinit(ulong (*)(ulong, ulong)); /* called only by the thread library */ 338 339 typedef 340 struct RWLock 341 { 342 Lock l; /* Lock modify lock */ 343 QLock x; /* Mutual exclusion lock */ 344 QLock k; /* Lock for waiting writers */ 345 int readers; /* Count of readers in lock */ 346 } RWLock; 347 348 extern int canrlock(RWLock*); 349 extern int canwlock(RWLock*); 350 extern void rlock(RWLock*); 351 extern void runlock(RWLock*); 352 extern void wlock(RWLock*); 353 extern void wunlock(RWLock*); 354 355 /* 356 * network dialing 357 */ 358 #define NETPATHLEN 40 359 360 /* 361 * system calls 362 * 363 */ 364 365 #define STATMAX 65535U /* max length of machine-independent stat structure */ 366 #define DIRMAX (sizeof(Dir)+STATMAX) /* max length of Dir structure */ 367 #define ERRMAX 128 /* max length of error string */ 368 369 #define MORDER 0x0003 /* mask for bits defining order of mounting */ 370 #define MREPL 0x0000 /* mount replaces object */ 371 #define MBEFORE 0x0001 /* mount goes before others in union directory */ 372 #define MAFTER 0x0002 /* mount goes after others in union directory */ 373 #define MCREATE 0x0004 /* permit creation in mounted directory */ 374 #define MCACHE 0x0010 /* cache some data */ 375 #define MMASK 0x0017 /* all bits on */ 376 377 #define OREAD 0 /* open for read */ 378 #define OWRITE 1 /* write */ 379 #define ORDWR 2 /* read and write */ 380 #define OEXEC 3 /* execute, == read but check execute permission */ 381 #define OTRUNC 16 /* or'ed in (except for exec), truncate file first */ 382 #define OCEXEC 32 /* or'ed in, close on exec */ 383 #define ORCLOSE 64 /* or'ed in, remove on close */ 384 #define OEXCL 0x1000 /* or'ed in, exclusive use (create only) */ 385 386 #define AEXIST 0 /* accessible: exists */ 387 #define AEXEC 1 /* execute access */ 388 #define AWRITE 2 /* write access */ 389 #define AREAD 4 /* read access */ 390 391 /* bits in Qid.type */ 392 #define QTDIR 0x80 /* type bit for directories */ 393 #define QTAPPEND 0x40 /* type bit for append only files */ 394 #define QTEXCL 0x20 /* type bit for exclusive use files */ 395 #define QTMOUNT 0x10 /* type bit for mounted channel */ 396 #define QTAUTH 0x08 /* type bit for authentication file */ 397 #define QTFILE 0x00 /* plain file */ 398 399 /* bits in Dir.mode */ 400 #define DMDIR 0x80000000 /* mode bit for directories */ 401 #define DMAPPEND 0x40000000 /* mode bit for append only files */ 402 #define DMEXCL 0x20000000 /* mode bit for exclusive use files */ 403 #define DMMOUNT 0x10000000 /* mode bit for mounted channel */ 404 #define DMAUTH 0x08000000 /* mode bit for authentication file */ 405 #define DMREAD 0x4 /* mode bit for read permission */ 406 #define DMWRITE 0x2 /* mode bit for write permission */ 407 #define DMEXEC 0x1 /* mode bit for execute permission */ 408 409 typedef 410 struct Qid 411 { 412 uvlong path; 413 ulong vers; 414 uchar type; 415 } Qid; 416 417 typedef 418 struct Dir { 419 /* system-modified data */ 420 ushort type; /* server type */ 421 uint dev; /* server subtype */ 422 /* file data */ 423 Qid qid; /* unique id from server */ 424 ulong mode; /* permissions */ 425 ulong atime; /* last read time */ 426 ulong mtime; /* last write time */ 427 vlong length; /* file length */ 428 char *name; /* last element of path */ 429 char *uid; /* owner name */ 430 char *gid; /* group name */ 431 char *muid; /* last modifier name */ 432 } Dir; 433 434 extern Dir* dirstat(char*); 435 extern Dir* dirfstat(int); 436 extern int dirwstat(char*, Dir*); 437 extern int dirfwstat(int, Dir*); 438 extern long dirread(int, Dir**); 439 extern void nulldir(Dir*); 440 extern long dirreadall(int, Dir**); 441 442 typedef 443 struct Waitmsg 444 { 445 int pid; /* of loved one */ 446 ulong time[3]; /* of loved one & descendants */ 447 char *msg; 448 } Waitmsg; 449 450 extern void _exits(char*); 451 452 extern void exits(char*); 453 extern int create(char*, int, int); 454 extern int errstr(char*, uint); 455 456 extern void perror(const char*); 457 extern long readn(int, void*, long); 458 extern int remove(const char*); 459 extern void rerrstr(char*, uint); 460 extern vlong seek(int, vlong, int); 461 extern int segflush(void*, ulong); 462 extern void werrstr(char*, ...); 463 464 extern char *argv0; 465 #define ARGBEGIN for((argv0||(argv0=*argv)),argv++,argc--;\ 466 argv[0] && argv[0][0]=='-' && argv[0][1];\ 467 argc--, argv++) {\ 468 char *_args, *_argt=0;\ 469 Rune _argc;\ 470 _args = &argv[0][1];\ 471 if(_args[0]=='-' && _args[1]==0){\ 472 argc--; argv++; break;\ 473 }\ 474 _argc = 0;\ 475 while(*_args && (_args += chartorune(&_argc, _args)))\ 476 switch(_argc) 477 #define ARGEND SET(_argt);USED(_argt);USED(_argc); USED(_args);}USED(argv); USED(argc); 478 #define ARGF() (_argt=_args, _args="",\ 479 (*_argt? _argt: argv[1]? (argc--, *++argv): 0)) 480 #define EARGF(x) (_argt=_args, _args="",\ 481 (*_argt? _argt: argv[1]? (argc--, *++argv): ((x), abort(), (char*)0))) 482 483 #define ARGC() _argc 484 485 /* 486 * Extensions for Inferno to basic libc.h 487 */ 488 489 #define setbinmode() 490 491 /* FCR */ 492 #define FPINEX (1<<5) 493 #define FPUNFL ((1<<4)|(1<<1)) 494 #define FPOVFL (1<<3) 495 #define FPZDIV (1<<2) 496 #define FPINVAL (1<<0) 497 #define FPRNR (0<<10) 498 #define FPRZ (3<<10) 499 #define FPRPINF (2<<10) 500 #define FPRNINF (1<<10) 501 #define FPRMASK (3<<10) 502 #define FPPEXT (3<<8) 503 #define FPPSGL (0<<8) 504 #define FPPDBL (2<<8) 505 #define FPPMASK (3<<8) 506 /* FSR */ 507 #define FPAINEX FPINEX 508 #define FPAOVFL FPOVFL 509 #define FPAUNFL FPUNFL 510 #define FPAZDIV FPZDIV 511 #define FPAINVAL FPINVAL 512 513 extern void setfcr(ulong); 514 extern void setfsr(ulong); 515 extern ulong getfcr(void); 516 extern ulong getfsr(void); 517