detect if file existed then perform some script

#specific library options in side file

if { [file exists add_sco.tcl] == 1} { source add_sco.tcl }

Remove file/dir if existed:
if {[file exists $char_path]} {
  exec rm -rf $char_path

}

Count line number of .data statement

#!/bin/csh -f

set names = 'find . -name 'deck.cir' -print'

foreach name ($names)
    echo $names
    cat $name | sed -n '/^\.data/,/enddata/p' | wc -l
end

environment setting

1. konsole & : pop out an konsole screen

2. gvim:

set hl cursorline

edit/color scheme/desert

3. gvim -o f1 f2 :上下視窗
    gvim -O f1 f2 : 左右視窗

split :
vsplit

set scrollbind
set noscrollbind

4. backspace 一次刪掉整個word的問題
stty werase ^W  (^W要按ctrl+v+w)