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