str2str

(tmp_for_tar/dumper/str2str.m)

Function Synopsis

s = str2str (t)

Help text

 s = str2str (t)              - Convert a string variable into octave code

 s : string :

 t : string : Octave code that evaluates to s.

 Last modified: August 2001

Listing of function file tmp_for_tar/dumper/str2str.m

## s = str2str (t)              - Convert a string variable into octave code
## 
## s : string :
## 
## t : string : Octave code that evaluates to s.

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

function s = str2str (t)
 

q = [ split('\\\'"\a\b\f\n\r\t\v','')' ; '\\\'"abfnrtv' ] ;

if rows (t) == 1
  for i=1:size(q,2)
    t = strrep (t,q(1,i),['\\',q(2,i)]) ;  
  end
  s = sprintf('\'%s\'',t);
else
  s = "[";
  for j = 1:rows(t)
    t2 = t(j,:);
    for i=1:size(q,2) 
      t2 = strrep (t2,q(1,i),['\\',q(2,i)]) ;  
    end
    s = [s,sprintf("'%s';\n",t2)];
  end
  s(length(s)) = "]";
end