File: getd.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 (25 lines) | stat: -rw-r--r-- 729 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
 
function getd(path)
// get all .sci files in the specified directory
// Copyright INRIA
[lhs,rhs]=argn(0)
if rhs<=0 then path='./',end
path=stripblanks(path)
if part(path,length(path))<>'/' then path=path+'/',end
if part(path,1:4)=='SCI/' then path=SCI+part(path,4:length(path)),end
if part(path,1:2)=='~/' then path=getenv('HOME')+part(path,2:length(path)),end
if getenv('WIN32','NO')=='OK' & getenv('COMPILER','NO')=='VC++' then
  lst=unix_g('dir '+path+'*.sci')
else
  lst=unix_g('ls '+path+'*.sci')
end

nold=size(who('get'),'*')
prot=funcprot();funcprot(0)
for k=1:size(lst,'*')
  getf(lst(k))
end
funcprot(prot)

new=who('get')
new=new(1:(size(new,'*')-nold-2))
execstr('['+strcat(new,',')+']=resume('+strcat(new,',')+')')