- m4_define([pointer_level], m4_len(m4_bpatsubst([$1], [[^*]])))
- m4_define([array_size], [m4_bregexp([$1], [@<:@\([0-9]+\)@:>@], [\1])])
- ifelse(array_size, [],
- [m4_define([array_size], 0)],
- [m4_define([pointer_level], m4_incr(pointer_level))]
- )
+
+ PSI_TYPE_INDIRECTION([$1],, pl, as)