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