mirror of
git://projects.qi-hardware.com/openwrt-packages.git
synced 2024-11-22 18:52:48 +02:00
nanonote-files move from openwrt-xburst
This commit is contained in:
parent
868eb3bace
commit
cdabb55692
69
nanonote-files/script-files/etc/asound.state
Normal file
69
nanonote-files/script-files/etc/asound.state
Normal file
@ -0,0 +1,69 @@
|
|||||||
|
state.LB60 {
|
||||||
|
control.1 {
|
||||||
|
comment.access 'read write'
|
||||||
|
comment.type INTEGER
|
||||||
|
comment.count 1
|
||||||
|
comment.range '0 - 3'
|
||||||
|
iface MIXER
|
||||||
|
name 'Master Playback Volume'
|
||||||
|
value 2
|
||||||
|
}
|
||||||
|
control.2 {
|
||||||
|
comment.access 'read write'
|
||||||
|
comment.type INTEGER
|
||||||
|
comment.count 1
|
||||||
|
comment.range '0 - 31'
|
||||||
|
iface MIXER
|
||||||
|
name 'Capture Volume'
|
||||||
|
value 23
|
||||||
|
}
|
||||||
|
control.3 {
|
||||||
|
comment.access 'read write'
|
||||||
|
comment.type BOOLEAN
|
||||||
|
comment.count 1
|
||||||
|
iface MIXER
|
||||||
|
name 'Master Playback Switch'
|
||||||
|
value true
|
||||||
|
}
|
||||||
|
control.4 {
|
||||||
|
comment.access 'read write'
|
||||||
|
comment.type INTEGER
|
||||||
|
comment.count 1
|
||||||
|
comment.range '0 - 3'
|
||||||
|
iface MIXER
|
||||||
|
name 'Mic Capture Volume'
|
||||||
|
value 0
|
||||||
|
}
|
||||||
|
control.5 {
|
||||||
|
comment.access 'read write'
|
||||||
|
comment.type BOOLEAN
|
||||||
|
comment.count 1
|
||||||
|
iface MIXER
|
||||||
|
name 'Line Capture Switch'
|
||||||
|
value false
|
||||||
|
}
|
||||||
|
control.6 {
|
||||||
|
comment.access 'read write'
|
||||||
|
comment.type BOOLEAN
|
||||||
|
comment.count 1
|
||||||
|
iface MIXER
|
||||||
|
name 'Mic Capture Switch'
|
||||||
|
value false
|
||||||
|
}
|
||||||
|
control.7 {
|
||||||
|
comment.access 'read write'
|
||||||
|
comment.type BOOLEAN
|
||||||
|
comment.count 1
|
||||||
|
iface MIXER
|
||||||
|
name 'Output Mixer Bypass Switch'
|
||||||
|
value false
|
||||||
|
}
|
||||||
|
control.8 {
|
||||||
|
comment.access 'read write'
|
||||||
|
comment.type BOOLEAN
|
||||||
|
comment.count 1
|
||||||
|
iface MIXER
|
||||||
|
name 'Output Mixer DAC Switch'
|
||||||
|
value true
|
||||||
|
}
|
||||||
|
}
|
7
nanonote-files/script-files/etc/directfbrc
Normal file
7
nanonote-files/script-files/etc/directfbrc
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
no-deinit-check
|
||||||
|
|
||||||
|
mode=320x240
|
||||||
|
|
||||||
|
# log-file=/root/.directfb.log
|
||||||
|
# no-cursor
|
||||||
|
# debug
|
11
nanonote-files/script-files/etc/fw_env.config
Normal file
11
nanonote-files/script-files/etc/fw_env.config
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
# Configuration file for fw_(printenv/saveenv) utility.
|
||||||
|
# Up to two entries are valid, in this case the redundant
|
||||||
|
# environment sector is assumed present.
|
||||||
|
# Notice, that the "Number of sectors" is ignored on NOR.
|
||||||
|
|
||||||
|
# MTD device name Device offset Env. size Flash sector size Number of sectors
|
||||||
|
/dev/mtd0 0x100000 0x1000 0x80000
|
||||||
|
/dev/mtd0 0x180000 0x1000 0x80000
|
||||||
|
|
||||||
|
# NAND example
|
||||||
|
#/dev/mtd0 0x4000 0x4000 0x20000 2
|
13
nanonote-files/script-files/etc/triggerhappy/triggers.d/poweroff.conf
Executable file
13
nanonote-files/script-files/etc/triggerhappy/triggers.d/poweroff.conf
Executable file
@ -0,0 +1,13 @@
|
|||||||
|
# This is an example configuration for the triggerhappy daemon (thd)
|
||||||
|
# please note that every file to be processed must end in ".conf"
|
||||||
|
#
|
||||||
|
# To view a list of supported event codes, use "thd --listevents" or
|
||||||
|
# "thd --dump /dev/input/event*"
|
||||||
|
#
|
||||||
|
# Format:
|
||||||
|
# <eventcode> <value> <command>
|
||||||
|
#
|
||||||
|
# values for key events are 1 (pressed), 0 (released) or 2 (held)
|
||||||
|
#
|
||||||
|
## control an mpd instance
|
||||||
|
KEY_POWER 1 /sbin/poweroff
|
@ -0,0 +1,5 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
|
||||||
|
/etc/init.d/atd disable
|
||||||
|
/etc/init.d/led disable
|
||||||
|
/etc/init.d/telnet disable
|
5
nanonote-files/script-files/root/.mplayer/config
Normal file
5
nanonote-files/script-files/root/.mplayer/config
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
sub-fuzziness=1
|
||||||
|
utf8=1
|
||||||
|
volume=10
|
||||||
|
vo=sdl
|
||||||
|
ac=tremor
|
6
nanonote-files/script-files/root/.netsurf/Choices-fb
Normal file
6
nanonote-files/script-files/root/.netsurf/Choices-fb
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
fb_input_devpath:/dev/input
|
||||||
|
fb_input_glob:event*
|
||||||
|
window_width:320
|
||||||
|
window_height:240
|
||||||
|
fb_depth:32
|
||||||
|
fb_toolbar_layout:cblfsrut
|
546
nanonote-files/script-files/root/.tclshrc
Normal file
546
nanonote-files/script-files/root/.tclshrc
Normal file
@ -0,0 +1,546 @@
|
|||||||
|
global tcl_interactive
|
||||||
|
if {[info exists tcl_interactive] && $tcl_interactive > 0} {
|
||||||
|
|
||||||
|
# ripped from http://wiki.tcl.tk/16139
|
||||||
|
|
||||||
|
foreach {var val} {
|
||||||
|
PROMPT {tclsh$::tcl_patchLevel> }
|
||||||
|
HISTORY ""
|
||||||
|
HISTORY_BUFFER 500
|
||||||
|
COMPLETION_MATCH ""
|
||||||
|
} {
|
||||||
|
if {![info exists env($var)]} {
|
||||||
|
set env($var) $val
|
||||||
|
}
|
||||||
|
}
|
||||||
|
foreach {var val} {
|
||||||
|
CMDLINE ""
|
||||||
|
CMDLINE_CURSOR 0
|
||||||
|
CMDLINE_LINES 0
|
||||||
|
HISTORY_LEVEL -1
|
||||||
|
} {
|
||||||
|
set env($var) $val
|
||||||
|
}
|
||||||
|
unset var val
|
||||||
|
|
||||||
|
set forever 0
|
||||||
|
|
||||||
|
# Resource & history files:
|
||||||
|
set HISTFILE $env(HOME)/.tclsh_history
|
||||||
|
|
||||||
|
proc ESC {} {
|
||||||
|
return "\033"
|
||||||
|
}
|
||||||
|
|
||||||
|
proc readbuf {txt} {
|
||||||
|
upvar 1 $txt STRING
|
||||||
|
|
||||||
|
set ret [string index $STRING 0]
|
||||||
|
set STRING [string range $STRING 1 end]
|
||||||
|
return $ret
|
||||||
|
}
|
||||||
|
|
||||||
|
proc goto {row {col 1}} {
|
||||||
|
switch -- $row {
|
||||||
|
"home" {set row 1}
|
||||||
|
}
|
||||||
|
print "[ESC]\[${row};${col}H" nowait
|
||||||
|
}
|
||||||
|
|
||||||
|
proc gotocol {col} {
|
||||||
|
print "\r" nowait
|
||||||
|
if {$col > 0} {
|
||||||
|
print "[ESC]\[${col}C" nowait
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
proc clear {} {
|
||||||
|
print "[ESC]\[2J" nowait
|
||||||
|
goto home
|
||||||
|
}
|
||||||
|
|
||||||
|
proc clearline {} {
|
||||||
|
print "[ESC]\[2K\r" nowait
|
||||||
|
}
|
||||||
|
|
||||||
|
proc getColumns {} {
|
||||||
|
set cols 0
|
||||||
|
if {![catch {exec stty -a} err]} {
|
||||||
|
regexp {rows \d+; columns (\d+)} $err -> cols
|
||||||
|
}
|
||||||
|
return $cols
|
||||||
|
}
|
||||||
|
|
||||||
|
proc prompt {{txt ""}} {
|
||||||
|
global env
|
||||||
|
|
||||||
|
set prompt [subst $env(PROMPT)]
|
||||||
|
set txt "$prompt$txt"
|
||||||
|
foreach {end mid} $env(CMDLINE_LINES) break
|
||||||
|
|
||||||
|
# Calculate how many extra lines we need to display.
|
||||||
|
# Also calculate cursor position:
|
||||||
|
set n -1
|
||||||
|
set totalLen 0
|
||||||
|
set cursorLen [expr {$env(CMDLINE_CURSOR)+[string length $prompt]}]
|
||||||
|
set row 0
|
||||||
|
set col 0
|
||||||
|
|
||||||
|
# Render output line-by-line to $out then copy back to $txt:
|
||||||
|
set found 0
|
||||||
|
set out [list]
|
||||||
|
foreach line [split $txt "\n"] {
|
||||||
|
set len [expr {[string length $line]+1}]
|
||||||
|
incr totalLen $len
|
||||||
|
if {$found == 0 && $totalLen >= $cursorLen} {
|
||||||
|
set cursorLen [expr {$cursorLen - ($totalLen - $len)}]
|
||||||
|
set col [expr {$cursorLen % $env(COLUMNS)}]
|
||||||
|
set row [expr {$n + ($cursorLen / $env(COLUMNS)) + 1}]
|
||||||
|
|
||||||
|
if {$cursorLen >= $len} {
|
||||||
|
set col 0
|
||||||
|
incr row
|
||||||
|
}
|
||||||
|
set found 1
|
||||||
|
}
|
||||||
|
incr n [expr {int(ceil(double($len)/$env(COLUMNS)))}]
|
||||||
|
while {$len > 0} {
|
||||||
|
lappend out [string range $line 0 [expr {$env(COLUMNS)-1}]]
|
||||||
|
set line [string range $line $env(COLUMNS) end]
|
||||||
|
set len [expr {$len-$env(COLUMNS)}]
|
||||||
|
}
|
||||||
|
}
|
||||||
|
set txt [join $out "\n"]
|
||||||
|
set row [expr {$n-$row}]
|
||||||
|
|
||||||
|
# Reserve spaces for display:
|
||||||
|
if {$end} {
|
||||||
|
if {$mid} {
|
||||||
|
print "[ESC]\[${mid}B" nowait
|
||||||
|
}
|
||||||
|
for {set x 0} {$x < $end} {incr x} {
|
||||||
|
clearline
|
||||||
|
print "[ESC]\[1A" nowait
|
||||||
|
}
|
||||||
|
}
|
||||||
|
clearline
|
||||||
|
set env(CMDLINE_LINES) $n
|
||||||
|
|
||||||
|
# Output line(s):
|
||||||
|
print "\r$txt"
|
||||||
|
|
||||||
|
if {$row} {
|
||||||
|
print "[ESC]\[${row}A" nowait
|
||||||
|
}
|
||||||
|
gotocol $col
|
||||||
|
lappend env(CMDLINE_LINES) $row
|
||||||
|
}
|
||||||
|
|
||||||
|
proc print {txt {wait wait}} {
|
||||||
|
# Sends output to stdout chunks at a time.
|
||||||
|
# This is to prevent the terminal from
|
||||||
|
# hanging if we output too much:
|
||||||
|
while {[string length $txt]} {
|
||||||
|
puts -nonewline [string range $txt 0 2047]
|
||||||
|
set txt [string range $txt 2048 end]
|
||||||
|
if {$wait == "wait"} {
|
||||||
|
after 1
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
################################
|
||||||
|
# Key bindings
|
||||||
|
################################
|
||||||
|
proc handleEscapes {} {
|
||||||
|
global env
|
||||||
|
upvar 1 keybuffer keybuffer
|
||||||
|
set seq ""
|
||||||
|
set found 0
|
||||||
|
while {[set ch [readbuf keybuffer]] != ""} {
|
||||||
|
append seq $ch
|
||||||
|
|
||||||
|
switch -exact -- $seq {
|
||||||
|
"\[A" { ;# Cursor Up (cuu1,up)
|
||||||
|
handleHistory 1
|
||||||
|
set found 1; break
|
||||||
|
}
|
||||||
|
"\[B" { ;# Cursor Down
|
||||||
|
handleHistory -1
|
||||||
|
set found 1; break
|
||||||
|
}
|
||||||
|
"\[C" { ;# Cursor Right (cuf1,nd)
|
||||||
|
if {$env(CMDLINE_CURSOR) < [string length $env(CMDLINE)]} {
|
||||||
|
incr env(CMDLINE_CURSOR)
|
||||||
|
}
|
||||||
|
set found 1; break
|
||||||
|
}
|
||||||
|
"\[D" { ;# Cursor Left
|
||||||
|
if {$env(CMDLINE_CURSOR) > 0} {
|
||||||
|
incr env(CMDLINE_CURSOR) -1
|
||||||
|
}
|
||||||
|
set found 1; break
|
||||||
|
}
|
||||||
|
"\[H" -
|
||||||
|
"\[7~" -
|
||||||
|
"\[1~" { ;# home
|
||||||
|
set env(CMDLINE_CURSOR) 0
|
||||||
|
set found 1; break
|
||||||
|
}
|
||||||
|
"\[3~" { ;# delete
|
||||||
|
if {$env(CMDLINE_CURSOR) < [string length $env(CMDLINE)]} {
|
||||||
|
set env(CMDLINE) [string replace $env(CMDLINE) \
|
||||||
|
$env(CMDLINE_CURSOR) $env(CMDLINE_CURSOR)]
|
||||||
|
}
|
||||||
|
set found 1; break
|
||||||
|
}
|
||||||
|
"\[F" -
|
||||||
|
"\[K" -
|
||||||
|
"\[8~" -
|
||||||
|
"\[4~" { ;# end
|
||||||
|
set env(CMDLINE_CURSOR) [string length $env(CMDLINE)]
|
||||||
|
set found 1; break
|
||||||
|
}
|
||||||
|
"\[5~" { ;# Page Up }
|
||||||
|
"\[6~" { ;# Page Down }
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $found
|
||||||
|
}
|
||||||
|
|
||||||
|
proc handleControls {} {
|
||||||
|
global env
|
||||||
|
upvar 1 char char
|
||||||
|
upvar 1 keybuffer keybuffer
|
||||||
|
|
||||||
|
# Control chars start at a == \u0001 and count up.
|
||||||
|
switch -exact -- $char {
|
||||||
|
\u0004 { ;# ^d
|
||||||
|
if { $env(CMDLINE_CURSOR) <= 0 } {
|
||||||
|
print "exit\n" nowait
|
||||||
|
doExit
|
||||||
|
}
|
||||||
|
}
|
||||||
|
\u0003 { ;# ^c
|
||||||
|
print "^C\n" nowait
|
||||||
|
doExit
|
||||||
|
}
|
||||||
|
\u0008 -
|
||||||
|
\u007f { ;# ^h && backspace ?
|
||||||
|
if {$env(CMDLINE_CURSOR) > 0} {
|
||||||
|
incr env(CMDLINE_CURSOR) -1
|
||||||
|
set env(CMDLINE) [string replace $env(CMDLINE) \
|
||||||
|
$env(CMDLINE_CURSOR) $env(CMDLINE_CURSOR)]
|
||||||
|
}
|
||||||
|
}
|
||||||
|
\u001b { ;# ESC - handle escape sequences
|
||||||
|
handleEscapes
|
||||||
|
}
|
||||||
|
}
|
||||||
|
# Rate limiter:
|
||||||
|
set keybuffer ""
|
||||||
|
}
|
||||||
|
|
||||||
|
proc shortMatch {maybe} {
|
||||||
|
# Find the shortest matching substring:
|
||||||
|
set maybe [lsort $maybe]
|
||||||
|
set shortest [lindex $maybe 0]
|
||||||
|
foreach x $maybe {
|
||||||
|
while {![string match $shortest* $x]} {
|
||||||
|
set shortest [string range $shortest 0 end-1]
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $shortest
|
||||||
|
}
|
||||||
|
|
||||||
|
proc handleCompletion {} {
|
||||||
|
global env
|
||||||
|
set vars ""
|
||||||
|
set cmds ""
|
||||||
|
|
||||||
|
# First find out what kind of word we need to complete:
|
||||||
|
set wordstart [string last " " $env(CMDLINE) \
|
||||||
|
[expr {$env(CMDLINE_CURSOR)-1}]]
|
||||||
|
incr wordstart
|
||||||
|
set wordend [string first " " $env(CMDLINE) $wordstart]
|
||||||
|
if {$wordend == -1} {
|
||||||
|
set wordend end
|
||||||
|
} else {
|
||||||
|
incr wordend -1
|
||||||
|
}
|
||||||
|
set word [string range $env(CMDLINE) $wordstart $wordend]
|
||||||
|
|
||||||
|
if {[string trim $word] == ""} return
|
||||||
|
|
||||||
|
set firstchar [string index $word 0]
|
||||||
|
|
||||||
|
# Check if word is a variable:
|
||||||
|
if {$firstchar == "\$"} {
|
||||||
|
set word [string range $word 1 end]
|
||||||
|
incr wordstart
|
||||||
|
|
||||||
|
# Check if it is an array key:
|
||||||
|
set x [string first "(" $word]
|
||||||
|
if {$x != -1} {
|
||||||
|
set v [string range $word 0 [expr {$x-1}]]
|
||||||
|
incr x
|
||||||
|
set word [string range $word $x end]
|
||||||
|
incr wordstart $x
|
||||||
|
if {[uplevel #0 "array exists $v"]} {
|
||||||
|
set vars [uplevel #0 "array names $v $word*"]
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
foreach x [uplevel #0 {info vars}] {
|
||||||
|
if {[string match $word* $x]} {
|
||||||
|
lappend vars $x
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if {$firstchar == "\[" || $wordstart == 0} {
|
||||||
|
if {$firstchar == "\["} {
|
||||||
|
set word [string range $word 1 end]
|
||||||
|
incr wordstart
|
||||||
|
}
|
||||||
|
# Check commands:
|
||||||
|
foreach x [info commands] {
|
||||||
|
if {[string match $word* $x]} {
|
||||||
|
lappend cmds $x
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
# Check commands anyway:
|
||||||
|
foreach x [info commands] {
|
||||||
|
if {[string match $word* $x]} {
|
||||||
|
lappend cmds $x
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if {$wordstart != 0} {
|
||||||
|
# Check variables anyway:
|
||||||
|
set x [string first "(" $word]
|
||||||
|
if {$x != -1} {
|
||||||
|
set v [string range $word 0 [expr {$x-1}]]
|
||||||
|
incr x
|
||||||
|
set word [string range $word $x end]
|
||||||
|
incr wordstart $x
|
||||||
|
if {[uplevel #0 "array exists $v"]} {
|
||||||
|
set vars [uplevel #0 "array names $v $word*"]
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
foreach x [uplevel #0 {info vars}] {
|
||||||
|
if {[string match $word* $x]} {
|
||||||
|
lappend vars $x
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
set maybe [concat $vars $cmds]
|
||||||
|
set shortest [shortMatch $maybe]
|
||||||
|
if {"$word" == "$shortest"} {
|
||||||
|
if {[llength $maybe] > 1 && $env(COMPLETION_MATCH) != $maybe} {
|
||||||
|
set env(COMPLETION_MATCH) $maybe
|
||||||
|
clearline
|
||||||
|
set temp ""
|
||||||
|
foreach {match format} {
|
||||||
|
vars "35"
|
||||||
|
cmds "1;32"
|
||||||
|
} {
|
||||||
|
if {[llength $match]} {
|
||||||
|
append temp "[ESC]\[${format}m"
|
||||||
|
foreach x [set $match] {
|
||||||
|
append temp "[file tail $x] "
|
||||||
|
}
|
||||||
|
append temp "[ESC]\[0m"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print "\n$temp\n"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
proc handleHistory {x} {
|
||||||
|
global env
|
||||||
|
|
||||||
|
set hlen [llength $env(HISTORY)]
|
||||||
|
incr env(HISTORY_LEVEL) $x
|
||||||
|
if {$env(HISTORY_LEVEL) > -1} {
|
||||||
|
set env(CMDLINE) [lindex $env(HISTORY) end-$env(HISTORY_LEVEL)]
|
||||||
|
set env(CMDLINE_CURSOR) [string length $env(CMDLINE)]
|
||||||
|
}
|
||||||
|
if {$env(HISTORY_LEVEL) <= -1} {
|
||||||
|
set env(HISTORY_LEVEL) -1
|
||||||
|
set env(CMDLINE) ""
|
||||||
|
set env(CMDLINE_CURSOR) 0
|
||||||
|
} elseif {$env(HISTORY_LEVEL) > $hlen} {
|
||||||
|
set env(HISTORY_LEVEL) $hlen
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
################################
|
||||||
|
# History handling functions
|
||||||
|
################################
|
||||||
|
|
||||||
|
proc getHistory {} {
|
||||||
|
global env
|
||||||
|
return $env(HISTORY)
|
||||||
|
}
|
||||||
|
|
||||||
|
proc setHistory {hlist} {
|
||||||
|
global env
|
||||||
|
set env(HISTORY) $hlist
|
||||||
|
}
|
||||||
|
|
||||||
|
proc appendHistory {cmdline} {
|
||||||
|
global env
|
||||||
|
set old [lsearch -exact $env(HISTORY) $cmdline]
|
||||||
|
if {$old != -1} {
|
||||||
|
set env(HISTORY) [lreplace $env(HISTORY) $old $old]
|
||||||
|
}
|
||||||
|
lappend env(HISTORY) $cmdline
|
||||||
|
set env(HISTORY) \
|
||||||
|
[lrange $env(HISTORY) end-$env(HISTORY_BUFFER) end]
|
||||||
|
}
|
||||||
|
|
||||||
|
################################
|
||||||
|
# main()
|
||||||
|
################################
|
||||||
|
|
||||||
|
proc rawInput {} {
|
||||||
|
fconfigure stdin -buffering none -blocking 0
|
||||||
|
fconfigure stdout -buffering none -translation crlf
|
||||||
|
exec stty raw -echo
|
||||||
|
}
|
||||||
|
|
||||||
|
proc lineInput {} {
|
||||||
|
fconfigure stdin -buffering line -blocking 1
|
||||||
|
fconfigure stdout -buffering line
|
||||||
|
exec stty -raw echo
|
||||||
|
}
|
||||||
|
|
||||||
|
proc doExit {{code 0}} {
|
||||||
|
global env HISTFILE
|
||||||
|
|
||||||
|
# Reset terminal:
|
||||||
|
# print "[ESC]c[ESC]\[2J" nowait
|
||||||
|
lineInput
|
||||||
|
|
||||||
|
set hlist [getHistory]
|
||||||
|
if {[llength $hlist] > 0} {
|
||||||
|
set f [open $HISTFILE w]
|
||||||
|
foreach x $hlist {
|
||||||
|
# Escape newlines:
|
||||||
|
puts $f [string map {
|
||||||
|
\n "\\n"
|
||||||
|
"\\" "\\b"
|
||||||
|
} $x]
|
||||||
|
}
|
||||||
|
close $f
|
||||||
|
}
|
||||||
|
|
||||||
|
___exit $code
|
||||||
|
}
|
||||||
|
|
||||||
|
# Load history if available:
|
||||||
|
if {[llength $env(HISTORY)] == 0} {
|
||||||
|
if {[file exists $HISTFILE]} {
|
||||||
|
set f [open $HISTFILE r]
|
||||||
|
set hlist [list]
|
||||||
|
foreach x [split [read $f] "\n"] {
|
||||||
|
if {$x != ""} {
|
||||||
|
# Undo newline escapes:
|
||||||
|
lappend hlist [string map {
|
||||||
|
"\\n" \n
|
||||||
|
"\\\\" "\\"
|
||||||
|
"\\b" "\\"
|
||||||
|
} $x]
|
||||||
|
}
|
||||||
|
}
|
||||||
|
setHistory $hlist
|
||||||
|
unset hlist
|
||||||
|
close $f
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
rawInput
|
||||||
|
|
||||||
|
rename exit ___exit
|
||||||
|
proc exit args doExit
|
||||||
|
|
||||||
|
proc tclline {} {
|
||||||
|
global env
|
||||||
|
set char ""
|
||||||
|
set keybuffer [read stdin]
|
||||||
|
set env(COLUMNS) [getColumns]
|
||||||
|
|
||||||
|
while {$keybuffer != ""} {
|
||||||
|
if {[eof stdin]} return
|
||||||
|
set char [readbuf keybuffer]
|
||||||
|
if {$char == ""} {
|
||||||
|
# Sleep for a bit to reduce CPU time:
|
||||||
|
after 40
|
||||||
|
continue
|
||||||
|
}
|
||||||
|
|
||||||
|
if {[string is print $char]} {
|
||||||
|
set x $env(CMDLINE_CURSOR)
|
||||||
|
|
||||||
|
if {$x < 1 && [string trim $char] == ""} continue
|
||||||
|
|
||||||
|
set trailing [string range $env(CMDLINE) $x end]
|
||||||
|
set env(CMDLINE) [string replace $env(CMDLINE) $x end]
|
||||||
|
append env(CMDLINE) $char
|
||||||
|
append env(CMDLINE) $trailing
|
||||||
|
incr env(CMDLINE_CURSOR)
|
||||||
|
} elseif {$char == "\t"} {
|
||||||
|
handleCompletion
|
||||||
|
} elseif {$char == "\n" || $char == "\r"} {
|
||||||
|
if {[info complete $env(CMDLINE)] &&
|
||||||
|
[string index $env(CMDLINE) end] != "\\"} {
|
||||||
|
lineInput
|
||||||
|
print "\n" nowait
|
||||||
|
uplevel #0 {
|
||||||
|
global env
|
||||||
|
|
||||||
|
# Run the command:
|
||||||
|
if { [catch $env(CMDLINE) res] } {
|
||||||
|
print "[ESC]\[1;31m\[[ESC]\[0;31mError[ESC]\[1;31m\][ESC]\[0m "
|
||||||
|
}
|
||||||
|
if {$res != ""} {
|
||||||
|
print "$res\n"
|
||||||
|
}
|
||||||
|
|
||||||
|
# Append HISTORY:
|
||||||
|
set env(HISTORY_LEVEL) -1
|
||||||
|
appendHistory $env(CMDLINE)
|
||||||
|
|
||||||
|
set env(CMDLINE) ""
|
||||||
|
set env(CMDLINE_CURSOR) 0
|
||||||
|
set env(CMDLINE_LINES) {0 0}
|
||||||
|
}
|
||||||
|
rawInput
|
||||||
|
} else {
|
||||||
|
set x $env(CMDLINE_CURSOR)
|
||||||
|
|
||||||
|
if {$x < 1 && [string trim $char] == ""} continue
|
||||||
|
|
||||||
|
set trailing [string range $env(CMDLINE) $x end]
|
||||||
|
set env(CMDLINE) [string replace $env(CMDLINE) $x end]
|
||||||
|
append env(CMDLINE) $char
|
||||||
|
append env(CMDLINE) $trailing
|
||||||
|
incr env(CMDLINE_CURSOR)
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
handleControls
|
||||||
|
}
|
||||||
|
}
|
||||||
|
prompt $env(CMDLINE)
|
||||||
|
}
|
||||||
|
tclline
|
||||||
|
|
||||||
|
fileevent stdin readable tclline
|
||||||
|
vwait forever
|
||||||
|
doExit
|
||||||
|
}
|
2
nanonote-files/script-files/root/.vimrc
Normal file
2
nanonote-files/script-files/root/.vimrc
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
set encoding=utf-8
|
||||||
|
set term=xterm
|
1
nanonote-files/script-files/usr/lib/tcl8.5/init.tcl
Normal file
1
nanonote-files/script-files/usr/lib/tcl8.5/init.tcl
Normal file
@ -0,0 +1 @@
|
|||||||
|
source /root/.tclshrc
|
BIN
nanonote-files/script-files/usr/share/qmaps/ben.qmap
Normal file
BIN
nanonote-files/script-files/usr/share/qmaps/ben.qmap
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user