1: #line 2340 "./lpsrc/flx_regress.pak" 2: //Check reglex 3: #import <flx.flxh> 4: 5: open Lexer; 6: 7: module Foo 8: { 9: regexp space = ' '; 10: regexp tab = '\t'; 11: regexp white = space | tab; 12: } 13: 14: fun f (start:iterator, finish:iterator) => 15: reglex start to finish with 16: | Foo::white => "foo" 17: endmatch 18: ; 19: 20: var s = " "; 21: val start = start_iterator s; 22: val finish = end_iterator s; 23: 24: val x, y = f (start, finish); 25: 26: print y; endl;
1: foo