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