# This script is (c) Copyright 1998 Hans Lermen # # It is made available to the DOSEmu project under the GPL Version 2, or at # your option any later version. Details of this Licence can be found in the # file 'COPYING' in the distribution's top level directory. # set answer 0 set readme "../doc/README.txt" proc display_output { titletext but1 but2 movto longtext} { global answer upvar $longtext longtx set w .longlist catch {destroy $w} toplevel $w wm title $w $titletext wm iconname $w $titletext positionWindow $w frame $w.buttons pack $w.buttons -side bottom -expand y -fill x -pady 2m set answer 0 button $w.buttons.but1 -text $but1 -width 20 -command "destroy $w; global answer; set answer 0" if { "$but2" == "" } { pack $w.buttons.but1 -side left -expand 1 } else { button $w.buttons.but2 -text $but2 -width 20 -command "destroy $w; global answer; set answer 1" pack $w.buttons.but1 $w.buttons.but2 -side left -expand 1 } text $w.text -relief sunken -bd 2 -yscrollcommand "$w.scroll set" -setgrid 1 -height 25 -width 80 scrollbar $w.scroll -command "$w.text yview" pack $w.scroll -side right -fill y pack $w.text -expand yes -fill both $w.text insert 0.0 "$longtx" $w.text yview moveto $movto vwait answer return $answer } proc get_line_of {text pattern} { upvar $text tx set line 0 catch {set line [exec grep -n $pattern << $tx | head -n1 | cut -d: -f1]} return $line } proc show_readme_text {text textlines header pattern} { upvar $text tx set moveto 0.0 if {$pattern != ""} { set line [get_line_of tx $pattern] set moveto [expr (($line -1) * 1.0) / $textlines] } display_output $header "Ok" "" $moveto tx } proc readin_readme {filename filevar filecount startpattern stoppattern} { upvar $filevar fvar $filecount count global env set tmp "$env(HOME)/.dosemu/tmp/readin_browse" append tmp [ pid ] set startpattern "/$startpattern/" if {$stoppattern != ""} { set stoppattern "/$stoppattern/" catch { exec csplit -f $tmp. $filename $startpattern $stoppattern >& /dev/null } } else { catch { exec csplit -f $tmp. $filename $startpattern >& /dev/null } } catch { set count [exec wc -l $tmp.01 | awk {{print $1}}] } set fvar [exec col -b <$tmp.01] catch { exec /bin/bash -c "rm -f $tmp*" } }