Diff of /src/system_dependent.m [000000] .. [aea747]  Maximize  Restore

  Switch to unified view

a b/src/system_dependent.m
1
## Copyright (C) 2008 Grzegorz Timoszuk <gtimoszuk@gmail.com>
2
##
3
## This program is free software; you can redistribute it and/or modify
4
## it under the terms of the GNU General Public License as published by
5
## the Free Software Foundation; either version 3 of the License, or
6
## (at your option) any later version.
7
##
8
## This program is distributed in the hope that it will be useful,
9
## but WITHOUT ANY WARRANTY; without even the implied warranty of
10
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11
## GNU General Public License for more details.
12
##
13
## You should have received a copy of the GNU General Public License
14
## along with this program; if not, see <http://www.gnu.org/licenses/>.
15
##
16
17
## -*- texinfo -*-
18
## @deftypefn {Function File} {} @var{err} = system_dependent (@var{property}, @var{value})
19
## This function is intentionally left undocumented. 
20
## @end deftypefn
21
22
function err = system_dependent(property, value)
23
err = -1;
24
switch property
25
# the interface for "setround" and "setprecision" follows 
26
# the examples from W.Kahan's article
27
# http://www.cs.berkeley.edu/~wkahan/Mindless.pdf
28
case "setround"
29
  err = fesetround(value);
30
case "setprecision"
31
  err = fesetprec(value);
32
otherwise
33
  err = -1;
34
endswitch
35
endfunction