#!/usr/bin/env perl # # %CopyrightBegin% # # Copyright Ericsson AB 1999-2009. All Rights Reserved. # # The contents of this file are subject to the Erlang Public License, # Version 1.1, (the "License"); you may not use this file except in # compliance with the License. You should have received a copy of the # Erlang Public License along with this software. If not, it can be # retrieved online at http://www.erlang.org/. # # Software distributed under the License is distributed on an "AS IS" # basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See # the License for the specific language governing rights and limitations # under the License. # # %CopyrightEnd% # use strict; use File::Basename; # This program generates driver_tab.c which holds the driver_tab # array. Since the contents of driver_tab will depend on which # drivers we wish to include it has to be generated. # usage: make_driver_tab [-o filename] drivers... my $file = ""; my $nif = ""; my @emu_drivers = (); my @static_drivers = (); my @nifs = (); my $mode = 1; while (@ARGV) { my $d = shift; if ( $d =~ /^-o$/ ) { $file = shift or die("-o requires argument"); next; } if ( $d =~ /^-nifs$/ ) { $mode = 2; next; } if ( $d =~ /^-drivers$/ ) { $mode = 1; next; } if ( $d =~ /^.*\.a$/ ) { $d = basename $d; $d =~ s/\.a$//; # strip .a if ($mode == 1) { push(@static_drivers, $d); } if ($mode == 2) { push(@nifs, $d); } next; } $d = basename $d; $d =~ s/drv(\..*|)$//; # strip drv.* or just drv push(@emu_drivers, $d); } # Did we want output to a file? if ( $file ) { open(STDOUT, ">$file") or die("can't open $file for writing"); } print <<EOF; #ifdef HAVE_CONFIG_H # include "config.h" #endif /* HAVE_CONFIG_H */ #include <stdio.h> #include "global.h" EOF # "extern" declarations foreach (@emu_drivers) { print "extern ErlDrvEntry ${_}driver_entry;\n"; } foreach (@static_drivers) { print "ErlDrvEntry *${_}_driver_init(void);\n"; } # The array itself print "\nErlDrvEntry *driver_tab[DRIVER_TAB_SIZE] =\n{\n"; foreach (@emu_drivers) { print " &${_}driver_entry,\n"; } foreach (@static_drivers) { print " NULL, /* ${_} */\n"; } print " NULL\n};\n"; print "void erts_init_static_drivers() {\n"; my $index = 0; foreach (@static_drivers) { print " driver_tab[".(scalar @emu_drivers+$index)."] = ${_}_driver_init();\n"; $index++; } print "}\n"; print <<EOF; typedef struct ErtsStaticNifEntry_ { const char *nif_name; ErtsStaticNifInitFPtr nif_init; } ErtsStaticNifEntry; EOF # prototypes foreach (@nifs) { my $d = ${_}; $d =~ s/\.debug//; # strip .debug print "void *".$d."_nif_init(void);\n"; } # The array itself print "static ErtsStaticNifEntry static_nif_tab[DRIVER_TAB_SIZE] =\n{\n"; foreach (@nifs) { my $d = ${_}; $d =~ s/\.debug//; # strip .debug print "{\"${_}\",&".$d."_nif_init},\n"; } print " {NULL,NULL}\n};\n"; print <<EOF; ErtsStaticNifInitFPtr erts_static_nif_get_nif_init(const char *name) { int i; for (i = 0; static_nif_tab[i].nif_name != NULL; i++) if (strcmp(name,static_nif_tab[i].nif_name) == 0) return static_nif_tab[i].nif_init; return NULL; } int erts_is_static_nif(void *handle) { int i; for (i = 0; static_nif_tab[i].nif_name != NULL; i++) if (((void*)static_nif_tab[i].nif_init) == handle) return 1; return 0; } EOF # That's it