#!/usr/bin/perl -w
-
#
-# Generate overload.h
+# Regenerate (overwriting only if changed):
+#
+# overload.h
+# overload.c
+# lib/overload/numbers.pm
+#
+# from information stored in the DATA section of this file.
+#
# This allows the order of overloading constants to be changed.
-#
+#
+# Accepts the standard regen_lib -q and -v args.
+#
+# This script is normally invoked from regen.pl.
BEGIN {
# Get function prototypes
use strict;
+use File::Spec::Functions qw(catdir catfile);;
+
my (@enums, @names);
while (<DATA>) {
next if /^#/;
push @names, $name;
}
-safer_unlink ('overload.h', 'overload.c');
-my $c = safer_open("overload.c");
-my $h = safer_open("overload.h");
+safer_unlink (catfile(qw(lib overload numbers.pm)));
+my $c = safer_open("overload.c-new");
+my $h = safer_open("overload.h-new");
+mkdir("lib/overload") unless -d catdir(qw(lib overload));
+my $p = safer_open(catfile(qw(lib overload numbers.pm)));
+
+
+select $p;
+
+{
+local $" = "\n ";
+print <<"EOF";
+# -*- buffer-read-only: t -*-
+#
+# lib/overload/numbers.pm
+#
+# Copyright (C) 2008 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.
+#
+# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
+# This file is built by overload.pl
+#
+
+package overload::numbers;
+
+our \@names = qw#
+ @names
+#;
+
+our \@enums = qw#
+ @enums
+#;
+
+{ my \$i = 0; our %names = map { \$_ => \$i++ } \@names }
+
+{ my \$i = 0; our %enums = map { \$_ => \$i++ } \@enums }
+
+EOF
+}
+
sub print_header {
my $file = shift;
safer_close($h);
safer_close($c);
+safer_close($p);
+rename_if_different("overload.c-new", "overload.c");
+rename_if_different("overload.h-new","overload.h");
__DATA__
# Fallback should be the first
concat (.
concat_ass (.=
smart (~~
+ftest (-X
+regexp (qr
# Note: Perl_Gv_AMupdate() assumes that DESTROY is the last entry
DESTROY DESTROY