code2str, str2code obsolete functions see ascii 91/5091/6
Allan CORNET [Mon, 3 Oct 2011 04:08:15 +0000 (06:08 +0200)]
Change-Id: I257fca930efc750f29b91e2f1c93dd888f490ff2

51 files changed:
scilab/CHANGES_5.4.X
scilab/modules/fileio/macros/is_absolute_path.sci
scilab/modules/fileio/macros/listvarinfile.sci
scilab/modules/functions/macros/fun2string.sci
scilab/modules/m2sci/macros/kernel/isinstring.sci
scilab/modules/m2sci/macros/kernel/lst_funcall.sci
scilab/modules/m2sci/macros/kernel/m2sci_syntax.sci
scilab/modules/m2sci/macros/mfile2sci.sci
scilab/modules/matio/macros/savematfile.sci
scilab/modules/scicos/macros/scicos_scicos/do_version.sci
scilab/modules/scicos_blocks/macros/Sinks/TOWS_c.sci
scilab/modules/scicos_blocks/macros/Sinks/WFILE_f.sci
scilab/modules/scicos_blocks/macros/Sinks/WRITEAU_f.sci
scilab/modules/scicos_blocks/macros/Sinks/WRITEC_f.sci
scilab/modules/scicos_blocks/macros/Sources/FROMWS_c.sci
scilab/modules/scicos_blocks/macros/Sources/READAU_f.sci
scilab/modules/scicos_blocks/macros/Sources/READC_f.sci
scilab/modules/scicos_blocks/macros/Sources/RFILE_f.sci
scilab/modules/string/help/en_US/code2str.xml
scilab/modules/string/help/en_US/isascii.xml
scilab/modules/string/help/en_US/str2code.xml
scilab/modules/string/help/ja_JP/ascii.xml
scilab/modules/string/help/ja_JP/code2str.xml [deleted file]
scilab/modules/string/help/ja_JP/isascii.xml
scilab/modules/string/help/ja_JP/str2code.xml [deleted file]
scilab/modules/string/help/pt_BR/ascii.xml
scilab/modules/string/help/pt_BR/code2str.xml [deleted file]
scilab/modules/string/help/pt_BR/isascii.xml
scilab/modules/string/help/pt_BR/str2code.xml [deleted file]
scilab/modules/string/sci_gateway/c/gw_string.c
scilab/modules/string/sci_gateway/c/sci_code2str.c
scilab/modules/string/sci_gateway/c/sci_str2code.c
scilab/modules/string/sci_gateway/string_gateway.xml
scilab/modules/string/tests/benchmarks/bench_code2str.tst
scilab/modules/string/tests/benchmarks/bench_str2code.tst
scilab/modules/string/tests/memory_leak/code2str.tst
scilab/modules/string/tests/memory_leak/isascii.tst
scilab/modules/string/tests/memory_leak/str2code.tst
scilab/modules/string/tests/unit_tests/code2str.dia.ref
scilab/modules/string/tests/unit_tests/code2str.tst
scilab/modules/string/tests/unit_tests/isascii.dia.ref
scilab/modules/string/tests/unit_tests/isascii.tst
scilab/modules/string/tests/unit_tests/str2code.dia.ref
scilab/modules/string/tests/unit_tests/str2code.tst
scilab/modules/string/tests/unit_tests/stripblanks.dia.ref
scilab/modules/string/tests/unit_tests/stripblanks.tst
scilab/modules/umfpack/macros/ana_style.sci
scilab/modules/xcos/tests/nonreg_tests/utils/getW2Fformat.sci
scilab/modules/xcos/tests/nonreg_tests/utils/getW2Foutput.sci
scilab/modules/xcos/tests/nonreg_tests/utils/renameIO.sci
scilab/modules/xcos/tests/nonreg_tests/utils/setW2Fformat.sci

index 07ced58..51cba04 100644 (file)
@@ -785,6 +785,9 @@ Obsolete Functions
 * 'oemtochar' and 'chartooem' functions (windows_tools) are obsolete and will be
    removed in Scilab 5.4.1.
 
+* 'code2str' and 'str2code' are obsolete and will be removed on 5.4.1, please use
+  'ascii' instead.
+
 
 Removed Functions (previously declared as obsolete)
 ====================================================
@@ -1269,7 +1272,6 @@ Bug Fixes
 * Bug #9963 fixed - The assert_computedigits function was not vectorized.
 
 * Bug #9966 fixed - The default value of comptype in assert_checkalmostequal
-                   was wrongly chosen.
 
 * Bug #9971 fixed - GLoad macro not used and not documented has been removed.
 
index 27710dc..7cd1ff8 100644 (file)
@@ -24,9 +24,7 @@ function status = is_absolute_path(pathname)
                
                // Windows Case
                
-               if (abs(str2code(part(pathname,1))) >= 10)    ..
-                       & (abs(str2code(part(pathname,1))) <= 35) ..
-                       & (part(pathname,2) == ":") then
+               if isletter(part(pathname,1)) & (part(pathname,2) == ":") then
                        status = %T;
                end
                
index f352a60..37056f4 100644 (file)
@@ -250,14 +250,14 @@ function v=code2var(id)
       ch=idl-256*k
       if ch==40 then
         n=i-1
-        v=code2str(str)
+        v=_code2str(str)
         return
       end
       idl=k
       str(i)=ch
     end
     i1=i1+4
-    v=code2str(str)
+    v=_code2str(str)
   end
 endfunction
 
index 4c21212..b197387 100644 (file)
@@ -252,7 +252,7 @@ function [txt,ilst]=cod2sci(lst,ilst)
       if ip==99|ip==2 then
         ip=''
       else
-        ip=code2str(ip)
+        ip=_code2str(ip)
       end
       op=matrix(op(3:$),2,-1)
       lhs=size(op,2)
index dab8c23..c652a45 100644 (file)
@@ -64,7 +64,7 @@ while %T ,
     end
   elseif sym==quote then
     // Check if transpose or beginning of a string 
-    if abs(str2code(psym))>=36&psym<>')'&psym<>']'&psym<>'.'&psym<>quote then // Not a transpose
+    if abs(_str2code(psym))>=36&psym<>')'&psym<>']'&psym<>'.'&psym<>quote then // Not a transpose
       strcnt=1
     elseif bcount<>0 then // Inside a matrix definition
       if part(str,ksym-1)==' ' then strcnt=1,end
index 3fda460..bb74507 100644 (file)
@@ -140,7 +140,7 @@ if bval then
   txt=mgetl(pathconvert(TMPDIR)+fnam+".m")
 end
 
