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