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