factor/extra/opencl/syntax/syntax.factor

! Copyright (C) 2010 Erik Charlebois.
! See http://factorcode.org/license.txt for BSD license.
USING: classes.parser classes.singleton classes.union kernel lexer
sequences ;
IN: opencl.syntax

SYNTAX: SINGLETONS-UNION:
    scan-new-class ";" parse-tokens [ create-class-in [ define-singleton-class ] keep ] map define-union-class ;
Initial checkin of OpenCL bindings 2010-03-03 03:02:47 -05:00			`! Copyright (C) 2010 Erik Charlebois.`
			`! See http://factorcode.org/license.txt for BSD license.`
			`USING: classes.parser classes.singleton classes.union kernel lexer`
			`sequences ;`
			`IN: opencl.syntax`

			`SYNTAX: SINGLETONS-UNION:`
Refactor the lexer/parser to expose friendlier words for scanning tokens. The preferred top-level words now throw an exception on EOF. CREATE -> scan-new CREATE-CLASS -> scan-new-class CREATE-WORD -> scan-new-word CREATE-GENERIC -> scan-new-generic scan -> (scan-token) scan-token now throws on eof (scan-word) returns word/number/f scan-word now throws on eof scan-word-name expects a non-number Fixes #183. Fixes #209. 2011-09-27 16:20:07 -04:00			`scan-new-class ";" parse-tokens [ create-class-in [ define-singleton-class ] keep ] map define-union-class ;`