File: %25log2sci.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 (29 lines) | stat: -rw-r--r-- 584 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
 
function [stk,txt,top]=%log2sci()
//
//!
// Copyright INRIA
txt=[]
iop=evstr(op(2))
s2=stk(top);s1=stk(top-1);top=top-1
if s2(2)=='2' then s2(1)='('+s2(1)+')',end
if s1(2)=='2' then s1(1)='('+s1(1)+')',end

// special case for nargout.

if s1(1)=='nargout'&s2(1)=='0' then
  s2(1)='1'
elseif s2(1)=='nargout'&s1(1)=='0' then
  s1(1)='1'
end

if s1(3)=='1'&s1(4)=='1' then
  stk=list(s1(1)+ops(iop,1)+s2(1),'2',s2(3),s2(4),'4')
elseif s2(3)=='1'&s2(4)=='1' then
  stk=list(s1(1)+ops(iop,1)+s2(1),'2',s1(3),s1(4),'4')
else
  stk=list(s1(1)+ops(iop,1)+s2(1),'2',s1(3),s1(4),'4')
end