genlib_old is no longer used 36/9836/2
Sylvestre Ledru [Wed, 28 Nov 2012 14:39:51 +0000 (15:39 +0100)]
Change-Id: Iee80add9d5dc06f6cedb839f7ba556e6be15d793

scilab/modules/functions/locales/functions.pot
scilab/modules/functions/locales/ja_JP.po
scilab/modules/functions/macros/genlib_old.sci [deleted file]

index f213d0f..bd3de6c 100644 (file)
@@ -210,7 +210,6 @@ msgstr ""
 
 #
 # File: macros/genlib.sci, line: 119
-# File: macros/genlib_old.sci, line: 52
 #, c-format
 msgid "%s: No files with extension %s found in %s\n"
 msgstr ""
@@ -223,35 +222,30 @@ msgstr ""
 
 #
 # File: macros/genlib.sci, line: 147
-# File: macros/genlib_old.sci, line: 72
 #, c-format
 msgid "%s: %s file compilation forced\n"
 msgstr ""
 
 #
 # File: macros/genlib.sci, line: 171
-# File: macros/genlib_old.sci, line: 93
 #, c-format
 msgid "%s: Processing file: %s\n"
 msgstr ""
 
 #
 # File: macros/genlib.sci, line: 191
-# File: macros/genlib_old.sci, line: 104
 #, c-format
 msgid "%s: Regenerate names and lib\n"
 msgstr ""
 
 #
 # File: macros/genlib.sci, line: 207
-# File: macros/genlib_old.sci, line: 114
 #, c-format
 msgid "%s: %s file cannot be created\n"
 msgstr ""
 
 #
 # File: macros/genlib.sci, line: 218
-# File: macros/genlib_old.sci, line: 123
 #, c-format
 msgid ""
 "Library file %s has been updated,\n"
@@ -260,21 +254,18 @@ msgstr ""
 
 #
 # File: macros/genlib.sci, line: 239
-# File: macros/genlib_old.sci, line: 139
 #, c-format
 msgid "%s: Warning: Error in file %s : %s. File ignored\n"
 msgstr ""
 
 #
 # File: macros/genlib.sci, line: 261
-# File: macros/genlib_old.sci, line: 153
 #, c-format
 msgid "%s: Impossible to open file %s for writing\n"
 msgstr ""
 
 #
 # File: macros/genlib.sci, line: 273
-# File: macros/genlib_old.sci, line: 159
 #, c-format
 msgid "%s: File %s does not contain any function.\n"
 msgstr ""
index 632fe1f..59e912f 100644 (file)
@@ -127,7 +127,6 @@ msgstr "%s: 入力引数 #%d の型が間違っています: 文字列の行列
 
 #
 # File: macros/genlib.sci, line: 102
-# File: macros/genlib_old.sci, line: 72
 #, c-format
 msgid "%s: %s file compilation forced\n"
 msgstr "%s: %s ファイルの強制コンパイル\n"
@@ -142,14 +141,12 @@ msgstr "%s: names と lib を再度生成する\n"
 
 #
 # File: macros/genlib.sci, line: 151
-# File: macros/genlib_old.sci, line: 114
 #, c-format
 msgid "%s: %s file cannot be created\n"
 msgstr "%s: ファイル %s を作成できません。\n"
 
 #
 # File: macros/genlib.sci, line: 161
-# File: macros/genlib_old.sci, line: 123
 #, c-format
 msgid ""
 "Library file %s has been updated,\n"
@@ -160,21 +157,18 @@ msgstr ""
 
 #
 # File: macros/genlib.sci, line: 182
-# File: macros/genlib_old.sci, line: 139
 #, c-format
 msgid "%s: Warning: Error in file %s : %s. File ignored\n"
 msgstr "%s: 警告: ファイル %s でエラー : ファイル %s を無視します。\n"
 
 #
 # File: macros/genlib.sci, line: 204
-# File: macros/genlib_old.sci, line: 153
 #, c-format
 msgid "%s: Impossible to open file %s for writing\n"
 msgstr "%s: 書き込みのためのファイル %s を開くことができません。\n"
 
 #
 # File: macros/genlib.sci, line: 212
-# File: macros/genlib_old.sci, line: 159
 #, c-format
 msgid "%s: File %s does not contain any function.\n"
 msgstr "%s: ファイル %s は、どんな関数も含みません。\n"
