factor/core/classes/parser/parser.factor

! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: classes compiler.units kernel parser vocabs.parser words ;
IN: classes.parser

: save-class-location ( class -- )
    location remember-class ;

: create-class-in ( string -- word )
    current-vocab create
    dup t "defining-class" set-word-prop
    dup set-last-word
    dup save-class-location
    dup create-predicate-word save-location ;

: scan-new-class ( -- word )
    scan-word-name create-class-in ;
Rename predicate-word to create-predicate-word and add a new predicate-word word 2010-01-20 14:00:36 -05:00			`! Copyright (C) 2008, 2010 Slava Pestov.`
Split up huge parser vocabulary 2008-06-25 04:25:08 -04:00			`! See http://factorcode.org/license.txt for BSD license.`
core: some more cleanup of USING lists. 2013-03-05 13:48:14 -05:00			`USING: classes compiler.units kernel parser vocabs.parser words ;`
Split up huge parser vocabulary 2008-06-25 04:25:08 -04:00			`IN: classes.parser`

			`: save-class-location ( class -- )`
			`location remember-class ;`

fix stack effect 2009-05-28 13:28:52 -04:00			`: create-class-in ( string -- word )`
Split up huge parser vocabulary 2008-06-25 04:25:08 -04:00			`current-vocab create`
classes: Add a check that arguments to classoids are themselves classoids. Introduce a new word-prop that makes tuple-class words classoids at parse-time so that self-referential tuple definitions with maybe{} work, e.g. TUPLE: node { next maybe{ node } } ; Add unit test. Fixes #766. 2013-03-22 18:58:20 -04:00			`dup t "defining-class" set-word-prop`
words: Change word -> last-word, set-word -> set-last-word. 2013-03-23 19:05:14 -04:00			`dup set-last-word`
Split up huge parser vocabulary 2008-06-25 04:25:08 -04:00			`dup save-class-location`
Add support for final tuple classes which cannot be subclassed: TUPLE: foo ... ; final 2010-02-17 08:19:57 -05:00			`dup create-predicate-word save-location ;`
Split up huge parser vocabulary 2008-06-25 04:25:08 -04:00
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 ( -- word )`
			`scan-word-name create-class-in ;`