diff options
Diffstat (limited to 'test-lib.sh')
-rwxr-xr-x | test-lib.sh | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/test-lib.sh b/test-lib.sh deleted file mode 100755 index c3e359a..0000000 --- a/test-lib.sh +++ /dev/null @@ -1,41 +0,0 @@ -#!/bin/sh -# the next line restarts using tclsh \ -exec tclsh "$0" "$@" || echo "0"; exit 1 - -# -------------------------------------------------------- -# Copyright (C) Martin Ošmera <P16F87504SP@seznam.cz> -# Licence: GPL -# Version: 1.0 -# Homepage: http://sourceforge.net/projects/mcu8051ide -# -------------------------------------------------------- -# -# Test for presence of a Tcl library -# Usage: -# ./test-lib LIBRARY [VERSION] -# -# -------------------------------------------------------- - -if {$argv == {--help}} { - puts "Test for presence of Tcl library" - puts "Usage:" - puts "\t./test-lib LIBRARY [VERSION]" -} - -if {$argc == 2} { - if [catch {package require [lindex $argv 0] [lindex $argv 1]}] { - puts {0} - exit 1 - } -} elseif {$argc == 1} { - if [catch {package require [lindex $argv 0]}] { - puts {0} - exit 1 - } -} else { - puts {0} - exit 1 -} - -puts {1} -exit 0 - |