File: dot.bashrc.pl

package info (click to toggle)
language-env 0.64
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,588 kB
  • ctags: 125
  • sloc: perl: 6,243; makefile: 83; tcl: 64; sh: 18
file content (164 lines) | stat: -rw-r--r-- 4,293 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
# s comment -*-coding: euc-jp;-*-
bash GA KIDOU SURU TOKI NI JIKKOU SAREMASU.
SAMAZAMA NA SETTEI WO SHITEIRU NODE, MEWO TOOSHITE OITE KUDASAI.
END
bash ưȤ˼¹Ԥޤ
ޤޤ򤷤ƤΤǡܤ̤ƤƤ
END
print <<'EOF';
# 󥷥ǤϤʤ bash εư˼¹Ԥ롣
# ----- Ū -----
EOF


print "# XIM С̾\n";
print "# (XIM ϡlanguage-env ǻȤѿǤ)\n";
if ($IM_DEFAULT eq "Canna") {
	print "XIM=kinput2\n";
} elsif ($IM_DEFAULT eq "Wnn") {
	print "XIM=kinput2\n";
} elsif ($IM_DEFAULT eq "SKK") {
	print "XIM=skkinput\n";
} 
if ($IM_HOST{"Canna"} ne "") {
	print "CANNAHOST=$IM_HOST{'Canna'}\nexport CANNAHOST\n";
}
if ($IM_HOST{"Wnn"} ne "") {
	print "JSERVER=$IM_HOST{'Wnn'}\nexport JSERVER\n";
}
if ($IM_HOST{"SKK"} ne "") {
	print "SKKSERVER=$IM_HOST{'SKK'}\nexport SKKSERVER\n";
}


print <<'EOF';
# xprop ϡxbase-clients ѥå˴ޤޤޤ
if [ -n "$WINDOWID" -a -x /usr/bin/X11/xprop ] ; then
  # X Window System äƤ뤱 X Window System ̿븢¤
  # ʤȤ (su Ȥʤ) ؤк
  xprop -id $WINDOWID >& /dev/null || unset WINDOWID
fi
if [ -n "$WINDOWID" -a -x /usr/bin/X11/xprop ] ; then
  XPROP=`xprop -id $WINDOWID WM_CLASS`
  case $XPROP in
  *kterm* | *krxvt* | *kwterm* | *katerm* ) LANG=ja_JP.eucJP ;;
  *UXTerm* ) LANG=ja_JP.UTF-8 ;;
  *hanterm* ) LANG=ko_KR.eucKR ;;
  *caterm* | *crxvt-big5* ) LANG=zh_TW.Big5 ;;
  *crxvt-gb* ) LANG=zh_CN.GB2312 ;;
  *aterm* ) LANG=C ;;
  # gnome-terminal  $WINDOWID ΰ̣㤦
  # mlterm  WM_CLASS ꤷʤ
  # Eterm 뼫ưǧˤʤä
  # xterm 뼫ưǧˤʤä (ե꤬ɬ)
  # rxvt-beta 뼫ưǧ
  * ) : ;;
  esac
else
  case $TERM in
    linux) LANG=C ;;
    xterm)
      if [ "$COLORTERM" != "gnome-terminal" ] ; then
        LANG=C
      fi ;;
    jfbterm) : ;;
    *) LANG=ja_JP.eucJP ;;
  esac
fi
case $LANG in
  ja_JP.UTF-8) JLESSCHARSET=utf-8 ; LV=-Ou8 ;;
  ja_JP.*) JLESSCHARSET=japanese-euc ; LV=-Oej ;;
  *) JLESSCHARSET=latin1 ; LV=-Al1 ;;
esac
export LANG JLESSCHARSET LV
if type lv &>/dev/null ; then
  PAGER=lv
elif type jless &>/dev/null ; then
  PAGER=jless
elif type less &>/dev/null ; then
  PAGER=less
else
  PAGER=more
fi
export PAGER
# XMODIFIERS  export ʤΤϡemacs  Segmentation Fault 򵯤
# ˡȡDebian ˥塼ƥफεưˤбǤʤ
function rxvt {
  if /usr/bin/which krxvt &> /dev/null
  then
    krxvt $*
  else
    /usr/bin/rxvt $*
  fi
}
alias jfbterm='LANG=ja_JP.eucJP /usr/bin/jfbterm'
alias xemacs='XMODIFIERS= xemacs'
# perl ˤ󤹤˥󥰤ФͭˤƤ
# PERL_BADLANG=0 ; export PERL_BADLANG
# .bash_profile ǻȤ
BASHRC_DONE=1
# mh 󥹥ȡ뤵Ƥ顢PATH ˲ä롣
if [ -x /usr/bin/mh/mhmail ]
then
  if type mhmail &>/dev/null
  then
    true
  else
    PATH=$PATH:/usr/bin/mh
  fi
fi
EOF

if (!$EXTENDED) {return;}
print <<'EOF';
## ----- ߤ˱ -----
# ls ư (°ɽĤ)man ls 
if [ "$TERM" = "dumb" -o "$TERM" = "emacs" ]
then
  alias ls='/bin/ls -F'
else
  alias ls='/bin/ls -F --color=auto'
fi
# ɸ२ǥ vi ˤ롣Debian Policy Manual 
EDITOR=vi
export EDITOR
# ץץȡman bash 
if [ "$TERM" = "dumb" -o "$TERM" = "emacs" ]
then
  PS1='\w\$ '
else
  if [ "$UID" = "0" ]
  then
    PS1='\[\e[41m\]\w\$\[\e[m\] '
  else
    PS1='\[\e[7m\]\w\$\[\e[m\] '
  fi
fi
# եȤɤ°Ǻ뤫man umask 
umask 022
# less ưman less 
LESS=-M
export LESS
if type /usr/bin/lesspipe &>/dev/null
then
  LESSOPEN="| /usr/bin/lesspipe '%s'"
  LESSCLOSE="/usr/bin/lesspipe '%s' '%s'"
  export LESSOPEN LESSCLOSE
fi
# Ctrl-D ǥȤΤ롣man bash 
IGNOREEOF=3
# ȥǥ쥯ȥΥХååץեɽ
# (ݤ "chkbackups | xargs rm" ¹ԤΤ)
alias chkbackups='/usr/bin/find . -name "?*~" -o -name "?*.bak" -o -name ".[^.]?*~" -o -name ".[^.]?*.bak" -maxdepth 1'
# X Window System Ǥ
if [ "$DISPLAY" ]
then
  # ̥ѹ COLUMNS, LINES ѹ롣man bash 
  shopt -s checkwinsize
  # üɥΥȥѹ
  function xtitle()
  {
    /bin/echo -e "\033]0;$*\007\c"
  }
fi
EOF