haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add "!" in symbols to skip when searching for labels 

Ignore-this: adaface84cdffce3c7b137806ee1a8a5

darcs-hash:20110731084528-c41ad-5e335c118c2fa1a2ce28e7f4c8a222b5b763272a
This commit is contained in:
Jeremie Dimino 2011-07-31 10:45:28 +02:00
parent 4e2a46ac0d
commit 9c12bd804f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/uTop_complete.ml
View File

@ -140,7 +140,7 @@ let parse_label tokens =
Some (Fun, longident_of_list acc_uidents, acc_methods)
| (Symbol, _, _, ".") :: (Uident, _, _, id) :: tokens ->
loop_uidents (id :: acc_uidents) acc_methods tokens
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#")) :: tokens ->
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#" | "!")) :: tokens ->
search tokens
| (Symbol, _, _, ")") :: tokens ->
skip tokens "(" []
@ -158,7 +158,7 @@ let parse_label tokens =
match tokens with
| ((Lident | Uident), _, _, id) :: _ when String_set.mem id !UTop.keywords ->
None
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#")) :: tokens ->
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#" | "!")) :: tokens ->
search tokens
| (Symbol, _, _, ")") :: tokens ->
skip tokens "(" []
@ -180,7 +180,7 @@ let parse_label tokens =
match tokens with
| ((Lident | Uident), _, _, id) :: _ when String_set.mem id !UTop.keywords ->
None
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#")) :: tokens ->
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#" | "!")) :: tokens ->
search tokens
| (Symbol, _, _, ")") :: tokens ->
skip tokens "(" []