-txt=strsubst(txt,code2str(-40),"")
+txt = strsubst(txt, ascii(9), "")
 [helppart,txt,batch]=m2sci_syntax(txt)
 // save txt vector, helpart and batch after the syntax modification
 if strindex(fil,TMPDIR)==[] then
index ec1b1b2..a2c3c55 100644 (file)
@@ -147,7 +147,7 @@ for k=1:n
 // Because if it is associated to digit, dot is suppressed by comp()
 kdot=strindex(tk,[".*","./",".\",".^",".''"])
 if kdot<>[] then
-  kdgt=kdot(find(abs(str2code(part(tk,kdot-1)))<9))
+  kdgt=kdot(find(abs(_str2code(part(tk,kdot-1)))<9))
   for kk=size(kdgt,"*"):-1:1
     tk=part(tk,1:kdgt(kk)-1)+" "+part(tk,kdgt(kk):length(tk));
   end
index 214c900..57f2b47 100644 (file)
@@ -135,7 +135,7 @@ txt=mgetl(fil);
 m2sci_info(gettext("M-file reading: Done"),-1);
 
 //Replace TAB by SPACE
-txt=strsubst(txt,code2str(-40),"")
+txt=strsubst(txt, ascii(9), "");
 
 if txt==[] then
   m2sci_infos(msprintf(gettext("File %s is an empty file.\n"),fil),-1);
index be304a8..5b5acb5 100644 (file)
@@ -333,7 +333,7 @@ else
     end
   end
   if ( (mtlb_opts <> []) & (strindex("-tabs",mtlb_opts)<>[]) ) then
-    sep=code2str(-40)
+    sep = ascii(9);
   else
     sep=" "
   end
index 2088291..5dab02f 100644 (file)
@@ -1760,8 +1760,8 @@ case 'FOR_f' then
     outmask=ipar(imask+ievt:imask+nout+ievt-1)
     lfil=ipar(1)
     lfmt=ipar(2)
-    if lfil>0 then fname=code2str(ipar(5:4+lfil)),else fname=' ',end
-    if lfmt>0 then Fmt=code2str(ipar(5+lfil:4+lfil+lfmt)),else Fmt=' ',end
+    if lfil>0 then fname=_code2str(ipar(5:4+lfil)),else fname=' ',end
+    if lfmt>0 then Fmt=_code2str(ipar(5+lfil:4+lfil+lfmt)),else Fmt=' ',end
     label=[ sci2exp(tmask);
     sci2exp(outmask);
     fname;
@@ -1959,8 +1959,8 @@ case 'FOR_f' then
     N=ipar(4)
     lfil=ipar(1)
     lfmt=ipar(2)
-    if lfil>0 then fname=code2str(ipar(5:4+lfil)),else fname=' ',end
-    if lfmt>0 then Fmt=code2str(ipar(5+lfil:4+lfil+lfmt)),else Fmt=' ',end
+    if lfil>0 then fname=_code2str(ipar(5:4+lfil)),else fname=' ',end
+    if lfmt>0 then Fmt=_code2str(ipar(5+lfil:4+lfil+lfmt)),else Fmt=' ',end
     label=[sci2exp(in);
     fname;
     Fmt;
index 6ebb2fb..3ff6b37 100644 (file)
@@ -68,7 +68,7 @@ case 'set' then
         else
           model.blocktype = 'd';
         end
-        model.ipar=[nz;length(varnam);str2code(varnam)]
+        model.ipar=[nz;length(varnam);_str2code(varnam)]
         graphics.exprs=exprs
         x.graphics=graphics;
         x.model=model;
@@ -91,7 +91,7 @@ case 'define' then
   model.evtin     = [1];
   model.evtout    = [];
   model.rpar      = [];
-  model.ipar      = [nz;length(varnam);str2code(varnam)];
+  model.ipar      = [nz;length(varnam);_str2code(varnam)];
   model.blocktype = 'd';
   model.firing    = [];
   model.dep_ut    = [%f %f];
index 73a846f..148e371 100644 (file)
@@ -86,7 +86,7 @@ case 'set' then
     end
 
     if ok then
-      ipar=[length(fname1);length(frmt1);0;N;str2code(fname1);str2code(frmt1)]
+      ipar=[length(fname1);length(frmt1);0;N;_str2code(fname1);_str2code(frmt1)]
       if prod(size(dstate))<>(nin+1)*N+2 then
        dstate=[-1;lunit;zeros((nin+1)*N,1)]
       end
@@ -110,7 +110,7 @@ case 'define' then
   model.in=in
   model.evtin=1
   model.dstate=[-1;lunit;zeros((nin+1)*N,1)]
-  model.ipar=[length(fname);length(frmt);0;N;str2code(fname);str2code(frmt)]
+  model.ipar=[length(fname);length(frmt);0;N;_str2code(fname);_str2code(frmt)]
   model.blocktype='d'
   model.dep_ut=[%t %f]
   
index d30daec..53180f0 100644 (file)
@@ -65,7 +65,7 @@ case 'set' then
     end
 
     if ok then
-      ipar=[length(fname1);str2code(frmt1);N;swap;str2code(fname1)]
+      ipar=[length(fname1);_str2code(frmt1);N;swap;_str2code(fname1)]
       if prod(size(dstate))<>(nin+1)*N+2 then
   dstate=[-1;lunit;zeros((nin+1)*N,1)]
       end
@@ -90,7 +90,7 @@ case 'define' then
   model.in=in
   model.evtin=1
   model.dstate=[-1;lunit;zeros((nin+1)*N,1)]
-  model.ipar=[length(fname);str2code(frmt);N;swap;str2code(fname)]
+  model.ipar=[length(fname);_str2code(frmt);N;swap;_str2code(fname)]
   model.blocktype='d'
   model.dep_ut=[%t %f]
   
index 77da237..f22b1e3 100644 (file)
@@ -94,7 +94,7 @@ case 'set' then
     frmt1=part(frmt1,1:3)
 
     if ok then
-      ipar=[length(fname1);str2code(frmt1);N;swap;str2code(fname1)]
+      ipar=[length(fname1);_str2code(frmt1);N;swap;_str2code(fname1)]
       if prod(size(dstate))<>(nin+1)*N+2 then
           dstate=[-1;lunit;zeros((nin+1)*N,1)]
       end
@@ -119,7 +119,7 @@ case 'define' then
   model.in=in
   model.evtin=1
   model.dstate=[-1;lunit;zeros((nin+1)*N,1)]
-  model.ipar=[length(fname);str2code(frmt);N;swap;str2code(fname)]
+  model.ipar=[length(fname);_str2code(frmt);N;swap;_str2code(fname)]
   model.blocktype='d'
   model.dep_ut=[%t %f]
   
index d84f86a..3e208e6 100644 (file)
@@ -67,7 +67,7 @@ case 'set' then
     end
 
     if ok then
-      model.ipar=[length(varnam);str2code(varnam);Method;ZC;OutEnd;];
+      model.ipar=[length(varnam);_str2code(varnam);Method;ZC;OutEnd;];
       [model,graphics,ok]=set_io(model,graphics,list(),list([-1,-2],-1),1,1);
       if ok then
         graphics.exprs=exprs;
@@ -88,7 +88,7 @@ case 'define' then
   model.out=-1
   model.out2=-2
   model.outtyp=-1
-  model.ipar=[length(varnam);str2code(varnam);Method;ZC;OutEnd;];
+  model.ipar=[length(varnam);_str2code(varnam);Method;ZC;OutEnd;];
   model.evtin=[1];
   model.evtout=[1];
   model.firing=[0];
index e6cf27a..94ba686 100644 (file)
@@ -72,13 +72,13 @@ case 'set' then
       frmt1=part(frmt1,1:3);
       if ok then
        ipar=[length(fname1);
-           str2code(frmt1);
+           _str2code(frmt1);
            0;
            N;
            M;
            swap;
            offset
-           str2code(fname1);
+           _str2code(fname1);
            tmask1
            outmask(:)]
        if prod(size(dstate))<>(N*M)+3 then
@@ -109,7 +109,7 @@ case 'define' then
   model.out=nout
   model.evtin=1
   model.dstate=[1;1;lunit;zeros(N*M,1)]
-  model.ipar=[length(fname);str2code(frmt);ievt;N;M;swap;offset;str2code(fname);
+  model.ipar=[length(fname);_str2code(frmt);ievt;N;M;swap;offset;_str2code(fname);
              tmask;outmask]
   model.blocktype='d'
   model.dep_ut=[%f %f]
index 0b0b39c..85112cb 100644 (file)
@@ -154,13 +154,13 @@ function [x,y,typ] = READC_f(job,arg1,arg2)
 
                     ipar = [ ...
                         length(fname1); ...
-                        str2code(frmt1); ...
+                        _str2code(frmt1); ...
                         ievt; ...
                         N; ...
                         M; ...
                         swap; ...
                         offset; ...
-                        str2code(fname1); ...
+                        _str2code(fname1); ...
                         tmask1; ...
                         outmask(:) ...
                         ];
@@ -198,8 +198,8 @@ function [x,y,typ] = READC_f(job,arg1,arg2)
         nout = size(outmask,"*")
 
         ipar = [ ...
-            length(fname); str2code(frmt); ievt; N; M; ...
-            swap;offset; str2code(fname); tmask; outmask ...
+            length(fname); _str2code(frmt); ievt; N; M; ...
+            swap;offset; _str2code(fname); tmask; outmask ...
             ];
 
         model = scicos_model()
@@ -209,8 +209,8 @@ function [x,y,typ] = READC_f(job,arg1,arg2)
         model.evtout = []
         model.dstate = [1; 1; lunit; zeros(N*M,1)]
         model.ipar = [ ...
-          length(fname); str2code(frmt); ievt; N; M; ...
-          swap; offset;str2code(fname); ...
+          length(fname); _str2code(frmt); ievt; N; M; ...
+          swap; offset;_str2code(fname); ...
           tmask; outmask ...
           ];
 
index 302ec55..a543473 100644 (file)
@@ -150,8 +150,8 @@ function [x, y, typ] = RFILE_f(job,arg1,arg2)
                             length(frmt1); ...
                             ievt; ...
                             N; ...
-                            str2code(fname1); ...
-                            str2code(frmt1); ...
+                            _str2code(fname1); ...
+                            _str2code(frmt1); ...
                             tmask1; ...
                             outmask(:) ...
                         ];
@@ -185,7 +185,7 @@ function [x, y, typ] = RFILE_f(job,arg1,arg2)
         outmask = 1
         ipar = [ ...
             length(fname);length(frmt);0;N; ...
-            str2code(fname);str2code(frmt); ...
+            _str2code(fname);_str2code(frmt); ...
             tmask;outmask ...
             ];
 
@@ -197,7 +197,7 @@ function [x, y, typ] = RFILE_f(job,arg1,arg2)
         model.dstate = dstate
         model.ipar = [ ...
                 length(fname);length(frmt);0;N; ...
-                str2code(fname);str2code(frmt); ...
+                _str2code(fname);_str2code(frmt); ...
                 tmask;outmask ...
                 ];
 
index 259bbfc..3f9a09a 100644 (file)
           xmlns:db="http://docbook.org/ns/docbook">
   <info>
     <pubdate>$LastChangedDate: 2006-08-08 16:57:13 +0200 (Tue, 08 Aug 2006)
-    $</pubdate>
+      $
+    </pubdate>
   </info>
-
+  
   <refnamediv>
     <refname>code2str</refname>
-
+    
     <refpurpose>returns character string associated with Scilab integer
-    codes.</refpurpose>
+      codes. <emphasis role="bold">This function is obsolete.</emphasis>
+    </refpurpose>
   </refnamediv>
-
+  
   <refsynopsisdiv>
     <title>Calling Sequence</title>
-
+    
     <synopsis>str=code2str(c)</synopsis>
   </refsynopsisdiv>
-
+  
   <refsection>
     <title>Arguments</title>
-
+    
     <variablelist>
       <varlistentry>
         <term>str</term>
-
+        
         <listitem>
           <para>A character string</para>
         </listitem>
       </varlistentry>
-
+      
       <varlistentry>
         <term>c</term>
-
+        
         <listitem>
           <para>vector of character integer codes</para>
         </listitem>
       </varlistentry>
     </variablelist>
   </refsection>
-
+  
   <refsection>
     <title>Description</title>
-
+    
     <para>Returns character string associated with Scilab integer codes.str is
-    such that c(i) is the Scilab integer code of part(str,i))</para>
+      such that c(i) is the Scilab integer code of part(str,i))
+    </para>
   </refsection>
-
+  
   <refsection>
     <title>Examples</title>
-
+    
     <programlisting role="example"><![CDATA[ 
 code2str([-28 12 18 21 10 11])
 str2code('Scilab')' 
  ]]></programlisting>
   </refsection>
-
+  
   <refsection role="see also">
-<title>See Also</title>
-
+    <title>See Also</title>
+    
     <simplelist type="inline">
-      <member><link linkend="str2code">str2code</link></member>
-
-      <member><link linkend="ascii">ascii</link></member>
+      <member>
+        <link linkend="str2code">str2code</link>
+      </member>
+      
+      <member>
+        <link linkend="ascii">ascii</link>
+      </member>
     </simplelist>
   </refsection>
+  
+  <refsection>
+    <title>History</title>
+    <revhistory>
+      <revision>
+        <revnumber>5.4.0</revnumber>
+        <revremark>This function will be removed in Scilab 5.4.1</revremark>
+      </revision>
+    </revhistory>
+  </refsection>
+  
 </refentry>
index 7bfecb4..5858b36 100644 (file)
@@ -49,8 +49,6 @@
   <refsection>
     <title>Examples</title>
     <programlisting role="example"><![CDATA[ 
-isascii(code2str(300))
-isascii(code2str(-11))
 letters = [115.    99.    105.    108.    97.    98.]
 isascii(letters)
 ascii(letters)
index fd53e9c..d0a3ef3 100644 (file)
           xmlns:db="http://docbook.org/ns/docbook">
   <info>
     <pubdate>$LastChangedDate: 2006-08-08 16:57:13 +0200 (Tue, 08 Aug 2006)
-    $</pubdate>
+      $
+    </pubdate>
   </info>
-
+  
   <refnamediv>
     <refname>str2code</refname>
-
+    
     <refpurpose>return scilab integer codes associated with a character
-    string</refpurpose>
+      string. <emphasis role="bold">This function is obsolete.</emphasis>
+    </refpurpose>
   </refnamediv>
-
+  
   <refsynopsisdiv>
     <title>Calling Sequence</title>
-
+    
     <synopsis>c=str2code(str)</synopsis>
   </refsynopsisdiv>
-
+  
   <refsection>
     <title>Arguments</title>
-
+    
     <variablelist>
       <varlistentry>
         <term>str</term>
-
+        
         <listitem>
           <para>A character string.</para>
         </listitem>
       </varlistentry>
-
+      
       <varlistentry>
         <term>c</term>
-
+        
         <listitem>
           <para>A vector of character integer codes</para>
         </listitem>
       </varlistentry>
     </variablelist>
   </refsection>
-
+  
   <refsection>
     <title>Description</title>
-
+    
     <para>Return c such that c(i) is the scilab integer code of
-    part(str,i))</para>
+      part(str,i))
+    </para>
   </refsection>
-
+  
   <refsection>
     <title>Examples</title>
-
+    
     <programlisting role="example"><![CDATA[ 
 str2code('Scilab')'
 code2str([-28 12 18 21 10 11])
  ]]></programlisting>
   </refsection>
-
+  
   <refsection role="see also">
-<title>See Also</title>
-
+    <title>See Also</title>
+    
     <simplelist type="inline">
-      <member><link linkend="code2str">code2str</link></member>
-
-      <member><link linkend="ascii">ascii</link></member>
+      <member>
+        <link linkend="code2str">code2str</link>
+      </member>
+      
+      <member>
+        <link linkend="ascii">ascii</link>
+      </member>
     </simplelist>
   </refsection>
+  
+  <refsection>
+    <title>History</title>
+    <revhistory>
+      <revision>
+        <revnumber>5.4.0</revnumber>
+        <revremark>This function will be removed in Scilab 5.4.1</revremark>
+      </revision>
+    </revhistory>
+  </refsection>
+  
 </refentry>
index cfe303b..d608754 100644 (file)
@@ -80,13 +80,4 @@ ascii([115 99 105 108 97 98])
  ]]></programlisting>
   </refsection>
 
