5 require English; import English;
14 sub output_autoflush {
15 local($old) = select($_[0]);
16 local($prev) = $OUTPUT_AUTOFLUSH;
17 $OUTPUT_AUTOFLUSH = @_ > 1 ? $_[1] : 1;
22 sub output_field_separator {
23 local($old) = select($_[0]);
24 local($prev) = $OUTPUT_FIELD_SEPARATOR;
25 $OUTPUT_FIELD_SEPARATOR = $_[1] if @_ > 1;
30 sub output_record_separator {
31 local($old) = select($_[0]);
32 local($prev) = $OUTPUT_RECORD_SEPARATOR;
33 $OUTPUT_RECORD_SEPARATOR = $_[1] if @_ > 1;
38 sub input_record_separator {
39 local($old) = select($_[0]);
40 local($prev) = $INPUT_RECORD_SEPARATOR;
41 $INPUT_RECORD_SEPARATOR = $_[1] if @_ > 1;
46 sub input_line_number {
47 local($old) = select($_[0]);
48 local($prev) = $INPUT_LINE_NUMBER;
49 $INPUT_LINE_NUMBER = $_[1] if @_ > 1;
54 sub format_page_number {
55 local($old) = select($_[0]);
56 local($prev) = $FORMAT_PAGE_NUMBER;
57 $FORMAT_PAGE_NUMBER = $_[1] if @_ > 1;
62 sub format_lines_per_page {
63 local($old) = select($_[0]);
64 local($prev) = $FORMAT_LINES_PER_PAGE;
65 $FORMAT_LINES_PER_PAGE = $_[1] if @_ > 1;
70 sub format_lines_left {
71 local($old) = select($_[0]);
72 local($prev) = $FORMAT_LINES_LEFT;
73 $FORMAT_LINES_LEFT = $_[1] if @_ > 1;
79 local($old) = select($_[0]);
80 local($prev) = $FORMAT_NAME;
81 $FORMAT_NAME = $_[1] if @_ > 1;
87 local($old) = select($_[0]);
88 local($prev) = $FORMAT_TOP_NAME;
89 $FORMAT_TOP_NAME = $_[1] if @_ > 1;
94 sub format_line_break_characters {
95 local($old) = select($_[0]);
96 local($prev) = $FORMAT_LINE_BREAK_CHARACTERS;
97 $FORMAT_LINE_BREAK_CHARACTERS = $_[1] if @_ > 1;
102 sub format_formfeed {
103 local($old) = select($_[0]);
104 local($prev) = $FORMAT_FORMFEED;
105 $FORMAT_FORMFEED = $_[1] if @_ > 1;