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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA -
// Copyright (C) DIGITEO - 2010 - Pierre Marechal
//
// 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 t = justify(t, job)
// Check input parameters
// =========================================================================
rhs = argn(2);
if rhs <> 2 then
error(msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"),"justify",2))
end
if t == [] then
t = [];
return;
end
if type(t) <> 10 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: A string expected.\n"), "justify", 1));
end
if type(job) <> 10 then
error(msprintf(gettext("%s: Wrong type for input argument #%d: A string expected.\n"), "justify", 2));
end
if size(job,"*") <> 1 then
error(msprintf(gettext("%s: Wrong size for input argument #%d: A string expected.\n"), "justify", 2));
end
if and(job <> ["l" "c" "r" "left" "center" "right"]) then
error(msprintf(gettext("%s: Wrong value for input argument #%d: ""%s"", ""%s"" or ""%s"" expected.\n"), "justify", 2,"r","l","c"));
// "left,center & right" are just here for backward compatibility
end
// Redefine the wanted justification
// =========================================================================
job = part(job, 1);
// Remove leading and trailing whitespaces (See bug #7751)
// =========================================================================
t = stripblanks(t);
//Justify character array.
[m, n] = size(t);
for k = 1:n
L = length(t(:,k));
mx = max(L);
if job == "l" then //right
t(:,k) = part(t(:,k),1:mx)
elseif job == "r" then //left
for l = 1:m
t(l,k) = part(" ", 1:(mx-length(t(l,k)))) + t(l, k);
end
elseif job == "c" then //center
for l = 1:m
nl = int((mx - length(t(l, k)))/2)
nr = (mx - length(t(l, k))) - nl
t(l, k) = part(" ", 1:nl) + t(l, k) + part(" ", 1:nr);
end
end
end
endfunction
|
