blob: 2452a15a1f37f8a82020023626915b70190466be (
plain)
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
|
package FileHandle;
BEGIN {
require 5.000;
require English; import English;
require Exporter;
}
@ISA = (Exporter);
@EXPORT = qw(
print
autoflush
output_field_separator
output_record_separator
input_record_separator
input_line_number
format_page_number
format_lines_per_page
format_lines_left
format_name
format_top_name
format_line_break_characters
format_formfeed
);
sub print {
local($this) = shift;
print $this @_;
}
sub autoflush {
local($old) = select($_[0]);
local($prev) = $OUTPUT_AUTOFLUSH;
$OUTPUT_AUTOFLUSH = @_ > 1 ? $_[1] : 1;
select($old);
$prev;
}
sub output_field_separator {
local($old) = select($_[0]);
local($prev) = $OUTPUT_FIELD_SEPARATOR;
$OUTPUT_FIELD_SEPARATOR = $_[1] if @_ > 1;
select($old);
$prev;
}
sub output_record_separator {
local($old) = select($_[0]);
local($prev) = $OUTPUT_RECORD_SEPARATOR;
$OUTPUT_RECORD_SEPARATOR = $_[1] if @_ > 1;
select($old);
$prev;
}
sub input_record_separator {
local($old) = select($_[0]);
local($prev) = $INPUT_RECORD_SEPARATOR;
$INPUT_RECORD_SEPARATOR = $_[1] if @_ > 1;
select($old);
$prev;
}
sub input_line_number {
local($old) = select($_[0]);
local($prev) = $INPUT_LINE_NUMBER;
$INPUT_LINE_NUMBER = $_[1] if @_ > 1;
select($old);
$prev;
}
sub format_page_number {
local($old) = select($_[0]);
local($prev) = $FORMAT_PAGE_NUMBER;
$FORMAT_PAGE_NUMBER = $_[1] if @_ > 1;
select($old);
$prev;
}
sub format_lines_per_page {
local($old) = select($_[0]);
local($prev) = $FORMAT_LINES_PER_PAGE;
$FORMAT_LINES_PER_PAGE = $_[1] if @_ > 1;
select($old);
$prev;
}
sub format_lines_left {
local($old) = select($_[0]);
local($prev) = $FORMAT_LINES_LEFT;
$FORMAT_LINES_LEFT = $_[1] if @_ > 1;
select($old);
$prev;
}
sub format_name {
local($old) = select($_[0]);
local($prev) = $FORMAT_NAME;
$FORMAT_NAME = $_[1] if @_ > 1;
select($old);
$prev;
}
sub format_top_name {
local($old) = select($_[0]);
local($prev) = $FORMAT_TOP_NAME;
$FORMAT_TOP_NAME = $_[1] if @_ > 1;
select($old);
$prev;
}
sub format_line_break_characters {
local($old) = select($_[0]);
local($prev) = $FORMAT_LINE_BREAK_CHARACTERS;
$FORMAT_LINE_BREAK_CHARACTERS = $_[1] if @_ > 1;
select($old);
$prev;
}
sub format_formfeed {
local($old) = select($_[0]);
local($prev) = $FORMAT_FORMFEED;
$FORMAT_FORMFEED = $_[1] if @_ > 1;
select($old);
$prev;
}
1;
|
