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

remove dead code, add copyright

db4
Doug Coleman 2008-10-05 18:36:56 -05:00
parent 94d7772c13
commit a30dbec5fb
8 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/unicode/breaks/breaks.factor
View File

@ -1,3 +1,5 @@
! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators.short-circuit unicode.categories kernel math USING: combinators.short-circuit unicode.categories kernel math
combinators splitting sequences math.parser io.files io assocs combinators splitting sequences math.parser io.files io assocs
arrays namespaces make math.ranges unicode.normalize values arrays namespaces make math.ranges unicode.normalize values

13
basis/unicode/case/case.factor
View File

@ -1,3 +1,5 @@
! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: unicode.data sequences sequences.next namespaces make USING: unicode.data sequences sequences.next namespaces make
unicode.normalize math unicode.categories combinators unicode.normalize math unicode.categories combinators
assocs strings splitting kernel accessors ; assocs strings splitting kernel accessors ;
@ -70,17 +72,6 @@ SYMBOL: locale ! Just casing locale, or overall?
: final-sigma ( string -- string ) : final-sigma ( string -- string )
HEX: 3A3 over member? [ sigma-map ] when ; HEX: 3A3 over member? [ sigma-map ] when ;
! : map-case ( string string-quot char-quot -- case )
! [
! rot [
! -rot [
! rot dup special-casing at
! [ -rot drop call % ]
! [ -rot nip call , ] ?if
! ] 2keep
! ] each 2drop
! ] "" make ; inline
: map-case ( string string-quot char-quot -- case ) : map-case ( string string-quot char-quot -- case )
[ [
[ [

2
basis/unicode/categories/categories.factor
View File

@ -1,3 +1,5 @@
! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: unicode.syntax ; USING: unicode.syntax ;
IN: unicode.categories IN: unicode.categories

2
basis/unicode/collation/collation.factor
View File

@ -1,3 +1,5 @@
! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators.short-circuit sequences io.files USING: combinators.short-circuit sequences io.files
io.encodings.ascii kernel values splitting accessors math.parser io.encodings.ascii kernel values splitting accessors math.parser
ascii io assocs strings math namespaces make sorting combinators ascii io assocs strings math namespaces make sorting combinators

2
basis/unicode/data/data.factor
View File

@ -1,3 +1,5 @@
! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators.short-circuit assocs math kernel sequences USING: combinators.short-circuit assocs math kernel sequences
io.files hashtables quotations splitting grouping arrays io.files hashtables quotations splitting grouping arrays
math.parser hash2 math.order byte-arrays words namespaces words math.parser hash2 math.order byte-arrays words namespaces words

2
basis/unicode/normalize/normalize.factor
View File

@ -1,3 +1,5 @@
! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: sequences namespaces make unicode.data kernel math arrays USING: sequences namespaces make unicode.data kernel math arrays
locals sorting.insertion accessors ; locals sorting.insertion accessors ;
IN: unicode.normalize IN: unicode.normalize

2
basis/unicode/script/script.factor
View File

@ -1,3 +1,5 @@
! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors values kernel sequences assocs io.files USING: accessors values kernel sequences assocs io.files
io.encodings ascii math.ranges io splitting math.parser io.encodings ascii math.ranges io splitting math.parser
namespaces make byte-arrays locals math sets io.encodings.ascii namespaces make byte-arrays locals math sets io.encodings.ascii

2
basis/unicode/syntax/syntax.factor
View File

@ -1,3 +1,5 @@
! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: unicode.data kernel math sequences parser lexer USING: unicode.data kernel math sequences parser lexer
bit-arrays namespaces make sequences.private arrays quotations bit-arrays namespaces make sequences.private arrays quotations
assocs classes.predicate math.order eval ; assocs classes.predicate math.order eval ;