picrin/etc/mkinit.pl

33 lines
543 B
Perl
Executable File

#!/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