Mercurial > hg > octave-nkf
annotate scripts/strings/dec2hex.m @ 16557:d50bca1cdc22
Support escaped characters in sq_strings for strsplit.m.
* scripts/strings/strsplit.m: Remove private function regexp2simple() and
replace with regexprep(). Apply do_string_escapes() to sq_strings. Improve
doc-string. Add tests.
| author | Ben Abbott <bpabbott@mac.com> |
|---|---|
| date | Tue, 23 Apr 2013 20:26:07 -0400 |
| parents | f3d52523cde1 |
| children | d63878346099 |
| rev | line source |
|---|---|
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
13167
diff
changeset
|
1 ## Copyright (C) 1996-2012 Daniel Calvelo |
| 2325 | 2 ## |
| 2313 | 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 | |
| 7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
| 8 ## your option) any later version. | |
| 2313 | 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 | |
| 7016 | 16 ## along with Octave; see the file COPYING. If not, see |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 2268 | 18 |
| 3361 | 19 ## -*- texinfo -*- |
|
11172
7e8ce65f73cf
Overhaul functions used to convert between number bases.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
20 ## @deftypefn {Function File} {} dec2hex (@var{d}, @var{len}) |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
21 ## Return the hexadecimal string corresponding to the non-negative |
|
11172
7e8ce65f73cf
Overhaul functions used to convert between number bases.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
22 ## integer @var{d}. For example: |
| 3426 | 23 ## |
| 3361 | 24 ## @example |
|
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
25 ## @group |
| 3361 | 26 ## dec2hex (2748) |
| 3789 | 27 ## @result{} "ABC" |
|
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
28 ## @end group |
| 3361 | 29 ## @end example |
| 3789 | 30 ## |
|
13167
f7cb824dc8c0
Allow cellstr inputs for dec2* conversion functions.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
31 ## If @var{d} is a matrix or cell array, return a string matrix with one |
|
f7cb824dc8c0
Allow cellstr inputs for dec2* conversion functions.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
32 ## row per element in @var{d}, padded with leading zeros to the width of |
|
f7cb824dc8c0
Allow cellstr inputs for dec2* conversion functions.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
33 ## the largest value. |
| 4492 | 34 ## |
| 35 ## The optional second argument, @var{len}, specifies the minimum | |
| 36 ## number of digits in the result. | |
|
11172
7e8ce65f73cf
Overhaul functions used to convert between number bases.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
37 ## @seealso{hex2dec, dec2base, dec2bin} |
| 3361 | 38 ## @end deftypefn |
| 2311 | 39 |
| 3791 | 40 ## Author: Daniel Calvelo <dcalvelo@yahoo.com> |
| 3789 | 41 ## Adapted-by: Paul Kienzle <pkienzle@kienzle.powernet.co.uk> |
| 2314 | 42 |
|
11172
7e8ce65f73cf
Overhaul functions used to convert between number bases.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
43 function h = dec2hex (d, len) |
| 2268 | 44 |
| 4492 | 45 if (nargin == 1) |
|
11172
7e8ce65f73cf
Overhaul functions used to convert between number bases.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
46 h = dec2base (d, 16); |
| 4492 | 47 elseif (nargin == 2) |
|
11172
7e8ce65f73cf
Overhaul functions used to convert between number bases.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
48 h = dec2base (d, 16, len); |
| 3789 | 49 else |
| 6046 | 50 print_usage (); |
| 2268 | 51 endif |
| 2325 | 52 |
| 2268 | 53 endfunction |
| 7411 | 54 |
|
13167
f7cb824dc8c0
Allow cellstr inputs for dec2* conversion functions.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
55 |
|
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
56 %!assert (dec2hex (2748), "ABC") |
|
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
57 %!assert (dec2hex (2748, 5), "00ABC") |
|
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
58 %!assert (dec2hex ({2748, 2746}), ["ABC"; "ABA"]) |
| 7411 | 59 |
|
11172
7e8ce65f73cf
Overhaul functions used to convert between number bases.
Rik <octave@nomad.inbox5.com>
parents:
10821
diff
changeset
|
60 %% Test input validation |
|
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
61 %!error dec2hex () |
|
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
62 %!error dec2hex (1, 2, 3) |
| 7411 | 63 |