sindent

(tmp_for_tar/vrml.doc/sindent.m)

Function Synopsis

s = sindent (n,s)

Help text

 Last modified: December 2000

Listing of function file tmp_for_tar/vrml.doc/sindent.m

## Author:        Etienne Grossmann  <etienne@isr.ist.utl.pt>
## Last modified: December 2000

function s = sindent (n,s)

if n==0, return; end

last = rindex (s,"\n");
if last == 0, return; end
if last == length(s), s(last) = " "; 
else last = 0;
end

s = [blanks(n),strrep (s,"\n",["\n",blanks(n)])];

if last, s(length(s)) = "\n"; end