lib/FileHandle.pm

   1 package FileHandle;
   2
   3 BEGIN {
   4     require 5.000;
   5     require English; import English;
   6 }
   7 @ISA = ();
   8
   9 sub print {
  10     local($this) = shift;
  11     print $this @_;
  12 }
  13
  14 sub output_autoflush {
  15     local($old) = select($_[0]);
  16     local($prev) = $OUTPUT_AUTOFLUSH;
  17     $OUTPUT_AUTOFLUSH = @_ > 1 ? $_[1] : 1;
  18     select($old);
  19     $prev;
  20 }
  21
  22 sub output_field_separator {
  23     local($old) = select($_[0]);
  24     local($prev) = $OUTPUT_FIELD_SEPARATOR;
  25     $OUTPUT_FIELD_SEPARATOR = $_[1] if @_ > 1;
  26     select($old);
  27     $prev;
  28 }
  29
  30 sub output_record_separator {
  31     local($old) = select($_[0]);
  32     local($prev) = $OUTPUT_RECORD_SEPARATOR;
  33     $OUTPUT_RECORD_SEPARATOR = $_[1] if @_ > 1;
  34     select($old);
  35     $prev;
  36 }
  37
  38 sub input_record_separator {
  39     local($old) = select($_[0]);
  40     local($prev) = $INPUT_RECORD_SEPARATOR;
  41     $INPUT_RECORD_SEPARATOR = $_[1] if @_ > 1;
  42     select($old);
  43     $prev;
  44 }
  45
  46 sub input_line_number {
  47     local($old) = select($_[0]);
  48     local($prev) = $INPUT_LINE_NUMBER;
  49     $INPUT_LINE_NUMBER = $_[1] if @_ > 1;
  50     select($old);
  51     $prev;
  52 }
  53
  54 sub format_page_number {
  55     local($old) = select($_[0]);
  56     local($prev) = $FORMAT_PAGE_NUMBER;
  57     $FORMAT_PAGE_NUMBER = $_[1] if @_ > 1;
  58     select($old);
  59     $prev;
  60 }
  61
  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;
  66     select($old);
  67     $prev;
  68 }
  69
  70 sub format_lines_left {
  71     local($old) = select($_[0]);
  72     local($prev) = $FORMAT_LINES_LEFT;
  73     $FORMAT_LINES_LEFT = $_[1] if @_ > 1;
  74     select($old);
  75     $prev;
  76 }
  77
  78 sub format_name {
  79     local($old) = select($_[0]);
  80     local($prev) = $FORMAT_NAME;
  81     $FORMAT_NAME = $_[1] if @_ > 1;
  82     select($old);
  83     $prev;
  84 }
  85
  86 sub format_top_name {
  87     local($old) = select($_[0]);
  88     local($prev) = $FORMAT_TOP_NAME;
  89     $FORMAT_TOP_NAME = $_[1] if @_ > 1;
  90     select($old);
  91     $prev;
  92 }
  93
  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;
  98     select($old);
  99     $prev;
 100 }
 101
 102 sub format_formfeed {
 103     local($old) = select($_[0]);
 104     local($prev) = $FORMAT_FORMFEED;
 105     $FORMAT_FORMFEED = $_[1] if @_ > 1;
 106     select($old);
 107     $prev;
 108 }
 109
 110 1;