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