Mercurial > forge
changeset 2605:4ee580968fce octave-forge
Some INDEX fixes. Many more needed
author | adb014 |
---|---|
date | Fri, 06 Oct 2006 10:17:42 +0000 |
parents | 78d616ffbdc1 |
children | 54054a31a45e |
files | extra/MacOSX/doc/.cvsignore extra/symband/doc/.cvsignore main/INDEX main/audio/INDEX main/comm/INDEX main/comm/inst/biterr.m main/comm/inst/gfweight.m main/comm/inst/symerr.m main/comm/src/Makefile main/comm/src/__errcore__.cc main/comm/src/__gfweight__.cc main/comm/src/_errcore.cc main/comm/src/_gfweight.cc main/fixed/INDEX main/fixed/src/fixed.cc main/strings/src/pcregexp.cc main/vrml/INDEX |
diffstat | 17 files changed, 259 insertions(+), 212 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/MacOSX/doc/.cvsignore Fri Oct 06 10:17:42 2006 +0000 @@ -0,0 +1,8 @@ +*.aux +*.dvi +*.log +*.ps +*.toc +html +ofosx +*.pdf
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/extra/symband/doc/.cvsignore Fri Oct 06 10:17:42 2006 +0000 @@ -0,0 +1,8 @@ +*.aux +*.dvi +*.log +*.ps +*.toc +html +SymBandDoc +*.pdf
--- a/main/INDEX Fri Oct 06 08:25:39 2006 +0000 +++ b/main/INDEX Fri Oct 06 10:17:42 2006 +0000 @@ -57,6 +57,22 @@ $COMPAT= http://octave.sf.net/compatibility.html $EG= Etienne Grossman's <a href="http://www.isr.ist.utl.pt/~etienne/octave/">Octave code</a> +audio >> Audio +Record and play + speak + recordsound + wavrecord + soundcap + loadaudio saveaudio playaudio record setaudio +Read and write + wavwrite + wavread + readsnd + writesnd +Process + mu2lin + lin2mu + interpreter >> Interpreter Help help @@ -100,10 +116,13 @@ Load path path addpath + savepath rmpath pathtool file_in_path file_in_loadpath find_first_of_in_loadpath rehash + genpath + pathdef Output echo more @@ -177,27 +196,7 @@ debug_on_warning errno errno_list - warn_divide_by_zero - warn_function_name_clash - warn_future_time_stamp - warn_missing_semicolon - warn_separator_insert - warn_variable_switch_label - warn_assign_as_truth_value - warn_reload_forces_clear - warn_single_quote_string - warn_precedence_change - warn_matlab_incompatible - warn_fortran_indexing - warn_imag_to_real - warn_undefined_return_values - warn_empty_list_elements - warn_num_to_str - warn_str_to_num - warn_neg_dim_as_zero - warn_resize_on_range_error - warn_associativity_change - warn_string_concat + warning_ids Processing variables_can_hide_functions max_recursion_depth @@ -210,8 +209,9 @@ save_precision save_header_format_string Support programs - EDITOR INFO_FILE INFO_PROGRAM MAKEINFO_PROGRAM PAGER gnuplot_binary - toggle_grace_use + EDITOR + info_file info_program makeinfo_program + PAGER gnuplot_binary Constants F_DUPFD F_GETFD F_GETFL F_SETFD F_SETFL O_APPEND O_ASYNC O_CREAT O_EXCL O_NONBLOCK O_RDONLY @@ -251,6 +251,17 @@ popen popen2 pclose fork exec pipe waitpid kill EXEC_PATH sleep usleep + WCONTINUE + WCOREDUMP + WEXITSTATUS + WIFCONTINUED + WIFEXITED + WIFSIGNALED + WIFSTOPPED + WNOHANG + WSTOPSIG + WTERMSIG + WUNTRACED Process information getrusage getpgrp @@ -401,6 +412,7 @@ isstruct struct_contains struct_elements + orderfields Lists list islist nth @@ -417,7 +429,7 @@ uint8 uint16 uint32 uint64 sizeof Deprecated - is_bool is_complex is_list is_stream is_struct + is_bool is_complex is_list is_stream is_struct is_global matrix >> Linear Algebra @@ -581,6 +593,7 @@ spinv splchol splu + spqr sprank svds= create an interface to <a href="http://www.caam.rice.edu/software/ARPACK/">ARPACK</a> and add it to octave-forge Iterative techniques @@ -640,6 +653,7 @@ fnmatch regexp regexpi + regexprep strcmp strncmp strcmpi @@ -664,6 +678,7 @@ undo_string_escapes strappend strsort + strtrunc Conversion toascii setstr num2str com2str str2mat @@ -682,11 +697,7 @@ dec2base strptime base64encode - csvexplode csvconcat Flags - warn_num_to_str - warn_str_to_num - warn_single_quote_string string_fill_char math >> Mathematics @@ -886,6 +897,7 @@ dassl dassl_options daspk daspk_options dasrt dasrt_options + lpsolve lpsolve_options colloc plot >> Plotting @@ -1059,6 +1071,13 @@ rename link unlink symlink readlink mkfifo umask stat lstat mark_for_deletion + S_ISBLK + S_ISCHR + S_ISDIR + S_ISFIFO + S_ISLNK + S_ISREG + S_ISSOCK Directory operations cd pwd ls dir filesep @@ -1090,6 +1109,7 @@ glpk sqp qp + glpkmex extra >> Extra packages Finance
--- a/main/audio/INDEX Fri Oct 06 08:25:39 2006 +0000 +++ b/main/audio/INDEX Fri Oct 06 10:17:42 2006 +0000 @@ -2,21 +2,10 @@ Record and play sound soundsc - speak - recordsound - wavrecord - soundcap aurecord aucapture - loadaudio saveaudio playaudio record setaudio Read and write auload ausave - wavwrite - wavread - readsnd - writesnd Process - mu2lin - lin2mu auplot au
--- a/main/comm/INDEX Fri Oct 06 08:25:39 2006 +0000 +++ b/main/comm/INDEX Fri Oct 06 10:17:42 2006 +0000 @@ -69,6 +69,7 @@ dmod dmodce genqammod + genqamdemod modmap pamdemod pammod @@ -109,6 +110,7 @@ gifft ginv ginverse + gisequal glog glu gprod
--- a/main/comm/inst/biterr.m Fri Oct 06 08:25:39 2006 +0000 +++ b/main/comm/inst/biterr.m Fri Oct 06 10:17:42 2006 +0000 @@ -139,7 +139,7 @@ endif ## Call the core error function to count the bit errors - ind = _errcore(a,b); + ind = __errcore__(a,b); switch (flag) case 'row',
--- a/main/comm/inst/gfweight.m Fri Oct 06 08:25:39 2006 +0000 +++ b/main/comm/inst/gfweight.m Fri Oct 06 10:17:42 2006 +0000 @@ -74,6 +74,6 @@ ## We do the equivalent of ## w = min(sum((mod(de2bi([1:2^k-1]') * gen, 2))')); ## But in a more memory efficient manner in an oct-file - w = _gfweight(gen); + w = __gfweight__(gen); endfunction
--- a/main/comm/inst/symerr.m Fri Oct 06 08:25:39 2006 +0000 +++ b/main/comm/inst/symerr.m Fri Oct 06 10:17:42 2006 +0000 @@ -117,7 +117,7 @@ endif ## Call the core error function to count the bit errors - ind = (_errcore(a,b) != 0); + ind = (__errcore__(a,b) != 0); switch (flag) case 'row',
--- a/main/comm/src/Makefile Fri Oct 06 08:25:39 2006 +0000 +++ b/main/comm/src/Makefile Fri Oct 06 10:17:42 2006 +0000 @@ -7,8 +7,8 @@ GALOISOBJECTS = $(patsubst %.cc,%.o,$(GALOISSOURCES)) GALOISDEPENDS = $(patsubst %.cc,%.d,$(GALOISSOURCES)) -OTHERSOURCES = primpoly.cc isprimitive.cc _errcore.cc cyclpoly.cc cyclgen.cc \ - syndtable.cc _gfweight.cc genqamdemod.cc +OTHERSOURCES = primpoly.cc isprimitive.cc __errcore__.cc cyclpoly.cc \ + cyclgen.cc syndtable.cc __gfweight__.cc genqamdemod.cc OTHERTARGETS = $(patsubst %.cc,%.oct,$(OTHERSOURCES)) OTHEROBJECTS = $(patsubst %.cc,%.o,$(OTHERSOURCES)) OTHERDEPENDS = $(patsubst %.cc,%.d,$(OTHERSOURCES))
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/main/comm/src/__errcore__.cc Fri Oct 06 10:17:42 2006 +0000 @@ -0,0 +1,73 @@ +/* + +Copyright (C) 2003 David Bateman + +This program is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +This program is distributed in the hope that it will be useful, but +WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +General Public License for more details. + +You should have received a copy of the GNU General Public License +along with Octave; see the file COPYING. If not, write to the Free +Software Foundation, 59 Temple Place - Suite 330, Boston, MA +02111-1307, USA. + +In addition to the terms of the GPL, you are permitted to link +this program with any Open Source program, as defined by the +Open Source Initiative (www.opensource.org) + +*/ + +#include <iostream> +#include <iomanip> +#include <sstream> +#include <octave/oct.h> +#include <octave/pager.h> + +DEFUN_DLD (_errcore, args, , + "-*- texinfo -*-\n" +"@deftypefn {Loadable Function} {@var{c} =} _errcore (@var{a}, @var{b})\n" +"\n" +"Returns the number of bit errors comparing the matrices @var{a} and\n" +"@var{b}. These matrices must be of the same size. The return matrix @var{c}\n" +"will also be of the same size.\n" +"\n" +"This is an internal function of @dfn{biterr} and @dfn{symerr}. You should\n" +"use these functions instead.\n" +"@end deftypefn\n" +"@seealso{biterr,symerr}") { + octave_value retval; + + Matrix a = args(0).matrix_value(); + Matrix b = args(1).matrix_value(); + + if ((a.rows() != b.rows()) || (a.cols() != b.cols())) { + error("_errcore: Matrix mismatch"); + return retval; + } + + unsigned int sz = (sizeof(unsigned int) << 3); + Matrix c(a.rows(),a.cols(),0); + for (int i=0; i<a.rows(); i++) + for (int j=0; j<a.cols(); j++) { + unsigned int tmp = (unsigned int)a(i,j) ^ (unsigned int)b(i,j); + if (tmp != 0) + for (unsigned int k=0; k < sz; k++) + if (tmp & (1<<k)) + c(i,j)++; + } + + retval = octave_value(c); + return retval; +} + +/* +;;; Local Variables: *** +;;; mode: C++ *** +;;; End: *** +*/
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/main/comm/src/__gfweight__.cc Fri Oct 06 10:17:42 2006 +0000 @@ -0,0 +1,92 @@ +/* + +Copyright (C) 2003 David Bateman + +This program is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +This program is distributed in the hope that it will be useful, but +WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +General Public License for more details. + +You should have received a copy of the GNU General Public License +along with Octave; see the file COPYING. If not, write to the Free +Software Foundation, 59 Temple Place - Suite 330, Boston, MA +02111-1307, USA. + +In addition to the terms of the GPL, you are permitted to link +this program with any Open Source program, as defined by the +Open Source Initiative (www.opensource.org) + +*/ + +#include <iostream> +#include <iomanip> +#include <sstream> +#include <octave/oct.h> +#include <octave/pager.h> +#include <octave/quit.h> + +static int +get_weight (const Array<char>& codeword, const Matrix& gen, + int weight, int depth, int start, int n, int k) +{ + int retval = weight; + + for (int i = start; i < k ; i++) + { + OCTAVE_QUIT; + + Array<char> new_codeword (codeword); + int tmp = 0; + for (int j = 0; j < n; j++) + if (new_codeword (j) ^= (char)gen(i,j)) + tmp++; + if (tmp < retval) + retval = tmp; + if (depth < retval) + retval = get_weight(new_codeword, gen, retval, depth+1, i+1, n, k); + } + return retval; +} + +DEFUN_DLD (_gfweight, args, , + "-*- texinfo -*-\n" +"@deftypefn {Loadable Function} {@var{w} =} _gfweight (@var{gen})\n" +"\n" +"Returns the minimum distance @var{w} of the generator matrix @var{gen}.\n" +"The codeword length is @var{k}.\n" +"\n" +"This is an internal function of @dfn{gfweight}. You should use gfweight\n" +"rather than use this function directly.\n" +"@end deftypefn\n" +"@seealso{gfweight}") { + + if (args.length() != 1) { + error("_gfweight: wrong number of arguments"); + return octave_value(); + } + + Matrix gen = args(0).matrix_value(); + int k = gen.rows(); + int n = gen.columns(); + unsigned long long nsym = ((unsigned long long)1 << k); + + if (k > 128) + { + octave_stdout << "_gfweight: this is likely to take a very long time!!\n"; + flush_octave_stdout (); + } + + Array<char> codeword (n, 0); + return octave_value((double)get_weight (codeword, gen, n - k + 1, 1, 0, n, k)); +} + +/* +;;; Local Variables: *** +;;; mode: C++ *** +;;; End: *** +*/
--- a/main/comm/src/_errcore.cc Fri Oct 06 08:25:39 2006 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,73 +0,0 @@ -/* - -Copyright (C) 2003 David Bateman - -This program is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -This program is distributed in the hope that it will be useful, but -WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -General Public License for more details. - -You should have received a copy of the GNU General Public License -along with Octave; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA -02111-1307, USA. - -In addition to the terms of the GPL, you are permitted to link -this program with any Open Source program, as defined by the -Open Source Initiative (www.opensource.org) - -*/ - -#include <iostream> -#include <iomanip> -#include <sstream> -#include <octave/oct.h> -#include <octave/pager.h> - -DEFUN_DLD (_errcore, args, , - "-*- texinfo -*-\n" -"@deftypefn {Loadable Function} {@var{c} =} _errcore (@var{a}, @var{b})\n" -"\n" -"Returns the number of bit errors comparing the matrices @var{a} and\n" -"@var{b}. These matrices must be of the same size. The return matrix @var{c}\n" -"will also be of the same size.\n" -"\n" -"This is an internal function of @dfn{biterr} and @dfn{symerr}. You should\n" -"use these functions instead.\n" -"@end deftypefn\n" -"@seealso{biterr,symerr}") { - octave_value retval; - - Matrix a = args(0).matrix_value(); - Matrix b = args(1).matrix_value(); - - if ((a.rows() != b.rows()) || (a.cols() != b.cols())) { - error("_errcore: Matrix mismatch"); - return retval; - } - - unsigned int sz = (sizeof(unsigned int) << 3); - Matrix c(a.rows(),a.cols(),0); - for (int i=0; i<a.rows(); i++) - for (int j=0; j<a.cols(); j++) { - unsigned int tmp = (unsigned int)a(i,j) ^ (unsigned int)b(i,j); - if (tmp != 0) - for (unsigned int k=0; k < sz; k++) - if (tmp & (1<<k)) - c(i,j)++; - } - - retval = octave_value(c); - return retval; -} - -/* -;;; Local Variables: *** -;;; mode: C++ *** -;;; End: *** -*/
--- a/main/comm/src/_gfweight.cc Fri Oct 06 08:25:39 2006 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,92 +0,0 @@ -/* - -Copyright (C) 2003 David Bateman - -This program is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -This program is distributed in the hope that it will be useful, but -WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -General Public License for more details. - -You should have received a copy of the GNU General Public License -along with Octave; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA -02111-1307, USA. - -In addition to the terms of the GPL, you are permitted to link -this program with any Open Source program, as defined by the -Open Source Initiative (www.opensource.org) - -*/ - -#include <iostream> -#include <iomanip> -#include <sstream> -#include <octave/oct.h> -#include <octave/pager.h> -#include <octave/quit.h> - -static int -get_weight (const Array<char>& codeword, const Matrix& gen, - int weight, int depth, int start, int n, int k) -{ - int retval = weight; - - for (int i = start; i < k ; i++) - { - OCTAVE_QUIT; - - Array<char> new_codeword (codeword); - int tmp = 0; - for (int j = 0; j < n; j++) - if (new_codeword (j) ^= (char)gen(i,j)) - tmp++; - if (tmp < retval) - retval = tmp; - if (depth < retval) - retval = get_weight(new_codeword, gen, retval, depth+1, i+1, n, k); - } - return retval; -} - -DEFUN_DLD (_gfweight, args, , - "-*- texinfo -*-\n" -"@deftypefn {Loadable Function} {@var{w} =} _gfweight (@var{gen})\n" -"\n" -"Returns the minimum distance @var{w} of the generator matrix @var{gen}.\n" -"The codeword length is @var{k}.\n" -"\n" -"This is an internal function of @dfn{gfweight}. You should use gfweight\n" -"rather than use this function directly.\n" -"@end deftypefn\n" -"@seealso{gfweight}") { - - if (args.length() != 1) { - error("_gfweight: wrong number of arguments"); - return octave_value(); - } - - Matrix gen = args(0).matrix_value(); - int k = gen.rows(); - int n = gen.columns(); - unsigned long long nsym = ((unsigned long long)1 << k); - - if (k > 128) - { - octave_stdout << "_gfweight: this is likely to take a very long time!!\n"; - flush_octave_stdout (); - } - - Array<char> codeword (n, 0); - return octave_value((double)get_weight (codeword, gen, n - k + 1, 1, 0, n, k)); -} - -/* -;;; Local Variables: *** -;;; mode: C++ *** -;;; End: *** -*/
--- a/main/fixed/INDEX Fri Oct 06 08:25:39 2006 +0000 +++ b/main/fixed/INDEX Fri Oct 06 10:17:42 2006 +0000 @@ -56,3 +56,7 @@ fsumsq ftanh ftan +Examples + ffft + fifft + fixed_inc
--- a/main/fixed/src/fixed.cc Fri Oct 06 08:25:39 2006 +0000 +++ b/main/fixed/src/fixed.cc Fri Oct 06 10:17:42 2006 +0000 @@ -404,7 +404,7 @@ // appear on a new-line, otherwise the idnexing script will be confused!! #define DEFUN_DLD_FIXED_SNGL_ARG(NAME, HELP, FUNC, \ REAL_CAN_RET_CMPLX_UPPER,UPPER, REAL_CAN_RET_CMPLX_LOWER, \ - LOWER) DEFUN_DLD ( NAME, args, nargout, HELP) \ + LOWER) DEFUN_DLD (NAME, args, nargout, HELP) \ { \ int nargin = args.length(); \ octave_value retval; \ @@ -653,7 +653,7 @@ @seealso{fround, ffloor}", ::ceil, 0, 0, 0, 0); #define DEFUN_DLD_FIXED_DIM_ARG(NAME, HELP, FUNC) \ - DEFUN_DLD ( NAME, args, nargout, HELP) \ + DEFUN_DLD (NAME, args, nargout, HELP) \ { \ int nargin = args.length(); \ octave_value retval; \
--- a/main/strings/src/pcregexp.cc Fri Oct 06 08:25:39 2006 +0000 +++ b/main/strings/src/pcregexp.cc Fri Oct 06 10:17:42 2006 +0000 @@ -26,7 +26,7 @@ #include <pcre.h> #include <iostream> -DEFUN_DLD( pcregexp, args, nargout, "\ +DEFUN_DLD(pcregexp, args, nargout, "\ Perl-compatible regular expression matching.\n\ \n\ See also \"help regexp\" and the manpage for 'pcre'.\n\
--- a/main/vrml/INDEX Fri Oct 06 08:25:39 2006 +0000 +++ b/main/vrml/INDEX Fri Oct 06 10:17:42 2006 +0000 @@ -4,6 +4,7 @@ select_3D_points vrml_browse vrml_kill + vrml_anim Create 3D objects vrml_surf vrml_points @@ -19,6 +20,21 @@ vrml_arrow vrml_lines vrml_group +Support Functions + save_vrml + best_dir + best_dir_cov + proplan + bound_convex + vrml_DirectionalLight + vrml_ROUTE + vrml_TimeSensor + vrml_ellipsoid + vrml_interp + vrml_material + vrml_newname + vrml_parallelogram + vrml_thick_surf Demos test_vmesh test_vrml_faces