@@ -263,7 +263,7 @@ function mxarray(a::Array{T}) where {T<:MxRealNum}
263
263
(Ptr{Cvoid}, Ptr{Cvoid}, UInt),
264
264
data_ptr (mx),
265
265
a,
266
- length (a)* sizeof (T),
266
+ length (a) * sizeof (T),
267
267
)
268
268
return mx
269
269
end
@@ -374,7 +374,7 @@ function _copy_sparse_mat(
374
374
ir[i] = rinds[i] - 1
375
375
end
376
376
377
- jc = unsafe_wrap (Array, jc_p, (n+ 1 ,))
377
+ jc = unsafe_wrap (Array, jc_p, (n + 1 ,))
378
378
for i = 1 : (n+ 1 )
379
379
jc[i] = colptr[i] - 1
380
380
end
@@ -402,7 +402,7 @@ function _copy_sparse_mat(
402
402
ir[i] = rinds[i] - 1
403
403
end
404
404
405
- jc = unsafe_wrap (Array, jc_p, (n+ 1 ,))
405
+ jc = unsafe_wrap (Array, jc_p, (n + 1 ,))
406
406
for i = 1 : (n+ 1 )
407
407
jc[i] = colptr[i] - 1
408
408
end
@@ -414,7 +414,7 @@ function mxarray(a::SparseMatrixCSC{V,I}) where {V<:Union{Float64,ComplexF64,Boo
414
414
m:: Int = a. m
415
415
n:: Int = a. n
416
416
nnz = length (a. nzval)
417
- @assert nnz == a. colptr[n+ 1 ]- 1
417
+ @assert nnz == a. colptr[n+ 1 ] - 1
418
418
419
419
mx = mxsparse (V, m, n, nnz)
420
420
ir_p = ccall (mx_get_ir[], Ptr{mwIndex}, (Ptr{Cvoid},), mx)
@@ -439,7 +439,7 @@ function mxarray(s::String)
439
439
_dims_to_mwSize ((1 , length (utf16string))))
440
440
mx = MxArray (pm)
441
441
ccall (:memcpy , Ptr{Cvoid}, (Ptr{Cvoid}, Ptr{Cvoid}, UInt), data_ptr (mx), utf16string,
442
- length (utf16string)* sizeof (UInt16))
442
+ length (utf16string) * sizeof (UInt16))
443
443
return mx
444
444
end
445
445
453
453
mxcellarray (dims:: Integer... ) = mxcellarray (dims)
454
454
455
455
function get_cell (mx:: MxArray , i:: Integer )
456
- pm = ccall (mx_get_cell[], Ptr{Cvoid}, (Ptr{Cvoid}, mwIndex), mx, i- 1 )
456
+ pm = ccall (mx_get_cell[], Ptr{Cvoid}, (Ptr{Cvoid}, mwIndex), mx, i - 1 )
457
457
MxArray (pm, false )
458
458
end
459
459
@@ -505,7 +505,7 @@ function set_field(mx::MxArray, i::Integer, f::String, v::MxArray)
505
505
Cvoid,
506
506
(Ptr{Cvoid}, mwIndex, Ptr{UInt8}, Ptr{Cvoid}),
507
507
mx,
508
- i- 1 ,
508
+ i - 1 ,
509
509
f,
510
510
v,
511
511
)
@@ -515,23 +515,30 @@ end
515
515
set_field (mx:: MxArray , f:: String , v:: MxArray ) = set_field (mx, 1 , f, v)
516
516
517
517
function get_field (mx:: MxArray , i:: Integer , f:: String )
518
- pm = ccall (mx_get_field[], Ptr{Cvoid}, (Ptr{Cvoid}, mwIndex, Ptr{UInt8}), mx, i- 1 , f)
518
+ pm = ccall (mx_get_field[], Ptr{Cvoid}, (Ptr{Cvoid}, mwIndex, Ptr{UInt8}), mx, i - 1 , f)
519
519
pm == C_NULL && throw (ArgumentError (" Failed to get field." ))
520
520
MxArray (pm, false )
521
521
end
522
522
523
523
get_field (mx:: MxArray , f:: String ) = get_field (mx, 1 , f)
524
524
525
525
function get_field (mx:: MxArray , i:: Integer , fn:: Integer )
526
- pm = ccall (mx_get_field_bynum[], Ptr{Cvoid}, (Ptr{Cvoid}, mwIndex, Cint), mx, i- 1 , fn- 1 )
526
+ pm = ccall (
527
+ mx_get_field_bynum[],
528
+ Ptr{Cvoid},
529
+ (Ptr{Cvoid}, mwIndex, Cint),
530
+ mx,
531
+ i - 1 ,
532
+ fn - 1 ,
533
+ )
527
534
pm == C_NULL && throw (ArgumentError (" Failed to get field." ))
528
535
MxArray (pm, false )
529
536
end
530
537
531
538
get_field (mx:: MxArray , fn:: Integer ) = get_field (mx, 1 , fn)
532
539
533
540
function get_fieldname (mx:: MxArray , i:: Integer )
534
- p = ccall (mx_get_fieldname[], Ptr{UInt8}, (Ptr{Cvoid}, Cint), mx, i- 1 )
541
+ p = ccall (mx_get_fieldname[], Ptr{UInt8}, (Ptr{Cvoid}, Cint), mx, i - 1 )
535
542
unsafe_string (p)
536
543
end
537
544
@@ -606,7 +613,7 @@ function _jarrayx(fun::String, mx::MxArray, siz::Tuple)
606
613
(Ptr{Cvoid}, Ptr{Cvoid}, UInt),
607
614
a,
608
615
data_ptr (mx),
609
- length (a)* sizeof (T),
616
+ length (a) * sizeof (T),
610
617
)
611
618
end
612
619
end
@@ -644,7 +651,7 @@ function jscalar(mx::MxArray)
644
651
@assert ! is_sparse (mx)
645
652
if is_complex (mx)
646
653
return unsafe_wrap (Array, real_ptr (mx), (1 ,))[1 ] +
647
- im* unsafe_wrap (Array, imag_ptr (mx), (1 ,))[1 ]
654
+ im * unsafe_wrap (Array, imag_ptr (mx), (1 ,))[1 ]
648
655
else
649
656
return unsafe_wrap (Array, data_ptr (mx), (1 ,))[1 ]
650
657
end
@@ -656,18 +663,18 @@ function _jsparse(ty::Type{T}, mx::MxArray) where {T<:MxRealNum}
656
663
ir_ptr = ccall (mx_get_ir[], Ptr{mwIndex}, (Ptr{Cvoid},), mx)
657
664
jc_ptr = ccall (mx_get_jc[], Ptr{mwIndex}, (Ptr{Cvoid},), mx)
658
665
659
- jc_a:: Vector{mwIndex} = unsafe_wrap (Array, jc_ptr, (n+ 1 ,))
666
+ jc_a:: Vector{mwIndex} = unsafe_wrap (Array, jc_ptr, (n + 1 ,))
660
667
nnz = jc_a[n+ 1 ]
661
668
662
669
ir = Vector {Int} (undef, nnz)
663
- jc = Vector {Int} (undef, n+ 1 )
670
+ jc = Vector {Int} (undef, n + 1 )
664
671
665
672
ir_x = unsafe_wrap (Array, ir_ptr, (nnz,))
666
673
for i = 1 : nnz
667
674
ir[i] = ir_x[i] + 1
668
675
end
669
676
670
- jc_x = unsafe_wrap (Array, jc_ptr, (n+ 1 ,))
677
+ jc_x = unsafe_wrap (Array, jc_ptr, (n + 1 ,))
671
678
for i = 1 : (n+ 1 )
672
679
jc[i] = jc_x[i] + 1
673
680
end
@@ -713,7 +720,14 @@ function Dict(mx::MxArray)
713
720
for i = 1 : nf
714
721
fnames[i] = get_fieldname (mx, i)
715
722
pv =
716
- ccall (mx_get_field_bynum[], Ptr{Cvoid}, (Ptr{Cvoid}, mwIndex, Cint), mx, 0 , i- 1 )
723
+ ccall (
724
+ mx_get_field_bynum[],
725
+ Ptr{Cvoid},
726
+ (Ptr{Cvoid}, mwIndex, Cint),
727
+ mx,
728
+ 0 ,
729
+ i - 1 ,
730
+ )
717
731
fx = MxArray (pv, false )
718
732
fvals[i] = jvalue (fx)
719
733
end
0 commit comments