Imported Upstream version 3.3.2
[debian/amanda] / perl / Amanda / Feature.swg
index e20e4b6fb5d8a3b9ae3bde3dcb60562d1f00fbdc..e21c1e084cd743305ef23e12804b750c4c61a520 100644 (file)
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2010 Zmanda, Inc.  All Rights Reserved.
+ * Copyright (c) 2010-2012 Zmanda, Inc.  All Rights Reserved.
  *
  * This program is free software; you can redistribute it and/or modify it
  * under the terms of the GNU General Public License version 2 as published
@@ -63,7 +63,9 @@ extern Set *am_string_to_feature(char *s);
 %newobject am_set_default_feature_set;
 extern Set *am_set_default_feature_set(void);
 %newobject am_init_feature_set;
-extern Set *am_init_feature_set(void);
+extern Set *am_init_feature_set();
+%newobject features;
+extern am_feature_t *am_features(Set *);
 
 %perlcode %{
 
@@ -89,6 +91,12 @@ sub Amanda::Feature::Set::mine {
     return Amanda::Feature::am_init_feature_set();
 }
 
+sub Amanda::Feature::Set::features {
+    my $class = shift;
+    return Amanmda::Feature::features();
+}
+
+
 package Amanda::Feature;
 
 %}