33 lines
543 B
Perl
33 lines
543 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
print <<EOL;
|
||
|
|
/**
|
||
|
|
* !!NOTICE!!
|
||
|
|
* This file was automatically generated by mkinit.pl, and includes all of
|
||
|
|
* the prelude files required by Picrin. PLEASE DO NOT EDIT THIS FILE, changes
|
||
|
|
* will be overwritten the next time the script runs.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "picrin.h"
|
||
|
|
|
||
|
|
void
|
||
|
|
pic_init_contrib(pic_state *pic)
|
||
|
|
{
|
||
|
|
EOL
|
||
|
|
|
||
|
|
foreach my $lib (@ARGV) {
|
||
|
|
print " void pic_init_$lib(pic_state *);\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
print;
|
||
|
|
|
||
|
|
foreach my $lib (@ARGV) {
|
||
|
|
print " pic_init_$lib(pic);\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
print <<EOL;
|
||
|
|
}
|
||
|
|
EOL
|