Lab
/
cosmopolitan
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
cosmopolitan/tool/emacs/cosmo-platform-constants.el

85 lines
2.3 KiB
EmacsLisp
Raw Normal View History

Add x86_64-linux-gnu emulator I wanted a tiny scriptable meltdown proof way to run userspace programs and visualize how program execution impacts memory. It helps to explain how things like Actually Portable Executable works. It can show you how the GCC generated code is going about manipulating matrices and more. I didn't feel fully comfortable with Qemu and Bochs because I'm not smart enough to understand them. I wanted something like gVisor but with much stronger levels of assurances. I wanted a single binary that'll run, on all major operating systems with an embedded GPL barrier ZIP filesystem that is tiny enough to transpile to JavaScript and run in browsers too. https://justine.storage.googleapis.com/emulator625.mp4
2020-08-25 11:23:25 +00:00
(defconst cosmo-platform-constants-regex
(let (
(gcc412
'("__cplusplus"
"__OBJC__"
"__STRICT_ANSI__"
"__ELF__"
"__VERSION__"
"__OPTIMIZE__"
"__OPTIMIZE_SIZE__"
"__NO_INLINE__"
"__CHAR_UNSIGNED__"
"__WCHAR_UNSIGNED__"
"__REGISTER_PREFIX__"
"__USER_LABEL_PREFIX__"
"__SIZE_TYPE__"
"__PTRDIFF_TYPE__"
"__WCHAR_TYPE__"
"__WINT_TYPE__"
"__INTMAX_TYPE__"
"__DEPRECATED"
"__EXCEPTIONS"
"__USING_SJLJ_EXCEPTIONS__"
"__GXX_WEAK__"
"__NEXT_RUNTIME__"
"__LP64__"
"__SSP__"
"__SSP_ALL__"
"__unix__"
"__mips__"
"__vax__"
"__ns16000__"
"__pic__"
"__pie__"
"__PIC__"
"__PIE__"
"__ASSEMBLER__"
"__code_model_large__"
"__code_model_medium__"))
(cpp92
'("__BYTE_ORDER__"
"__ORDER_LITTLE_ENDIAN__"
"__ORDER_BIG_ENDIAN__"
"__ORDER_PDP_ENDIAN__"
"__FLOAT_WORD_ORDER__"
"__GFORTRAN__"
"__GCC_ASM_FLAG_OUTPUTS__"
"__GNUC_GNU_INLINE__"
"__GNUC_STDC_INLINE__"
"__GXX_RTTI"
"__GXX_EXPERIMENTAL_CXX0X__"
"__SSP_STRONG__"
"__SSP_EXPLICIT__"
"__SANITIZE_ADDRESS__"
"__SANITIZE_THREAD__"
"__GCC_HAVE_SYNC_COMPARE_AND_SWAP_1"
"__GCC_HAVE_SYNC_COMPARE_AND_SWAP_2"
"__GCC_HAVE_SYNC_COMPARE_AND_SWAP_4"
"__GCC_HAVE_SYNC_COMPARE_AND_SWAP_8"
"__GCC_HAVE_SYNC_COMPARE_AND_SWAP_16"
"__HAVE_SPECULATION_SAFE_VALUE"
"__GCC_HAVE_DWARF2_CFI_ASM"
"__STDC_WANT_IEC_60559_TYPES_EXT__"
"__GCC_IEC_559"
"__SUPPORT_SNAN__"
"__GCC_IEC_559_COMPLEX"
"__NO_MATH_ERRNO__"
"__gnu__"))
(clang
'("__llvm__"))
(cosmo
'("__COSMOPOLITAN__"
"__LINKER__"))
)
(concat "\\_<"
(regexp-opt (append clang cpp92 gcc412 cosmo))
"\\_>")))
(provide 'cosmo-platform-constants)