-  <refsection role="see also">
-    <title>参照</title>
-
-    <simplelist type="inline">
-      <member><link linkend="code2str">code2str</link></member>
-
-      <member><link linkend="str2code">str2code</link></member>
-    </simplelist>
-  </refsection>
 </refentry>
diff --git a/scilab/modules/string/help/ja_JP/code2str.xml b/scilab/modules/string/help/ja_JP/code2str.xml
deleted file mode 100644 (file)
index 435a458..0000000
+++ /dev/null
@@ -1,87 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - 
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- -->
-<refentry version="5.0-subset Scilab" xml:id="code2str" xml:lang="ja"
-          xmlns="http://docbook.org/ns/docbook"
-          xmlns:xlink="http://www.w3.org/1999/xlink"
-          xmlns:svg="http://www.w3.org/2000/svg"
-          xmlns:ns3="http://www.w3.org/1999/xhtml"
-          xmlns:mml="http://www.w3.org/1998/Math/MathML"
-          xmlns:db="http://docbook.org/ns/docbook">
-  <info>
-    <pubdate>$LastChangedDate: 2006-08-08 16:57:13 +0200 (Tue, 08 Aug 2006)
-    $</pubdate>
-  </info>
-
-  <refnamediv>
-    <refname>code2str</refname>
-
-    <refpurpose>
-       Scilab整数コードが示す文字列を返す.</refpurpose>
-  </refnamediv>
-
-  <refsynopsisdiv>
-    <title>呼び出し手順</title>
-
-    <synopsis>str=code2str(c)</synopsis>
-  </refsynopsisdiv>
-
-  <refsection>
-    <title>パラメータ</title>
-
-    <variablelist>
-      <varlistentry>
-        <term>str</term>
-
-        <listitem>
-          <para>文字列</para>
-        </listitem>
-      </varlistentry>
-
-      <varlistentry>
-        <term>c</term>
-
-        <listitem>
-          <para>整数コードを表す文字のベクトル</para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
-
-  <refsection>
-    <title>説明</title>
-
-    <para>
-       Scilab整数コードが示す文字列を返します.
-       str は c(i) が part(str,i) のScilab整数コードであるような
-       文字列です.</para>
-  </refsection>
-
-  <refsection>
-    <title>例</title>
-
-    <programlisting role="example"><![CDATA[ 
-code2str([-28 12 18 21 10 11])
-str2code('Scilab')' 
- ]]></programlisting>
-  </refsection>
-
-  <refsection role="see also">
-    <title>参照</title>
-
-    <simplelist type="inline">
-      <member><link linkend="str2code">str2code</link></member>
-
-      <member><link linkend="ascii">ascii</link></member>
-    </simplelist>
-  </refsection>
-</refentry>
index 7337098..29a62ff 100644 (file)
@@ -49,8 +49,6 @@
   <refsection>
     <title>例</title>
     <programlisting role="example"><![CDATA[ 
-isascii(code2str(300))
-isascii(code2str(-11))
 letters = [115.    99.    105.    108.    97.    98.]
 isascii(letters)
 ascii(letters)
diff --git a/scilab/modules/string/help/ja_JP/str2code.xml b/scilab/modules/string/help/ja_JP/str2code.xml
deleted file mode 100644 (file)
index 8ef93e8..0000000
+++ /dev/null
@@ -1,86 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - 
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- -->
-<refentry version="5.0-subset Scilab" xml:id="str2code" xml:lang="ja"
-          xmlns="http://docbook.org/ns/docbook"
-          xmlns:xlink="http://www.w3.org/1999/xlink"
-          xmlns:svg="http://www.w3.org/2000/svg"
-          xmlns:ns3="http://www.w3.org/1999/xhtml"
-          xmlns:mml="http://www.w3.org/1998/Math/MathML"
-          xmlns:db="http://docbook.org/ns/docbook">
-  <info>
-    <pubdate>$LastChangedDate: 2006-08-08 16:57:13 +0200 (Tue, 08 Aug 2006)
-    $</pubdate>
-  </info>
-
-  <refnamediv>
-    <refname>str2code</refname>
-
-    <refpurpose>
-       文字列が示すScilab整数コードを返す</refpurpose>
-  </refnamediv>
-
-  <refsynopsisdiv>
-    <title>呼び出し手順</title>
-
-    <synopsis>c=str2code(str)</synopsis>
-  </refsynopsisdiv>
-
-  <refsection>
-    <title>パラメータ</title>
-
-    <variablelist>
-      <varlistentry>
-        <term>str</term>
-
-        <listitem>
-          <para>文字列.</para>
-        </listitem>
-      </varlistentry>
-
-      <varlistentry>
-        <term>c</term>
-
-        <listitem>
-          <para>文字整数コードのベクトル</para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
-
-  <refsection>
-    <title>説明</title>
-
-    <para>
-       c(i)がpart(str,i))のScilab整数コードとなるような
-       cを返します.</para>
-  </refsection>
-
-  <refsection>
-    <title>例</title>
-
-    <programlisting role="example"><![CDATA[ 
-str2code('Scilab')'
-code2str([-28 12 18 21 10 11])
- ]]></programlisting>
-  </refsection>
-
-  <refsection role="see also">
-    <title>参照</title>
-
-    <simplelist type="inline">
-      <member><link linkend="code2str">code2str</link></member>
-
-      <member><link linkend="ascii">ascii</link></member>
-    </simplelist>
-  </refsection>
-</refentry>
index 9525341..b00eeee 100644 (file)
@@ -78,13 +78,4 @@ ascii([115 99 105 108 97 98])
  ]]></programlisting>
   </refsection>
 
