+# Write GPL license
+# Argument 0 is file descriptor
+sub write_header
+{
+ my $fd = $_[0];
+
+ print $fd " *\n";
+ print $fd " * Do not modify this file directly, as it was created by opcode2c.pl\n";
+ print $fd " * Any modifications made directly to this file will be lost.\n";
+ print $fd " *\n";
+ print $fd " * Copyright (C) 1999 Jonathan St-André\n";
+ print $fd " * Copyright (C) 1999 Hugo Villeneuve <hugo@hugovil.com>\n";
+ print $fd " *\n";
+ print $fd " * This program is free software; you can redistribute it and/or modify\n";
+ print $fd " * it under the terms of the GNU General Public License as published by\n";
+ print $fd " * the Free Software Foundation; either version 2 of the License, or\n";
+ print $fd " * (at your option) any later version.\n";
+ print $fd " *\n";
+ print $fd " * This program is distributed in the hope that it will be useful,\n";
+ print $fd " * but WITHOUT ANY WARRANTY; without even the implied warranty of\n";
+ print $fd " * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n";
+ print $fd " * GNU General Public License for more details.\n";
+ print $fd " *\n";
+ print $fd " * You should have received a copy of the GNU General Public License\n";
+ print $fd " * along with this program; if not, write to the Free Software\n";
+ print $fd " * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.\n";
+ print $fd " */\n\n";
+}
+
+# Write C function source code line to INST_IMP file.
+# Prefix each line with a tab (indentation) and add newline character at the end.
+sub cfw
+{
+ print INST_IMP "\t",$_[0],"\n";
+}
+