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

load-everything fixes

db4
Slava Pestov 2008-02-16 01:52:22 -06:00
parent 5ff752dc12
commit 7217e6756a
4 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/fjsc/fjsc.factor
View File

@ -37,18 +37,15 @@ C: <ast-hashtable> ast-hashtable
: identifier-middle? ( ch -- bool ) : identifier-middle? ( ch -- bool )
[ blank? not ] keep [ blank? not ] keep
[ CHAR: } = not ] keep [ "}];\"" member? not ] keep
[ CHAR: ] = not ] keep
[ CHAR: ;" = not ] keep
[ CHAR: " = not ] keep
digit? not digit? not
and and and and and ; and and ;
MEMO: 'identifier-ends' ( -- parser ) 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

2
extra/id3/id3.factor Normal file → Executable file
View File

@ -3,7 +3,7 @@
! !
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

4
extra/optimizer/report/report.factor
View File

@ -1,13 +1,13 @@
IN: optimizer.report IN: optimizer.report
USING: assocs words sequences arrays compiler tools.time USING: assocs words sequences arrays compiler tools.time
io.styles io prettyprint vocabs kernel sorting generator io.styles io prettyprint vocabs kernel sorting generator
optimizer ; optimizer math ;
: count-optimization-passes ( nodes n -- n ) : count-optimization-passes ( nodes n -- n )
>r optimize-1 >r optimize-1
[ r> 1+ count-optimization-passes ] [ drop r> ] if ; [ r> 1+ count-optimization-passes ] [ drop r> ] if ;
: word-table : results
[ [ second ] swap compose compare ] curry sort 20 tail* [ [ second ] swap compose compare ] curry sort 20 tail*
print print
standard-table-style standard-table-style

2
extra/tools/disassembler/disassembler.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io.files io words alien kernel math.parser alien.syntax USING: io.files io words alien kernel math.parser alien.syntax
io.launcher system assocs arrays sequences namespaces qualified io.launcher system assocs arrays sequences namespaces qualified
system math windows.kernel32 generator.fixup ; system math generator.fixup ;
IN: tools.disassembler IN: tools.disassembler
: in-file "gdb-in.txt" resource-path ; : in-file "gdb-in.txt" resource-path ;