/usr/lib/ruby/1.8/localize.rb is in libnet-irc-ruby 0.14-5.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 | =begin header
localization extension
IO supporting coding system conversion
$Author: igarashi $
$Date: 2001/01/02 00:21:18 $
Copyright (C) 1998-2001 Hiroshi IGARASHI
=end
require 'kconv'
#require 'uconv'
$vsave, $VERBOSE = $VERBOSE, FALSE
module Kernel
private
def println(*args)
=begin
print with ln
=end
STDOUT.println(*args)
end
def eprint(*args)
=begin
print to stderr
=end
STDERR.print(*args)
end
def eprintln(*args)
=begin
eprint with ln
=end
STDERR.println(*args)
end
end
# IO class extension
class IO
def println(*args)
=begin
print with ln
=end
if args.length > 0
print(*args)
end
print("\n")
end
public(:println)
end
class << ARGF
def lineno
$.
end
def path
filename
end
end
## available only if kconv ext module imported
if defined?(Kconv)
module Kernel
private
# lreadline
def lreadline(*arg)
Kconv.tointern(readline(*arg))
end
# lgets
def lgets(*arg)
ret = gets(*arg)
unless ret.nil?
Kconv.tointern(ret)
else
nil
end
end
def p(*args)
args.each { |arg|
println(Kconv.toextern(arg.inspect))
}
end
# lprint
def lprint(*args)
STDOUT.lprint(*args)
end
# lprint with ln
def lprintln(*args)
STDOUT.lprintln(*args)
end
# leprint
def leprint(*args)
STDERR.lprint(*args)
end
def leprintln(*args)
=begin
leprint with ln
=end
STDERR.lprintln(*args)
end
end
# Kconv module extension
module Kconv
## local encoding
case $KIOCODE
## EUC
when 'EUC'
alias_method(:toextern, :toeuc)
## JIS
when 'JIS'
alias_method(:toextern, :tojis)
## SJIS
when 'SJIS'
alias_method(:toextern, :tosjis)
else
case $KCODE
## EUC
when 'EUC'
alias_method(:toextern, :toeuc)
## JIS
when 'JIS'
alias_method(:toextern, :tojis)
## SJIS
when 'SJIS'
alias_method(:toextern, :tosjis)
when 'NONE'
def toextern(str)
str
end
else
raise "Unknown coding system(\"#{$KIOCODE}\")."
end
end
case $KCODE
## EUC
when 'EUC'
alias_method(:tointern, :toeuc)
## SJIS
when 'SJIS'
alias_method(:tointern, :tosjis)
when 'NONE'
def tointern(str)
str
end
else
raise "Unknown coding system(\"#{$KCODE}\")."
end
alias_method(:tolocal, :toextern)
module_function(:toextern, :tolocal, :tointern)
end
end
class << ARGF
if defined?(Kconv)
# lreadline
def lreadline(*arg)
Kconv.tointern(readline(*arg))
end
# lgets
def lgets(*arg)
ret = gets(*arg)
unless ret.nil?
Kconv.tointern(ret)
else
nil
end
end
end
end
class IO
if defined?(Kconv)
# lreadline
def lreadline(*arg)
Kconv.tointern(readline(*arg))
end
# lgets
def lgets(*arg)
ret = gets(*arg)
unless ret.nil?
Kconv.tointern(ret)
else
nil
end
end
# convert to local encoding and print
def lprint(*args)
args.each { |arg|
print(Kconv.toextern(arg.to_s))
}
end
def jisprint(*args)
args.each { |arg|
print(Kconv.tojis(arg.to_s))
}
end
def eucprint(*args)
args.each { |arg|
print(Kconv.toeuc(arg.to_s))
}
end
def sjisprint(*args)
args.each { |arg|
print(Kconv.tosjis(arg.to_s))
}
end
def lprintln(*args)
lprint(*args)
print("\n")
end
def set_codesys(codesys_name)
case codesys_name
## JIS
when 'JIS'
class << self
alias_method(:lprint, :jisprint)
end
## EUC
when 'EUC'
class << self
alias_method(:lprint, :eucprint)
end
## SJIS
when 'SJIS'
class << self
alias_method(:lprint, :sjisprint)
end
when 'NONE'
alias_method(:lprint, :print)
else
raise "Unknown coding system(\"#{codesys_name}\")."
end
end
public(:lreadline, :lprint, :lprintln)
end
end
$VERBOSE = $vsave
|