added extensions

svn path=/bioperl-ext/branches/ewan/; revision=620
bioperl · Sep 16, 1999 · cab3ef9 · cab3ef9
commit cab3ef9
Show file tree

Hide file tree

Showing 84 changed files with 46,130 additions and 0 deletions.
diff --git a/Bio/Ext/Align/Align.pm b/Bio/Ext/Align/Align.pm
@@ -0,0 +1,51 @@
+
+
+
+package Bio::Ext::Align;
+
+use vars qw($AUTOLOAD @ISA @EXPORT_OK $dl_debug);
+use Exporter;
+use Carp;
+use strict;
+
+use DynaLoader;
+
+
+@ISA = qw(Exporter DynaLoader);
+# Items to export into callers namespace by default. Note: do not export
+# names by default without a very good reason. Use EXPORT_OK instead.
+# Do not simply export all your public functions/methods/constants.
+
+sub AUTOLOAD {
+    # This AUTOLOAD is used to 'autoload' constants from the constant()
+    # XS function.  If a constant is not found then control is passed
+    # to the AUTOLOAD in AutoLoader.
+
+    my $constname;
+    ($constname = $AUTOLOAD) =~ s/.*:://;
+    my $val = constant($constname, @_ ? $_[0] : 0);
+    if ($! != 0) {
+	if ($! =~ /Invalid/) {
+	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
+	    goto &AutoLoader::AUTOLOAD;
+	}
+	else {
+		croak "Your vendor has not defined Test macro $constname";
+	}
+    }
+    eval "sub $AUTOLOAD { $val }";
+    goto &$AUTOLOAD;
+}
+
+BEGIN {
+    $dl_debug = 40;
+}
+
+bootstrap Bio::Ext::Align; # hopefully has the correct things...
+
+# Preloaded methods go here.
+
+# Autoload methods go after __END__, and are processed by the autosplit program.
+
+1;
+__END__