mirror of
git://projects.qi-hardware.com/openwrt-packages.git
synced 2024-11-22 18:57:31 +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