Convert regcharclass.pl to use regen_lib.pl

This results in small changes to the formatting of the generated comments
in regcharclass.h

1 files changed, 13 insertions, 37 deletions

diff --git a/Porting/regcharclass.pl b/Porting/regcharclass.pl
index 5bafcc9b26..c3ea8a62b0 100755
--- a/Porting/regcharclass.pl
+++ b/Porting/regcharclass.pl
@@ -1,5 +1,6 @@
 package CharClass::Matcher;
 use strict;
+use 5.008;
 use warnings;
 use warnings FATAL => 'all';
 use Text::Wrap qw(wrap);
@@ -8,6 +9,8 @@ use Data::Dumper;
 $Data::Dumper::Useqq= 1;
 our $hex_fmt= "0x%02X";
 
+require 'regen/regen_lib.pl';
+
 =head1 NAME
 
 CharClass::Matcher -- Generate C macros that match character classes efficiently
@@ -612,45 +615,17 @@ sub make_macro {
 # be the path of the file to output to, if the arg is '-' outputs
 # to STDOUT.
 if ( !caller ) {
-
-
-
     $|++;
-    my $path= shift @ARGV;
-
-    if ( !$path ) {
-        $path= "regcharclass.h";
-        if ( !-e $path ) { $path= "../$path" }
-        if ( !-e $path ) { die "Can't find '$path' to update!\n" }
-    }
+    my $path= shift @ARGV || "regcharclass.h";
     my $out_fh;
     if ( $path eq '-' ) {
         $out_fh= \*STDOUT;
     } else {
-        rename $path, "$path.bak";
-        open $out_fh, ">", $path
-          or die "Can't write to '$path':$!";
-        binmode $out_fh;    # want unix line endings even when run on win32.
+	$out_fh = safer_open( "$path-new", $path );
     }
-    my ( $zero )= $0 =~ /([^\\\/]+)$/;
-    print $out_fh <<"HEADER";
-/*  -*- buffer-read-only: t -*-
- *
- *    regcharclass.h
- *
- *    Copyright (C) 2007, 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 Porting/$zero.
- * 
- * Any changes made here will be lost!
- *
- */
-
-HEADER
+    print $out_fh read_only_top( lang => 'C', by => $0,
+				 file => 'regcharclass.h', style => '*',
+				 copyright => [2007] );
 
     my ( $op, $title, @txt, @types, @mods );
     my $doit= sub {
@@ -693,8 +668,11 @@ HEADER
         }
     }
     $doit->();
-    print $out_fh "/* ex: set ro: */\n";
-    print "updated $path\n" if $path ne '-';
+    if($path eq '-') {
+	print $out_fh "/* ex: set ro: */\n";
+    } else {
+	read_only_bottom_close_and_rename($out_fh)
+    }
 }
 
 #
@@ -756,5 +734,3 @@ TRICKYFOLD: Problematic fold case letters.
 0x00DF	# LATIN1 SMALL LETTER SHARP S
 0x0390	# GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
 0x03B0	# GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
-
-