xmode: cleanup using.
parent
de179243ce
commit
5bb8400d0b
|
@ -1,8 +1,7 @@
|
||||||
USING: xmode.loader xmode.utilities xmode.rules namespaces
|
USING: accessors assocs globs io.pathnames kernel memoize
|
||||||
strings splitting assocs sequences kernel io.files xml memoize
|
namespaces regexp sequences sorting splitting strings
|
||||||
words globs combinators io.encodings.utf8 io.pathnames sorting
|
unicode.case xml xml.data xml.syntax xml.traversal xmode.loader
|
||||||
accessors regexp unicode.case xml.data xml.traversal
|
xmode.rules xmode.utilities ;
|
||||||
xml.syntax ;
|
|
||||||
IN: xmode.catalog
|
IN: xmode.catalog
|
||||||
|
|
||||||
TUPLE: mode file file-name-glob first-line-glob ;
|
TUPLE: mode file file-name-glob first-line-glob ;
|
||||||
|
|
|
@ -1,7 +1,6 @@
|
||||||
USING: xmode.loader.syntax xmode.tokens xmode.rules
|
USING: accessors assocs kernel math.parser namespaces sequences
|
||||||
xmode.keyword-map xml.data xml.traversal xml assocs kernel
|
xml xml.data xml.syntax xml.traversal xmode.keyword-map
|
||||||
combinators sequences math.parser namespaces parser
|
xmode.loader.syntax xmode.rules xmode.tokens xmode.utilities ;
|
||||||
xmode.utilities regexp io.files accessors xml.syntax ;
|
|
||||||
IN: xmode.loader
|
IN: xmode.loader
|
||||||
|
|
||||||
! Based on org.gjt.sp.jedit.XModeHandler
|
! Based on org.gjt.sp.jedit.XModeHandler
|
||||||
|
|
|
@ -1,9 +1,9 @@
|
||||||
! Copyright (C) 2007, 2009 Slava Pestov.
|
! Copyright (C) 2007, 2009 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors xmode.tokens xmode.rules xmode.keyword-map
|
USING: accessors arrays assocs combinators kernel lexer make
|
||||||
xml.data xml.traversal xml assocs kernel combinators sequences
|
namespaces parser sequences splitting xml.data xml.syntax
|
||||||
math.parser namespaces make parser lexer xmode.utilities
|
xml.syntax.private xml.traversal xmode.rules xmode.tokens
|
||||||
regexp io.files splitting arrays xml.syntax xml.syntax.private ;
|
xmode.utilities ;
|
||||||
IN: xmode.loader.syntax
|
IN: xmode.loader.syntax
|
||||||
|
|
||||||
! Rule tag parsing utilities
|
! Rule tag parsing utilities
|
||||||
|
|
|
@ -1,9 +1,9 @@
|
||||||
! Copyright (C) 2008 Slava Pestov.
|
! Copyright (C) 2008 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel namespaces make xmode.rules xmode.tokens
|
USING: accessors ascii assocs combinators
|
||||||
xmode.marker.state xmode.marker.context xmode.utilities
|
combinators.short-circuit kernel make math namespaces regexp
|
||||||
xmode.catalog sequences math assocs combinators strings
|
sequences strings xmode.marker.state xmode.rules xmode.tokens
|
||||||
regexp splitting ascii combinators.short-circuit accessors ;
|
xmode.utilities ;
|
||||||
IN: xmode.marker
|
IN: xmode.marker
|
||||||
|
|
||||||
! Next two words copied from parser-combinators
|
! Next two words copied from parser-combinators
|
||||||
|
@ -245,7 +245,7 @@ M: mark-previous-rule handle-rule-start
|
||||||
|
|
||||||
: (check-word-break) ( -- )
|
: (check-word-break) ( -- )
|
||||||
check-rule
|
check-rule
|
||||||
|
|
||||||
1 current-rule-set default>> next-token, ;
|
1 current-rule-set default>> next-token, ;
|
||||||
|
|
||||||
: rule-set-empty? ( ruleset -- ? )
|
: rule-set-empty? ( ruleset -- ? )
|
||||||
|
|
Loading…
Reference in New Issue