Imported gcc-4.4.3

[msp430-gcc.git] / gmp / demos / perl / typemap

diff --git a/gmp/demos/perl/typemap b/gmp/demos/perl/typemap
new file mode 100644 (file)
index 0000000..7ad7976
--- /dev/null
+++ b/gmp/demos/perl/typemap
@@ -0,0 +1,97 @@
+# GMP module external subroutine type mappings.
+
+# Copyright 2001, 2003 Free Software Foundation, Inc.
+#
+# This file is part of the GNU MP Library.
+#
+# The GNU MP Library is free software; you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published
+# by the Free Software Foundation; either version 3 of the License, or (at
+# your option) any later version.
+#
+# The GNU MP Library is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
+# License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.
+
+
+TYPEMAP
+const_string           T_PV
+const_string_assume    CONST_STRING_ASSUME
+mpz                    MPZ
+mpq                    MPQ
+mpf                    MPF
+mpz_assume             MPZ_ASSUME
+mpq_assume             MPQ_ASSUME
+mpf_assume             MPF_ASSUME
+mpz_coerce             MPZ_COERCE
+mpq_coerce             MPQ_COERCE
+mpf_coerce_st0         MPF_COERCE_ST0
+mpf_coerce_def         MPF_COERCE_DEF
+randstate              RANDSTATE
+ulong_coerce           ULONG_COERCE
+malloced_string                MALLOCED_STRING
+order_noswap           ORDER_NOSWAP
+dummy                  DUMMY
+# perl 5.005 doesn't have UV in its standard typemap, so use this instead
+gmp_UV                 GMP_UV
+
+
+INPUT
+MPZ
+       class_or_croak ($arg, mpz_class); $var = SvMPZ($arg);
+MPQ
+       class_or_croak ($arg, mpq_class); $var = SvMPQ($arg);
+MPF
+       class_or_croak ($arg, mpf_class); $var = SvMPF($arg);
+MPZ_ASSUME
+        MPZ_ASSUME ($var, $arg)
+MPQ_ASSUME
+        MPQ_ASSUME ($var, $arg)
+MPF_ASSUME
+        MPF_ASSUME ($var, $arg)
+MPZ_COERCE
+       $var = coerce_mpz (tmp_mpz_${(my $stnum=$arg)=~s/[^0-9]//g;\$stnum}, $arg)
+MPQ_COERCE
+       $var = coerce_mpq (tmp_mpq_${(my $stnum=$arg)=~s/[^0-9]//g;\$stnum}, $arg)
+MPF_COERCE_ST0
+        /* precision follows ST(0) */
+        assert (sv_derived_from (ST(0), mpf_class));
+       $var = coerce_mpf (tmp_mpf_${(my $stnum=$arg)=~s/[^0-9]//g;\$stnum},
+                          $arg, mpf_get_prec (SvMPF(ST(0))))
+MPF_COERCE_DEF
+        /* default precision used */
+       $var = coerce_mpf (tmp_mpf_${(my $stnum=$arg)=~s/[^0-9]//g;\$stnum},
+                          $arg, mpf_get_default_prec())
+RANDSTATE
+       class_or_croak ($arg, rand_class); $var = SvRANDSTATE($arg);
+ULONG_COERCE
+       $var = coerce_ulong ($arg)
+ORDER_NOSWAP
+       assert ($arg != &PL_sv_yes);
+DUMMY
+       /* dummy $var */        
+CONST_STRING_ASSUME
+        /* No need to check for SvPOKp and use SvPV, this mapping is
+           only used for overload_constant, which always gets literal
+           strings.  */
+       assert (SvPOK ($arg));
+       $var = SvPVX ($arg);
+
+
+OUTPUT
+MPZ
+    sv_bless (sv_setref_pv ($arg, NULL, $var), mpz_class_hv);
+MPQ
+    sv_bless (sv_setref_pv ($arg, NULL, $var), mpq_class_hv);
+MPF
+    sv_bless (sv_setref_pv ($arg, NULL, $var), mpf_class_hv);
+RANDSTATE
+    sv_setref_pv ($arg, rand_class, $var);
+MALLOCED_STRING
+    sv_usepvn_mg ($arg, $var, strlen($var));
+GMP_UV
+    sv_setuv ($arg, (UV) ($var));