[p5sagit/p5-mst-13.2.git] / lib / English.pm

package English;

require Exporter;
@ISA = (Exporter);

local($^W) = 0;

@EXPORT = qw(
	*ARG
	$MATCH
	$PREMATCH
	$POSTMATCH
	$LAST_PAREN_MATCH
	$INPUT_LINE_NUMBER
	$NR
	$INPUT_RECORD_SEPARATOR
	$RS
	$OUTPUT_AUTOFLUSH
	$OUTPUT_FIELD_SEPARATOR
	$OFS
	$OUTPUT_RECORD_SEPARATOR
	$ORS
	$LIST_SEPARATOR
	$SUBSCRIPT_SEPARATOR
	$SUBSEP
	$FORMAT_PAGE_NUMBER
	$FORMAT_LINES_PER_PAGE
	$FORMAT_LINES_LEFT
	$FORMAT_NAME
	$FORMAT_TOP_NAME
	$FORMAT_LINE_BREAK_CHARACTERS
	$FORMAT_FORMFEED
	$CHILD_ERROR
	$OS_ERROR
	$ERRNO
	$EVAL_ERROR
	$PROCESS_ID
	$PID
	$REAL_USER_ID
	$UID
	$EFFECTIVE_USER_ID
	$EUID
	$REAL_GROUP_ID
	$GID
	$EFFECTIVE_GROUP_ID
	$EGID
	$PROGRAM_NAME
	$PERL_VERSION
	$DEBUGGING
	$SYSTEM_FD_MAX
	$INPLACE_EDIT
	$PERLDB
	$BASETIME
	$WARNING
	$EXECUTABLE_NAME
	$ARRAY_BASE
	$OFMT
	$MULTILINE_MATCHING
);

# The ground of all being.

	*ARG					= *_	;

# Matching.

	*MATCH					= \$&	;
	*PREMATCH				= \$`	;
	*POSTMATCH				= \$'	;
	*LAST_PAREN_MATCH			= \$+	;

# Input.

	*INPUT_LINE_NUMBER			= \$.	;
	    *NR					= \$.	;
	*INPUT_RECORD_SEPARATOR			= \$/	;
	    *RS					= \$/	;

# Output.

	*OUTPUT_AUTOFLUSH			= \$|	;
	*OUTPUT_FIELD_SEPARATOR			= \$,	;
	    *OFS				= \$,	;
	*OUTPUT_RECORD_SEPARATOR		= \$\	;
	    *ORS				= \$\	;

# Interpolation "constants".

	*LIST_SEPARATOR				= \$"	;
	*SUBSCRIPT_SEPARATOR			= \$;	;
	    *SUBSEP				= \$;	;

# Formats

	*FORMAT_PAGE_NUMBER			= \$%	;
	*FORMAT_LINES_PER_PAGE			= \$=	;
	*FORMAT_LINES_LEFT			= \$-	;
	*FORMAT_NAME				= \$~	;
	*FORMAT_TOP_NAME			= \$^	;
	*FORMAT_LINE_BREAK_CHARACTERS		= \$:	;
	*FORMAT_FORMFEED			= \$^L	;

# Error status.

	*CHILD_ERROR				= \$?	;
	*OS_ERROR				= \$!	;
	    *ERRNO				= \$!	;
	*EVAL_ERROR				= \$@	;

# Process info.

	*PROCESS_ID				= \$$	;
	    *PID				= \$$	;
	*REAL_USER_ID				= \$<	;
	    *UID				= \$<	;
	*EFFECTIVE_USER_ID			= \$>	;
	    *EUID				= \$>	;
	*REAL_GROUP_ID				= \$(	;
	    *GID				= \$(	;
	*EFFECTIVE_GROUP_ID			= \$)	;
	    *EGID				= \$)	;
	*PROGRAM_NAME				= \$0	;

# Internals.

	*PERL_VERSION				= \$]	;
	*ACCUMULATOR				= \$^A	;
	*DEBUGGING				= \$^D	;
	*SYSTEM_FD_MAX				= \$^F	;
	*INPLACE_EDIT				= \$^I	;
	*PERLDB					= \$^P	;
	*BASETIME				= \$^T	;
	*WARNING				= \$^W	;
	*EXECUTABLE_NAME			= \$^X	;

# Deprecated.

#	*ARRAY_BASE				= \$[	;
#	*OFMT					= \$#	;
#	*MULTILINE_MATCHING			= \$*	;

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