forked from JuliaLang/julia
-
Notifications
You must be signed in to change notification settings - Fork 0
/
cell.j
44 lines (40 loc) · 930 Bytes
/
cell.j
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
# these are used by the front end to implement {} and backquote
function append(a1::Array{Any,1}, as::Array{Any,1}...)
n = arraylen(a1)
for i = 1:length(as)
n += arraylen(as[i])
end
a = Array(Any,n)
for i = 1:arraylen(a1)
arrayset(a,i,arrayref(a1,i))
end
i = arraylen(a1)+1
for x = as
for j = 1:length(x)
arrayset(a,i,x[j])
i += 1
end
end
a
end
function cell_1d(xs...)
n = length(xs)
a = Array(Any,n)
for i=1:n
arrayset(a,i,xs[i])
end
a
end
function cell_2d(nr, nc, xs...)
a = Array(Any,nr,nc)
for i=1:(nr*nc)
arrayset(a,i,xs[i])
end
a
end
# map cell array
map(f, a::Array{Any,1}) = { f(a[i]) | i=1:length(a) }
map(f, a::Array{Any,1}, b::Array{Any,1}) =
{ f(a[i],b[i]) | i=1:min(length(a),length(b)) }
cell(dims::Tuple) = Array(Any, dims)
cell(dims::Size...) = cell(dims)