5cc3becf16
Changes are mostly to the dir structures and build system for ScriptFu. Some changes to the outer plugin source to call the library. Why: so that other executables (future gimp-scheme-interpreter, or a future separated script-fu-server) can exist in separate directories, and share the library in memory (when built shared.) Whether the library is built shared and installed on its own (versus static and not installed) is a compile time option (both automake LibTool and meson abstract it away) The default is shared and installed, say as libgimp-scriptfu-3.0.so. Installed alongside other shared libraries (e.g. wherever libgimp is installed) to simplify packaging. A preliminary refactoring which helps enable MR gimp!647
59 lines
1.6 KiB
Scheme
59 lines
1.6 KiB
Scheme
; listhome.scm
|
|
; Sample usage of TinyScheme Extension
|
|
; This simple program lists the directory entries on the
|
|
; user's home directory.
|
|
|
|
; It uses the following TinyScheme Extension functions:
|
|
; getenv
|
|
; Used to get HOME environment variable.
|
|
; open-dir-stream
|
|
; Used to open directory stream.
|
|
; read-dir-entry
|
|
; Used to read directory entries.
|
|
; close-dir-entry
|
|
; Used at the end, to close directory stream when done.
|
|
|
|
; check that extensions are enabled
|
|
(if (not (defined? 'load-extension))
|
|
(begin
|
|
(display "TinyScheme has extensions disabled. Enable them!!")
|
|
(newline)
|
|
(quit)))
|
|
|
|
; load TinyScheme extension
|
|
(load-extension "tsx-1.1/tsx")
|
|
|
|
; check that the necessary functions are available (the user
|
|
; might have removed some functionality...)
|
|
(if (or
|
|
(not (defined? 'getenv))
|
|
(not (defined? 'dir-open-stream))
|
|
(not (defined? 'dir-read-entry))
|
|
(not (defined? 'dir-close-stream)))
|
|
(begin
|
|
(display "Some necessary functions are not available. Exiting!")
|
|
(newline)
|
|
(quit)))
|
|
|
|
; get user's home dir from HOME environment var
|
|
(define homedir (getenv "HOME"))
|
|
(display "Listing contents of ") (display homedir) (newline)
|
|
|
|
; create directory stream to read dir entries
|
|
(define dirstream (dir-open-stream homedir))
|
|
(if (not dirstream)
|
|
(begin
|
|
(display "Unable to open home directory!! Check value of HOME environment var.")
|
|
(quit)))
|
|
|
|
(let listentry ((entry (dir-read-entry dirstream)))
|
|
(if (eof-object? entry)
|
|
#t
|
|
(begin
|
|
(display entry)
|
|
(newline)
|
|
(listentry (dir-read-entry dirstream)))))
|
|
|
|
(dir-close-stream dirstream)
|
|
|