/usr/share/libctl/base/io-vars.scm is in libctl3 3.1.0-5.
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 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | ; 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-param: defining local variables that can be set easily
; from the command-line (or assume a default value if not set).
(define params-set-list '())
(defmacro-public define-param (name value)
`(if (not (defined? (quote ,name)))
(define ,name ,value)))
(defmacro-public set-param! (name value)
`(if (not (memq (quote ,name) params-set-list))
(set! ,name ,value)))
; ****************************************************************
; Input/Output variables.
(define input-var-list '())
(define output-var-list '())
(define (make-var value-thunk var-name var-type-name var-constraints)
(list var-name var-type-name var-constraints value-thunk))
(define (var-name var) (first var))
(define (var-type-name var) (second var))
(define (var-constraints var) (third var))
(define (var-value-thunk var) (fourth var))
(define (var-value var) ((var-value-thunk var)))
(define (input-var! value-thunk var-name var-type-name . var-constraints)
(let ((new-var (make-var value-thunk var-name
var-type-name var-constraints)))
(set! input-var-list (cons new-var input-var-list))
new-var))
(define (output-var! value-thunk var-name var-type-name)
(let ((new-var (make-var value-thunk var-name
var-type-name no-constraints)))
(set! output-var-list (cons new-var output-var-list))
new-var))
(defmacro-public define-input-var
(name init-val var-type-name . var-constraints)
`(begin
(define-param ,name ,init-val)
(input-var! (lambda () ,name) (quote ,name)
,var-type-name ,@var-constraints)))
(defmacro-public define-input-output-var
(name init-val var-type-name . var-constraints)
`(begin
(define ,name ,init-val)
(input-var! (lambda () ,name) (quote ,name)
,var-type-name ,@var-constraints)
(output-var! (lambda () ,name) (quote ,name) ,var-type-name)))
(defmacro-public define-output-var (name var-type-name)
`(begin
(define ,name 'no-value)
(output-var! (lambda () ,name) (quote ,name) ,var-type-name)))
(define (check-vars var-list)
(for-all? var-list
(lambda (v)
(if (not (check-type (var-type-name v) (var-value v)))
(error "wrong type for variable" (var-name v) 'type
(var-type-name v))
(if (not (check-constraints
(var-constraints v) (var-value v)))
(error "failed constraint for" (var-name v))
true)))))
; ****************************************************************
|