[perl #40371] [PATCH] as2c.pl C-file coda fix

[Paul Cochrane]

# New Ticket Created by  "Paul Cochrane" 
# Please include the string:  [perl #40371]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40371 >


Hi,

Attached is a patch for tools/dev/as2c.pl which adds a new subroutine
print_coda() which attaches the C coda to the autogenerated C files
and gets them to pass the code_coda.t test.  This was patched against
revision 14669.

Regards,

Paul

Index: tools/dev/as2c.pl
===================================================================
--- tools/dev/as2c.pl	(revision 14669)
+++ tools/dev/as2c.pl	(working copy)
@@ -14,6 +14,7 @@
 &create_s($cmd);
 &parse_s("$src.s");
 &add_glue("$src.c");
+$print_coda();
 
 sub print_header {
     my $s = shift;
@@ -27,6 +28,19 @@
 
 EOT
 }
+
+sub print_coda {
+    print <<EOT;
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+*/
+EOT
+}
+
 sub create_s {
     my $cmd = shift;
     my $r = system($cmd);