Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-04 19:56:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add Mosh support for snow-chibi

Browse source
This commit is contained in:
retropikzel 2025-06-26 20:19:52 +03:00
parent 77a4fbd5ba
commit 239f7d45c2
3 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
doc/chibi.scrbl
View file

@ -1665,6 +1665,7 @@ installed. The following are currently supported:
\item{gauche - version >= 0.9.4} \item{gauche - version >= 0.9.4}
\item{kawa - version >= 2.0; you need to add the install dir to the search path, e.g. \scheme{-Dkawa.import.path=/usr/local/share/kawa}} \item{kawa - version >= 2.0; you need to add the install dir to the search path, e.g. \scheme{-Dkawa.import.path=/usr/local/share/kawa}}
\item{larceny - version 0.98; you need to add "lib/Snow" to the paths in startup.sch} \item{larceny - version 0.98; you need to add "lib/Snow" to the paths in startup.sch}
\item{mosh - version >= 0.29-rc1}
\item{sagittarius - version >= 0.98} \item{sagittarius - version >= 0.98}
\item{stklos - version > 2.10} \item{stklos - version > 2.10}
] ]

19
lib/chibi/snow/commands.scm
View file

@ -1398,6 +1398,17 @@
(if (string? path) (if (string? path)
path path
"/usr/local/share/guile/")))) "/usr/local/share/guile/"))))
((mosh)
(with-output-to-file
"/tmp/mosh-helper"
(lambda ()
(display "(import (scheme base) (scheme write) (mosh config)) (display (get-config \"library-path\")) (newline)")
(newline)))
(list
(string-append
(string-trim (process->string '(mosh "/tmp/mosh-helper"))
char-whitespace?)
"/lib")))
((larceny) ((larceny)
(list (list
(make-path (make-path
@ -1494,6 +1505,10 @@
--r7rs --script ,file) --r7rs --script ,file)
`(kawa ,(string-append "-Dkawa.import.path=" install-dir) `(kawa ,(string-append "-Dkawa.import.path=" install-dir)
--r7rs --script ,file)))) --r7rs --script ,file))))
((mosh)
(if lib-path
`(mosh --loadpath= ,install-dir --loadpath= ,lib-path ,file)
`(guile --loadpath= ,install-dir ,file)))
((larceny) ((larceny)
(if lib-path (if lib-path
`(larceny -r7rs -path ,(string-append install-dir ":" lib-path) `(larceny -r7rs -path ,(string-append install-dir ":" lib-path)
@ -1704,6 +1719,7 @@
((eq? impl 'cyclone) (get-install-library-dir impl cfg)) ((eq? impl 'cyclone) (get-install-library-dir impl cfg))
((eq? impl 'generic) (get-install-library-dir impl cfg)) ((eq? impl 'generic) (get-install-library-dir impl cfg))
((eq? impl 'guile) (get-guile-site-dir)) ((eq? impl 'guile) (get-guile-site-dir))
((eq? impl 'mosh) (get-install-library-dir impl cfg))
((eq? impl 'stklos) (get-install-library-dir impl cfg)) ((eq? impl 'stklos) (get-install-library-dir impl cfg))
((conf-get cfg 'install-source-dir)) ((conf-get cfg 'install-source-dir))
((conf-get cfg 'install-prefix) ((conf-get cfg 'install-prefix)
@ -1715,6 +1731,7 @@
((eq? impl 'chicken) (get-install-library-dir impl cfg)) ((eq? impl 'chicken) (get-install-library-dir impl cfg))
((eq? impl 'cyclone) (get-install-library-dir impl cfg)) ((eq? impl 'cyclone) (get-install-library-dir impl cfg))
((eq? impl 'generic) (get-install-library-dir impl cfg)) ((eq? impl 'generic) (get-install-library-dir impl cfg))
((eq? impl 'mosh) (get-install-library-dir impl cfg))
((eq? impl 'stklos) (get-install-library-dir impl cfg)) ((eq? impl 'stklos) (get-install-library-dir impl cfg))
((conf-get cfg 'install-data-dir)) ((conf-get cfg 'install-data-dir))
((conf-get cfg 'install-prefix) ((conf-get cfg 'install-prefix)
@ -1737,6 +1754,8 @@
(car (get-install-dirs impl cfg))) (car (get-install-dirs impl cfg)))
((eq? impl 'guile) ((eq? impl 'guile)
(get-guile-site-ccache-dir)) (get-guile-site-ccache-dir))
((eq? impl 'mosh)
(car (get-install-dirs impl cfg)))
((eq? impl 'stklos) ((eq? impl 'stklos)
(car (get-install-dirs impl cfg))) (car (get-install-dirs impl cfg)))
((conf-get cfg 'install-prefix) ((conf-get cfg 'install-prefix)

2
lib/chibi/snow/utils.scm
View file

@ -39,6 +39,8 @@
,(delay ,(delay
(process->sexp (process->sexp
'(kawa -e "(write (features))")))) '(kawa -e "(write (features))"))))
(mosh "mosh" #f #f
,(delay (write-string "mosh\n")))
(larceny "larceny" (larceny --version) "v0.98" (larceny "larceny" (larceny --version) "v0.98"
,(delay '())) ,(delay '()))
(sagittarius "sagittarius" #f #f (sagittarius "sagittarius" #f #f