File: dot.profile.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 (81 lines) | stat: -rw-r--r-- 1,380 bytes parent folder | download | duplicates (3)
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
#   comment -*-coding: iso-8859-9;-*-
POSIX uyumlu bir kabuga girerken etkin olacak ayarlar
END
POSIX uyumlu bir kabua girerken etkin olacak ayarlar
END

print <<"EOF";
# Set the Turkish locale.
LANG=$LOCALE
export LANG

# Follow POSIX for some locale items.
#LC_MESSAGES=C
#LC_TIME=C
#LC_NUMERIC=C
#export LC_MESSAGES
#export LC_TIME
#export LC_NUMERIC

# Charset for MIME headers.
MM_CHARSET=$ENCODING
export MM_CHARSET

# Encoding for SGML-DSSSL processing.
SP_ENCODING=$ENCODING
export SP_ENCODING

EOF

if ($EXTENDED) {
	print <<"EOF";
# Set the Turkish locale.
LANG=$LOCALE
export LANG

# Setup the console font and keyboard.
KTYPE=$KTYPE
FONT=$CFONT

EOF
	print <<'EOF';
if [ "`locale charmap 2>/dev/null`" = "UTF-8" ]; then
	case "$KTYPE" in
		q|Q)		keyb="trqu"   ;;
		f|F)		keyb="trfu"   ;;
		alt|qalt|QALT)	keyb="tralt"  ;;
		*)		keyb="trqu"   ;;
	esac
	umode="start"
else
	case "$KTYPE" in
		q|Q)		keyb="trq"    ;;
		f|F)		keyb="trf"    ;;
		alt|qalt|QALT)	keyb="tralt"  ;;
		*)		keyb="trq"    ;;
	esac
	umode="stop"
fi

case `tty` in
	/dev/tty[0-9]*|/dev/vc/*)
		(
		if which consolechars; then
			consolechars -f $FONT -m iso09
		else
			setfont $FONT -m trivial
		fi
		
		if which loadkeys; then
			# Prepare console mode and setup keyboard.
			if which unicode_${umode}; then
				unicode_${umode} 
			fi
			loadkeys $keyb
		fi
		) >/dev/null 2>&1
		;;
esac

EOF
}