mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-05-28 00:02:28 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Introduce Cosmopolitan Templates Library (CTL)

Browse source
This commit is contained in:
Justine Tunney 2024-06-03 09:09:33 -07:00
parent b003888696
commit 4937843f70
No known key found for this signature in database
GPG key ID: BE714B4575D6E328
16 changed files with 7054 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

16
tool/emacs/cosmo-stuff.el
View file

@ -211,7 +211,11 @@
(dots (file-relative-name root dir)) ;; e.g. "../"
(file (file-relative-name this root)) ;; e.g. "libc/crc32c.c"
(name (file-name-sans-extension file)) ;; e.g. "libc/crc32c"
(buddy (format "test/%s_test.c" name))
(buddy (let ((c-version (format "test/%s_test.c" name))
(cc-version (format "test/%s_test.cc" name)))
(if (file-exists-p cc-version)
cc-version
c-version)))
(runs (format "o/$m/%s%s V=5 TESTARGS=-b" name runsuffix))
(buns (format "o/$m/test/%s_test%s V=5 TESTARGS=-b" name runsuffix)))
(cond ((not (member ext '("c" "cc" "cpp" "s" "S" "rl" "f" "cu")))
@ -761,8 +765,14 @@
(concat dots notest ".hookabi.c")
(concat dots notest ".h"))))
(t
(format "%stest/%s_test.c"
dots (cosmo-file-name-sans-extensions name))))))
(let ((c-version (format "%stest/%s_test.c"
dots (cosmo-file-name-sans-extensions name)))
(cc-version (format "%stest/%s_test.cc"
dots (cosmo-file-name-sans-extensions name))))
(if (file-exists-p cc-version)
cc-version
c-version))
))))
(when buddy
(find-file buddy))))))