Mercurial > hg > octave-lyh
annotate scripts/strings/isstrprop.m @ 11523:fd0a3ac60b0e
update copyright notices
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Fri, 14 Jan 2011 05:47:45 -0500 |
| parents | 0d9640d755b1 |
| children | c792872f8942 |
| rev | line source |
|---|---|
| 11523 | 1 ## Copyright (C) 2008-2011 John W. Eaton |
| 7530 | 2 ## |
| 3 ## This file is part of Octave. | |
| 4 ## | |
| 5 ## Octave is free software; you can redistribute it and/or modify it | |
| 6 ## under the terms of the GNU General Public License as published by | |
| 7 ## the Free Software Foundation; either version 3 of the License, or (at | |
| 8 ## your option) any later version. | |
| 9 ## | |
| 10 ## Octave is distributed in the hope that it will be useful, but | |
| 11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 13 ## General Public License for more details. | |
| 14 ## | |
| 15 ## You should have received a copy of the GNU General Public License | |
| 16 ## along with Octave; see the file COPYING. If not, see | |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 18 | |
| 19 ## -*- texinfo -*- | |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
20 ## @deftypefn {Function File} {} isstrprop (@var{str}, @var{prop}) |
|
10821
693e22af08ae
Grammarcheck documentation of m-files
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
21 ## Test character string properties. For example: |
| 7530 | 22 ## |
| 23 ## @example | |
| 24 ## @group | |
|
8442
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7530
diff
changeset
|
25 ## isstrprop ("abc123", "alpha") |
| 7530 | 26 ## @result{} [1, 1, 1, 0, 0, 0] |
| 27 ## @end group | |
| 28 ## @end example | |
| 29 ## | |
| 30 ## If @var{str} is a cell array, @code{isstrpop} is applied recursively | |
| 31 ## to each element of the cell array. | |
| 32 ## | |
| 33 ## Numeric arrays are converted to character strings. | |
| 34 ## | |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
35 ## The second argument @var{prop} must be one of |
| 7530 | 36 ## |
| 37 ## @table @code | |
| 38 ## @item "alpha" | |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
39 ## True for characters that are alphabetic (letters). |
| 7530 | 40 ## |
| 41 ## @item "alnum" | |
| 42 ## @itemx "alphanum" | |
| 43 ## True for characters that are alphabetic or digits. | |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
44 ## |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
45 ## @item "lower" |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
46 ## True for lower-case letters. |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
47 ## |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
48 ## @item "upper" |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
49 ## True for upper-case letters. |
| 7530 | 50 ## |
| 51 ## @item "digit" | |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
52 ## True for decimal digits (0-9). |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
53 ## |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
54 ## @item "xdigit" |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
55 ## True for hexadecimal digits (a-fA-F0-9). |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
56 ## |
| 7530 | 57 ## @item "space" |
| 58 ## @itemx "wspace" | |
| 59 ## True for whitespace characters (space, formfeed, newline, carriage | |
| 60 ## return, tab, vertical tab). | |
| 61 ## | |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
62 ## @item "punct" |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
63 ## True for punctuation characters (printing characters except space |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
64 ## or letter or digit). |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
65 ## |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
66 ## @item "cntrl" |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
67 ## True for control characters. |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
68 ## |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
69 ## @item "graph" |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
70 ## @itemx "graphic" |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
71 ## True for printing characters except space. |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
72 ## |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
73 ## @item "print" |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
74 ## True for printing characters including space. |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
75 ## |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
76 ## @item "ascii" |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
77 ## True for characters that are in the range of ASCII encoding. |
| 7530 | 78 ## |
| 79 ## @end table | |
| 80 ## | |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
81 ## @seealso{isalpha, isalnum, islower, isupper, isdigit, isxdigit, |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
82 ## isspace, ispunct, iscntrl, isgraph, isprint, isascii} |
| 7530 | 83 ## @end deftypefn |
| 84 | |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
85 function retval = isstrprop (str, prop) |
| 7530 | 86 |
| 87 if (nargin == 2) | |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
88 switch (prop) |
| 7530 | 89 case "alpha" |
| 10549 | 90 retval = isalpha (str); |
| 7530 | 91 case {"alnum", "alphanum"} |
| 10549 | 92 retval = isalnum (str); |
| 7530 | 93 case "ascii" |
| 10549 | 94 retval = isascii (str); |
| 7530 | 95 case "cntrl" |
| 10549 | 96 retval = iscntrl (str); |
| 7530 | 97 case "digit" |
| 10549 | 98 retval = isdigit (str); |
| 7530 | 99 case {"graph", "graphic"} |
| 10549 | 100 retval = isgraph (str); |
| 7530 | 101 case "lower" |
| 10549 | 102 retval = islower (str); |
| 7530 | 103 case "print" |
| 10549 | 104 retval = isprint (str); |
| 7530 | 105 case "punct" |
| 10549 | 106 retval = ispunct (str); |
| 7530 | 107 case {"space", "wspace"} |
| 10549 | 108 retval = isspace (str); |
| 7530 | 109 case "upper" |
| 10549 | 110 retval = isupper (str); |
| 7530 | 111 case "xdigit" |
| 10549 | 112 retval = isxdigit (str); |
| 7530 | 113 otherwise |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
114 error ("isstrprop: invalid string property"); |
| 7530 | 115 endswitch |
| 116 else | |
| 117 print_usage (); | |
| 118 endif | |
| 119 | |
| 120 endfunction | |
|
8442
502e58a0d44f
Fix docstrings, add examples, references and tests to string functions
Thorsten Meyer <thorsten.meyier@gmx.de>
parents:
7530
diff
changeset
|
121 |
|
11431
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
122 %!error <invalid string property> isstrprop ("abc123", "foo") |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
123 %!assert (isstrprop ("abc123", "alpha"), logical ([1, 1, 1, 0, 0, 0])) |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
124 %!assert (isstrprop ("Hello World", "wspace"), isspace ("Hello World")) |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
125 %!assert (isstrprop ("Hello World", "graphic"), isgraph ("Hello World")) |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
126 |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
127 %%Input Validation |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
128 %!error isstrprop () |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
129 %!error isstrprop ("abc123") |
|
0d9640d755b1
Improve docstrings for all isXXX functions.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
130 %!error isstrprop ("abc123", "alpha", "alpha") |