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