From: <tr...@us...> - 2008-07-23 19:30:01
|
Revision: 5187 http://octave.svn.sourceforge.net/octave/?rev=5187&view=rev Author: treichl Date: 2008-07-23 19:30:09 +0000 (Wed, 23 Jul 2008) Log Message: ----------- Added asci.m Modified Paths: -------------- trunk/octave-forge/main/miscellaneous/INDEX Added Paths: ----------- trunk/octave-forge/main/miscellaneous/inst/asci.m Modified: trunk/octave-forge/main/miscellaneous/INDEX =================================================================== --- trunk/octave-forge/main/miscellaneous/INDEX 2008-07-23 13:10:40 UTC (rev 5186) +++ trunk/octave-forge/main/miscellaneous/INDEX 2008-07-23 19:30:09 UTC (rev 5187) @@ -1,6 +1,7 @@ miscellaneous >> Miscellaneous functions miscellaneous apply + asci csv2latex grep infoskeleton Added: trunk/octave-forge/main/miscellaneous/inst/asci.m =================================================================== --- trunk/octave-forge/main/miscellaneous/inst/asci.m (rev 0) +++ trunk/octave-forge/main/miscellaneous/inst/asci.m 2008-07-23 19:30:09 UTC (rev 5187) @@ -0,0 +1,83 @@ +%# Copyright (C) 2008, Thomas Treichl <tr...@us...> +%# +%# 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 of the License, 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 this program; if not, see <http://www.gnu.org/licenses/>. + +%# -*- texinfo -*- +%# @deftypefn {Function} {[@var{string}] =} asci ([@var{columns}]) +%# If this function is called without any input argument and without any output argument then print a nice ASCI-table (excluding special characters with hexcode 0x00 to 0x20) on screen with four columns per default. If this function is called with one output argument then return an ASCI-table string and don't print anything on screen. Finally, if this function is called with one input argument of type scalar then either print (no output argument) or return (one output argument) an ASCI-table with a number of columns given in @var{columns}. +%# +%# For example, +%# @example +%# A = asci (3); +%# disp (A); +%# @end example +%# @end deftypefn + +function [varargout] = asci (varargin) + + %# Check number and types of input arguments + if (nargin == 0) + vcol = 4; + elseif (isnumeric (varargin{1}) && \ + isequal (size (varargin{1}), [1, 1])) + vcol = floor (varargin{1}); + else + print_usage (); + endif + + %# First char is #32 (0x20) and last char is #128 (0x80) + vtab = ""; + voff = floor ((128 - 32) / vcol); + + %# Print a first row for the and underline that row + for vcnt = 1:vcol + vtab = sprintf ("%s Dec Hex Chr ", vtab); + endfor + vtab = sprintf ("%s\n", vtab); + + for vcnt = 1:vcol + vtab = sprintf ("%s-------------", vtab); + endfor + vtab = sprintf ("%s\n", vtab); + + %# Create the lines and columns of the asci table + for vpos = 32:(32+voff) + for vcnt = 1:vcol + vact = (vcnt-1)*voff+vpos; + vstr = {num2str(vact), dec2hex(vact), char(vact)}; + for vctn = 1:length (vstr) + vtab = sprintf ("%s %3s", vtab, vstr{vctn}); + endfor + vtab = sprintf ("%s ", vtab); + endfor + vtab = sprintf ("%s\n", vtab); + endfor + vtab = sprintf ("%s\n", vtab); + + %# Print table to screen or return it to output argument + if (nargout == 0) + printf ("%s", vtab); + elseif (nargout == 1) + varargout{1} = vtab; + endif +endfunction + +%!test +%! A = asci (); +%!test +%! A = asci (2); + +%# Local Variables: *** +%# mode: octave *** +%# End: *** \ No newline at end of file This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |