From: <cli...@li...> - 2010-05-24 19:22:24
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/src ChangeLog,1.7342,1.7343 (Sam Steingold) 2. clisp/modules/pari configure.in,1.17,1.18 cpari.c,1.10,1.11 (Sam Steingold) 3. clisp/modules/pari config.h.in,1.9,1.10 configure,1.44,1.45 (Sam Steingold) 4. clisp/modules/pari test.tst,1.1,1.2 (Sam Steingold) 5. clisp/src ChangeLog,1.7343,1.7344 (Sam Steingold) 6. clisp/modules/pari configure.in,1.18,1.19 (Sam Steingold) 7. clisp/modules/pari configure,1.45,1.46 (Sam Steingold) 8. clisp/modules/pari test.tst,1.2,1.3 (Sam Steingold) 9. clisp/modules/pari pari.lisp,1.23,1.24 (Sam Steingold) 10. clisp/src ChangeLog,1.7344,1.7345 (Sam Steingold) 11. clisp/modules/pari cpari.c,1.11,1.12 (Sam Steingold) 12. clisp/src ChangeLog,1.7345,1.7346 (Sam Steingold) 13. clisp/modules/pari cpari.h,1.1,1.2 pari.lisp,1.24,1.25 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Mon, 24 May 2010 15:53:46 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7342,1.7343 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv25182/src Modified Files: ChangeLog Log Message: do not use init_opts Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7342 retrieving revision 1.7343 diff -u -d -r1.7342 -r1.7343 --- ChangeLog 24 May 2010 02:15:31 -0000 1.7342 +++ ChangeLog 24 May 2010 15:53:43 -0000 1.7343 @@ -1,3 +1,8 @@ +2010-05-24 Sam Steingold <sd...@gn...> + + * modules/pari/configure.in: do not check for init_opts + * modules/pari/cpari.c (init_for_clisp): do not use init_opts + 2010-05-23 Sam Steingold <sd...@gn...> * modules/berkeley-db/bdb.c (txn_status_check): add DEFCHECKER ------------------------------ Message: 2 Date: Mon, 24 May 2010 15:53:45 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari configure.in,1.17,1.18 cpari.c,1.10,1.11 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv25182/modules/pari Modified Files: configure.in cpari.c Log Message: do not use init_opts Index: configure.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/configure.in,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- configure.in 13 Sep 2009 05:18:19 -0000 1.17 +++ configure.in 24 May 2010 15:53:43 -0000 1.18 @@ -1,5 +1,5 @@ dnl AUTOCONF configuration for PARI -dnl Copyright (C) 2004-2009 Sam Steingold <sd...@gn...> +dnl Copyright (C) 2004-2010 Sam Steingold <sd...@gn...> dnl GNU GPL2 AC_PREREQ(2.57) @@ -15,19 +15,18 @@ AC_LIB_LINKFLAGS([pari]) BOLD_MSG([PARI (Headers)]) -AC_CHECK_HEADERS(pari/pari.h, break) +AC_CHECK_HEADERS(pari/pari.h) if test "$ac_cv_header_pari_pari_h" = "no"; then AC_MSG_ERROR([cannot find PARI headers]) fi BOLD_MSG([PARI (Functions)]) AC_LIB_APPENDTOVAR([LIBS], [$LIBPARI]) -AC_SEARCH_LIBS(pari_kernel_init) +AC_SEARCH_LIBS(pari_kernel_init, pari) if test "$ac_cv_search_pari_kernel_init" = "no"; then AC_MSG_ERROR([cannot find PARI library]) fi -dnl init_opts is not a function, but it is not declared anywhere... -AC_CHECK_FUNCS(freeall pari_init killallfiles pari_init_opts init_opts) +AC_CHECK_FUNCS(freeall pari_init killallfiles pari_init_opts) BOLD_MSG([PARI (Output)]) AC_CONFIG_FILES(Makefile link.sh) Index: cpari.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/cpari.c,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- cpari.c 12 Nov 2008 04:54:48 -0000 1.10 +++ cpari.c 24 May 2010 15:53:43 -0000 1.11 @@ -1,7 +1,7 @@ /* * CLISP interface to PARI <http://pari.math.u-bordeaux.fr/> * Copyright (C) 1995 Michael Stoll - * Copyright (C) 2004-2007 Sam Steingold + * Copyright (C) 2004-2007, 2010 Sam Steingold * This is free software, distributed under the GNU GPL */ @@ -62,11 +62,9 @@ #if defined(HAVE_PARI_INIT_OPTS) pari_init_opts(parisize,maxprime,0); #elif defined(HAVE_PARI_INIT) -# if defined(HAVE_INIT_OPTS) - extern ulong init_opts; - init_opts = 0; -# endif pari_init(parisize,maxprime); +#else + #error no pari_init_opts, no pari_init: cannot initialize PARI #endif pari_outfile = stdout; errfile = stderr; logfile = NULL; infile = stdin; pariOut = &clispOut; pariErr = &clispErr; ------------------------------ Message: 3 Date: Mon, 24 May 2010 16:06:28 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari config.h.in,1.9,1.10 configure,1.44,1.45 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv27423/modules/pari Modified Files: config.h.in configure Log Message: regenerate without init_opts Index: config.h.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/config.h.in,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- config.h.in 18 May 2010 18:37:27 -0000 1.9 +++ config.h.in 24 May 2010 16:06:26 -0000 1.10 @@ -3,9 +3,6 @@ /* Define to 1 if you have the `freeall' function. */ #undef HAVE_FREEALL -/* Define to 1 if you have the `init_opts' function. */ -#undef HAVE_INIT_OPTS - /* Define to 1 if you have the <inttypes.h> header file. */ #undef HAVE_INTTYPES_H Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/configure,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- configure 18 May 2010 18:37:27 -0000 1.44 +++ configure 24 May 2010 16:06:26 -0000 1.45 @@ -4458,7 +4458,7 @@ cat >>confdefs.h <<_ACEOF #define HAVE_PARI_PARI_H 1 _ACEOF - break + fi done @@ -4516,7 +4516,7 @@ return 0; } _ACEOF -for ac_lib in '' ; do +for ac_lib in '' pari; do if test -z "$ac_lib"; then ac_res="none required" else @@ -4551,7 +4551,7 @@ if test "$ac_cv_search_pari_kernel_init" = "no"; then as_fn_error "cannot find PARI library" "$LINENO" 5 fi -for ac_func in freeall pari_init killallfiles pari_init_opts init_opts +for ac_func in freeall pari_init killallfiles pari_init_opts do : as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" ------------------------------ Message: 4 Date: Mon, 24 May 2010 17:03:58 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari test.tst,1.1,1.2 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv2992 Modified Files: test.tst Log Message: oops Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/test.tst,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- test.tst 21 May 2010 21:10:56 -0000 1.1 +++ test.tst 24 May 2010 17:03:56 -0000 1.2 @@ -3,7 +3,7 @@ ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "pari/test")' (require "pari") t -(listp (show (multiple-value-list (ext:module-info "bdb" t)) :pretty t)) t +(listp (show (multiple-value-list (ext:module-info "pari" t)) :pretty t)) t (format t "~&Version: ~S~%" pari:pari-version) NIL ------------------------------ Message: 5 Date: Mon, 24 May 2010 17:04:23 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7343,1.7344 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv3102/src Modified Files: ChangeLog Log Message: (LIBS): append "-lm" (required for linking with LIBPARI) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7343 retrieving revision 1.7344 diff -u -d -r1.7343 -r1.7344 --- ChangeLog 24 May 2010 15:53:43 -0000 1.7343 +++ ChangeLog 24 May 2010 17:04:21 -0000 1.7344 @@ -1,6 +1,7 @@ 2010-05-24 Sam Steingold <sd...@gn...> * modules/pari/configure.in: do not check for init_opts + (LIBS): append "-lm" (required for linking with LIBPARI) * modules/pari/cpari.c (init_for_clisp): do not use init_opts 2010-05-23 Sam Steingold <sd...@gn...> ------------------------------ Message: 6 Date: Mon, 24 May 2010 17:04:23 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari configure.in,1.18,1.19 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv3102/modules/pari Modified Files: configure.in Log Message: (LIBS): append "-lm" (required for linking with LIBPARI) Index: configure.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/configure.in,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- configure.in 24 May 2010 15:53:43 -0000 1.18 +++ configure.in 24 May 2010 17:04:21 -0000 1.19 @@ -21,6 +21,7 @@ fi BOLD_MSG([PARI (Functions)]) +AC_LIB_APPENDTOVAR([LIBS], [-lm]) AC_LIB_APPENDTOVAR([LIBS], [$LIBPARI]) AC_SEARCH_LIBS(pari_kernel_init, pari) if test "$ac_cv_search_pari_kernel_init" = "no"; ------------------------------ Message: 7 Date: Mon, 24 May 2010 17:25:25 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari configure,1.45,1.46 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv7887/modules/pari Modified Files: configure Log Message: regenerate for (LIBS): append "-lm" (required for linking with LIBPARI) Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/configure,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- configure 24 May 2010 16:06:26 -0000 1.45 +++ configure 24 May 2010 17:25:23 -0000 1.46 @@ -4470,6 +4470,29 @@ { $as_echo "$as_me:${as_lineno-$LINENO}: ${term_bold}** PARI (Functions)${term_norm}" >&5 $as_echo "$as_me: ${term_bold}** PARI (Functions)${term_norm}" >&6;} + for element in -lm; do + haveit= + for x in $LIBS; do + + acl_save_prefix="$prefix" + prefix="$acl_final_prefix" + acl_save_exec_prefix="$exec_prefix" + exec_prefix="$acl_final_exec_prefix" + eval x=\"$x\" + exec_prefix="$acl_save_exec_prefix" + prefix="$acl_save_prefix" + + if test "X$x" = "X$element"; then + haveit=yes + break + fi + done + if test -z "$haveit"; then + LIBS="${LIBS}${LIBS:+ }$element" + fi + done + + for element in $LIBPARI; do haveit= for x in $LIBS; do ------------------------------ Message: 8 Date: Mon, 24 May 2010 18:56:56 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari test.tst,1.2,1.3 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv24816 Modified Files: test.tst Log Message: add 50+ tests Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/test.tst,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- test.tst 24 May 2010 17:03:56 -0000 1.2 +++ test.tst 24 May 2010 18:56:54 -0000 1.3 @@ -8,4 +8,70 @@ (format t "~&Version: ~S~%" pari:pari-version) NIL (defparameter id (pari:identity-matrix 3)) ID +(pari:equal? id #Z"[1,0,0;0,1,0;0,0,1]") T +(pari:matrix-rank id) 3 +(pari:equal? id (pari:matrix-transpose id)) T +(pari:equal? id (pari:adjoint-matrix id)) T +(pari:equal? (pari:matrix-kernel id) #Z"[;]") T +(pari:equal? id (pari:matrix-image id)) T +(pari:equal? id (pari:norm id)) T +(pari:equal? (pari:matrix-image-complement id) #Z"[]") T +(pari:equal? id (pari:matrix-supplement id)) T +(pari:equal? id (pari:matrix-eigenvectors id)) T +(pari:equal? id (pari:matrix-to-hessenberg-form id)) T +(pari:one? (pari:matrix-determinant id)) T +(pari:equal? (pari:l2-norm id) #Z"3") T +(pari:equal? (pari:pari-trace id) #Z"3") T +(pari:equal? (pari:pari-concatenate 1 2) #Z"[1,2]") T +(pari:equal? (pari:vector-extract id 1) #Z"[1;0;0]") T +;; (pari:equal? (pari:matrix-extract id 1 1) #Z"[1]") T +;; (pari:equal? (pari:matrix-extract id 1 2) #Z"[0]") T +(pari:equal? (pari:matrix-solve id #Z"[1;2;3]") #Z"[1;2;3]") T +(pari:equal? (pari:matrix-solve #Z"[1,1,1;0,1,1;0,0,1]" #Z"[1;2;3]") + #Z"[-1;-1;3]") T +(pari:equal? (pari:characteristic-polynomial id) #Z"x^3-3*x^2+3*x-1") T +(pari:equal? id (pari:symmetric-matrix-sqred id)) T +(pari:equal? (pari:symmetric-matrix-signature id) #Z"[3,0]") T +(pari:equal? (pari:symmetric-matrix-sqred #Z"[2,1;1,2]") #Z"[2,1/2;0,3/2]") T +(pari:equal? (pari:matrix-indexrank #Z"[2,1;1,2]") #Z"[[1,2],[1,2]]") T +(pari:equal? (pari:symmetric-matrix-perfection id) #Z"3") T + +(pari:equal? (pari:pari-isqrt #Z"4") #Z"2") T +(pari:equal? (pari:pari-isqrt #Z"10") #Z"3") T +(pari:equal? (pari:factorial-integer 10) #Z"3628800") T + +(pari:equal? (pari:best-rational-approximation (pari:pari-pi) #Z"100") + #Z"22/7") T +(pari:equal? (pari:continued-fraction #Z"22/7") #Z"[3,7]") T +(pari:equal? (pari:best-rational-approximation (pari:pari-pi) #Z"10000") + #Z"355/113") T +(pari:equal? (pari:continued-fraction #Z"355/113") #Z"[3,7,16]") T +(pari:equal? (pari:fibonacci 10) #Z"55") T +(pari:equal? (pari:next-prime #Z"11") #Z"11") T +(pari:equal? (pari:next-prime #Z"15") #Z"17") T +(pari:equal? (pari:next-prime #Z"150") #Z"151") T +(pari:equal? (pari:nth-prime 100) #Z"541") T +(pari:equal? (pari:nth-prime 1000) #Z"7919") T +(pari:equal? (pari:nth-prime 10000) #Z"104729") T + +(pari:equal? (pari:euler-phi #Z"6") #Z"2") T +(pari:equal? (pari:euler-phi #Z"13") #Z"12") T +(pari:equal? (pari:euler-phi #Z"28") #Z"12") T +(pari:equal? (pari:euler-phi #Z"130") #Z"48") T + +(pari:equal? (pari:sum-divisors #Z"6") #Z"12") T +(pari:equal? (pari:sum-divisors #Z"28") #Z"56") T + +(pari:equal? (pari:primitive-root #Z"7") #Z"Mod(3,7)") T +(pari:equal? (pari:primitive-root #Z"104729") #Z"Mod(12,104729)") T + +(pari:equal? (pari:structure-of-z/n* #Z"7") #Z"[6, [6], [Mod(3, 7)]]") T +(pari:equal? (pari:structure-of-z/n* #Z"10") #Z"[4, [4], [Mod(7, 10)]]") T + +(pari:equal? (pari:divisors #Z"121") #Z"[1,11,121]") T +(pari:equal? (pari:divisors #Z"122") #Z"[1,2,61,122]") T +(pari:equal? (pari:divisors #Z"120") + #Z"[1,2,3,4,5,6,8,10,12,15,20,24,30,40,60,120]") T +(pari:equal? (pari:divisors #Z"144") + #Z"[1,2,3,4,6,8,9,12,16,18,24,36,48,72,144]") T ------------------------------ Message: 9 Date: Mon, 24 May 2010 19:00:29 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari pari.lisp,1.23,1.24 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv25558/modules/pari Modified Files: pari.lisp Log Message: (symmetric-matrix-perfection): fix declaration Index: pari.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/pari.lisp,v retrieving revision 1.23 retrieving revision 1.24 diff -u -d -r1.23 -r1.24 --- pari.lisp 8 Jan 2009 02:56:33 -0000 1.23 +++ pari.lisp 24 May 2010 19:00:27 -0000 1.24 @@ -483,7 +483,7 @@ ;; long rank(GEN x); (pari-call-out (matrix-rank long) "rank" (x)) ;; GEN perf(GEN a); -(pari-call-out (symmetric-matrix-perfection) "perf" (a)) +(pari-call-out symmetric-matrix-perfection "perf" (a)) ;;; /* anal.c */ ------------------------------ Message: 10 Date: Mon, 24 May 2010 19:00:29 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7344,1.7345 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv25558/src Modified Files: ChangeLog Log Message: (symmetric-matrix-perfection): fix declaration Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7344 retrieving revision 1.7345 diff -u -d -r1.7344 -r1.7345 --- ChangeLog 24 May 2010 17:04:21 -0000 1.7344 +++ ChangeLog 24 May 2010 19:00:27 -0000 1.7345 @@ -1,5 +1,9 @@ 2010-05-24 Sam Steingold <sd...@gn...> + * modules/pari/pari.lisp (symmetric-matrix-perfection): fix declaration + +2010-05-24 Sam Steingold <sd...@gn...> + * modules/pari/configure.in: do not check for init_opts (LIBS): append "-lm" (required for linking with LIBPARI) * modules/pari/cpari.c (init_for_clisp): do not use init_opts ------------------------------ Message: 11 Date: Mon, 24 May 2010 19:01:48 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari cpari.c,1.11,1.12 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv26288/modules/pari Modified Files: cpari.c Log Message: #include <pari/paripriv.h> for GP_DATA (init_for_clisp): init GP_DATA for #Z"" i/o Index: cpari.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/cpari.c,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- cpari.c 24 May 2010 15:53:43 -0000 1.11 +++ cpari.c 24 May 2010 19:01:46 -0000 1.12 @@ -9,6 +9,7 @@ #include "config.h" #undef T #include <pari/pari.h> +#include <pari/paripriv.h> /* for GP_DATA */ #include "cpari.h" /* we could also use DEF-CALL-OUT, but this is faster, smaller, @@ -68,6 +69,7 @@ #endif pari_outfile = stdout; errfile = stderr; logfile = NULL; infile = stdin; pariOut = &clispOut; pariErr = &clispErr; + GP_DATA = default_gp_data(); } void fini_for_clisp (int leaving) ------------------------------ Message: 12 Date: Mon, 24 May 2010 19:01:48 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7345,1.7346 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv26288/src Modified Files: ChangeLog Log Message: #include <pari/paripriv.h> for GP_DATA (init_for_clisp): init GP_DATA for #Z"" i/o Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7345 retrieving revision 1.7346 diff -u -d -r1.7345 -r1.7346 --- ChangeLog 24 May 2010 19:00:27 -0000 1.7345 +++ ChangeLog 24 May 2010 19:01:46 -0000 1.7346 @@ -1,6 +1,8 @@ 2010-05-24 Sam Steingold <sd...@gn...> * modules/pari/pari.lisp (symmetric-matrix-perfection): fix declaration + * modules/pari/cpari.c: include <pari/paripriv.h> for GP_DATA + (init_for_clisp): init GP_DATA for #Z"" i/o 2010-05-24 Sam Steingold <sd...@gn...> ------------------------------ Message: 13 Date: Mon, 24 May 2010 19:22:16 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari cpari.h,1.1,1.2 pari.lisp,1.24,1.25 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29897/modules/pari Modified Files: cpari.h pari.lisp Log Message: move clispTemp declaration from pari.lisp to cpari.h Index: cpari.h =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/cpari.h,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- cpari.h 15 Dec 2004 23:52:37 -0000 1.1 +++ cpari.h 24 May 2010 19:22:14 -0000 1.2 @@ -1,9 +1,9 @@ /* * CLISP interface to PARI <http://pari.math.u-bordeaux.fr/> - * Copyright (C) 2004 Sam Steingold + * Copyright (C) 2004, 2010 Sam Steingold * This is free software, distributed under the GNU GPL */ void init_for_clisp (long parisize, long maxprime); void fini_for_clisp (int leaving); - +extern void* clispTemp; Index: pari.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/pari.lisp,v retrieving revision 1.24 retrieving revision 1.25 diff -u -d -r1.24 -r1.25 --- pari.lisp 24 May 2010 19:00:27 -0000 1.24 +++ pari.lisp 24 May 2010 19:22:14 -0000 1.25 @@ -112,8 +112,6 @@ (pari-set-real-prec-raw (+ (ceiling bits 32) 2)) digits)) -;; a scratch variable for CLISP: (defined in clisp-interface.c) -(c-lines "extern void* clispTemp;~%") (def-c-var temp (:name "clispTemp") (:type c-pointer)) ;; extern long lontyp[],lontyp2[]; @@ -178,7 +176,9 @@ (def-call-out is_entry (:arguments (s c-string)) (:return-type (c-ptr-null entree))) -;; this optimization is not necessary, it just saves some memory +;; this optimization is not necessary, it just saves some memory. +;; also, get_entry_doc is called while loading pari.fas, +;; so it cannot be moved to cpari.c (c-lines "char* get_entry_doc (char* s);~%") ; prototype (c-lines "char* get_entry_doc (char* s) { entree *e = is_entry(s); return e==NULL?NULL:e->help; }~%") (def-call-out get_entry_doc (:arguments (s c-string)) (:return-type c-string)) ------------------------------ ------------------------------------------------------------------------------ ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 49, Issue 21 ***************************************** |