| 
									
										
										
										
											2017-08-05 23:23:57 -04:00
										 |  |  | USING: peg.ebnf strings tools.test multiline ;
 | 
					
						
							| 
									
										
										
										
											2009-08-13 20:21:44 -04:00
										 |  |  | IN: compiler.tests.peg-regression-2 | 
					
						
							| 
									
										
										
										
											2009-02-23 21:27:05 -05:00
										 |  |  | 
 | 
					
						
							|  |  |  | GENERIC: <times> ( times -- term' )
 | 
					
						
							|  |  |  | M: string <times> ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2017-08-05 23:23:57 -04:00
										 |  |  | EBNF: parse-regexp [=[ | 
					
						
							| 
									
										
										
										
											2009-02-23 21:27:05 -05:00
										 |  |  | 
 | 
					
						
							|  |  |  | Times = .* => [[ "foo" ]] | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | Regexp = Times:t => [[ t <times> ]] | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2017-08-05 23:23:57 -04:00
										 |  |  | ]=] | 
					
						
							| 
									
										
										
										
											2009-02-23 21:27:05 -05:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-04-26 01:51:47 -04:00
										 |  |  | [ "foo" ] [ "a" parse-regexp ] unit-test |