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
|
function codegen_red_method (opname, func, atype, identity, terminal, panel)
%CODEGEN_RED_METHOD create a reduction function, C = reduce (A)
%
% codegen_red_method (opname, func, atype, identity, terminal)
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
% SPDX-License-Identifier: Apache-2.0
f = fopen ('control.m4', 'w') ;
[aname, unsigned, bits] = codegen_type (atype) ;
name = sprintf ('%s_%s', opname, aname) ;
is_any = isequal (opname, 'any') ;
% function names
fprintf (f, 'define(`_red_build'', `_red_build__%s'')\n', name) ;
% the type of A and C (no typecasting)
fprintf (f, 'define(`GB_atype'', `%s'')\n', atype) ;
fprintf (f, 'define(`GB_ctype'', `%s'')\n', atype) ;
if (~isempty (identity))
fprintf (f, 'define(`_red_scalar'', `_red_scalar__%s'')\n', name);
% identity and terminal values for the monoid
fprintf (f, 'define(`GB_identity'', `%s'')\n', identity) ;
fprintf (f, 'define(`if_is_monoid'', `'')\n') ;
fprintf (f, 'define(`endif_is_monoid'', `'')\n') ;
else
fprintf (f, 'define(`_red_scalar'', `_red_scalar__(none)'')\n') ;
% first and second operators are not monoids
fprintf (f, 'define(`GB_identity'', `(none)'')\n') ;
fprintf (f, 'define(`if_is_monoid'', `#if 0'')\n') ;
fprintf (f, 'define(`endif_is_monoid'', `#endif'')\n') ;
end
if (is_any)
fprintf (f, 'define(`GB_is_any_monoid'', `1'')\n') ;
fprintf (f, 'define(`GB_has_terminal'', `1'')\n') ;
fprintf (f, 'define(`GB_terminal_value'', `(any value)'')\n') ;
fprintf (f, 'define(`GB_is_terminal'', `true'')\n') ;
fprintf (f, 'define(`GB_terminal'', `break ;'')\n') ;
elseif (~isempty (terminal))
fprintf (f, 'define(`GB_is_any_monoid'', `0'')\n') ;
fprintf (f, 'define(`GB_has_terminal'', `1'')\n') ;
fprintf (f, 'define(`GB_terminal_value'', `%s'')\n', terminal) ;
fprintf (f, 'define(`GB_is_terminal'', `(s == %s)'')\n', terminal) ;
fprintf (f, 'define(`GB_terminal'', `if (s == %s) { break ; }'')\n', terminal) ;
else
fprintf (f, 'define(`GB_is_any_monoid'', `0'')\n') ;
fprintf (f, 'define(`GB_has_terminal'', `0'')\n') ;
fprintf (f, 'define(`GB_terminal_value'', `(none)'')\n') ;
fprintf (f, 'define(`GB_is_terminal'', `(none)'')\n') ;
fprintf (f, 'define(`GB_terminal'', `;'')\n') ;
end
if (is_any)
fprintf (f, 'define(`GB_panel'', `(no panel)'')\n') ;
else
fprintf (f, 'define(`GB_panel'', `%d'')\n', panel) ;
end
% create the operator
func = strrep (func, 'zarg', '`$1''') ;
func = strrep (func, 'yarg', '`$2''') ;
fprintf (f, 'define(`GB_reduce_op'', `%s'')\n', func) ;
% create the disable flag
disable = sprintf ('GxB_NO_%s', upper (opname)) ;
disable = [disable (sprintf (' || GxB_NO_%s', upper (aname)))] ;
disable = [disable (sprintf (' || GxB_NO_%s_%s', upper (opname), upper (aname)))] ;
fprintf (f, 'define(`GB_disable'', `(%s)'')\n', disable) ;
fclose (f) ;
% construct the *.c file
cmd = sprintf (...
'cat control.m4 Generator/GB_red.c | m4 | tail -n +16 > Generated2/GB_red__%s.c', ...
name) ;
fprintf ('.') ;
system (cmd) ;
% append to the *.h file
cmd = sprintf (...
'cat control.m4 Generator/GB_red.h | m4 | tail -n +16 >> Generated2/GB_red__include.h') ;
system (cmd) ;
delete ('control.m4') ;
|