-  <refsection>
-    <title>Ver Também</title>
-
-    <simplelist type="inline">
-      <member><link linkend="code2str">code2str</link></member>
-
-      <member><link linkend="str2code">str2code</link></member>
-    </simplelist>
-  </refsection>
 </refentry>
diff --git a/scilab/modules/string/help/pt_BR/code2str.xml b/scilab/modules/string/help/pt_BR/code2str.xml
deleted file mode 100644 (file)
index f5ad706..0000000
+++ /dev/null
@@ -1,85 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - 
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- -->
-<refentry version="5.0-subset Scilab" xml:id="code2str" xml:lang="en"
-          xmlns="http://docbook.org/ns/docbook"
-          xmlns:xlink="http://www.w3.org/1999/xlink"
-          xmlns:svg="http://www.w3.org/2000/svg"
-          xmlns:ns3="http://www.w3.org/1999/xhtml"
-          xmlns:mml="http://www.w3.org/1998/Math/MathML"
-          xmlns:db="http://docbook.org/ns/docbook">
-  <info>
-    <pubdate>$LastChangedDate: 2006-08-08 16:57:13 +0200 (Tue, 08 Aug 2006)
-    $</pubdate>
-  </info>
-
-  <refnamediv>
-    <refname>code2str</refname>
-
-    <refpurpose>retorna o string associado ao código Scilab
-    inteiro</refpurpose>
-  </refnamediv>
-
-  <refsynopsisdiv>
-    <title>Seqüência de Chamamento</title>
-
-    <synopsis>str=code2str(c)</synopsis>
-  </refsynopsisdiv>
-
-  <refsection>
-    <title>Parâmetros</title>
-
-    <variablelist>
-      <varlistentry>
-        <term>str</term>
-
-        <listitem>
-          <para>string</para>
-        </listitem>
-      </varlistentry>
-
-      <varlistentry>
-        <term>c</term>
-
-        <listitem>
-          <para>vetor de códigos de caracteres inteiros</para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
-
-  <refsection>
-    <title>Descrição</title>
-
-    <para>Retorna o string associado ao código Scilab inteiro. str é tal que
-    c(i) é o código Scilab inteiro de part(str,i))</para>
-  </refsection>
-
-  <refsection>
-    <title>Exemplos</title>
-
-    <programlisting role="example"><![CDATA[ 
-code2str([-28 12 18 21 10 11])
-str2code('Scilab')' 
- ]]></programlisting>
-  </refsection>
-
-  <refsection>
-    <title>Ver também</title>
-
-    <simplelist type="inline">
-      <member><link linkend="str2code">str2code</link></member>
-
-      <member><link linkend="ascii">ascii</link></member>
-    </simplelist>
-  </refsection>
-</refentry>
index 441afcd..d0b70b9 100644 (file)
@@ -68,8 +68,6 @@
     <title>Exemplos</title>
 
     <programlisting role="example"><![CDATA[ 
-isascii(code2str(300))
-isascii(code2str(-11))
 letters = [115.    99.    105.    108.    97.    98.]
 isascii(letters)
 ascii(letters)
diff --git a/scilab/modules/string/help/pt_BR/str2code.xml b/scilab/modules/string/help/pt_BR/str2code.xml
deleted file mode 100644 (file)
index 6f606a4..0000000
+++ /dev/null
@@ -1,85 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA - 
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- -->
-<refentry version="5.0-subset Scilab" xml:id="str2code" xml:lang="en"
-          xmlns="http://docbook.org/ns/docbook"
-          xmlns:xlink="http://www.w3.org/1999/xlink"
-          xmlns:svg="http://www.w3.org/2000/svg"
-          xmlns:ns3="http://www.w3.org/1999/xhtml"
-          xmlns:mml="http://www.w3.org/1998/Math/MathML"
-          xmlns:db="http://docbook.org/ns/docbook">
-  <info>
-    <pubdate>$LastChangedDate: 2006-08-08 16:57:13 +0200 (Tue, 08 Aug 2006)
-    $</pubdate>
-  </info>
-
-  <refnamediv>
-    <refname>str2code</refname>
-
-    <refpurpose>retorna códigos scilab inteiros associados aos caracteres do
-    string</refpurpose>
-  </refnamediv>
-
-  <refsynopsisdiv>
-    <title>Seqüência de Chamamento</title>
-
-    <synopsis>c=str2code(str)</synopsis>
-  </refsynopsisdiv>
-
-  <refsection>
-    <title>Parâmetros</title>
-
-    <variablelist>
-      <varlistentry>
-        <term>str</term>
-
-        <listitem>
-          <para>um string</para>
-        </listitem>
-      </varlistentry>
-
-      <varlistentry>
-        <term>c</term>
-
-        <listitem>
-          <para>um vetor de códigos de caracteres inteiros</para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
-
-  <refsection>
-    <title>Descrição</title>
-
-    <para>Retorna c tal que c(i) é o código scilab inteiro de
-    part(str,i))</para>
-  </refsection>
-
-  <refsection>
-    <title>Exemplos</title>
-
-    <programlisting role="example"><![CDATA[ 
-str2code('Scilab')'
-code2str([-28 12 18 21 10 11])
- ]]></programlisting>
-  </refsection>
-
-  <refsection>
-    <title>Ver Também</title>
-
-    <simplelist type="inline">
-      <member><link linkend="code2str">code2str</link></member>
-
-      <member><link linkend="ascii">ascii</link></member>
-    </simplelist>
-  </refsection>
-</refentry>
index 9dbdc2d..1ee073d 100644 (file)
@@ -47,7 +47,9 @@ static gw_generic_table Tab[] =
        {sci_strtok,"strtok"},
        {sci_strspn,"strspn"},
        {sci_strtod,"strtod"},
-       {sci_regexp,"regexp"}
+       {sci_regexp,"regexp"},
+    {sci_str2code,"_str2code"},
+    {sci_code2str,"_code2str"}
 };
 /*--------------------------------------------------------------------------*/
 int gw_string(void)
