[master] storage class problem in dale-autowrap (#166)

tomhrr · Jan 17, 2017 · 50d2fff · 50d2fff
1 parent fcc1b1d
commit 50d2fff
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/eg/dale-autowrap/dale-autowrap.pl b/eg/dale-autowrap/dale-autowrap.pl
@@ -16,6 +16,12 @@
     'unsigned-long-long' => '(ulong-long-type)',
 );
 
+my %SCMAP = (
+    'static' => 'intern',
+    'none'   => 'extern-c',
+    'extern' => 'extern-c',
+);
+
 sub type_to_string
 {
     my ($type) = @_;
@@ -43,6 +49,11 @@ sub type_to_string
     return $tag;
 }
 
+sub storage_class_to_string
+{
+    return $SCMAP{$_[0]};
+}
+
 sub process_function
 {
     my ($data) = @_;
@@ -57,7 +68,8 @@ sub process_function
 
     sprintf("(def %s (fn %s %s %s))",
             $data->{'name'},
-            $data->{'storage_class'},
+            storage_class_to_string($data->{'storage_class'}
+                                 || $data->{'storage-class'}),
             type_to_string($data->{'return-type'}),
             $param_str);
 }