Mercurial > hg > octave-nkf

comparison scripts/strings/base2dec.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 2618a0750ae6
children 93c65f2a5668
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
47 ## Adapted-by: Paul Kienzle <pkienzle@kienzle.powernet.co.uk> 47 ## Adapted-by: Paul Kienzle <pkienzle@kienzle.powernet.co.uk>
48 48
49 function out = base2dec (d, base) 49 function out = base2dec (d, base)
50 50
51 if (nargin != 2) 51 if (nargin != 2)
52 usage ("n = base2dec('d', base)"); 52 print_usage ();
53 endif 53 endif
54 54
55 symbols = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"; 55 symbols = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
56 if (ischar (base)) 56 if (ischar (base))
57 symbols = base; 57 symbols = base;