| #!/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 |
