~ chicken-core (chicken-5) /feathers.in
Trap1#!/bin/sh2#3# loader for feathers.tcl, the CHICKEN debugger4#5# Copyright (c) 2015-2022, The CHICKEN Team6# All rights reserved.7#8# Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following9# conditions are met:10#11# Redistributions of source code must retain the above copyright notice, this list of conditions and the following12# disclaimer.13# Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following14# disclaimer in the documentation and/or other materials provided with the distribution.15# Neither the name of the author nor the names of its contributors may be used to endorse or promote16# products derived from this software without specific prior written permission.17#18# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS19# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY20# AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR21# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR22# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR23# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY24# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR25# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE26# POSSIBILITY OF SUCH DAMAGE.2728wish=`which wish8.5`2930if test \! -x "$wish"; then31 wish=`which wish`32fi3334if test \! -x "$wish"; then35 echo 'no "wish" executable found - please put "wish8.5" or "wish" in your PATH' \36 1>&237 exit 138fi