index 1c9653c..b4b27de 100644 (file)
@@ -23,6 +23,8 @@
 #include "code2str.h"
 #include "Scierror.h"
 #include "freeArrayOfString.h"
+#include "warningmode.h"
+#include "sciprint.h"
 /*--------------------------------------------------------------------------*/
 int sci_code2str(char *fname,unsigned long fname_len)
 {
@@ -37,6 +39,16 @@ int sci_code2str(char *fname,unsigned long fname_len)
        CheckRhs(1,1);
        CheckLhs(1,1);
 
+    if (strcmp(fname, "code2str") == 0)
+    {
+        if (getWarningMode())
+        {
+            sciprint(_("%s: Feature %s is obsolete.\n"), _("Warning"), fname);
+            sciprint(_("%s: Please use %s instead.\n"), _("Warning"), "ascii");
+            sciprint(_("%s: This feature will be permanently removed in Scilab %s\n\n"), _("Warning"), "5.4.1");
+        }
+    }
+
        if (VarType(1) == sci_matrix)
        {
                int Stack_position = 0;
index d247d65..eecffe5 100644 (file)
 #include "Scierror.h"
 #include "localization.h"
 #include "freeArrayOfString.h"
+#include "warningmode.h"
+#include "sciprint.h"
 /*----------------------------------------------------------------------------*/
 int sci_str2code(char *fname,unsigned long fname_len)
 {
        CheckRhs(1,1);
        CheckLhs(1,1);
 
+    if (strcmp(fname, "str2code") == 0)
+    {
+        if (getWarningMode())
+        {
+            sciprint(_("%s: Feature %s is obsolete.\n"), _("Warning"), fname);
+            sciprint(_("%s: Please use %s instead.\n"), _("Warning"), "ascii");
+            sciprint(_("%s: This feature will be permanently removed in Scilab %s\n\n"), _("Warning"), "5.4.1");
+        }
+    }
+
        if (VarType(1) == sci_strings)
        {
                char **Input_String = NULL;
index 5ee1f95..3bf9046 100644 (file)
@@ -65,4 +65,7 @@
 <PRIMITIVE gatewayId="21" primitiveId="28" primitiveName="strspn" />
 <PRIMITIVE gatewayId="21" primitiveId="29" primitiveName="strtod" />
 <PRIMITIVE gatewayId="21" primitiveId="30" primitiveName="regexp" />
+<PRIMITIVE gatewayId="21" primitiveId="31" primitiveName="_str2code" />
+<PRIMITIVE gatewayId="21" primitiveId="32" primitiveName="_code2str" />
+
 </GATEWAY>
\ No newline at end of file
index 84d20f8..61903ed 100644 (file)
@@ -12,6 +12,6 @@
 // <-- BENCH NB RUN : 1000000 -->
 
 // <-- BENCH START -->
-a = code2str(-(10:35));
+a = _code2str(-(10:35));
 // <-- BENCH END -->
 
index 5913ba1..e56e519 100644 (file)
@@ -13,6 +13,6 @@ text     = mgetl(SCI+"/modules/string/tests/benchmarks/ascii_text.txt");
 text_cat = strcat(text);
 
 // <-- BENCH START -->
-a = str2code(text_cat);
+a = _str2code(text_cat);
 // <-- BENCH END -->
 
index 6854c2d..524bf37 100644 (file)
@@ -16,7 +16,7 @@ REF_4_1_2 = 0;
 BEFORE_USED = BEFORE_TOTAL - BEFORE_FREE;
 
 for i=1:NB_LOOPS
-  r = code2str([-28 12 18 21 10 11]);
+  r = _code2str([-28 12 18 21 10 11]);
   clear r;
 end  
 
index 2f38ee4..e869b75 100644 (file)
@@ -17,7 +17,7 @@ REF_4_1_2 = 0;
 
 
 for i=1:NB_LOOPS 
-  r = isascii(code2str(200:350));
+  r = isascii(ascii(100:250));
   clear r;
 end  
 
index b0f7b6d..9f64634 100644 (file)
@@ -16,7 +16,7 @@ REF_4_1_2 = 0;
 [BEFORE_FREE,BEFORE_TOTAL] = getmemory();
 
 for i=1:NB_LOOPS
-  r = str2code('0123456789');
+  r = _str2code('0123456789');
   clear r;
 end  
 
index 770e032..680d8a4 100644 (file)
@@ -8,11 +8,11 @@
 //===============================
 // unit tests code2str
 //===============================
-if code2str(10:35)<>'abcdefghijklmnopqrstuvwxyz' then bugmes();quit;end
-if code2str(-(10:35))<>'ABCDEFGHIJKLMNOPQRSTUVWXYZ' then bugmes();quit;end
-if code2str(0:9)<>'0123456789' then bugmes();quit;end
-if code2str([])<>emptystr() then bugmes();quit;end
+if _code2str(10:35)<>'abcdefghijklmnopqrstuvwxyz' then bugmes();quit;end
+if _code2str(-(10:35))<>'ABCDEFGHIJKLMNOPQRSTUVWXYZ' then bugmes();quit;end
+if _code2str(0:9)<>'0123456789' then bugmes();quit;end
+if _code2str([])<>emptystr() then bugmes();quit;end
 //===============================
-s = code2str([-28 12 18 21 10 11]);
+s = _code2str([-28 12 18 21 10 11]);
 if (s <>'Scilab') then bugmes();quit;end
 //===============================
index 002bfd1..f9e1de7 100644 (file)
 //===============================
 // unit tests code2str
 //===============================
-if code2str(10:35)<>'abcdefghijklmnopqrstuvwxyz' then pause,end
-if code2str(-(10:35))<>'ABCDEFGHIJKLMNOPQRSTUVWXYZ' then pause,end
-if code2str(0:9)<>'0123456789' then pause,end
-if code2str([])<>emptystr() then pause,end
+if _code2str(10:35)<>'abcdefghijklmnopqrstuvwxyz' then pause,end
+if _code2str(-(10:35))<>'ABCDEFGHIJKLMNOPQRSTUVWXYZ' then pause,end
+if _code2str(0:9)<>'0123456789' then pause,end
+if _code2str([])<>emptystr() then pause,end
 //===============================
-s = code2str([-28 12 18 21 10 11]);
+s = _code2str([-28 12 18 21 10 11]);
 if (s <>'Scilab') then pause,end
 //===============================
index 7a843d4..4bf60a3 100644 (file)
@@ -15,9 +15,9 @@ if or(isascii(255:300)) <> %F then bugmes();quit;end
 // =============================================================================
 if or(isascii('This is a sentence')) <> %T then bugmes();quit;end
 // =============================================================================
-if isascii(code2str(120)) <> %T then bugmes();quit;end
+if isascii(ascii(20)) <> %T then bugmes();quit;end
 // =============================================================================
-if or(isascii(code2str(120:150))) <> %T then bugmes();quit;end
+if or(isascii(ascii(20:50))) <> %T then bugmes();quit;end
 // =============================================================================
 tab_ref = [
 "世界A您好",
index af6b779..06d015b 100644 (file)
@@ -17,9 +17,9 @@ if or(isascii(255:300)) <> %F then pause,end
 // =============================================================================
 if or(isascii('This is a sentence')) <> %T then pause,end
 // =============================================================================
-if isascii(code2str(120)) <> %T then pause,end
+if isascii(ascii(20)) <> %T then pause,end
 // =============================================================================
-if or(isascii(code2str(120:150))) <> %T then pause,end
+if or(isascii(ascii(20:50))) <> %T then pause,end
 // =============================================================================
 tab_ref = [
 "世界A您好",
index cd2b3e6..2e31fe3 100644 (file)
@@ -8,10 +8,10 @@
 //===============================
 // unit tests str2code
 //===============================
-if or(str2code('abcdefghijklmnopqrstuvwxyz')<>(10:35)') then bugmes();quit;end
-if or(str2code('ABCDEFGHIJKLMNOPQRSTUVWXYZ')<>-(10:35)') then bugmes();quit;end
-if or(str2code('0123456789')<>(0:9)') then bugmes();quit;end
-if str2code(emptystr())<>[] then bugmes();quit;end
+if or(_str2code('abcdefghijklmnopqrstuvwxyz')<>(10:35)') then bugmes();quit;end
+if or(_str2code('ABCDEFGHIJKLMNOPQRSTUVWXYZ')<>-(10:35)') then bugmes();quit;end
+if or(_str2code('0123456789')<>(0:9)') then bugmes();quit;end
+if _str2code(emptystr())<>[] then bugmes();quit;end
 //===============================
-if str2code('Scilab') <> [-28;12;18;21;10;11] then bugmes();quit;end
+if _str2code('Scilab') <> [-28;12;18;21;10;11] then bugmes();quit;end
 //===============================
index a0ae695..4a581b8 100644 (file)
 //===============================
 // unit tests str2code
 //===============================
-if or(str2code('abcdefghijklmnopqrstuvwxyz')<>(10:35)') then pause,end
-if or(str2code('ABCDEFGHIJKLMNOPQRSTUVWXYZ')<>-(10:35)') then pause,end
-if or(str2code('0123456789')<>(0:9)') then pause,end
-if str2code(emptystr())<>[] then pause,end
+if or(_str2code('abcdefghijklmnopqrstuvwxyz')<>(10:35)') then pause,end
+if or(_str2code('ABCDEFGHIJKLMNOPQRSTUVWXYZ')<>-(10:35)') then pause,end
+if or(_str2code('0123456789')<>(0:9)') then pause,end
+if _str2code(emptystr())<>[] then pause,end
 //===============================
-if str2code('Scilab') <> [-28;12;18;21;10;11] then pause,end
+if _str2code('Scilab') <> [-28;12;18;21;10;11] then pause,end
 //===============================
index 7d2f3b4..b3f7ac7 100644 (file)
@@ -56,12 +56,12 @@ if ( r <> [TAB_CHAR + '  123   '+TAB_CHAR,'xyz'] ) then bugmes();quit;end
 //===============================
 STRING = ' '+ascii(9)+' '+'S'+' '+ascii(9)+'C'+' '+ascii(9)+'I'+' '+ascii(9)+'L'+' '+ascii(9)+'A'+' '+ascii(9)+'B'+' '+ascii(9)+' ';
 //===============================
-R1 = str2code('!'+stripblanks(STRING,%T)+'!');
-W1 = [  38.;  - 28.;    40.;  - 40.;  - 12.;    40.;  - 40.;  - 18.;    40.;  - 40.;  - 21.;    40.;  - 40.;  - 10.; 40.;  - 40.;  - 11.;    38];
+R1 = ascii('!'+stripblanks(STRING,%T)+'!');
+W1 = [33.    83.    32.    9.    67.    32.    9.    73.    32.    9.    76.    32.    9.    65.    32.    9.    66.    33.]; 
 if (R1 <> W1) then bugmes();quit;end
 //===============================
-R2 = str2code('!'+stripblanks(STRING,%F)+'!');
-W2 = [38.;  - 40.;   40.;  - 28.;    40.;  - 40.;  - 12.;    40.;  - 40.;  - 18.;    40.;  - 40.;  - 21.;    40.;  - 40.;  - 10.;    40.;  - 40.;  - 11.;    40.;  - 40.;    38.];
+R2 = ascii('!'+stripblanks(STRING,%F)+'!');
+W2 = [33.    9.    32.    83.    32.    9.    67.    32.    9.    73.    32.    9.    76.    32.    9.    65.    32.    9.    66.    32.    9.    33. ];
 if (R2 <> W2) then bugmes();quit;end
 // = strings with only blank character =========================================
 if(stripblanks("")<>"")              then bugmes();quit;end
index 002fd52..25a5a2c 100644 (file)
@@ -58,12 +58,12 @@ if ( r <> [TAB_CHAR + '  123   '+TAB_CHAR,'xyz'] ) then pause,end
 //===============================
 STRING = ' '+ascii(9)+' '+'S'+' '+ascii(9)+'C'+' '+ascii(9)+'I'+' '+ascii(9)+'L'+' '+ascii(9)+'A'+' '+ascii(9)+'B'+' '+ascii(9)+' ';
 //===============================
-R1 = str2code('!'+stripblanks(STRING,%T)+'!');
-W1 = [  38.;  - 28.;    40.;  - 40.;  - 12.;    40.;  - 40.;  - 18.;    40.;  - 40.;  - 21.;    40.;  - 40.;  - 10.; 40.;  - 40.;  - 11.;    38]; 
+R1 = ascii('!'+stripblanks(STRING,%T)+'!');
+W1 = [33.    83.    32.    9.    67.    32.    9.    73.    32.    9.    76.    32.    9.    65.    32.    9.    66.    33.]; 
 if (R1 <> W1) then pause,end
 //===============================
-R2 = str2code('!'+stripblanks(STRING,%F)+'!');
-W2 = [38.;  - 40.;   40.;  - 28.;    40.;  - 40.;  - 12.;    40.;  - 40.;  - 18.;    40.;  - 40.;  - 21.;    40.;  - 40.;  - 10.;    40.;  - 40.;  - 11.;    40.;  - 40.;    38.];
+R2 = ascii('!'+stripblanks(STRING,%F)+'!');
+W2 = [33.    9.    32.    83.    32.    9.    67.    32.    9.    73.    32.    9.    76.    32.    9.    65.    32.    9.    66.    32.    9.    33. ];
 if (R2 <> W2) then pause,end
 
 // = strings with only blank character =========================================
index e8ce94c..cf77f06 100644 (file)
@@ -38,7 +38,7 @@ function [col, mark] = ana_style(style)
   tab_mark = ["." "+" "x" "*" "D" "d" "^" "v" "o"]
   num_mark = [ 0   1   2   3   4   5   6   7   9 ]
 
-  deff("[b] = is_digit(c)",[ "code = str2code(c)";...
+  deff("[b] = is_digit(c)",[ "code = _str2code(c)";...
                             "b = 0 <= code & code <= 9" ])
   n = length(style)
   if n >= 1 then
index c528032..9c9e422 100644 (file)
@@ -46,7 +46,7 @@ function formatStr = getW2Fformat(scs_m, idxBlock)
 //      ipar(5:4+lfil) ............. character codes for filename
 //      ipar(5+lfil:4+lfil+lfmt) ... character codes for format if any
 //
-//    Tip: convert from ASCII to human-readable => code2str(ipar)
+//    Tip: convert from ASCII to human-readable => _code2str(ipar)
 //                                                                          
 //  2008/03/31  Laurent Vaylet    Creation
 //  YYYY/MM/DD  ???               Modification: ???
@@ -54,6 +54,6 @@ function formatStr = getW2Fformat(scs_m, idxBlock)
 
 //-- Retrieve format and convert to human-readable string
 ipar = scs_m.objs(idxBlock).model.ipar
-formatStr = code2str(ipar(5+ipar(1):4+ipar(1)+ipar(2)))
+formatStr = _code2str(ipar(5+ipar(1):4+ipar(1)+ipar(2)))
 endfunction
 
index 551d19f..d5bdb49 100644 (file)
@@ -52,6 +52,6 @@ function filename = getW2Foutput(scs_m, idxBlock)
 
 //-- Retrieve filename and convert to human-readable string
 ipar = scs_m.objs(idxBlock).model.ipar
-filename = code2str(ipar(5:4+ipar(1)))
+filename = _code2str(ipar(5:4+ipar(1)))
 endfunction
 
index 3446321..cf6e7be 100644 (file)
@@ -59,7 +59,7 @@ lfil = iparIO(1);
 lfmt = iparIO(2);
 
 //-- Set new filename ...
-iparIO = [iparIO(1:4) ; str2code(newName) ; iparIO(5+lfil:$)];
+iparIO = [iparIO(1:4) ; _str2code(newName) ; iparIO(5+lfil:$)];
 //-- ... and new filename length
 iparIO(1) = length(newName);
 
index 62d3ea5..a3c9345 100644 (file)
@@ -49,7 +49,7 @@ function scs_m = setW2Fformat(scs_m, idxBlock, formatStr)
 //      ipar(5:4+lfil) ............. character codes for filename
 //      ipar(5+lfil:4+lfil+lfmt) ... character codes for format if any
 //
-//    Tip: convert from ASCII to human-readable => code2str(ipar)
+//    Tip: convert from ASCII to human-readable => _code2str(ipar)
 //                                                                          
 //  2008/03/31  Laurent Vaylet    Creation
 //  YYYY/MM/DD  ???               Modification: ???
@@ -60,7 +60,7 @@ lfil = ipar(1);
 lfmt = ipar(2);
 
 //-- Set new format...
-ipar = [ipar(1:5+lfil-1) ; str2code(formatStr)];
+ipar = [ipar(1:5+lfil-1) ; _str2code(formatStr)];
 //-- ... and new format length
 ipar(2) = length(formatStr);