From: <sch...@us...> - 2010-05-26 20:03:11
|
Revision: 7353 http://octave.svn.sourceforge.net/octave/?rev=7353&view=rev Author: schloegl Date: 2010-05-26 20:03:05 +0000 (Wed, 26 May 2010) Log Message: ----------- fix typos Modified Paths: -------------- trunk/octave-forge/extra/oct2mat/inst/oct2mat Modified: trunk/octave-forge/extra/oct2mat/inst/oct2mat =================================================================== --- trunk/octave-forge/extra/oct2mat/inst/oct2mat 2010-05-26 19:49:16 UTC (rev 7352) +++ trunk/octave-forge/extra/oct2mat/inst/oct2mat 2010-05-26 20:03:05 UTC (rev 7353) @@ -348,8 +348,8 @@ #### replace "=dd.ee.(kk)" with "=getfield(dd.ee,kk)" -------------- $0 = gensub(/^([^=]*=[^=]*)(\<[[:alnum:]_\.]*)\.\((\<[^\(]*)\)/,"\\1getfield(\\2,\\3)", "g"); #### replace "dd.ee.(kk) = vv;" with "setfield(dd.ee,kk,vv);" -------------- - $0 = gensub(/^([ \t]*)(\<[[:alnum:]_.\]*)\.\((\<[^\(]*)\)[ \t]*=[ \t]*([^;]*);[ \t]*$/,"\\1setfield(\\2,\\3,\\4)", "g"); - + $0 = gensub(/^([ \t]*)(\<[[:alnum:]_\.]*)\.\((\<[^\(]*)\)[ \t]*=[ \t]*([^;]*);[ \t]*$/,"\\1setfield(\\2,\\3,\\4)", "g"); + gsub(/\<endfunction\>/,""); gsub(/\<endif\>/,"end"); gsub(/\<endwhile\>/,"end"); @@ -465,7 +465,7 @@ ##### yy.zz(k++) = a; yy.bb{k++} = "abc"; $0 = gensub(/(^[ \t]*)([[:alpha:]_][[:alnum:]_\.]*)[ \t]*\{[ \t]*\+\+[ \t]*([[:alpha:]_]\w*)[ \t]*\}[ \t]*(=.*;)([ \t]*$)/, "\\1\\3 = \\3 + 1; \\2{\\3} \\4\\5","g"); - $0 = gensub(/(^[ \t]*)([[:alpha:]_][[:alnum:]_\.]*))[ \t]*\{[ \t]*([[:alpha:]_]\w*)[ \t]*\+\+[ \t]*\}[ \t]*(=.*;)([ \t]*$)/, + $0 = gensub(/(^[ \t]*)([[:alpha:]_][[:alnum:]_\.]*)[ \t]*\{[ \t]*([[:alpha:]_]\w*)[ \t]*\+\+[ \t]*\}[ \t]*(=.*;)([ \t]*$)/, "\\1\\2{\\3} \\4 \\3 = \\3 + 1;\\5","g"); $0 = gensub(/(^[ \t]*)([[:alpha:]_][[:alnum:]_\.]*)[ \t]*\([ \t]*\+\+[ \t]*([[:alpha:]_]\w*)[ \t]*\)[ \t]*(=.*;)([ \t]*$)/, "\\1\\3 = \\3 + 1; \\2(\\3) \\4\\5","g"); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |