Mercurial > repo

comparison interps/clc-intercal/inst/man/man3/Language::INTERCAL::Charset::EBCDIC.3pm @ 996:859f9b4339e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Gregor> tar xf egobot.tar.xz
author HackBot
date Sun, 09 Dec 2012 19:30:08 +0000
parents
children
comparison
equal deleted inserted replaced
995:6883f5911eb7 996:859f9b4339e6
1 .\" Automatically generated by Pod::Man 2.25 (Pod::Simple 3.16)
2 .\"
3 .\" Standard preamble:
4 .\" ========================================================================
5 .de Sp \" Vertical space (when we can't use .PP)
6 .if t .sp .5v
7 .if n .sp
8 ..
9 .de Vb \" Begin verbatim text
10 .ft CW
11 .nf
12 .ne \\$1
13 ..
14 .de Ve \" End verbatim text
15 .ft R
16 .fi
17 ..
18 .\" Set up some character translations and predefined strings. \*(-- will
19 .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
20 .\" double quote, and \*(R" will give a right double quote. \*(C+ will
21 .\" give a nicer C++. Capital omega is used to do unbreakable dashes and
22 .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff,
23 .\" nothing in troff, for use with C<>.
24 .tr \(*W-
25 .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
26 .ie n \{\
27 . ds -- \(*W-
28 . ds PI pi
29 . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
30 . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
31 . ds L" ""
32 . ds R" ""
33 . ds C` ""
34 . ds C' ""
35 'br\}
36 .el\{\
37 . ds -- \|\(em\|
38 . ds PI \(*p
39 . ds L" ``
40 . ds R" ''
41 'br\}
42 .\"
43 .\" Escape single quotes in literal strings from groff's Unicode transform.
44 .ie \n(.g .ds Aq \(aq
45 .el .ds Aq '
46 .\"
47 .\" If the F register is turned on, we'll generate index entries on stderr for
48 .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
49 .\" entries marked with X<> in POD. Of course, you'll have to process the
50 .\" output yourself in some meaningful fashion.
51 .ie \nF \{\
52 . de IX
53 . tm Index:\\$1\t\\n%\t"\\$2"
54 ..
55 . nr % 0
56 . rr F
57 .\}
58 .el \{\
59 . de IX
60 ..
61 .\}
62 .\"
63 .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
64 .\" Fear. Run. Save yourself. No user-serviceable parts.
65 . \" fudge factors for nroff and troff
66 .if n \{\
67 . ds #H 0
68 . ds #V .8m
69 . ds #F .3m
70 . ds #[ \f1
71 . ds #] \fP
72 .\}
73 .if t \{\
74 . ds #H ((1u-(\\\\n(.fu%2u))*.13m)
75 . ds #V .6m
76 . ds #F 0
77 . ds #[ \&
78 . ds #] \&
79 .\}
80 . \" simple accents for nroff and troff
81 .if n \{\
82 . ds ' \&
83 . ds ` \&
84 . ds ^ \&
85 . ds , \&
86 . ds ~ ~
87 . ds /
88 .\}
89 .if t \{\
90 . ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
91 . ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
92 . ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
93 . ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
94 . ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
95 . ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
96 .\}
97 . \" troff and (daisy-wheel) nroff accents
98 .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
99 .ds 8 \h'\*(#H'\(*b\h'-\*(#H'
100 .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
101 .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
102 .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
103 .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
104 .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
105 .ds ae a\h'-(\w'a'u*4/10)'e
106 .ds Ae A\h'-(\w'A'u*4/10)'E
107 . \" corrections for vroff
108 .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
109 .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
110 . \" for low resolution devices (crt and lpr)
111 .if \n(.H>23 .if \n(.V>19 \
112 \{\
113 . ds : e
114 . ds 8 ss
115 . ds o a
116 . ds d- d\h'-1'\(ga
117 . ds D- D\h'-1'\(hy
118 . ds th \o'bp'
119 . ds Th \o'LP'
120 . ds ae ae
121 . ds Ae AE
122 .\}
123 .rm #[ #] #H #V #F C
124 .\" ========================================================================
125 .\"
126 .IX Title "INTERCAL::Charset::EBCDIC 3pm"
127 .TH INTERCAL::Charset::EBCDIC 3pm "2008-03-29" "perl v5.14.2" "User Contributed Perl Documentation"
128 .\" For nroff, turn off justification. Always turn off hyphenation; it makes
129 .\" way too many mistakes in technical documents.
130 .if n .ad l
131 .nh
132 .SH "NAME"
133 Charset::EBCDIC \- allows to use EBCDIC string constants in ASCII programs (and v.v.)
134 .SH "SYNOPSIS"
135 .IX Header "SYNOPSIS"
136 .Vb 1
137 \& use Charset::EBCDIC \*(Aqascii2abcdic\*(Aq;
138 \&
139 \& my $a = ebcdic2ascii "(EBCDIC text)";
140 .Ve
141 .SH "DESCRIPTION"
142 .IX Header "DESCRIPTION"
143 \&\fICharset::EBCDIC\fR defines functions to convert between a subset of \s-1ASCII\s0 and a
144 subset of nonstandard \s-1EBCDIC\s0 (since there isn't such a thing as a standard
145 \&\s-1EBCDIC\s0 we defined our own variant which is guaranteed to be incompatible
146 with all versions of \s-1EBCDIC\s0 used by \s-1IBM\s0 hardware \- however, when we have
147 chosen a code for a character, we have made sure that at least one \- but
148 certainly not all \- \s-1IBM\s0 models used that same code, so the choice cannot
149 be criticised). If you really want to know, several variants of \s-1EBCDIC\s0
150 are listed in \s-1RFC\s0 1345, which is available from the usual sources.
151 .PP
152 Two functions, \fIebcdic2ascii\fR and \fIascii2ebcdic\fR are exportable but not
153 exported by default. They do the obvious thing to their first argument and
154 return the transformed string.
155 .SH "EBCDIC CHARACTER TABLE"
156 .IX Header "EBCDIC CHARACTER TABLE"
157 The following are the characters recognised. The ones shown as 2 letter
158 abbreviations cannot be translated to \s-1ASCII\s0 (except for the control
159 characters, which do have an \s-1ASCII\s0 equivalent).
160 .PP
161 .Vb 10
162 \& + 0 1 2 3 4 5 6 7 8 9 a b c d e f Notes
163 \& 00 OV TA LF CR OV=overstrike
164 \& 10 TA=tab
165 \& 20 LF=linefeed
166 \& 30 CR=carr\-return
167 \& 40 SP CT . < ( + ! SP=space
168 \& 50 & ] $ * ) ; NO CT=cents
169 \& 60 \- / XO | , % _ > ? NO=not\-sign
170 \& 70 : # @ \*(Aq = " XO=XOR(1)
171 \& 80 a b c d e f g h i
172 \& 90 j k l m n o p q r { [
173 \& a0 ~ s t u v w x y z RE RE=registered
174 \& b0 ^ PO CO PO=pound
175 \& c0 A B C D E F G H I CO=copyright
176 \& d0 J K L M N O P Q R } \e
177 \& e0 S T U V W X Y Z
178 \& f0 0 1 2 3 4 5 6 7 8 9 DE DE=delete
179 .Ve
180 .PP
181 (1) The symbol for the \s-1INTECAL\s0 \s-1XOR\s0 operator, \*(L"V overstrike \-\*(R".
182 .SH "COPYRIGHT"
183 .IX Header "COPYRIGHT"
184 This module is part of CLC-INTERCAL.
185 .PP
186 Copyright (C) 1999, 2000, 2002, 2006, 2007 Claudio Calvelli, all rights reserved
187 .PP
188 See the files \s-1README\s0 and \s-1COPYING\s0 in the distribution for information.
189 .SH "SEE ALSO"
190 .IX Header "SEE ALSO"
191 A qualified psychiatrist.