mirror of
https://github.com/AdaCore/uwrap.git
synced 2026-02-12 13:06:34 -08:00
10 lines
216 B
Plaintext
10 lines
216 B
Plaintext
import ada.wrappers;
|
|
|
|
walk wrap_ada_specs ();
|
|
|
|
match DefiningName (x"Some_(.*)")
|
|
wrap w_DefiningName ("My_\1");
|
|
|
|
match DefiningName (x"Some_(?<a>.*)") and parent (ParamSpec ())
|
|
wrap w_DefiningName ("A_Param_\e<a>");
|