Mercurial > octave

diff libinterp/corefcn/sysdep.cc @ 24714:d2c727a438ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add "-blas" and "-lapack" options to "version" (bug #45659). * lo-sysinfo.h, lo-sysinfo.cc: New files. * liboctave/system/module.mk: Update. * sysdep.cc (F__blas_version__, F__lapack_version__): New functions. * version.m: Accept -blas and -lapack options. Make options case insensitive.
author Markus Mützel <markus.muetzel@gmx.de>
date Thu, 08 Feb 2018 17:15:13 -0500
parents a979bb895b64
children 48f22c5b22aa
line wrap: on
line diff
--- a/libinterp/corefcn/sysdep.cc	Fri Feb 09 19:57:39 2018 +0100
+++ b/libinterp/corefcn/sysdep.cc	Thu Feb 08 17:15:13 2018 -0500
@@ -61,6 +61,7 @@
 #include "cmd-edit.h"
 #include "file-ops.h"
 #include "lo-mappers.h"
+#include "lo-sysinfo.h"
 #include "mach-info.h"
 #include "oct-env.h"
 #include "unistd-wrappers.h"
@@ -1229,3 +1230,21 @@
 %!   assert (get_home_directory (), getenv ("HOME"));
 %! endif
 */
+
+DEFUN (__blas_version__, , ,
+       doc: /* -*- texinfo -*-
+@deftypefn {} {} __blas_version__ ()
+Undocumented internal function.
+@end deftypefn */)
+{
+  return ovl (octave::sys::blas_version ());
+}
+
+DEFUN (__lapack_version__, , ,
+       doc: /* -*- texinfo -*-
+@deftypefn {} {} __lapack_version__ ()
+Undocumented internal function.
+@end deftypefn */)
+{
+  return ovl (octave::sys::lapack_version ());
+}