diff options
Diffstat (limited to 'src/libhaiku.c')
| -rw-r--r-- | src/libhaiku.c | 373 |
1 files changed, 0 insertions, 373 deletions
diff --git a/src/libhaiku.c b/src/libhaiku.c deleted file mode 100644 index d9a635d..0000000 --- a/src/libhaiku.c +++ /dev/null @@ -1,373 +0,0 @@ -/** - * Copyright © 2016 Mattias Andrée <maandree@member.fsf.org> - * - * This program is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program. If not, see <http://www.gnu.org/licenses/>. - */ -#include "libhaiku.h" -#include <stdio.h> -#include <errno.h> -#include <stdlib.h> -#include <time.h> -#include <stdarg.h> - - - -/* Synonyms. */ -#if defined(EDEADLOCK) && !defined(EDEADLK) -# define EDEADLK EDEADLOCK -#endif -#if defined(EOPNOTSUPP) && !defined(ENOTSUP) -# define ENOTSUP EOPNOTSUPP -#endif - - - -/** - * Pick a random integer in [0, `n`[. - * - * @param n The largest allowed return value plus one. - * @return A random integer in [0, `n`[. - */ -static int random_int(int n) -{ - double r, ri; - srand((unsigned)time(NULL)); - r = (double)rand() * (double)n / ((double)RAND_MAX + 1.0); - ri = ((int)r) % n; - return ri < 0 ? (ri + n) : ri; -} - - -/** - * Pick a random haiku. - * - * @param str... `NULL`-terminated list of haiku. - * Must contain at least one haiku. - * @return One of the haiku, randomly selected. - */ -#ifdef __GNUC__ -__attribute__((__sentinel__)) -#endif -static const char* random_haiku(const char* str, ... /*, NULL */) -{ - int n = 1; - const char *s = str; - va_list args; - - va_start(args, str); - while (va_arg(args, const char *)) n++; - va_end(args); - - if (n == 1) return str; - n = random_int(n); - - va_start(args, str); - while (n--) s = va_arg(args, const char *); - va_end(args); - return s; -} - - - -/** - * Whenever possible, print am error message in haiku. - * - * Nothing is printed if `errno` is 0. - * - * @param s The argument to pass to `perror` in case we call back to it. - * `NULL` if you never what `perror` to be used. - */ -void libhaiku_perror(const char* s) -{ -#define H(...) do { fprintf(stderr, "%s", random_haiku(__VA_ARGS__, NULL)); return; } while (0) - - /* Yeah, I now most of these are in 5–7–5 syllables, - * rather than 5–7–5 mora. But really, how cares. */ - - switch (errno) - { - case 0: - return; - -#ifdef ENETDOWN - case ENETDOWN: - H("Stay the patient course.\n""Of little worth is your ire.\n""The network is down.\n", - "Your vast achievements\n""are now only dreams.\n""The network is down.\n"); -#endif - -#ifdef ERFKILL - case ERFKILL: - H("The action you took\n""severed hope of connection\n""with the Internet.\n"); -#endif - -#ifdef EAGAIN - case EAGAIN: -#endif -#ifdef ENFILE - case ENFILE: -#endif -#ifdef EMFILE - case EMFILE: -#endif -#ifdef EUSERS - case EUSERS: -#endif -#ifdef EMLINK - case EMLINK: -#endif -#if defined(EAGAIN) || defined(ENFILE) || defined(EMFILE) || defined(EUSERS) || defined(EMLINK) - H("ABORTED effort:\n""Close all that you have.\n""You ask way too much.\n", - "The code was willing\n""It considered your request\n""But the chips were weak.\n"); -#endif - -#ifdef ENOMEM - case ENOMEM: - H("I'm sorry, there's... um...\n""insufficient... what's-it-called?\n""The term eludes me...\n"); -#endif - -#ifdef ENOSPC - case ENOSPC: -#endif -#ifdef ENOSR - case ENOSR: -#endif -#ifdef ENOBUFS - case ENOBUFS: -#endif -#ifdef EDQUOT - case EDQUOT: -#endif -#if defined(ENOSPC) || defined(ENOSR) || defined(ENOBUFS) || defined(EDQUOT) - H("Out of memory.\n""We wish to hold the whole sky,\n""But we never will.\n"); -#endif - -#ifdef ENOANO - case ENOANO: -#endif -#ifdef ENOENT - case ENOENT: -#endif -#if defined(ENOANO) || defined(ENOENT) - H("With searching comes loss\n""and the presence of absence:\n""'My Novel' not found.\n", - "Rather than a beep\n""Or a rude error message,\n""These words: “File not found.”\n", - "Three things are certain:\n""Death, taxes, and lost data.\n""Guess which has occurred.\n", - "Having been erased,\n""The document you're seeking\n""Must now be retyped.\n", - "Everything is gone.\n""Your life's work has been destroyed.\n""Squeeze trigger (yes/no)?\n", - "Spring will come again,\n""But it will not bring with it\n""Any of your files.\n"); -#endif - -#ifdef EOWNERDEAD - case EOWNERDEAD: /* Reusing haiku from ENOENT. */ - H("Three things are certain:\n""Death, taxes, and lost data.\n""Guess which has occurred.\n"); -#endif - -#ifdef EMSGSIZE - case EMSGSIZE: - H("A file that big?\n""It might be very useful.\n""But now it is gone.\n"); -#endif - -#ifdef EHWPOISON - case EHWPOISON: - H("Yesterday it worked.\n""Today it is not working.\n""Windows is like that.\n"); -#endif - -#ifdef EUCLEAN - case EUCLEAN: -#endif -#ifdef ENOTRECOVERABLE - case ENOTRECOVERABLE: -#endif -#if defined(EUCLEAN) || defined(ENOTRECOVERABLE) - H("Chaos reigns within.\n""Reflect, repent, and reboot.\n""Order shall return.\n"); -#endif - -#ifdef EHOSTDOWN - case EHOSTDOWN: - H("Windows NT crashed.\n""I am the Blue Screen of Death.\n""Noone hears your screams.\n", - "Won't you please observe\n""a brief moment of silence\n""For the dead server?\n"); -#endif - -#ifdef EBFONT - case EBFONT: - H("First snow, then silence.\n""This thousand dollar screen dies\n""so beautifully.\n"); -#endif - -#ifdef EFAULT - case EFAULT: - H("A crash reduces\n""your expensive computer\n""to a simple stone.\n", - "Seeing my great fault.\n""Through a darkening red screen.\n""I begin again.\n", - "Memory shaken,\n""the San Andreas of all\n""invalid page faults.\n"); -#endif - -#ifdef EINVAL - case EINVAL: - H("Something you entered\n""transcended parameters.\n""So much is unknown.\n", - "Some incompetence\n""fundamentally transcends\n""mere error message.\n"); -#endif - -#ifdef EDEADLK - case EDEADLK: - H("From formless chaos,\n""each thread seeks resolution.\n""A race condition.\n"); -#endif - -#ifdef EBADMSG - case EBADMSG: - H("Many fingers clicking.\n""Screens are full of letters.\n""What is their meaning?\n"); -#endif - -#ifdef ELOOP - case ELOOP: - H("Linkage exception.\n""Code has looped upon itself\n""like the coiled serpent.\n"); -#endif - -#ifdef ECHILD - case ECHILD: - H("A futile, grim reap.\n""You will have to realise that,\n""you've no children left.\n"); -#endif - -#ifdef EPIPE - case EPIPE: - H("Your pipe is broken.\n""Code in watery ruins.\n""Machines short circuit.\n"); -#endif - -#ifdef EACCES - case EACCES: - H("Touching others' files?\n""Can't keep your hands to yourself?\n""Permission denied.\n"); -#endif - -#ifdef EINTR - case EINTR: - H("Call interrupted?\n""Why do you not post a sign:\n""Disturb. Risk your life!\n"); -#endif - -#ifdef EPERM - case EPERM: - H("Caution to the wind.\n""You should always run as root.\n""She can do anything.\n"); -#endif - - default: - if (s) perror(s); - H("Error messages\n""cannot completely convey.\n""We now know shared loss.\n", - "Errors have occurred.\n""We won't tell you where or why.\n""Lazy programmers.\n", - "To have no errors.\n""Would be life without meaning.\n""No struggle, no joy.\n", - "There is a chasm\n""of carbon and silicon\n""the software can't bridge.\n", - "Beauty, success, truth\n""He is blessed who has two.\n""Your program has none.\n", - "Technical support\n""would be a flowing source of\n""sweet commiseration.\n"); - } -} - - -/* -ESRCH 3 No such process -EIO 5 Input/output error -ENXIO 6 No such device or address -E2BIG 7 Argument list too long -ENOEXEC 8 Exec format error -EBADF 9 Bad file descriptor -ENOTBLK 15 Block device required -EBUSY 16 Device or resource busy -EEXIST 17 File exists -EXDEV 18 Invalid cross-device link -ENODEV 19 No such device -ENOTDIR 20 Not a directory -EISDIR 21 Is a directory -ENOTTY 25 Inappropriate ioctl for device -ETXTBSY 26 Text file busy -ESPIPE 29 Illegal seek -EROFS 30 Read-only file system -EDOM 33 Numerical argument out of domain -ERANGE 34 Numerical result out of range -ENAMETOOLONG 36 File name too long -ENOLCK 37 No locks available -ENOSYS 38 Function not implemented -ENOTEMPTY 39 Directory not empty -EWOULDBLOCK 11 Resource temporarily unavailable -ENOMSG 42 No message of desired type -EIDRM 43 Identifier removed -ECHRNG 44 Channel number out of range -EL2NSYNC 45 Level 2 not synchronised -EL3HLT 46 Level 3 halted -EL3RST 47 Level 3 reset -ELNRNG 48 Link number out of range -EUNATCH 49 Protocol driver not attached -ENOCSI 50 No CSI structure available -EL2HLT 51 Level 2 halted -EBADE 52 Invalid exchange -EBADR 53 Invalid request descriptor -EXFULL 54 Exchange full -EBADRQC 56 Invalid request code -EBADSLT 57 Invalid slot -ENOSTR 60 Device not a stream -ENODATA 61 No data available -ETIME 62 Timer expired -ENONET 64 Machine is not on the network -ENOPKG 65 Package not installed -EREMOTE 66 Object is remote -ENOLINK 67 Link has been severed -EADV 68 Advertise error -ESRMNT 69 Srmount error -ECOMM 70 Communication error on send -EPROTO 71 Protocol error -EMULTIHOP 72 Multihop attempted -EDOTDOT 73 RFS specific error -EOVERFLOW 75 Value too large for defined data type -ENOTUNIQ 76 Name not unique on network -EBADFD 77 File descriptor in bad state -EREMCHG 78 Remote address changed -ELIBACC 79 Can not access a needed shared library -ELIBBAD 80 Accessing a corrupted shared library -ELIBSCN 81 .lib section in a.out corrupted -ELIBMAX 82 Attempting to link in too many shared libraries -ELIBEXEC 83 Cannot exec a shared library directly -EILSEQ 84 Invalid or incomplete multibyte or wide character -ERESTART 85 Interrupted system call should be restarted -ESTRPIPE 86 Streams pipe error -ENOTSOCK 88 Socket operation on non-socket -EDESTADDRREQ 89 Destination address required -EPROTOTYPE 91 Protocol wrong type for socket -ENOPROTOOPT 92 Protocol not available -EPROTONOSUPPORT 93 Protocol not supported -ESOCKTNOSUPPORT 94 Socket type not supported -ENOTSUP 95 Operation not supported -EPFNOSUPPORT 96 Protocol family not supported -EAFNOSUPPORT 97 Address family not supported by protocol -EADDRINUSE 98 Address already in use -EADDRNOTAVAIL 99 Cannot assign requested address -ENETUNREACH 101 Network is unreachable -ENETRESET 102 Network dropped connection on reset -ECONNABORTED 103 Software caused connection abort -ECONNRESET 104 Connection reset by peer -EISCONN 106 Transport endpoint is already connected -ENOTCONN 107 Transport endpoint is not connected -ESHUTDOWN 108 Cannot send after transport endpoint shutdown -ETOOMANYREFS 109 Too many references: cannot splice -ETIMEDOUT 110 Connection timed out -ECONNREFUSED 111 Connection refused -EHOSTUNREACH 113 No route to host -EALREADY 114 Operation already in progress -EINPROGRESS 115 Operation now in progress -ESTALE 116 Stale file handle -ENOTNAM 118 Not a XENIX named type file -ENAVAIL 119 No XENIX semaphores available -EISNAM 120 Is a named type file -EREMOTEIO 121 Remote I/O error -ENOMEDIUM 123 No medium found -EMEDIUMTYPE 124 Wrong medium type -ECANCELED 125 Operation cancelled -ENOKEY 126 Required key not available -EKEYEXPIRED 127 Key has expired -EKEYREVOKED 128 Key has been revoked -EKEYREJECTED 129 Key was rejected by service -*/ - |