Return to typemap CVS log

Up to [local] / OpenXM_contrib / gmp / demos / perl

Annotation of OpenXM_contrib/gmp/demos/perl/typemap, Revision 1.1.1.1

1.1       ohara       1: # GMP module external subroutine type mappings.
                      2:
                      3: # Copyright 2001 Free Software Foundation, Inc.
                      4: #
                      5: # This file is part of the GNU MP Library.
                      6: #
                      7: # The GNU MP Library is free software; you can redistribute it and/or modify
                      8: # it under the terms of the GNU Lesser General Public License as published
                      9: # by the Free Software Foundation; either version 2.1 of the License, or (at
                     10: # your option) any later version.
                     11: #
                     12: # The GNU MP Library is distributed in the hope that it will be useful, but
                     13: # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
                     14: # or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
                     15: # License for more details.
                     16: #
                     17: # You should have received a copy of the GNU Lesser General Public License
                     18: # along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
                     19: # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
                     20: # MA 02111-1307, USA.
                     21:
                     22:
                     23: TYPEMAP
                     24: const_string           T_PV
                     25: const_string_assume    CONST_STRING_ASSUME
                     26: mpz                    MPZ
                     27: mpq                    MPQ
                     28: mpf                    MPF
                     29: mpz_assume             MPZ_ASSUME
                     30: mpq_assume             MPQ_ASSUME
                     31: mpf_assume             MPF_ASSUME
                     32: mpz_coerce             MPZ_COERCE
                     33: mpq_coerce             MPQ_COERCE
                     34: mpf_coerce_st0         MPF_COERCE_ST0
                     35: mpf_coerce_def         MPF_COERCE_DEF
                     36: mpz_mutate             MPZ_MUTATE
                     37: randstate              RANDSTATE
                     38: ulong_coerce           ULONG_COERCE
                     39: malloced_string                MALLOCED_STRING
                     40: order_noswap           ORDER_NOSWAP
                     41: dummy                  DUMMY
                     42:
                     43:
                     44: INPUT
                     45: MPZ
                     46:        class_or_croak ($arg, mpz_class); $var = SvMPZ($arg);
                     47: MPQ
                     48:        class_or_croak ($arg, mpq_class); $var = SvMPQ($arg);
                     49: MPF
                     50:        class_or_croak ($arg, mpf_class); $var = SvMPF($arg);
                     51: MPZ_ASSUME
                     52:         MPZ_ASSUME ($var, $arg)
                     53: MPQ_ASSUME
                     54:         MPQ_ASSUME ($var, $arg)
                     55: MPF_ASSUME
                     56:         MPF_ASSUME ($var, $arg)
                     57: MPZ_COERCE
                     58:        $var = coerce_mpz (tmp_mpz_${(my $stnum=$arg)=~s/[^0-9]//g;\$stnum}, $arg)
                     59: MPQ_COERCE
                     60:        $var = coerce_mpq (tmp_mpq_${(my $stnum=$arg)=~s/[^0-9]//g;\$stnum}, $arg)
                     61: MPF_COERCE_ST0
                     62:         /* precision follows ST(0) */
                     63:         assert (sv_derived_from (ST(0), mpf_class));
                     64:        $var = coerce_mpf (tmp_mpf_${(my $stnum=$arg)=~s/[^0-9]//g;\$stnum},
                     65:                           $arg, mpf_get_prec (SvMPF(ST(0))))
                     66: MPF_COERCE_DEF
                     67:         /* default precision used */
                     68:        $var = coerce_mpf (tmp_mpf_${(my $stnum=$arg)=~s/[^0-9]//g;\$stnum},
                     69:                           $arg, mpf_get_default_prec())
                     70: MPZ_MUTATE
                     71:        $var = mutate_mpz ($arg)
                     72: RANDSTATE
                     73:        class_or_croak ($arg, rand_class); $var = SvRANDSTATE($arg);
                     74: ULONG_COERCE
                     75:        $var = coerce_ulong ($arg)
                     76: ORDER_NOSWAP
                     77:        assert ($arg != &PL_sv_yes);
                     78: DUMMY
                     79:        /* dummy $var */
                     80: CONST_STRING_ASSUME
                     81:         /* No need to check for SvPOKp and use SvPV, this mapping is
                     82:            only used for overload_constant, which always gets literal
                     83:            strings.  */
                     84:        assert (SvPOK ($arg));
                     85:        $var = SvPVX ($arg);
                     86:
                     87:
                     88: OUTPUT
                     89: MPZ
                     90:     sv_setref_pv ($arg, mpz_class, $var);
                     91: MPQ
                     92:     sv_setref_pv ($arg, mpq_class, $var);
                     93: MPF
                     94:     sv_setref_pv ($arg, mpf_class, $var);
                     95: MPZ_ASSUME
                     96:     sv_setref_pv ($arg, mpz_class, $var);
                     97: MPQ_ASSUME
                     98:     sv_setref_pv ($arg, mpq_class, $var);
                     99: MPF_ASSUME
                    100:     sv_setref_pv ($arg, mpf_class, $var);
                    101: RANDSTATE
                    102:     sv_setref_pv ($arg, rand_class, $var);
                    103: MALLOCED_STRING
                    104:     sv_usepvn_mg ($arg, $var, strlen($var));