$ perl "-V:.*?quad.*?"
d_quad='define';
quadkind='3';
quadtype='long long';
uquadtype='unsigned long long';