skylighting-core-0.7.2: test/expected/abc.scheme.native

[ [ ( NormalTok , "#lang racket" ) ]
, [ ( NormalTok , "(" )
  , ( ExtensionTok , "define" )
  , ( FunctionTok , " block-strings" )
  ]
, [ ( NormalTok , "  (" )
  , ( KeywordTok , "list" )
  , ( NormalTok , " " )
  , ( StringTok , "\"BO\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"XK\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"DQ\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"CP\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"NA\"" )
  ]
, [ ( NormalTok , "        " )
  , ( StringTok , "\"GT\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"RE\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"TG\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"QD\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"FS\"" )
  ]
, [ ( NormalTok , "        " )
  , ( StringTok , "\"JW\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"HU\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"VI\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"AN\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"OB\"" )
  ]
, [ ( NormalTok , "        " )
  , ( StringTok , "\"ER\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"FS\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"LY\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"PC\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"ZM\"" )
  , ( NormalTok , "))" )
  ]
, [ ( NormalTok , "(" )
  , ( ExtensionTok , "define" )
  , ( FunctionTok , " BLOCKS " )
  , ( NormalTok , "(map " )
  , ( KeywordTok , "string->list" )
  , ( NormalTok , " block-strings))" )
  ]
, []
, [ ( NormalTok , "(" )
  , ( ExtensionTok , "define" )
  , ( FunctionTok , " " )
  , ( NormalTok , "(can-make-word? w)" )
  ]
, [ ( NormalTok , "  (" )
  , ( ExtensionTok , "define" )
  , ( FunctionTok , " " )
  , ( NormalTok , "(usable-block blocks word-char)" )
  ]
, [ ( NormalTok
    , "    (for/first ((b (in-list blocks)) #:when (memf (curry "
    )
  , ( KeywordTok , "char-ci=?" )
  , ( NormalTok , " word-char) b)) b))" )
  ]
, [ ( NormalTok , "  " ) ]
, [ ( NormalTok , "  (" )
  , ( ExtensionTok , "define" )
  , ( FunctionTok , " " )
  , ( NormalTok , "(inner word-chars blocks tried-blocks)" )
  ]
, [ ( NormalTok , "    (" ) , ( KeywordTok , "cond" ) ]
, [ ( NormalTok , "      [(" )
  , ( KeywordTok , "null?" )
  , ( NormalTok , " word-chars) " )
  , ( DecValTok , "#t" )
  , ( NormalTok , "]" )
  ]
, [ ( NormalTok , "      [(usable-block blocks (" )
  , ( KeywordTok , "car" )
  , ( NormalTok , " word-chars))" )
  ]
, [ ( NormalTok , "       " ) , ( OperatorTok , "=>" ) ]
, [ ( NormalTok , "       (" )
  , ( KeywordTok , "lambda" )
  , ( NormalTok , " (b)" )
  ]
, [ ( NormalTok , "         (" ) , ( KeywordTok , "or" ) ]
, [ ( NormalTok , "          (inner (" )
  , ( KeywordTok , "cdr" )
  , ( NormalTok , " word-chars) (" )
  , ( KeywordTok , "append" )
  , ( NormalTok , " tried-blocks (remove b blocks)) null)" )
  ]
, [ ( NormalTok
    , "          (inner word-chars (remove b blocks) ("
    )
  , ( KeywordTok , "cons" )
  , ( NormalTok , " b tried-blocks))))]" )
  ]
, [ ( NormalTok , "      [" )
  , ( KeywordTok , "else" )
  , ( NormalTok , " " )
  , ( DecValTok , "#f" )
  , ( NormalTok , "]))" )
  ]
, [ ( NormalTok , "  (inner (" )
  , ( KeywordTok , "string->list" )
  , ( NormalTok , " w) BLOCKS null))" )
  ]
, []
, [ ( NormalTok , "(" )
  , ( ExtensionTok , "define" )
  , ( FunctionTok , " WORD-LIST " )
  , ( NormalTok , "'(" )
  , ( StringTok , "\"\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"A\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"BARK\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"BOOK\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"TREAT\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"COMMON\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"SQUAD\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"CONFUSE\"" )
  , ( NormalTok , "))" )
  ]
, [ ( NormalTok , "(" )
  , ( ExtensionTok , "define" )
  , ( FunctionTok , " " )
  , ( NormalTok , "(report-word w)" )
  ]
, [ ( NormalTok , "  (printf " )
  , ( StringTok , "\"Can we make: ~a? ~a~%\"" )
  ]
, [ ( NormalTok , "          (~s w #:min-width " )
  , ( DecValTok , "9" )
  , ( NormalTok , ")" )
  ]
, [ ( NormalTok , "          (" )
  , ( KeywordTok , "if" )
  , ( NormalTok , " (can-make-word? w) " )
  , ( StringTok , "\"yes\"" )
  , ( NormalTok , " " )
  , ( StringTok , "\"no\"" )
  , ( NormalTok , ")))" )
  ]
, []
, [ ( NormalTok , "(module+ main" ) ]
, [ ( NormalTok , "  (" )
  , ( KeywordTok , "for-each" )
  , ( NormalTok , " report-word WORD-LIST))  " )
  ]
, []
, [ ( NormalTok , "(module+ test" ) ]
, [ ( NormalTok , "  (require rackunit)" ) ]
, [ ( NormalTok , "  (check-true  (can-make-word? " )
  , ( StringTok , "\"\"" )
  , ( NormalTok , "))" )
  ]
, [ ( NormalTok , "  (check-true  (can-make-word? " )
  , ( StringTok , "\"A\"" )
  , ( NormalTok , "))" )
  ]
, [ ( NormalTok , "  (check-true  (can-make-word? " )
  , ( StringTok , "\"BARK\"" )
  , ( NormalTok , "))" )
  ]
, [ ( NormalTok , "  (check-false (can-make-word? " )
  , ( StringTok , "\"BOOK\"" )
  , ( NormalTok , "))" )
  ]
, [ ( NormalTok , "  (check-true  (can-make-word? " )
  , ( StringTok , "\"TREAT\"" )
  , ( NormalTok , "))" )
  ]
, [ ( NormalTok , "  (check-false (can-make-word? " )
  , ( StringTok , "\"COMMON\"" )
  , ( NormalTok , "))" )
  ]
, [ ( NormalTok , "  (check-true  (can-make-word? " )
  , ( StringTok , "\"SQUAD\"" )
  , ( NormalTok , "))" )
  ]
, [ ( NormalTok , "  (check-true  (can-make-word? " )
  , ( StringTok , "\"CONFUSE\"" )
  , ( NormalTok , ")))" )
  ]
]