diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-01-16 01:13:39 +0100 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-01-18 22:48:57 +0100 |
| commit | eb0d091771fa39dcb2a5b4793a1c10abcec0dc5e (patch) | |
| tree | 658d5e56eba8c64d724653f2c1bef2c5416a136d /world/guile-tty.sld | |
| parent | 13c0512b2644d3b0292fe505cc62dc035932d0e2 (diff) | |
world: organize and layout guile too
Diffstat (limited to 'world/guile-tty.sld')
| -rw-r--r-- | world/guile-tty.sld | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/world/guile-tty.sld b/world/guile-tty.sld new file mode 100644 index 0000000..5194a61 --- /dev/null +++ b/world/guile-tty.sld @@ -0,0 +1,14 @@ +(define-library (world guile-tty) + (import (scheme base)) + (cond-expand + (guile (import (system foreign))) + (else (error 'not-supported))) + (begin + (error 'TODO) + + ;; https://www.gnu.org/software/guile//manual/html_node/More-Foreign-Functions.html + (define _openpty + (foreign-library-function "tcgetattr" + #:return-type int + #:arg-types (list 'int '*))) + )) |