dist/gdb/ada-lex.l

34 WHITE	[ \t\n]
35 TICK	("'"{WHITE}*)
100 {WHITE}		 { }
186 thread{WHITE}+{DIG} {
259 "."{WHITE}*all  { return DOT_ALL; }
261 "."{WHITE}*{ID} {
266 {ID}({WHITE}*"."{WHITE}*({ID}|\"{OPER}\"))*(" "*"'")?  {
283 "'"[^']+"'"{WHITE}*:: {
532    '.{WHITE}*all' component of a dotted name, or -1 if there is none.