From 426d9c9977489f7adba7f4b554e8466a47e520f1 Mon Sep 17 00:00:00 2001 From: Leo Tenenbaum Date: Wed, 29 Jan 2020 11:37:25 -0500 Subject: made #foreign a part of the language --- compatibility.c | 77 --------------------------------------------------------- 1 file changed, 77 deletions(-) delete mode 100644 compatibility.c (limited to 'compatibility.c') diff --git a/compatibility.c b/compatibility.c deleted file mode 100644 index 6a7c32c..0000000 --- a/compatibility.c +++ /dev/null @@ -1,77 +0,0 @@ -/* -This is free and unencumbered software released into the public domain. -Anyone is free to copy, modify, publish, use, compile, sell, or -distribute this software, either in source code form or as a compiled -binary, for any purpose, commercial or non-commercial, and by any -means. -In jurisdictions that recognize copyright laws, the author or authors -of this software dedicate any and all copyright interest in the -software to the public domain. We make this dedication for the benefit -of the public at large and to the detriment of our heirs and -successors. We intend this dedication to be an overt act of -relinquishment in perpetuity of all present and future rights to this -software under copyright law. -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, -EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR -OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, -ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR -OTHER DEALINGS IN THE SOFTWARE. -For more information, please refer to -*/ - -#include -#include -#include -#include - -typedef float F32; -typedef double F64; -typedef uint32_t U32; -typedef uint64_t U64; - -int main(void) { - int *p; - memset(&p, 0, sizeof p); - if (p) { - fprintf(stderr, "You cannot run toc. Sorry.\n"); - return EXIT_FAILURE; - } - - - FILE *f; - f = tmpfile(); - /* endianness test */ - putc(0x12, f); - putc(0x34, f); - putc(0x56, f); - putc(0x78, f); - - if (sizeof(float) != 4 || sizeof(double) != 8) { - fprintf(stderr, "You may experience some problems with toc (sizeof(double) and sizeof(float) are strange)."); - goto unusual; - } else { - F32 flt = -12.3456f; - fwrite(&flt, sizeof flt, 1, f); - F64 dbl = -12.3456; - fwrite(&dbl, sizeof dbl, 1, f); - } - fseek(f, 0L, SEEK_SET); - U32 num; - fread(&num, sizeof num, 1, f); - if (num != 0x78563412) { - /* not little endian */ - goto unusual; - } - U32 flt_rep; - fread(&flt_rep, sizeof flt_rep, 1, f); - if (flt_rep != 0xc1458794) goto unusual; - U64 dbl_rep; - fread(&dbl_rep, sizeof dbl_rep, 1, f); - if (dbl_rep != 0xc028b0f27bb2fec5) goto unusual; - return 0; - unusual: - printf("-DBINFILE_PORTABLE"); - return 0; -} -- cgit v1.2.3