diff --git a/scilab/modules/functions/macros/genlib_old.sci b/scilab/modules/functions/macros/genlib_old.sci
deleted file mode 100644 (file)
index c0d43b3..0000000
+++ /dev/null
@@ -1,164 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2006-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
-//
-// 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
-
-function genlib_old(nam,path,force,verbose,names)
-// Similar to genlib.
-// This function is only for compatibilty for old toolboxes where 
-// endfunction are missing
-  
-  if exists('force','local')==0 then force = %f,end
-  if exists('verbose','local')==0 then verbose = %f,end
-  
-  //
-  W=who('get');
-  np=predef();
-  predefined=or(W($-np+1:$)==nam);
-
-  
-  updatelib=%f //true if updating an already defined library
-
-  //check if a library with the same name exists
-  oldlib=[];old_path=[];old_names=[];
-  if exists(nam)==1 then 
-    execstr('oldlib='+nam)
-    if typeof(oldlib)=='library' then
-      //yes, get its path and function list
-      old_names=string(oldlib);clear oldlib
-      old_path=old_names(1);old_names(1)=[];
-    end
-  end
-  if exists('path','local')==0&old_path<>[] then
-    path=old_path
-    updatelib=%t
-  end
-    
-  // convert path according to getos() == 'Windows' flag 
-  // without env variable substitution
-  path1 = pathconvert(path,%t,%f); 
-  // with env subsitution 
-  path = pathconvert(path,%t,%t); 
-
-  if exists('names','local')==0 then 
-    // list the sci files 
-    files=listfiles(path+'*.sci',%f)
-    if files==[] | files== "" then 
-      error(msprintf(gettext("%s: No files with extension %s found in %s\n"),"genlib_old",".sci", path));
-    end
-    names = basename(files,%f);
-  else
-    files = path+names
-    names=strsubst(names,'.sci','')
-  end
-  
-  names_changed=%t
-  if updatelib then
-    if and(gsort(names)==gsort(old_names)) then names_changed=%f,end
-  end
-
-  modified=%f
-
-  if force == %t then 
-    modified = %t;
-    for i=1:size(files,'*')  // loop on .sci files
-      scif = files(i); 
-      if verbose then 
-       mprintf(gettext("%s: %s file compilation forced\n"),"genlib_old",names(i)+".sci");
-      end
-      // exec sci file and save functions it defines as a .bin file
-      getsave(scif);
-    end  
-  else
-     for i=1:size(files,'*')  // loop on .sci files
-       scif = files(i); 
-       binf = strsubst(scif,'.sci','.bin')
-       binf_info = fileinfo(binf); 
-       recompile = %f ; 
-       if binf_info == [] then 
-        recompile = %t ;
-       else 
-         scif_info = fileinfo(scif); 
-         if ( scif_info(6) > binf_info(6)) then 
-           recompile = %t ; 
-         end
-       end
-       if recompile == %t then 
-        if verbose then 
-          mprintf(gettext("%s: Processing file: %s\n"),"genlib_old",names(i)+".sci");
-        end
-        // getf sci file and save functions it defines as a .bin file
-        getsave(scif);
-        modified = %t;
-       end  
-     end
-  end
-  
-  if modified then 
-    if verbose then 
-      mprintf(gettext("%s: Regenerate names and lib\n"),"genlib_old");
-    end
-    
-    if names_changed
-      mputl(names,path+'names'); // write 'names' file in directory 
-    end
-    // create library
-    execstr(nam+'=lib('''+path1+''')')
-    //save it
-    if execstr('save('''+path1+'lib'''+','+nam+')','errcatch')<>0 then
-      error(msprintf(gettext("%s: %s file cannot be created\n"),"genlib_old",path+'lib'));
-    end
-  else
-     execstr(nam+'=lib('''+path1+''')')
-  end
-  if names_changed
-    if ~predefined then
-      execstr(nam+'=resume('+nam+')')
-    else
-      mprintf(gettext("Library file %s has been updated,\nbut cannot be loaded into Scilab because %s is a protected variable.\n"),path1+'lib',nam);
-    end
-  end
-endfunction
-
-
-function getsave(fl)
-// utility function 
-// performs a getf on file fl 
-
-  prot=funcprot();funcprot(0)
-  nold=size(who('get'),'*')
-
-  ierr=execstr('exec(fl)','errcatch') // get functions defined in file 'fl'
-  if ierr<>0 then
-    clear ierr
-    mprintf(gettext("%s: Warning: Error in file %s : %s. File ignored\n"),"genlib_old",fl,lasterror())
-  else
-    clear ierr
-    // lookfor names of the functions defined in file 'fl'
-    new=who('get')
-    new=new(1:(size(new,'*')-nold-1))
-    // create output file name
-    fl=strsubst(fl,'.sci','.bin')
-    // save all functions in the output file
-    [u,ierr]=mopen(fl,'wb')
-    if ierr<>0 then 
-      clear ierr
-      nf=length(fl)
-      if nf>40 then fl='...'+part(fl,nf-40:nf),end
-      error(msprintf(gettext("%s: Impossible to open file %s for writing\n"),"genlib_old",fl));
-    end
-    clear ierr
-    if new<>[] then 
-      execstr('save(u,'+strcat(new($:-1:1),',')+')'); 
-    else 
-      msprintf(gettext("%s: File %s does not contain any function.\n"),"genlib_old",fl)
-    end
-    mclose(u)
-  end
-  funcprot(prot)
-endfunction