Mercurial > hg > octave-lojdl
changeset 6208:323be5eeed1f
[project @ 2006-12-06 20:23:18 by jwe]
author | jwe |
---|---|
date | Wed, 06 Dec 2006 20:23:19 +0000 |
parents | 3c92b8d892dd |
children | 15b299f6803d |
files | ChangeLog acx_blas.m4 acx_lapack.m4 liboctave/ChangeLog liboctave/file-ops.cc liboctave/lo-sysdep.cc src/ChangeLog src/input.h src/sysdep.cc |
diffstat | 9 files changed, 62 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2006-12-06 Michael Goffioul <michael.goffioul@swing.be> + + * acx_blas.m4, acx_lapack.m4: Handle f2c calling convention. + 2006-12-05 John W. Eaton <jwe@octave.org> * configure.in: Don't check for strptime on *-apple-darwin* systems.
--- a/acx_blas.m4 +++ b/acx_blas.m4 @@ -47,8 +47,13 @@ esac # Get fortran linker names of BLAS functions to check for. -AC_F77_FUNC(sgemm) -AC_F77_FUNC(dgemm) +if $have_fortran_compiler; then + AC_F77_FUNC(sgemm) + AC_F77_FUNC(dgemm) +elif $have_f2c; then + sgemm=sgemm_ + dgemm=dgemm_ +fi acx_blas_save_LIBS="$LIBS" LIBS="$LIBS $FLIBS"
--- a/acx_lapack.m4 +++ b/acx_lapack.m4 @@ -44,7 +44,11 @@ esac # Get fortran linker name of LAPACK function to check for. -AC_F77_FUNC(cheev) +if $have_fortran_compiler; then + AC_F77_FUNC(cheev) +elif $have_f2c; then + cheev=cheev_ +fi # We cannot use LAPACK if BLAS is not found if test "x$acx_blas_ok" != xyes; then
--- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,16 +1,22 @@ +2006-12-06 Michael Goffioul <michael.goffioul@swing.be> + + * lo-sysdep.cc (opendir): Avoid passing \\* to FindFirstFile. + + * file-ops.cc (ops::canonicalize_file_name): Provide partial + implementatino for Windows. + 2006-12-06 David Bateman <dbateman@free.fr> - * dSparse.cc (SparseMatrix::is_symmetric(void) const): Faster - implementation. - * CSparse.cc (SparseComplexMatrix::is_symmetric(void) const): ditto. + * dSparse.cc (SparseMatrix::is_symmetric): Faster implementation. + * CSparse.cc (SparseComplexMatrix::is_symmetric): Ditto. * dMatrrix.cc (finverse): Old inverse method renamed inverse. (tinverse): New method for triangular matrices. (inverse): New function with matrix type probing. * dMatrix.h (finverse, tinverse, inverse): New and modified declarations. - * CMatrix.cc: ditto. - * CMatrix.h: ditto. + * CMatrix.cc: Ditto. + * CMatrix.h: Ditto. 2006-12-06 John W. Eaton <jwe@octave.org>
--- a/liboctave/file-ops.cc +++ b/liboctave/file-ops.cc @@ -438,7 +438,7 @@ size_t resolved_size = absolute_name.length (); - while (1) + while (true) { resolved_size = 2 * resolved_size + 1; @@ -457,6 +457,31 @@ } } +#elif defined (__WIN32__) + + int n = 1024; + + std::string win_path (n, '\0'); + + while (true) + { + int status = GetFullPathName (name.c_str (), n, &win_path[0], NULL); + + if (status == 0) + break; + else if (status < n) + { + win_path.resize (status); + retval = win_path; + break; + } + else + { + n *= 2; + win_path.resize (n); + } + } + #else // FIXME -- provide replacement here...
--- a/liboctave/lo-sysdep.cc +++ b/liboctave/lo-sysdep.cc @@ -118,7 +118,10 @@ static char buffer[MAX_PATH]; strncpy (buffer, name, MAX_PATH); - strncat (buffer, "\\*", MAX_PATH); + if (buffer[strnlen(buffer, MAX_PATH)-1] != '\\') + strncat (buffer, "\\*", MAX_PATH); + else + strncat (buffer, "*", MAX_PATH); d->current = buffer; d->hnd = FindFirstFile (buffer, &(d->fd)); if (d->hnd == INVALID_HANDLE_VALUE)
--- a/src/ChangeLog +++ b/src/ChangeLog @@ -7,6 +7,9 @@ 2006-12-06 John W. Eaton <jwe@octave.org> + * sysdep.cc: Include "Cell.h" here. + * input.h: Include "oct-obj.h", not "ov-list.h". + 2006-12-06 Michael Goffioul <michael.goffioul@swing.be> * mappers.cc (install_mapper_functions): Undefine isascii before