SCM

SCM Repository

[matrix] Diff of /pkg/src/dgeMatrix.c
ViewVC logotype

Diff of /pkg/src/dgeMatrix.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2386, Wed May 27 20:54:45 2009 UTC revision 2387, Fri May 29 12:50:34 2009 UTC
# Line 10  Line 10 
10          return mkString(_("Dim slot must have length 2"));          return mkString(_("Dim slot must have length 2"));
11      m = INTEGER(Dim)[0]; n = INTEGER(Dim)[1];      m = INTEGER(Dim)[0]; n = INTEGER(Dim)[1];
12      if (m < 0 || n < 0)      if (m < 0 || n < 0)
13    #ifdef _not_easy_to_translate_
14          return mkString(_("Negative value(s) in Dim"));          return mkString(_("Negative value(s) in Dim"));
15    #else
16            return mkString(dngettext("Matrix",
17                                      "Negative value in Dim",
18                                      "Negative values in Dim",
19                                      (m*n > 0) ? 2 : 1));
20    #endif
21      if (!isReal(x))      if (!isReal(x))
22          return mkString(_("x slot must be numeric \"double\""));          return mkString(_("x slot must be numeric \"double\""));
23      return ScalarLogical(1);      return ScalarLogical(1);

Legend:
Removed from v.2386  
changed lines
  Added in v.2387

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge