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
41
42
43
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA
//
// 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.1-en.txt
function %cblock_p(m)
n=size(definedfields(m),"*")
txt=[];
for k=2:n
txt=[txt string(getfield(k,m))];
end
l=max(length(txt),"r");
n=size(txt,2);
for k=1:n
txt(:,k)=part(txt(:,k),1:l(k));
end
nlc=lines()
k1=1
while %t
L=cumsum(l(k1:$)+2)
k2=max(find(L<nlc(1)-3))
if k2==[] then k2=k1 ;else k2=k1-1+k2;end
t=emptystr(size(txt,1),1);
for i=k1:k2
t=t+txt(:,i)+" ";
end
if k1==1&k2==n then mprintf("%s\n"," "+t),break,end
if k1==k2 then
mprintf("%s\n",["Column "+string(k1);" ";" "+t])
else
mprintf("%s\n",["Columns "+string(k1)+" to "+string(k2);" ";+" "+t;" "])
end
if k2==n then break,end
k1=k2+1
end
endfunction
|
