Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/colloc.cc @ 10154:40dfc0c99116

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DLD-FUNCTIONS/*.cc: untabify
author John W. Eaton <jwe@octave.org>
date Wed, 20 Jan 2010 17:33:41 -0500
parents a1dbe9d80eee
children d0ce5e973937
comparison
equal deleted inserted replaced
10153:2c28f9d0360f 10154:40dfc0c99116
82 octave_idx_type right = 0; 82 octave_idx_type right = 0;
83 83
84 for (int i = 1; i < nargin; i++) 84 for (int i = 1; i < nargin; i++)
85 { 85 {
86 if (args(i).is_defined ()) 86 if (args(i).is_defined ())
87 { 87 {
88 if (! args(i).is_string ()) 88 if (! args(i).is_string ())
89 { 89 {
90 error ("colloc: expecting string argument"); 90 error ("colloc: expecting string argument");
91 return retval; 91 return retval;
92 } 92 }
93 93
94 std::string s = args(i).string_value (); 94 std::string s = args(i).string_value ();
95 95
96 if ((s.length () == 1 && (s[0] == 'R' || s[0] == 'r')) 96 if ((s.length () == 1 && (s[0] == 'R' || s[0] == 'r'))
97 || s == "right") 97 || s == "right")
98 { 98 {
99 right = 1; 99 right = 1;
100 } 100 }
101 else if ((s.length () == 1 && (s[0] == 'L' || s[0] == 'l')) 101 else if ((s.length () == 1 && (s[0] == 'L' || s[0] == 'l'))
102 || s == "left") 102 || s == "left")
103 { 103 {
104 left = 1; 104 left = 1;
105 } 105 }
106 else 106 else
107 { 107 {
108 error ("colloc: unrecognized argument"); 108 error ("colloc: unrecognized argument");
109 return retval; 109 return retval;
110 } 110 }
111 } 111 }
112 else 112 else
113 { 113 {
114 error ("colloc: unexpected empty argument"); 114 error ("colloc: unexpected empty argument");
115 return retval; 115 return retval;
116 } 116 }
117 } 117 }
118 118
119 ntot += left + right; 119 ntot += left + right;
120 if (ntot < 1) 120 if (ntot < 1)
121 { 121 {