#!/bin/bash
# Copyright 2006-2017, Matthew Welland.
#
# This file is part of Megatest.
#
# Megatest is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Megatest 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 General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Megatest. If not, see <http://www.gnu.org/licenses/>.
fullparams="$@"
function findfile () {
megatest $fullparams -repl <<EOF
(let* ((numargs (length remargs))
(path (if (> numargs 0)(car remargs) #f))
(scriptn (if (> numargs 1)(cadr remargs) #f))
(keys (cdb:remote-run db:get-keys #f))
(target (if (args:get-arg "-reqtarg")
(args:get-arg "-reqtarg")
(if (args:get-arg "-target")
(args:get-arg "-target")
#f)))
(key-vals (if target (keys:target->keyval keys target) #f))
(errmsg (cond
((not key-vals) "missing -target")
((not target) "missing -target")
((not scriptn) "missing file name to find")
(else #f))))
(if errmsg
(begin
(print "THEPATH: Missing required switch: " errmsg)
(print "THEPATH: Usage: mtgetfile -target target scriptname [searchpath]")
(exit)))
(print "THEPATH: key-vals=" key-vals " path=" path " scriptn=" scriptn))
EOF
}
findfile | egrep "^THEPATH: " | sed -e 's/^THEPATH: //'