steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing FJSC and ID3

db4
Daniel Ehrenberg 2008-02-15 20:34:04 -06:00
parent 017c57fab1
commit 97dbf32608
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/fjsc/fjsc.factor
View File

@ -39,7 +39,7 @@ C: <ast-hashtable> ast-hashtable
[ blank? not ] keep [ blank? not ] keep
[ CHAR: } = not ] keep [ CHAR: } = not ] keep
[ CHAR: ] = not ] keep [ CHAR: ] = not ] keep
[ CHAR: ;" = not ] keep [ CHAR: ; = not ] keep
[ CHAR: " = not ] keep [ CHAR: " = not ] keep
digit? not digit? not
and and and and and ; and and and and and ;
@ -48,7 +48,7 @@ MEMO: 'identifier-ends' ( -- parser )
[ [
[ blank? not ] keep [ blank? not ] keep
[ CHAR: " = not ] keep [ CHAR: " = not ] keep
[ CHAR: ;" = not ] keep [ CHAR: ; = not ] keep
[ LETTER? not ] keep [ LETTER? not ] keep
[ letter? not ] keep [ letter? not ] keep
identifier-middle? not identifier-middle? not

3
extra/id3/id3.factor
View File

@ -1,9 +1,8 @@
! Copyright (C) 2007 Adam Wendt. ! Copyright (C) 2007 Adam Wendt.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
!
USING: arrays combinators io io.binary io.files io.paths USING: arrays combinators io io.binary io.files io.paths
io.utf16 kernel math math.parser namespaces sequences io.encodings.utf16 kernel math math.parser namespaces sequences
splitting strings assocs unicode.categories ; splitting strings assocs unicode.categories ;
IN: id3 IN: id3