/usr/share/libctl/base/help.scm is in libctl3 3.1.0-5ubuntu1.
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 49 50 51 52 53 54 55 56 57 | ; libctl: flexible Guile-based control files for scientific software
; Copyright (C) 1998-2009, Steven G. Johnson
;
; This library is free software; you can redistribute it and/or
; modify it under the terms of the GNU Lesser General Public
; License as published by the Free Software Foundation; either
; version 2 of the License, or (at your option) any later version.
;
; This library is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
; Lesser General Public License for more details.
;
; You should have received a copy of the GNU Lesser General Public
; License along with this library; if not, write to the
; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
; Boston, MA 02111-1307, USA.
;
; Steven G. Johnson can be contacted at stevenj@alum.mit.edu.
; ****************************************************************
(define (display-class indentby class)
(indent indentby)
(print "Class " (class-type-name class) ": ")
(print "\n")
(if (class-parent class)
(display-class (+ indentby 4) (class-parent class)))
(for-each
(lambda (property)
(if (not (property-derived? property))
(begin
(indent (+ indentby 4))
(print (type-string (property-type-name property)) " "
(property-name property))
(if (property-has-default? property)
(print " = " (property-default-value property)))
(print "\n"))))
(class-properties class)))
(define (class-help class) (display-class 0 class))
(define (variable-help var)
(print (type-string (var-type-name var)) " "
(var-name var) " = " (var-value var))
(print "\n"))
(define (help)
(for-each class-help class-list)
(print "\n")
(print "Input variables: ") (print "\n")
(for-each variable-help input-var-list)
(print "\n")
(print "Output variables: ") (print "\n")
(for-each variable-help output-var-list))
; ****************************************************************
|