PATCH process_opfunc.pl -- no more extra 'return's

[Michael Fischer]

Small hack to keep process_opfunc.pl from generating
extra return() statements. 

I believe I incorrectly sent this to the wrong party before.
My apologies.

===========================================================

--- process_opfunc.bak.pl       Sun Sep 16 13:23:41 2001
+++ process_opfunc.pl   Sun Sep 16 13:24:45 2001
@@ -99,14 +99,16 @@
 EOF
 
 
-my($name, $footer, @param_sub);
+my($name, $footer, @param_sub, $op_type);
 while (<INPUT>) {
 
     if (/^AUTO_OP/) {
+       $op_type = 'AUTO';
        ($name, $footer) = emit_auto_header($_);
     }
 
     if (/^MANUAL_OP/) {
+       $op_type = 'MANUAL';
        ($name, $footer) = emit_manual_header($_);
     }
 
@@ -124,7 +126,6 @@
        next;
     }
 
-    s/RETVAL/return_offset/;
 
     s/RETURN\(0\);/return 0;/;
 
@@ -132,7 +133,7 @@
 
     s/\bP(\d+)\b/$param_sub[$1]/g;
 
-    if (/^}/) {
+    if (/^}/ && $op_type eq 'AUTO' ) {
         print OUTPUT $footer, "\n";
        next;
     }

===========================================================

Michael
-- 
Michael Fischer                         7.5 million years to run
[EMAIL PROTECTED]                        printf "%d", 0x2a;
                                                -- deep thought