This file is indexed.

/usr/share/guile/app/gwave/minimal.scm is in gwave 20090213-6.1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
; minimal.scm - guile code compiled into gwave so its always there.
; Copyright (C) 1999 Steve Tell
; portions from scwm/minimal.scm:
;;;; Copyright (C) 1997-1999 Maciej Stachowiak and Greg J. Badros

(if gwave-debug
      (begin
	(display "in minimal.scm") (newline)))

(debug-enable 'debug)
(read-enable 'positions)

(define startup-error-flag #f)
; TODO: replace this with a catch around the next stuff
;(add-hook! 
; error-hook
; (lambda (a b c d e)
;   (set! startup-error-flag #t)))

; print list if debug flag is set
(define (dbprint . l)
  (if gwave-debug
      (for-each (lambda (e) (display e (current-output-port))) l)))


; TODO: check to see if gwave-guiledir is already present in the load-path,
; and if so, don't add it.
(let* ((genv (getenv "GWAVE_GUILE_DIR"))
       (gwave-guiledir (if genv
			   genv
			   (string-append gwave-datadir "/guile"))))
  (set! %load-path (cons gwave-guiledir %load-path)))

(dbprint "%load-path=" %load-path "\n")

; Do setup and find a .gwaverc
(load-from-path "app/gwave/gwave-startup.scm")

(dbprint "minimal.scm load done flag=" startup-error-flag "\n")

; this next expression must be the last one, returning #t or #f, which becomes
; the return value of the call to scwm_safe_eval_str() in gwave.c
(if startup-error-flag
    (begin
      (display "gwave: Error(s) in gwave-startup.scm or other startup files\n")
      (display "gwave: %load-path was ")(display %load-path)(newline)
      #f)
    #t)