home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / utilities / cli / perl / !Perl / Lib / pm / english < prev    next >
Encoding:
Text File  |  1995-02-21  |  2.3 KB  |  149 lines

  1. package English;
  2.  
  3. require Exporter;
  4. @ISA = (Exporter);
  5.  
  6. local $^W = 0;
  7.  
  8. # Grandfather $NAME import
  9. sub import {
  10.     my $this = shift;
  11.     my @list = @_;
  12.     local $Exporter::ExportLevel = 1;
  13.     Exporter::import($this,grep {s/^\$/*/} @list);
  14. }
  15.  
  16. @EXPORT = qw(
  17.     *ARG
  18.     *MATCH
  19.     *PREMATCH
  20.     *POSTMATCH
  21.     *LAST_PAREN_MATCH
  22.     *INPUT_LINE_NUMBER
  23.     *NR
  24.     *INPUT_RECORD_SEPARATOR
  25.     *RS
  26.     *OUTPUT_AUTOFLUSH
  27.     *OUTPUT_FIELD_SEPARATOR
  28.     *OFS
  29.     *OUTPUT_RECORD_SEPARATOR
  30.     *ORS
  31.     *LIST_SEPARATOR
  32.     *SUBSCRIPT_SEPARATOR
  33.     *SUBSEP
  34.     *FORMAT_PAGE_NUMBER
  35.     *FORMAT_LINES_PER_PAGE
  36.     *FORMAT_LINES_LEFT
  37.     *FORMAT_NAME
  38.     *FORMAT_TOP_NAME
  39.     *FORMAT_LINE_BREAK_CHARACTERS
  40.     *FORMAT_FORMFEED
  41.     *CHILD_ERROR
  42.     *OS_ERROR
  43.     *ERRNO
  44.     *EVAL_ERROR
  45.     *PROCESS_ID
  46.     *PID
  47.     *REAL_USER_ID
  48.     *UID
  49.     *EFFECTIVE_USER_ID
  50.     *EUID
  51.     *REAL_GROUP_ID
  52.     *GID
  53.     *EFFECTIVE_GROUP_ID
  54.     *EGID
  55.     *PROGRAM_NAME
  56.     *PERL_VERSION
  57.     *ACCUMULATOR
  58.     *DEBUGGING
  59.     *SYSTEM_FD_MAX
  60.     *INPLACE_EDIT
  61.     *PERLDB
  62.     *BASETIME
  63.     *WARNING
  64.     *EXECUTABLE_NAME
  65. );
  66.  
  67. # The ground of all being.
  68.  
  69.     *ARG                    = *_    ;
  70.  
  71. # Matching.
  72.  
  73.     *MATCH                    = *&    ;
  74.     *PREMATCH                = *`    ;
  75.     *POSTMATCH                = *'    ;
  76.     *LAST_PAREN_MATCH            = *+    ;
  77.  
  78. # Input.
  79.  
  80.     *INPUT_LINE_NUMBER            = *.    ;
  81.         *NR                    = *.    ;
  82.     *INPUT_RECORD_SEPARATOR            = */    ;
  83.         *RS                    = */    ;
  84.  
  85. # Output.
  86.  
  87.     *OUTPUT_AUTOFLUSH            = *|    ;
  88.     *OUTPUT_FIELD_SEPARATOR            = *,    ;
  89.         *OFS                = *,    ;
  90.     *OUTPUT_RECORD_SEPARATOR        = *\    ;
  91.         *ORS                = *\    ;
  92.  
  93. # Interpolation "constants".
  94.  
  95.     *LIST_SEPARATOR                = *"    ;
  96.     *SUBSCRIPT_SEPARATOR            = *;    ;
  97.         *SUBSEP                = *;    ;
  98.  
  99. # Formats
  100.  
  101.     *FORMAT_PAGE_NUMBER            = *%    ;
  102.     *FORMAT_LINES_PER_PAGE            = *=    ;
  103.     *FORMAT_LINES_LEFT            = *-    ;
  104.     *FORMAT_NAME                = *~    ;
  105.     *FORMAT_TOP_NAME            = *^    ;
  106.     *FORMAT_LINE_BREAK_CHARACTERS        = *:    ;
  107.     *FORMAT_FORMFEED            = *^L    ;
  108.  
  109. # Error status.
  110.  
  111.     *CHILD_ERROR                = *?    ;
  112.     *OS_ERROR                = *!    ;
  113.         *ERRNO                = *!    ;
  114.     *EVAL_ERROR                = *@    ;
  115.  
  116. # Process info.
  117.  
  118.     *PROCESS_ID                = *$    ;
  119.         *PID                = *$    ;
  120.     *REAL_USER_ID                = *<    ;
  121.         *UID                = *<    ;
  122.     *EFFECTIVE_USER_ID            = *>    ;
  123.         *EUID                = *>    ;
  124.     *REAL_GROUP_ID                = *(    ;
  125.         *GID                = *(    ;
  126.     *EFFECTIVE_GROUP_ID            = *)    ;
  127.         *EGID                = *)    ;
  128.     *PROGRAM_NAME                = *0    ;
  129.  
  130. # Internals.
  131.  
  132.     *PERL_VERSION                = *]    ;
  133.     *ACCUMULATOR                = *^A    ;
  134.     *DEBUGGING                = *^D    ;
  135.     *SYSTEM_FD_MAX                = *^F    ;
  136.     *INPLACE_EDIT                = *^I    ;
  137.     *PERLDB                    = *^P    ;
  138.     *BASETIME                = *^T    ;
  139.     *WARNING                = *^W    ;
  140.     *EXECUTABLE_NAME            = *^X    ;
  141.  
  142. # Deprecated.
  143.  
  144. #    *ARRAY_BASE                = *[    ;
  145. #    *OFMT                    = *#    ;
  146. #    *MULTILINE_MATCHING            = **    ;
  147.  
  148. 1;
  149.