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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
function codegen_uop_identity
%CODEGEN_UOP_IDENTITY create identity functions
%
% The 'identity' operator is unique: it is used for typecasting, and all 13*13
% pairs of functions are generated.
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2025, All Rights Reserved.
% SPDX-License-Identifier: Apache-2.0
uop = 'identity' ;
fprintf ('\n%-9s', uop) ;
types = {
'bool',
'int8_t',
'int16_t',
'int32_t',
'int64_t',
'uint8_t',
'uint16_t',
'uint32_t',
'uint64_t',
'float',
'double',
'GxB_FC32_t',
'GxB_FC64_t' } ;
ntypes = length (types) ;
for code1 = 1:ntypes
ctype = types {code1} ;
for code2 = 1:ntypes
atype = types {code2} ;
% determine the casting function
if (isequal (atype, ctype))
% no typecasting
func = 'xarg' ;
elseif (isequal (atype, 'GxB_FC32_t'))
% typecasting from GxB_FC32_t
if (isequal (ctype, 'bool'))
% to bool from GxB_FC32_t
func = '(GB_crealf (xarg) != 0) || (GB_cimagf (xarg) != 0)' ;
elseif (codegen_contains (ctype, 'int'))
% to integer from GxB_FC32_t
func = sprintf ('GB_cast_to_%s ((double) GB_crealf (xarg))', ctype) ;
elseif (isequal (ctype, 'float') || isequal (ctype, 'double'))
% to float or double from GxB_FC32_t
func = sprintf ('(%s) GB_crealf (xarg)', ctype) ;
elseif (isequal (ctype, 'GxB_FC64_t'))
% to GxB_FC64_t from GxB_FC32_t
func = 'GJ_CMPLX64 ((double) GB_crealf (xarg), (double) GB_cimagf (xarg))' ;
end
elseif (isequal (atype, 'GxB_FC64_t'))
% typecasting from GxB_FC64_t
if (isequal (ctype, 'bool'))
% to bool from GxB_FC64_t
func = '(GB_creal (xarg) != 0) || (GB_cimag (xarg) != 0)' ;
elseif (codegen_contains (ctype, 'int'))
% to integer from GxB_FC64_t
func = sprintf ('GB_cast_to_%s (GB_creal (xarg))', ctype) ;
elseif (isequal (ctype, 'float') || isequal (ctype, 'double'))
% to float or double from GxB_FC64_t
func = sprintf ('(%s) GB_creal (xarg)', ctype) ;
elseif (isequal (ctype, 'GxB_FC32_t'))
% to GxB_FC32_t from GxB_FC64_t
func = 'GJ_CMPLX32 ((float) GB_creal (xarg), (float) GB_cimag (xarg))' ;
end
elseif (isequal (atype, 'float') || isequal (atype, 'double'))
% typecasting from float or double
if (isequal (ctype, 'bool'))
% to bool from float or double
func = '(xarg != 0)' ;
elseif (codegen_contains (ctype, 'int'))
% to integer from float or double
func = sprintf ('GB_cast_to_%s ((double) (xarg))', ctype) ;
elseif (isequal (ctype, 'GxB_FC32_t'))
% to GxB_FC32_t from float or double
func = 'GJ_CMPLX32 ((float) (xarg), 0)' ;
elseif (isequal (ctype, 'GxB_FC64_t'))
% to GxB_FC64_t from float or double
func = 'GJ_CMPLX64 ((double) (xarg), 0)' ;
end
elseif (isequal (ctype, 'GxB_FC32_t'))
% typecasting to GxB_FC32_t from any real type
func = 'GJ_CMPLX32 ((float) (xarg), 0)' ;
elseif (isequal (ctype, 'GxB_FC64_t'))
% typecasting to GxB_FC64_t from any real type
func = 'GJ_CMPLX64 ((double) (xarg), 0)' ;
else
% use ANSI typecasting rules
func = sprintf ('(%s) xarg', ctype) ;
end
codegen_uop_method (uop, func, ctype, atype) ;
end
end
|
