blob: b975c2b990f8b68c36ef031c6b1f02bb41f482b6 (
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
|
package FileHandle;
BEGIN {
require 5.000;
require English; import English;
}
@ISA = ();
sub print {
local($this) = shift;
print $this @_;
}
sub output_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;
|
