File: getscilabkeywords.sci

package info (click to toggle)
scilab 4.0-12
  • links: PTS
  • area: non-free
  • in suites: etch, etch-m68k
  • size: 100,640 kB
  • ctags: 57,333
  • sloc: ansic: 377,889; fortran: 242,862; xml: 179,819; tcl: 42,062; sh: 10,593; ml: 9,441; makefile: 4,377; cpp: 1,354; java: 621; csh: 260; yacc: 247; perl: 130; lex: 126; asm: 72; lisp: 30
file content (40 lines) | stat: -rw-r--r-- 967 bytes parent folder | download | duplicates (2) 
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
32
33
34
35
36
37
38
39
40
 
// Allan CORNET INRIA 2005 
// Based on E.Segre dynamickeywords.sce 

function list_keywords=getscilabkeywords()

  scilab_primitives=[];
  scilab_commands=[];
  predef_variables=[];
  scilab_functions=[];
  scicos_functions=[];
   
  [scilab_primitives,scilab_commands]=what();
	  
  //predefined variables
  names=who("get");
  predef_variables=names(($-predef())+1:$);
  
  //library functions
  libvar=[];
  for i=1:size(names,1)
    if type(eval(names(i)))==14 then
      libvar=[libvar;names(i)];
    end
  end
  
  for i=1:size(libvar,1)
  libfun=string(eval(libvar(i)));
    scilab_functions=[scilab_functions;libfun(2:$)];
  end
  
   //scicos basic functions: read the lib
  [l,s,b]=listvarinfile(SCI+"/macros/scicos/lib");
  load(SCI+"/macros/scicos/lib");
  n=string(eval(l));
  scicos_functions=(n(2:$));
  execstr("clear "+l);

  list_keywords=list(scilab_primitives,scilab_commands,predef_variables,scilab_functions,scicos_functions);
    
endfunction