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