| #!/usr/bin/env tclsh | |
| ############################################################################### | |
| # BRLTTY - A background process providing access to the console screen (when in | |
| # text mode) for a blind person using a refreshable braille display. | |
| # | |
| # Copyright (C) 1995-2023 by The BRLTTY Developers. | |
| # | |
| # BRLTTY comes with ABSOLUTELY NO WARRANTY. | |
| # | |
| # This is free software, placed under the terms of the | |
| # GNU Lesser General Public License, as published by the Free Software | |
| # Foundation; either version 2.1 of the License, or (at your option) any | |
| # later version. Please see the file LICENSE-LGPL for details. | |
| # | |
| # Web Page: http://brltty.app/ | |
| # | |
| # This software is maintained by Dave Mielke <dave@mielke.cc>. | |
| ############################################################################### | |
| source [file join [file dirname [info script]] .. prologue.tcl] | |
| set optionDefinitions { | |
| } | |
| processProgramArguments optionValues $optionDefinitions positionalArguments "\[property ...\]" | |
| foreach path [glob -directory $scriptDirectory *.tcl] { | |
| source $path | |
| } | |
| if {[lempty $positionalArguments]} { | |
| proc primaryPrompt {} { | |
| return "[getProgramName]> " | |
| } | |
| commandloop -prompt1 primaryPrompt | |
| } else { | |
| puts stdout [eval $positionalArguments] | |
| } | |
| exit 0 |