X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;f=binaries%2Fsrc%2FViennaRNA%2FRNAforester%2Fg2-0.70%2Fg2_perl%2Ftypemap;fp=binaries%2Fsrc%2FViennaRNA%2FRNAforester%2Fg2-0.70%2Fg2_perl%2Ftypemap;h=837edca5c843e30e96ec6b07df1698e0a246554a;hb=7522ace91fc0804a9719dbac9f68bc8154da3132;hp=0000000000000000000000000000000000000000;hpb=8116c0444fe98e8eb21bcdd8ded06e1429085823;p=jabaws.git

diff --git a/binaries/src/ViennaRNA/RNAforester/g2-0.70/g2_perl/typemap b/binaries/src/ViennaRNA/RNAforester/g2-0.70/g2_perl/typemap
new file mode 100644
index 0000000..837edca
--- /dev/null
+++ b/binaries/src/ViennaRNA/RNAforester/g2-0.70/g2_perl/typemap
@@ -0,0 +1,28 @@
+enum QPshape					T_PTROBJ
+G2::Device					T_PTROBJ
+double *					T_dbl_array
+
+INPUT
+T_dbl_array
+       {	
+       AV *tempav;
+       I32 len;
+       int i;
+       SV  **tv;
+             if (!SvROK($arg)) {
+		 croak(\"$arg is not a reference.\");
+	     }
+             if (SvTYPE(SvRV($arg)) != SVt_PVAV) {
+		 croak(\"$arg is not an array.\");
+	     }
+             tempav = (AV*)SvRV($arg);
+             len = av_len(tempav)+1;
+             $var = (double *) malloc(len*sizeof(double));
+             for (i=0;i<len;i++) {
+		{
+                 tv = av_fetch(tempav, i, 0);        
+                 ${var}[i] = (double) SvNV(*tv);
+		}
+             }
+	}
+