perl 5.0 alpha 6

[editor's note: cleaned up from the September '94 InfoMagic CD, just
like the last commit]

1 files changed, 110 insertions, 0 deletions

diff --git a/lib/FileHandle.pm b/lib/FileHandle.pm
new file mode 100644
index 0000000000..b975c2b990
--- /dev/null
+++ b/lib/FileHandle.pm
@@ -0,0 +1,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;