scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initialize event system etc. in scripts too.

This commit is contained in:
marting 2000-08-28 12:51:22 +00:00
parent dabbe8ca90
commit 82f8195911
4 changed files with 29 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/more-interfaces.scm
View File

@ -65,7 +65,7 @@
push-command-levels?
start-new-session
session-started? ; for scsh
command-input
command-output
command-error-output

3
scsh/scsh-package.scm
View File

@ -276,6 +276,8 @@
fluids-internal ; JMG: get-dynamic-env
scsh-utilities
interrupts
low-interrupt
events
primitives
scheme)
(files startup))
@ -306,6 +308,7 @@
scsh-level-0 ; with-current-input-port error-output-port
; with-current-output-port exit
scsh-level-0-internals ; set-command-line-args! init-scsh-vars
threads
scheme)
(files top meta-arg))

21
scsh/static.scm
View File

@ -1,14 +1,13 @@
#!/usr/local/lib/scsh/scshvm \
-o /usr/local/lib/scsh/scshvm -h 8000000 -i /usr/local/lib/scsh/scsh.image -lm /usr/local/lib/scsh/vm/ps-interface.scm -lm /usr/local/lib/scsh/vm/interfaces.scm -lm /usr/local/lib/scsh/vm/package-defs.scm -lm /usr/local/lib/scsh/vm/s48-package-defs.scm -dm -m static-heaps -e static-heap-linker -s
#!/home/gasbichl/i386_fbsd40/scsh-0.6//lib/scsh/scshvm \
-o /home/gasbichl/i386_fbsd40/scsh-0.6//lib/scsh/scshvm -h 8000000 -i /home/gasbichl/i386_fbsd40/scsh-0.6//lib/scsh/scsh.image -lm /home/gasbichl/i386_fbsd40/scsh-0.6//lib/scsh/vm/ps-interface.scm -lm /home/gasbichl/i386_fbsd40/scsh-0.6//lib/scsh/vm/interfaces.scm -lm /home/gasbichl/i386_fbsd40/scsh-0.6//lib/scsh/vm/package-defs.scm -lm /home/gasbichl/i386_fbsd40/scsh-0.6//lib/scsh/vm/s48-package-defs.scm -dm -m static-heaps -e static-heap-linker -s
!#
#!
For testing load this at a scsh prompt
,config ,load ../scheme/prescheme/interface.scm
,config ,load ../scheme/prescheme/package-defs.scm
,config ,load ../scheme/vm/interfaces.scm
,config ,load ../scheme/vm/s48-package-defs.scm
,config ,load ../scheme/vm/package-defs.scm
,config ,load ../vm/ps-interface.scm
,config ,load ../vm/interfaces.scm
,config ,load ../vm/package-defs.scm
,config ,load ../vm/s48-package-defs.scm
,config ,load static.scm
,load-package static-heaps
,in static-heaps
@ -134,17 +133,17 @@ For testing load this at a scsh prompt
options
(or (options:cc-command options)
(getenv "CC")
"gcc -g -O2"))
"gcc -O2"))
(set-options:ld-flags
options
(or (options:ld-flags options)
(getenv "LDFLAGS")
""))
"-rdynamic"))
(set-options:libraries
options
(or (options:libraries options)
(getenv "LIBS")
"-ldl -lnsl -lm "))
"-lcrypt -lm "))
options))
;;; usage reporting
@ -453,7 +452,7 @@ For testing load this at a scsh prompt
(cons "static.o"
l)))))
(options:args-parser options)
'("-L" "/usr/local/lib/scsh" "-lscshvm")
'("-L" "/home/gasbichl/i386_fbsd40/scsh-0.6//lib/scsh" "-lscshvm")
libs)))
(message command)
(run (,@command)))))

3
scsh/top.scm
View File

@ -219,6 +219,8 @@
(get-reflective-tower (user-environment)) ; ???
name))
(define (forever-sleeping-thread) (sleep 10000) (forever-sleeping-thread))
(define (parse-switches-and-execute all-args context)
(receive (switches term-switch term-val top-entry args)
(parse-scsh-args (cdr all-args))
@ -235,6 +237,7 @@
(environment-for-commands)
(lambda ()
(begin
(spawn forever-sleeping-thread)
(init-low-interrupt)
(install-event-handlers!)
(%install-scsh-handlers)