46 lines
1.7 KiB
Matlab
46 lines
1.7 KiB
Matlab
|
#!/usr/bin/env octave
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
function spec_formatter (val,type)
|
||
|
|
|
||
|
|
if( isscalar(val) == 1 )
|
||
|
|
printf(" should_be_close_to(x, %15.15ff, epsilon );", val);
|
||
|
|
return;
|
||
|
|
endif
|
||
|
|
|
||
|
|
if( size(val) == [1,2] )
|
||
|
|
if( strcmp(type,"simd2f") == 1 )
|
||
|
|
printf(" should_be_equal_%s(x, simd2f_create(%15.15ff, %15.15ff), epsilon );",type, val(1), val(2));
|
||
|
|
else
|
||
|
|
printf(" should_be_equal_%s(x, simd4f_create(%15.15ff, %15.15ff, 0.0f, 0.0f), epsilon );",type, val(1), val(2));
|
||
|
|
endif
|
||
|
|
return;
|
||
|
|
endif
|
||
|
|
|
||
|
|
if( size(val) == [1,3] )
|
||
|
|
printf(" should_be_equal_%s(x, simd4f_create(%15.15ff, %15.15ff, %15.15ff, 0.0f), epsilon );",type, val(1), val(2), val(3));
|
||
|
|
return;
|
||
|
|
endif
|
||
|
|
|
||
|
|
if( size(val) == [1,4] )
|
||
|
|
printf(" should_be_equal_%s(x, simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff), epsilon );",type, val(1), val(2), val(3), val(4));
|
||
|
|
return;
|
||
|
|
endif
|
||
|
|
|
||
|
|
if( size(val) == [4,1] )
|
||
|
|
printf(" should_be_equal_%s(x, simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff), epsilon );",type, val(1), val(2), val(3), val(4));
|
||
|
|
return;
|
||
|
|
endif
|
||
|
|
|
||
|
|
if( size(val) == [4,4] )
|
||
|
|
printf(" should_be_equal_%s(x, simd4x4f_create(simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff), simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff), simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff), simd4f_create(%15.15ff, %15.15ff, %15.15ff, %15.15ff)), epsilon );",type,
|
||
|
|
val(1), val(2), val(3), val(4), val(5), val(6), val(7), val(8), val(9), val(10), val(11), val(12), val(13), val(14), val(15), val(16)
|
||
|
|
);
|
||
|
|
return;
|
||
|
|
endif
|
||
|
|
|
||
|
|
|
||
|
|
endfunction
|
||
|
|
|