This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
We can use the C pre-processor to build a single, longer string
[perl5.git]
/
opcode.pl
diff --git
a/opcode.pl
b/opcode.pl
index
dc5b66e
..
571fa14
100755
(executable)
--- a/
opcode.pl
+++ b/
opcode.pl
@@
-7,7
+7,9
@@
BEGIN {
$opcode_new = 'opcode.h-new';
$opname_new = 'opnames.h-new';
open(OC, ">$opcode_new") || die "Can't create $opcode_new: $!\n";
$opcode_new = 'opcode.h-new';
$opname_new = 'opnames.h-new';
open(OC, ">$opcode_new") || die "Can't create $opcode_new: $!\n";
+binmode OC;
open(ON, ">$opname_new") || die "Can't create $opname_new: $!\n";
open(ON, ">$opname_new") || die "Can't create $opname_new: $!\n";
+binmode ON;
select OC;
# Read data.
select OC;
# Read data.
@@
-35,11
+37,12
@@
while (<DATA>) {
$i = 0;
print <<"END";
$i = 0;
print <<"END";
-/*
+/* -*- buffer-read-only: t -*-
+ *
* opcode.h
*
* Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
* opcode.h
*
* Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- * 2000, 2001, 2002, 2003, by Larry Wall and others
+ * 2000, 2001, 2002, 2003,
2004, 2005
by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
@@
-49,6
+52,8
@@
print <<"END";
* will be lost!
*/
* will be lost!
*/
+#ifndef PERL_GLOBAL_STRUCT_INIT
+
#define Perl_pp_i_preinc Perl_pp_preinc
#define Perl_pp_i_predec Perl_pp_predec
#define Perl_pp_i_postinc Perl_pp_postinc
#define Perl_pp_i_preinc Perl_pp_preinc
#define Perl_pp_i_predec Perl_pp_predec
#define Perl_pp_i_postinc Perl_pp_postinc
@@
-57,10
+62,11
@@
print <<"END";
END
print ON <<"END";
END
print ON <<"END";
-/*
+/* -*- buffer-read-only: t -*-
+ *
* opnames.h
*
* opnames.h
*
- * Copyright (C) 1999, 2000, 2001, 2002, 2003, by Larry Wall and others
+ * Copyright (C) 1999, 2000, 2001, 2002, 2003,
2004,
by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
@@
-86,19
+92,17
@@
print ON "#define OP_phoney_OUTPUT_ONLY -2\n\n";
# Emit op names and descriptions.
print <<END;
# Emit op names and descriptions.
print <<END;
-
START_EXTERN_C
START_EXTERN_C
-
#define OP_NAME(o) ((o)->op_type == OP_CUSTOM ? custom_op_name(o) : \\
PL_op_name[(o)->op_type])
#define OP_DESC(o) ((o)->op_type == OP_CUSTOM ? custom_op_desc(o) : \\
PL_op_desc[(o)->op_type])
#ifndef DOINIT
#define OP_NAME(o) ((o)->op_type == OP_CUSTOM ? custom_op_name(o) : \\
PL_op_name[(o)->op_type])
#define OP_DESC(o) ((o)->op_type == OP_CUSTOM ? custom_op_desc(o) : \\
PL_op_desc[(o)->op_type])
#ifndef DOINIT
-EXT
char *
PL_op_name[];
+EXT
CONST char* const
PL_op_name[];
#else
#else
-EXT
char *
PL_op_name[] = {
+EXT
CONST char* const
PL_op_name[] = {
END
for (@ops) {
END
for (@ops) {
@@
-113,9
+117,9
@@
END
print <<END;
#ifndef DOINIT
print <<END;
#ifndef DOINIT
-EXT
char *
PL_op_desc[];
+EXT
CONST char* const
PL_op_desc[];
#else
#else
-EXT
char *
PL_op_desc[] = {
+EXT
CONST char* const
PL_op_desc[] = {
END
for (@ops) {
END
for (@ops) {
@@
-133,6
+137,7
@@
print <<END;
END_EXTERN_C
END_EXTERN_C
+#endif /* !PERL_GLOBAL_STRUCT_INIT */
END
# Emit function declarations.
END
# Emit function declarations.
@@
-153,10
+158,15
@@
print <<END;
START_EXTERN_C
START_EXTERN_C
-#if
ndef DO
INIT
-EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX);
+#if
def PERL_GLOBAL_STRUCT_
INIT
+static const Perl_ppaddr_t Gppaddr[]
#else
#else
-EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX) = {
+# ifndef PERL_GLOBAL_STRUCT
+EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
+# endif
+#endif /* PERL_GLOBAL_STRUCT */
+#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT)
+= {
END
for (@ops) {
END
for (@ops) {
@@
-164,18
+174,24
@@
for (@ops) {
}
print <<END;
}
print <<END;
-}
;
+}
#endif
#endif
+;
END
# Emit check routines.
print <<END;
END
# Emit check routines.
print <<END;
-#if
ndef DO
INIT
-EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op);
+#if
def PERL_GLOBAL_STRUCT_
INIT
+static const Perl_check_t Gcheck[]
#else
#else
-EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
+# ifndef PERL_GLOBAL_STRUCT
+EXT Perl_check_t PL_check[] /* or perlvars.h */
+# endif
+#endif
+#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT)
+= {
END
for (@ops) {
END
for (@ops) {
@@
-183,18
+199,21
@@
for (@ops) {
}
print <<END;
}
print <<END;
-}
;
+}
#endif
#endif
+;
END
# Emit allowed argument types.
print <<END;
END
# Emit allowed argument types.
print <<END;
+#ifndef PERL_GLOBAL_STRUCT_INIT
+
#ifndef DOINIT
#ifndef DOINIT
-EXT U32 PL_opargs[];
+EXT
const
U32 PL_opargs[];
#else
#else
-EXT U32 PL_opargs[] = {
+EXT
const
U32 PL_opargs[] = {
END
%argnum = (
END
%argnum = (
@@
-264,6
+283,8
@@
print <<END;
#endif
END_EXTERN_C
#endif
END_EXTERN_C
+
+#endif /* !PERL_GLOBAL_STRUCT_INIT */
END
if (keys %OP_IS_SOCKET) {
END
if (keys %OP_IS_SOCKET) {
@@
-280,6
+301,9
@@
if (keys %OP_IS_FILETEST) {
print ON ")\n\n";
}
print ON ")\n\n";
}
+print OC "/* ex: set ro: */\n";
+print ON "/* ex: set ro: */\n";
+
close OC or die "Error closing opcode.h: $!";
close ON or die "Error closing opnames.h: $!";
close OC or die "Error closing opcode.h: $!";
close ON or die "Error closing opnames.h: $!";
@@
-293,10
+317,13
@@
$pp_proto_new = 'pp_proto.h-new';
$pp_sym_new = 'pp.sym-new';
open PP, ">$pp_proto_new" or die "Error creating $pp_proto_new: $!";
$pp_sym_new = 'pp.sym-new';
open PP, ">$pp_proto_new" or die "Error creating $pp_proto_new: $!";
+binmode PP;
open PPSYM, ">$pp_sym_new" or die "Error creating $pp_sym_new: $!";
open PPSYM, ">$pp_sym_new" or die "Error creating $pp_sym_new: $!";
+binmode PPSYM;
print PP <<"END";
print PP <<"END";
-/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
+/* -*- buffer-read-only: t -*-
+ !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
This file is built by opcode.pl from its data. Any changes made here
will be lost!
*/
This file is built by opcode.pl from its data. Any changes made here
will be lost!
*/
@@
-304,6
+331,7
@@
print PP <<"END";
END
print PPSYM <<"END";
END
print PPSYM <<"END";
+# -*- buffer-read-only: t -*-
#
# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
# This file is built by opcode.pl from its data. Any changes made here
#
# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
# This file is built by opcode.pl from its data. Any changes made here
@@
-327,6
+355,8
@@
for (@ops) {
print PP "PERL_PPDEF(Perl_pp_$_)\n";
print PPSYM "Perl_pp_$_\n";
}
print PP "PERL_PPDEF(Perl_pp_$_)\n";
print PPSYM "Perl_pp_$_\n";
}
+print PP "\n/* ex: set ro: */\n";
+print PPSYM "\n# ex: set ro:\n";
close PP or die "Error closing pp_proto.h: $!";
close PPSYM or die "Error closing pp.sym: $!";
close PP or die "Error closing pp_proto.h: $!";
close PPSYM or die "Error closing pp.sym: $!";
@@
-493,9
+523,9
@@
regcreset regexp internal reset ck_fun s1 S
regcomp regexp compilation ck_null s| S
match pattern match (m//) ck_match d/
qr pattern quote (qr//) ck_match s/
regcomp regexp compilation ck_null s| S
match pattern match (m//) ck_match d/
qr pattern quote (qr//) ck_match s/
-subst substitution (s///) ck_
null
dis/ S
+subst substitution (s///) ck_
match
dis/ S
substcont substitution iterator ck_null dis|
substcont substitution iterator ck_null dis|
-trans transliteration (tr///) ck_
null
is" S
+trans transliteration (tr///) ck_
match
is" S
# Lvalue operators.
# sassign is special-cased for op class
# Lvalue operators.
# sassign is special-cased for op class
@@
-779,8
+809,8
@@
fteread -r ck_ftst isu- F-
ftewrite -w ck_ftst isu- F-
fteexec -x ck_ftst isu- F-
ftis -e ck_ftst isu- F-
ftewrite -w ck_ftst isu- F-
fteexec -x ck_ftst isu- F-
ftis -e ck_ftst isu- F-
-fteowned -
O
ck_ftst isu- F-
-ftrowned -
o
ck_ftst isu- F-
+fteowned -
o
ck_ftst isu- F-
+ftrowned -
O
ck_ftst isu- F-
ftzero -z ck_ftst isu- F-
ftsize -s ck_ftst istu- F-
ftmtime -M ck_ftst stu- F-
ftzero -z ck_ftst isu- F-
ftsize -s ck_ftst istu- F-
ftmtime -M ck_ftst stu- F-
@@
-812,7
+842,7
@@
rename rename ck_fun isT@ S S
link link ck_fun isT@ S S
symlink symlink ck_fun isT@ S S
readlink readlink ck_fun stu% S?
link link ck_fun isT@ S S
symlink symlink ck_fun isT@ S S
readlink readlink ck_fun stu% S?
-mkdir mkdir ck_fun isT
@ S
S?
+mkdir mkdir ck_fun isT
u@ S?
S?
rmdir rmdir ck_fun isTu% S?
# Directory calls.
rmdir rmdir ck_fun isTu% S?
# Directory calls.