Mercurial > octave-nkf

comparison scripts/miscellaneous/license.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 16f53d29049f
children 693e22af08ae
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
117 usage ("retval = license (\"inuse\")"); 117 usage ("retval = license (\"inuse\")");
118 endif 118 endif
119 119
120 pw = getpwuid (getuid ()); 120 pw = getpwuid (getuid ());
121 if (isstruct (pw)) 121 if (isstruct (pw))
122 username = pw.name; 122 username = pw.name;
123 else 123 else
124 username = "octave_user"; 124 username = "octave_user";
125 endif 125 endif
126 126
127 retval(1:nr_licenses) = struct ("feature", "", "user", ""); 127 retval(1:nr_licenses) = struct ("feature", "", "user", "");
128 for p = 1:nr_licenses 128 for p = 1:nr_licenses
129 retval(p).feature = __octave_licenses__{p,1}; 129 retval(p).feature = __octave_licenses__{p,1};