File: translatepaths.sci

package info (click to toggle)
scilab 2.4-1
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 55,196 kB
  • ctags: 38,019
  • sloc: ansic: 231,970; fortran: 148,976; tcl: 7,099; makefile: 4,585; sh: 2,978; csh: 154; cpp: 101; asm: 39; sed: 5
file content (31 lines) | stat: -rw-r--r-- 814 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
function translatepaths(Paths,res_path)
// Copyright INRIA
if exists('m2scilib')==0 then load('SCI/macros/m2sci/lib'),end
logfile=%io(2)
Paths=stripblanks(Paths)
for k=1:size(Paths,'*')
  if part(Paths(k),length(Paths(k)))<>'/' then 
    Paths(k)=Paths(k)+'/',
  end
end
for k=1:size(Paths,'*')
  path=Paths(k)
  if getenv('WIN32','NO')=='OK' & getenv('COMPILER','NO')=='VC++' then 
    mfiles=unix_g('dir '+path+'*.m')
  else
    mfiles=unix_g('ls '+path+'*.m')
  end
  for k=1:size(mfiles,1)
    kk=strindex(mfiles(k),'/')
    fnam=part(mfiles(k),kk($)+1:length(mfiles(k))-2)
    
    mpath=mfiles(k)
    scipath=res_path+fnam+'.sci'
    scepath=res_path+fnam+'.sce'
    if newest(mpath,scipath)==mpath then
      if newest(mpath,scepath)==mpath then
	mfile2sci(mpath,res_path,%f,%t)
      end
    end
  end
end