factor: in: -> IN:
Doug Coleman
parent
dea1fa42ab
commit
701d1823b5
|
|
@ -1,5 +1,5 @@
|
||||||
USING: help.markup help.syntax byte-arrays alien math sequences ;
|
USING: help.markup help.syntax byte-arrays alien math sequences ;
|
||||||
in: specialized-arrays
|
IN: specialized-arrays
|
||||||
|
|
||||||
HELP: \ specialized-array:
|
HELP: \ specialized-array:
|
||||||
{ $syntax "specialized-array: type" }
|
{ $syntax "specialized-array: type" }
|
||||||
|
|
|
||||||
|
|
@ -8,7 +8,7 @@ FROM: specialized-arrays.private => specialized-array-vocab ;
|
||||||
FROM: alien.c-types => int float bool uchar char float ulonglong ushort uint
|
FROM: alien.c-types => int float bool uchar char float ulonglong ushort uint
|
||||||
heap-size ;
|
heap-size ;
|
||||||
FROM: alien.data => little-endian? ;
|
FROM: alien.data => little-endian? ;
|
||||||
in: specialized-arrays.tests
|
IN: specialized-arrays.tests
|
||||||
|
|
||||||
specialized-array: int
|
specialized-array: int
|
||||||
SPECIALIZED-ARRAYS: bool uchar ushort char uint float ulonglong ;
|
SPECIALIZED-ARRAYS: bool uchar ushort char uint float ulonglong ;
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,7 @@ byte-arrays classes combinators fry functors kernel lexer locals
|
||||||
make math math.vectors parser prettyprint.custom sequences
|
make math math.vectors parser prettyprint.custom sequences
|
||||||
sequences.private vocabs.generated vocabs.loader vocabs.parser
|
sequences.private vocabs.generated vocabs.loader vocabs.parser
|
||||||
words ;
|
words ;
|
||||||
in: specialized-arrays
|
IN: specialized-arrays
|
||||||
|
|
||||||
mixin: specialized-array
|
mixin: specialized-array
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: help.markup help.syntax byte-vectors alien byte-arrays classes.struct ;
|
USING: help.markup help.syntax byte-vectors alien byte-arrays classes.struct ;
|
||||||
in: specialized-vectors
|
IN: specialized-vectors
|
||||||
|
|
||||||
HELP: \ specialized-vector:
|
HELP: \ specialized-vector:
|
||||||
{ $syntax "specialized-vector: type" }
|
{ $syntax "specialized-vector: type" }
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
in: specialized-vectors.tests
|
IN: specialized-vectors.tests
|
||||||
USING: specialized-arrays specialized-vectors
|
USING: specialized-arrays specialized-vectors
|
||||||
tools.test kernel sequences alien.c-types ;
|
tools.test kernel sequences alien.c-types ;
|
||||||
specialized-array: float
|
specialized-array: float
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@ vocabs.loader vocabs.parser ;
|
||||||
FROM: sequences.private => nth-unsafe ;
|
FROM: sequences.private => nth-unsafe ;
|
||||||
FROM: specialized-arrays.private => nth-c-ptr direct-like ;
|
FROM: specialized-arrays.private => nth-c-ptr direct-like ;
|
||||||
qualified: vectors.functor
|
qualified: vectors.functor
|
||||||
in: specialized-vectors
|
IN: specialized-vectors
|
||||||
|
|
||||||
mixin: specialized-vector
|
mixin: specialized-vector
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: bootstrap.image.private effects help.markup help.syntax strings ;
|
USING: bootstrap.image.private effects help.markup help.syntax strings ;
|
||||||
in: bootstrap.primitives
|
IN: bootstrap.primitives
|
||||||
|
|
||||||
ARTICLE: "bootstrap.primitives" "Bootstrap primitives"
|
ARTICLE: "bootstrap.primitives" "Bootstrap primitives"
|
||||||
"A script file run to create the bootstrap image. Also see the vocab " { $link "bootstrap.image.primitives" } "." ;
|
"A script file run to create the bootstrap image. Also see the vocab " { $link "bootstrap.image.primitives" } "." ;
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@ classes.tuple.private classes.union combinators compiler.units io
|
||||||
kernel kernel.private layouts make math math.private namespaces parser
|
kernel kernel.private layouts make math math.private namespaces parser
|
||||||
quotations sequences slots source-files splitting vocabs vocabs.loader
|
quotations sequences slots source-files splitting vocabs vocabs.loader
|
||||||
words ;
|
words ;
|
||||||
in: bootstrap.primitives
|
IN: bootstrap.primitives
|
||||||
|
|
||||||
"* Creating primitives and basic runtime structures..." print flush
|
"* Creating primitives and basic runtime structures..." print flush
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,7 @@ hashtables.wrapped init io io.files kernel kernel.private make
|
||||||
memory namespaces parser parser.notes sequences system vocabs
|
memory namespaces parser parser.notes sequences system vocabs
|
||||||
vocabs.loader vocabs.hierarchy ;
|
vocabs.loader vocabs.hierarchy ;
|
||||||
qualified: bootstrap.image.private
|
qualified: bootstrap.image.private
|
||||||
in: bootstrap.stage1
|
IN: bootstrap.stage1
|
||||||
|
|
||||||
"Bootstrap stage 1..." print flush
|
"Bootstrap stage 1..." print flush
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
in: io.tests
|
IN: io.tests
|
||||||
use: math
|
use: math
|
||||||
: foo ( -- x ) 2 2 + ;
|
: foo ( -- x ) 2 2 + ;
|
||||||
forget: foo
|
forget: foo
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@
|
||||||
USING: accessors combinators.smart io.directories.search
|
USING: accessors combinators.smart io.directories.search
|
||||||
io.files kernel namespaces sequences sets splitting vocabs.files
|
io.files kernel namespaces sequences sets splitting vocabs.files
|
||||||
vocabs.hierarchy vocabs.loader vocabs.metadata ;
|
vocabs.hierarchy vocabs.loader vocabs.metadata ;
|
||||||
in: modern.paths
|
IN: modern.paths
|
||||||
|
|
||||||
: vocabs-from ( root -- vocabs )
|
: vocabs-from ( root -- vocabs )
|
||||||
"" disk-vocabs-in-root/prefix
|
"" disk-vocabs-in-root/prefix
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@
|
||||||
USING: parser system kernel sequences math math.ranges
|
USING: parser system kernel sequences math math.ranges
|
||||||
cpu.ppc.assembler combinators compiler.constants
|
cpu.ppc.assembler combinators compiler.constants
|
||||||
bootstrap.image.private layouts namespaces ;
|
bootstrap.image.private layouts namespaces ;
|
||||||
in: bootstrap.ppc
|
IN: bootstrap.ppc
|
||||||
|
|
||||||
4 \ cell set
|
4 \ cell set
|
||||||
big-endian on
|
big-endian on
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@
|
||||||
USING: parser system kernel sequences math math.ranges
|
USING: parser system kernel sequences math math.ranges
|
||||||
cpu.ppc.assembler combinators compiler.constants
|
cpu.ppc.assembler combinators compiler.constants
|
||||||
bootstrap.image.private layouts namespaces ;
|
bootstrap.image.private layouts namespaces ;
|
||||||
in: bootstrap.ppc
|
IN: bootstrap.ppc
|
||||||
|
|
||||||
8 \ cell set
|
8 \ cell set
|
||||||
big-endian on
|
big-endian on
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,7 @@ math.private math.ranges layouts words vocabs slots.private
|
||||||
locals locals.backend generic.single.private fry sequences
|
locals locals.backend generic.single.private fry sequences
|
||||||
threads.private strings.private ;
|
threads.private strings.private ;
|
||||||
FROM: cpu.ppc.assembler => B ;
|
FROM: cpu.ppc.assembler => B ;
|
||||||
in: bootstrap.ppc
|
IN: bootstrap.ppc
|
||||||
|
|
||||||
: jit-call ( string -- )
|
: jit-call ( string -- )
|
||||||
dup
|
dup
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,7 @@ USING: bootstrap.image.private compiler.codegen.relocation
|
||||||
compiler.constants cpu.x86.assembler cpu.x86.assembler.operands
|
compiler.constants cpu.x86.assembler cpu.x86.assembler.operands
|
||||||
generic.single.private kernel kernel.private layouts locals math
|
generic.single.private kernel kernel.private layouts locals math
|
||||||
math.private namespaces threads.private ;
|
math.private namespaces threads.private ;
|
||||||
in: bootstrap.x86
|
IN: bootstrap.x86
|
||||||
|
|
||||||
4 \ cell set
|
4 \ cell set
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2010 Slava Pestov.
|
! Copyright (C) 2010 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel parser sequences ;
|
USING: kernel parser sequences ;
|
||||||
in: bootstrap.x86
|
IN: bootstrap.x86
|
||||||
|
|
||||||
COMPILE< "vocab:bootstrap/assembler/x86.unix.factor" parse-file suffix! COMPILE> call
|
COMPILE< "vocab:bootstrap/assembler/x86.unix.factor" parse-file suffix! COMPILE> call
|
||||||
COMPILE< "vocab:bootstrap/assembler/x86.32.factor" parse-file suffix! COMPILE> call
|
COMPILE< "vocab:bootstrap/assembler/x86.32.factor" parse-file suffix! COMPILE> call
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@
|
||||||
USING: compiler.codegen.relocation compiler.constants cpu.x86.assembler
|
USING: compiler.codegen.relocation compiler.constants cpu.x86.assembler
|
||||||
cpu.x86.assembler.operands kernel kernel.private layouts locals parser
|
cpu.x86.assembler.operands kernel kernel.private layouts locals parser
|
||||||
sequences ;
|
sequences ;
|
||||||
in: bootstrap.x86
|
IN: bootstrap.x86
|
||||||
|
|
||||||
: tib-segment ( -- ) FS ;
|
: tib-segment ( -- ) FS ;
|
||||||
: tib-temp ( -- reg ) EAX ;
|
: tib-temp ( -- reg ) EAX ;
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,7 @@ USING: bootstrap.image.private compiler.codegen.relocation
|
||||||
compiler.constants cpu.x86.assembler cpu.x86.assembler.operands
|
compiler.constants cpu.x86.assembler cpu.x86.assembler.operands
|
||||||
generic.single.private kernel kernel.private layouts locals math
|
generic.single.private kernel kernel.private layouts locals math
|
||||||
math.private namespaces threads.private ;
|
math.private namespaces threads.private ;
|
||||||
in: bootstrap.x86
|
IN: bootstrap.x86
|
||||||
|
|
||||||
8 \ cell set
|
8 \ cell set
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,7 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: cpu.x86.assembler.operands kernel layouts parser
|
USING: cpu.x86.assembler.operands kernel layouts parser
|
||||||
sequences ;
|
sequences ;
|
||||||
in: bootstrap.x86
|
IN: bootstrap.x86
|
||||||
|
|
||||||
: stack-frame-size ( -- n ) 4 bootstrap-cells ;
|
: stack-frame-size ( -- n ) 4 bootstrap-cells ;
|
||||||
: nv-regs ( -- seq ) { RBX R12 R13 R14 R15 } ;
|
: nv-regs ( -- seq ) { RBX R12 R13 R14 R15 } ;
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,7 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: cpu.x86.assembler cpu.x86.assembler.operands kernel
|
USING: cpu.x86.assembler cpu.x86.assembler.operands kernel
|
||||||
layouts parser sequences ;
|
layouts parser sequences ;
|
||||||
in: bootstrap.x86
|
IN: bootstrap.x86
|
||||||
|
|
||||||
defer: stack-reg
|
defer: stack-reg
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,7 @@ compiler.constants compiler.units cpu.x86.assembler
|
||||||
cpu.x86.assembler.operands kernel kernel.private layouts locals
|
cpu.x86.assembler.operands kernel kernel.private layouts locals
|
||||||
locals.backend math math.private memory namespaces sequences
|
locals.backend math math.private memory namespaces sequences
|
||||||
slots.private strings.private vocabs ;
|
slots.private strings.private vocabs ;
|
||||||
in: bootstrap.x86
|
IN: bootstrap.x86
|
||||||
|
|
||||||
: temp0/32 ( -- reg )
|
: temp0/32 ( -- reg )
|
||||||
temp0 32-bit-version-of ;
|
temp0 32-bit-version-of ;
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,7 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: cpu.x86.assembler cpu.x86.assembler.operands kernel
|
USING: cpu.x86.assembler cpu.x86.assembler.operands kernel
|
||||||
layouts ;
|
layouts ;
|
||||||
in: bootstrap.x86
|
IN: bootstrap.x86
|
||||||
|
|
||||||
defer: stack-reg
|
defer: stack-reg
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,7 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: compiler.constants cpu.x86.assembler
|
USING: compiler.constants cpu.x86.assembler
|
||||||
cpu.x86.assembler.operands layouts locals ;
|
cpu.x86.assembler.operands layouts locals ;
|
||||||
in: bootstrap.x86
|
IN: bootstrap.x86
|
||||||
|
|
||||||
: tib-exception-list-offset ( -- n ) 0 bootstrap-cells ;
|
: tib-exception-list-offset ( -- n ) 0 bootstrap-cells ;
|
||||||
: tib-stack-base-offset ( -- n ) 1 bootstrap-cells ;
|
: tib-stack-base-offset ( -- n ) 1 bootstrap-cells ;
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,7 @@ USING: command-line compiler.units continuations definitions io
|
||||||
io.pathnames kernel math math.parser memory namespaces parser
|
io.pathnames kernel math math.parser memory namespaces parser
|
||||||
parser.notes sequences sets splitting system combinators
|
parser.notes sequences sets splitting system combinators
|
||||||
vocabs vocabs.loader ;
|
vocabs vocabs.loader ;
|
||||||
in: bootstrap.stage2
|
IN: bootstrap.stage2
|
||||||
|
|
||||||
symbol: core-bootstrap-time
|
symbol: core-bootstrap-time
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: compiler.cfg.instructions help.markup help.syntax kernel ;
|
USING: compiler.cfg.instructions help.markup help.syntax kernel ;
|
||||||
in: compiler.cfg.value-numbering.comparisons
|
IN: compiler.cfg.value-numbering.comparisons
|
||||||
|
|
||||||
HELP: >test-branch
|
HELP: >test-branch
|
||||||
{ $values { "insn" insn } { "insn'" ##test-branch } }
|
{ $values { "insn" insn } { "insn'" ##test-branch } }
|
||||||
|
|
|
||||||
|
|
@ -9,7 +9,7 @@ system threads tools.test words ;
|
||||||
FROM: alien.c-types => float short ;
|
FROM: alien.c-types => float short ;
|
||||||
specialized-array: float
|
specialized-array: float
|
||||||
specialized-array: char
|
specialized-array: char
|
||||||
in: compiler.tests.alien
|
IN: compiler.tests.alien
|
||||||
|
|
||||||
! Make sure that invalid inputs don't pass the stack checker
|
! Make sure that invalid inputs don't pass the stack checker
|
||||||
[ [ void { } "cdecl" alien-indirect ] infer ] must-fail
|
[ [ void { } "cdecl" alien-indirect ] infer ] must-fail
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: tools.test combinators generic.single sequences kernel ;
|
USING: tools.test combinators generic.single sequences kernel ;
|
||||||
in: compiler.tests.call-effect
|
IN: compiler.tests.call-effect
|
||||||
|
|
||||||
: execute-ic-test ( a b -- c ) execute( a -- c ) ;
|
: execute-ic-test ( a b -- c ) execute( a -- c ) ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: accessors io io.encodings.ascii io.files io.files.temp
|
USING: accessors io io.encodings.ascii io.files io.files.temp
|
||||||
io.launcher kernel make sequences system tools.test ;
|
io.launcher kernel make sequences system tools.test ;
|
||||||
in: compiler.tests.callback-error
|
IN: compiler.tests.callback-error
|
||||||
|
|
||||||
: callback-error-script ( -- path )
|
: callback-error-script ( -- path )
|
||||||
"callback-error-script" temp-file ;
|
"callback-error-script" temp-file ;
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,7 @@ USING: accessors classes.struct continuations kernel kernel.private literals
|
||||||
math memory sequences system threads.private tools.dispatch.private
|
math memory sequences system threads.private tools.dispatch.private
|
||||||
tools.test ;
|
tools.test ;
|
||||||
qualified: vm
|
qualified: vm
|
||||||
in: compiler.tests.callstack-overflow
|
IN: compiler.tests.callstack-overflow
|
||||||
|
|
||||||
! This test file is for all callstack overflow-related problems.
|
! This test file is for all callstack overflow-related problems.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -8,7 +8,7 @@ math.libm math.parser math.functions alien.syntax memory
|
||||||
stack-checker ;
|
stack-checker ;
|
||||||
FROM: math => float ;
|
FROM: math => float ;
|
||||||
qualified: namespaces.private
|
qualified: namespaces.private
|
||||||
in: compiler.tests.codegen
|
IN: compiler.tests.codegen
|
||||||
|
|
||||||
! Originally, this file did black box testing of templating
|
! Originally, this file did black box testing of templating
|
||||||
! optimization. We now have a different codegen, but the tests
|
! optimization. We now have a different codegen, but the tests
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
USING: tools.test quotations math kernel sequences
|
USING: tools.test quotations math kernel sequences
|
||||||
assocs namespaces make compiler.units compiler.test
|
assocs namespaces make compiler.units compiler.test
|
||||||
locals random ;
|
locals random ;
|
||||||
in: compiler.tests.curry
|
IN: compiler.tests.curry
|
||||||
|
|
||||||
[ 3 ] [ 5 [ [ 2 - ] curry call ] compile-call ] unit-test
|
[ 3 ] [ 5 [ [ 2 - ] curry call ] compile-call ] unit-test
|
||||||
[ 3 ] [ [ 5 [ 2 - ] curry call ] compile-call ] unit-test
|
[ 3 ] [ [ 5 [ 2 - ] curry call ] compile-call ] unit-test
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
|
|
||||||
USING: kernel math tools.test ;
|
USING: kernel math tools.test ;
|
||||||
in: compiler.tests.dead-code
|
IN: compiler.tests.dead-code
|
||||||
|
|
||||||
: test-outputs0 ( a b -- ) /mod 2drop ;
|
: test-outputs0 ( a b -- ) /mod 2drop ;
|
||||||
: test-outputs1 ( a b -- ) /i drop ;
|
: test-outputs1 ( a b -- ) /i drop ;
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,7 @@ specialized-arrays sequences math.functions layouts literals ;
|
||||||
QUALIFIED-WITH: alien.c-types c ;
|
QUALIFIED-WITH: alien.c-types c ;
|
||||||
specialized-array: c:float
|
specialized-array: c:float
|
||||||
specialized-array: c:double
|
specialized-array: c:double
|
||||||
in: compiler.tests.float
|
IN: compiler.tests.float
|
||||||
|
|
||||||
[ 3.0 1 2 3 ] [ 1.0 2.0 [ float+ 1 2 3 ] compile-call ] unit-test
|
[ 3.0 1 2 3 ] [ 1.0 2.0 [ float+ 1 2 3 ] compile-call ] unit-test
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: eval tools.test compiler.units vocabs words
|
USING: eval tools.test compiler.units vocabs words
|
||||||
kernel classes.mixin arrays ;
|
kernel classes.mixin arrays ;
|
||||||
in: compiler.tests.folding
|
IN: compiler.tests.folding
|
||||||
|
|
||||||
! Calls to generic words were not folded away.
|
! Calls to generic words were not folded away.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -8,7 +8,7 @@ namespaces libc io.encodings.ascii classes compiler.test ;
|
||||||
FROM: math => float ;
|
FROM: math => float ;
|
||||||
FROM: alien.c-types => short ;
|
FROM: alien.c-types => short ;
|
||||||
QUALIFIED-WITH: alien.c-types c ;
|
QUALIFIED-WITH: alien.c-types c ;
|
||||||
in: compiler.tests.intrinsics
|
IN: compiler.tests.intrinsics
|
||||||
|
|
||||||
! Make sure that intrinsic ops compile to correct code.
|
! Make sure that intrinsic ops compile to correct code.
|
||||||
[ ] [ 1 [ drop ] compile-call ] unit-test
|
[ ] [ 1 [ drop ] compile-call ] unit-test
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
USING: tools.test namespaces assocs alien.syntax kernel
|
USING: tools.test namespaces assocs alien.syntax kernel
|
||||||
compiler.errors accessors alien alien.c-types alien.strings
|
compiler.errors accessors alien alien.c-types alien.strings
|
||||||
debugger literals kernel.private alien.libraries ;
|
debugger literals kernel.private alien.libraries ;
|
||||||
in: compiler.tests.linkage-errors
|
IN: compiler.tests.linkage-errors
|
||||||
|
|
||||||
! Regression: calling an undefined function would raise a protection fault
|
! Regression: calling an undefined function would raise a protection fault
|
||||||
FUNCTION: void this_does_not_exist ( ) ;
|
FUNCTION: void this_does_not_exist ( ) ;
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,7 @@ compiler.cfg.ssa.destruction compiler.cfg.build-stack-frame
|
||||||
compiler.cfg.utilities compiler.codegen compiler.units cpu.architecture
|
compiler.cfg.utilities compiler.codegen compiler.units cpu.architecture
|
||||||
hashtables kernel namespaces sequences tools.test vectors words layouts
|
hashtables kernel namespaces sequences tools.test vectors words layouts
|
||||||
literals math arrays alien.c-types alien.syntax math.private ;
|
literals math arrays alien.c-types alien.syntax math.private ;
|
||||||
in: compiler.tests.low-level-ir
|
IN: compiler.tests.low-level-ir
|
||||||
|
|
||||||
: compile-cfg ( cfg -- word )
|
: compile-cfg ( cfg -- word )
|
||||||
gensym [
|
gensym [
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@ compiler.tree.builder compiler.tree.optimizer sequences.deep
|
||||||
compiler.test definitions generic.single shuffle math.order
|
compiler.test definitions generic.single shuffle math.order
|
||||||
compiler.cfg.debugger classes.struct alien.syntax alien.data
|
compiler.cfg.debugger classes.struct alien.syntax alien.data
|
||||||
alien.c-types splitting ;
|
alien.c-types splitting ;
|
||||||
in: compiler.tests.optimizer
|
IN: compiler.tests.optimizer
|
||||||
|
|
||||||
GENERIC: xyz ( obj -- obj ) ;
|
GENERIC: xyz ( obj -- obj ) ;
|
||||||
M: array xyz xyz ;
|
M: array xyz xyz ;
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: peg.ebnf strings tools.test ;
|
USING: peg.ebnf strings tools.test ;
|
||||||
in: compiler.tests.peg-regression-2
|
IN: compiler.tests.peg-regression-2
|
||||||
|
|
||||||
GENERIC: <times> ( times -- term' ) ;
|
GENERIC: <times> ( times -- term' ) ;
|
||||||
M: string <times> ;
|
M: string <times> ;
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,7 @@
|
||||||
! end of a compilation unit.
|
! end of a compilation unit.
|
||||||
|
|
||||||
USING: kernel accessors peg.ebnf words ;
|
USING: kernel accessors peg.ebnf words ;
|
||||||
in: compiler.tests.peg-regression
|
IN: compiler.tests.peg-regression
|
||||||
|
|
||||||
TUPLE: pipeline-expr background ;
|
TUPLE: pipeline-expr background ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: kernel sequences prettyprint memory tools.test ;
|
USING: kernel sequences prettyprint memory tools.test ;
|
||||||
in: compiler.tests.pic-problem-1
|
IN: compiler.tests.pic-problem-1
|
||||||
|
|
||||||
TUPLE: x ;
|
TUPLE: x ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: tools.test eval compiler compiler.errors compiler.units definitions
|
USING: tools.test eval compiler compiler.errors compiler.units definitions
|
||||||
kernel math namespaces macros assocs ;
|
kernel math namespaces macros assocs ;
|
||||||
in: compiler.tests.redefine0
|
IN: compiler.tests.redefine0
|
||||||
|
|
||||||
! Test ripple-up behavior
|
! Test ripple-up behavior
|
||||||
: test-1 ( -- a ) 3 ;
|
: test-1 ( -- a ) 3 ;
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
USING: accessors compiler compiler.units tools.test math parser
|
USING: accessors compiler compiler.units tools.test math parser
|
||||||
kernel sequences sequences.private classes.mixin generic
|
kernel sequences sequences.private classes.mixin generic
|
||||||
definitions arrays words assocs eval strings ;
|
definitions arrays words assocs eval strings ;
|
||||||
in: compiler.tests.redefine1
|
IN: compiler.tests.redefine1
|
||||||
|
|
||||||
GENERIC: method-redefine-generic-1 ( a -- b ) ;
|
GENERIC: method-redefine-generic-1 ( a -- b ) ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: eval tools.test compiler.units vocabs words kernel
|
USING: eval tools.test compiler.units vocabs words kernel
|
||||||
definitions sequences math classes classes.mixin kernel.private ;
|
definitions sequences math classes classes.mixin kernel.private ;
|
||||||
in: compiler.tests.redefine10
|
IN: compiler.tests.redefine10
|
||||||
|
|
||||||
! Mixin redefinition should update predicate call sites
|
! Mixin redefinition should update predicate call sites
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: eval tools.test compiler.units vocabs words
|
USING: eval tools.test compiler.units vocabs words
|
||||||
kernel classes.mixin arrays ;
|
kernel classes.mixin arrays ;
|
||||||
in: compiler.tests.redefine11
|
IN: compiler.tests.redefine11
|
||||||
|
|
||||||
! Mixin redefinition did not recompile all necessary words.
|
! Mixin redefinition did not recompile all necessary words.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: kernel tools.test eval ;
|
USING: kernel tools.test eval ;
|
||||||
in: compiler.tests.redefine12
|
IN: compiler.tests.redefine12
|
||||||
|
|
||||||
! A regression that came about when fixing the
|
! A regression that came about when fixing the
|
||||||
! 'no method on classes-intersect?' bug
|
! 'no method on classes-intersect?' bug
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: math fry macros eval tools.test ;
|
USING: math fry macros eval tools.test ;
|
||||||
in: compiler.tests.redefine13
|
IN: compiler.tests.redefine13
|
||||||
|
|
||||||
: breakage-word ( a b -- c ) + ;
|
: breakage-word ( a b -- c ) + ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: compiler.units definitions tools.test sequences ;
|
USING: compiler.units definitions tools.test sequences ;
|
||||||
in: compiler.tests.redefine14
|
IN: compiler.tests.redefine14
|
||||||
|
|
||||||
TUPLE: bad ;
|
TUPLE: bad ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: compiler.units words tools.test math kernel ;
|
USING: compiler.units words tools.test math kernel ;
|
||||||
in: compiler.tests.redefine15
|
IN: compiler.tests.redefine15
|
||||||
|
|
||||||
defer: word-1
|
defer: word-1
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: eval tools.test definitions words compiler.units
|
USING: eval tools.test definitions words compiler.units
|
||||||
quotations stack-checker ;
|
quotations stack-checker ;
|
||||||
in: compiler.tests.redefine16
|
IN: compiler.tests.redefine16
|
||||||
|
|
||||||
[ ] [ [ "blah" "compiler.tests.redefine16" lookup-word forget ] with-compilation-unit ] unit-test
|
[ ] [ [ "blah" "compiler.tests.redefine16" lookup-word forget ] with-compilation-unit ] unit-test
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: tools.test classes.mixin compiler.units arrays kernel.private
|
USING: tools.test classes.mixin compiler.units arrays kernel.private
|
||||||
strings sequences vocabs definitions kernel ;
|
strings sequences vocabs definitions kernel ;
|
||||||
in: compiler.tests.redefine17
|
IN: compiler.tests.redefine17
|
||||||
|
|
||||||
COMPILE< "compiler.tests.redefine17" vocab-words forget-all COMPILE>
|
COMPILE< "compiler.tests.redefine17" vocab-words forget-all COMPILE>
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: kernel classes.mixin compiler.units tools.test generic ;
|
USING: kernel classes.mixin compiler.units tools.test generic ;
|
||||||
in: compiler.tests.redefine19
|
IN: compiler.tests.redefine19
|
||||||
|
|
||||||
GENERIC: g ( a -- b ) ;
|
GENERIC: g ( a -- b ) ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
in: compiler.tests.redefine20
|
IN: compiler.tests.redefine20
|
||||||
USING: kernel sequences compiler.units definitions classes.mixin
|
USING: kernel sequences compiler.units definitions classes.mixin
|
||||||
tools.test ;
|
tools.test ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: kernel tools.test definitions compiler.units ;
|
USING: kernel tools.test definitions compiler.units ;
|
||||||
in: compiler.tests.redefine21
|
IN: compiler.tests.redefine21
|
||||||
|
|
||||||
[ ] [ : a ( -- ) ; COMPILE< : b ( quot -- ) call a ; inline COMPILE> [ ] b ] unit-test
|
[ ] [ : a ( -- ) ; COMPILE< : b ( quot -- ) call a ; inline COMPILE> [ ] b ] unit-test
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
in: compiler.tests.redefine22
|
IN: compiler.tests.redefine22
|
||||||
USING: kernel sequences compiler.units vocabs tools.test definitions ;
|
USING: kernel sequences compiler.units vocabs tools.test definitions ;
|
||||||
|
|
||||||
TUPLE: ttt ;
|
TUPLE: ttt ;
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
in: compiler.tests.redefine23
|
IN: compiler.tests.redefine23
|
||||||
USING: classes.struct specialized-arrays alien.c-types sequences
|
USING: classes.struct specialized-arrays alien.c-types sequences
|
||||||
compiler.units vocabs tools.test specialized-arrays.private ;
|
compiler.units vocabs tools.test specialized-arrays.private ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: alien alien.syntax eval math tools.test ;
|
USING: alien alien.syntax eval math tools.test ;
|
||||||
qualified: alien.c-types
|
qualified: alien.c-types
|
||||||
in: compiler.tests.redefine24
|
IN: compiler.tests.redefine24
|
||||||
|
|
||||||
TYPEDEF: alien.c-types:int type-1 ;
|
TYPEDEF: alien.c-types:int type-1 ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: tools.test compiler.units classes.mixin definitions
|
USING: tools.test compiler.units classes.mixin definitions
|
||||||
kernel kernel.private ;
|
kernel kernel.private ;
|
||||||
in: compiler.tests.redefine25
|
IN: compiler.tests.redefine25
|
||||||
|
|
||||||
mixin: empty-mixin
|
mixin: empty-mixin
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: accessors classes.tuple classes.maybe compiler.units
|
USING: accessors classes.tuple classes.maybe compiler.units
|
||||||
kernel math slots tools.test classes.union ;
|
kernel math slots tools.test classes.union ;
|
||||||
in: compiler.tests.redefine26
|
IN: compiler.tests.redefine26
|
||||||
|
|
||||||
TUPLE: yoo ;
|
TUPLE: yoo ;
|
||||||
TUPLE: hoo ;
|
TUPLE: hoo ;
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: io.streams.string kernel tools.test eval ;
|
USING: io.streams.string kernel tools.test eval ;
|
||||||
in: compiler.tests.redefine4
|
IN: compiler.tests.redefine4
|
||||||
|
|
||||||
: declaration-test-1 ( -- a ) 3 ; flushable
|
: declaration-test-1 ( -- a ) 3 ; flushable
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: eval tools.test compiler.units vocabs words kernel ;
|
USING: eval tools.test compiler.units vocabs words kernel ;
|
||||||
in: compiler.tests.redefine5
|
IN: compiler.tests.redefine5
|
||||||
|
|
||||||
! Regression: if dispatch was eliminated but method was not inlined,
|
! Regression: if dispatch was eliminated but method was not inlined,
|
||||||
! compiled usage information was not recorded.
|
! compiled usage information was not recorded.
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: eval tools.test compiler.units vocabs words
|
USING: eval tools.test compiler.units vocabs words
|
||||||
kernel ;
|
kernel ;
|
||||||
in: compiler.tests.redefine6
|
IN: compiler.tests.redefine6
|
||||||
|
|
||||||
! Mixin redefinition did not recompile all necessary words.
|
! Mixin redefinition did not recompile all necessary words.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: eval tools.test compiler.units vocabs words
|
USING: eval tools.test compiler.units vocabs words
|
||||||
kernel ;
|
kernel ;
|
||||||
in: compiler.tests.redefine7
|
IN: compiler.tests.redefine7
|
||||||
|
|
||||||
! Mixin redefinition did not recompile all necessary words.
|
! Mixin redefinition did not recompile all necessary words.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: eval tools.test compiler.units vocabs words
|
USING: eval tools.test compiler.units vocabs words
|
||||||
kernel ;
|
kernel ;
|
||||||
in: compiler.tests.redefine8
|
IN: compiler.tests.redefine8
|
||||||
|
|
||||||
! Mixin redefinition did not recompile all necessary words.
|
! Mixin redefinition did not recompile all necessary words.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: eval tools.test compiler.units vocabs words
|
USING: eval tools.test compiler.units vocabs words
|
||||||
kernel generic.math ;
|
kernel generic.math ;
|
||||||
in: compiler.tests.redefine9
|
IN: compiler.tests.redefine9
|
||||||
|
|
||||||
! Mixin redefinition did not recompile all necessary words.
|
! Mixin redefinition did not recompile all necessary words.
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
use: vocabs.loader
|
use: vocabs.loader
|
||||||
in: compiler.tests.reload
|
IN: compiler.tests.reload
|
||||||
|
|
||||||
! "parser" reload
|
! "parser" reload
|
||||||
! "sequences" reload
|
! "sequences" reload
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,7 @@ USING: compiler.test compiler.units tools.test kernel kernel.private
|
||||||
sequences.private math.private math combinators strings alien
|
sequences.private math.private math combinators strings alien
|
||||||
arrays memory vocabs parser eval quotations compiler.errors
|
arrays memory vocabs parser eval quotations compiler.errors
|
||||||
definitions generic.single ;
|
definitions generic.single ;
|
||||||
in: compiler.tests.simple
|
IN: compiler.tests.simple
|
||||||
|
|
||||||
! Test empty word
|
! Test empty word
|
||||||
[ ] [ [ ] compile-call ] unit-test
|
[ ] [ [ ] compile-call ] unit-test
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: math.private kernel combinators accessors arrays
|
USING: math.private kernel combinators accessors arrays
|
||||||
generalizations sequences.generalizations tools.test words ;
|
generalizations sequences.generalizations tools.test words ;
|
||||||
in: compiler.tests.spilling
|
IN: compiler.tests.spilling
|
||||||
|
|
||||||
! These tests are stupid and don't trigger spilling anymore
|
! These tests are stupid and don't trigger spilling anymore
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
USING: accessors combinators continuations grouping io.backend
|
USING: accessors combinators continuations grouping io.backend
|
||||||
io.encodings.utf8 io.files kernel math namespaces parser
|
io.encodings.utf8 io.files kernel math namespaces parser
|
||||||
sequences tools.test ;
|
sequences tools.test ;
|
||||||
in: compiler.tests.stack-trace
|
IN: compiler.tests.stack-trace
|
||||||
|
|
||||||
: symbolic-stack-trace ( -- newseq )
|
: symbolic-stack-trace ( -- newseq )
|
||||||
error-continuation get call>> callstack>array
|
error-continuation get call>> callstack>array
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: kernel tools.test compiler.units compiler.test ;
|
USING: kernel tools.test compiler.units compiler.test ;
|
||||||
in: compiler.tests.tuples
|
IN: compiler.tests.tuples
|
||||||
|
|
||||||
TUPLE: color red green blue ;
|
TUPLE: color red green blue ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
in: compiler.tests.x87-regression
|
IN: compiler.tests.x87-regression
|
||||||
USING: math.floats.env alien.syntax alien.c-types compiler.test
|
USING: math.floats.env alien.syntax alien.c-types compiler.test
|
||||||
tools.test kernel math ;
|
tools.test kernel math ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: tools.test io.pipes io.pipes.unix io.encodings.utf8
|
USING: tools.test io.pipes io.pipes.unix io.encodings.utf8
|
||||||
io.encodings io namespaces sequences ;
|
io.encodings io namespaces sequences ;
|
||||||
in: io.pipes.unix.tests
|
IN: io.pipes.unix.tests
|
||||||
|
|
||||||
[ { 0 0 } ] [ { "ls" "grep ." } run-pipeline ] unit-test
|
[ { 0 0 } ] [ { "ls" "grep ." } run-pipeline ] unit-test
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: multi-methods tools.test math sequences namespaces system
|
USING: multi-methods tools.test math sequences namespaces system
|
||||||
kernel strings ;
|
kernel strings ;
|
||||||
in: multi-methods.tests
|
IN: multi-methods.tests
|
||||||
|
|
||||||
[ { postpone\ f integer } ] [ { f integer } canonicalize-specializer-0 ] unit-test
|
[ { postpone\ f integer } ] [ { f integer } canonicalize-specializer-0 ] unit-test
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: multi-methods tools.test math sequences namespaces system
|
USING: multi-methods tools.test math sequences namespaces system
|
||||||
kernel strings words compiler.units quotations ;
|
kernel strings words compiler.units quotations ;
|
||||||
in: multi-methods.tests
|
IN: multi-methods.tests
|
||||||
|
|
||||||
defer: fake
|
defer: fake
|
||||||
\ fake H{ } clone "multi-methods" set-word-prop
|
\ fake H{ } clone "multi-methods" set-word-prop
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: math strings sequences tools.test ;
|
USING: math strings sequences tools.test ;
|
||||||
in: multi-methods.tests
|
IN: multi-methods.tests
|
||||||
|
|
||||||
GENERIC: legacy-test ( a -- b ) ;
|
GENERIC: legacy-test ( a -- b ) ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,7 @@ USING: multi-methods tools.test math sequences namespaces system
|
||||||
kernel strings definitions prettyprint debugger arrays
|
kernel strings definitions prettyprint debugger arrays
|
||||||
hashtables continuations classes assocs accessors see ;
|
hashtables continuations classes assocs accessors see ;
|
||||||
RENAME: GENERIC: multi-methods => multi-methods:GENERIC: ;
|
RENAME: GENERIC: multi-methods => multi-methods:GENERIC: ;
|
||||||
in: multi-methods.tests
|
IN: multi-methods.tests
|
||||||
|
|
||||||
multi-methods:GENERIC: first-test ( -- ) ;
|
multi-methods:GENERIC: first-test ( -- ) ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: kernel multi-methods tools.test math arrays sequences
|
USING: kernel multi-methods tools.test math arrays sequences
|
||||||
math.order ;
|
math.order ;
|
||||||
in: multi-methods.tests
|
IN: multi-methods.tests
|
||||||
|
|
||||||
[ { 1 2 3 4 5 6 } ] [
|
[ { 1 2 3 4 5 6 } ] [
|
||||||
{ 6 4 5 1 3 2 } [ <=> ] topological-sort
|
{ 6 4 5 1 3 2 } [ <=> ] topological-sort
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
in: namespaces
|
IN: namespaces
|
||||||
use: kernel-internals
|
use: kernel-internals
|
||||||
: with-variables ( ns quot -- )
|
: with-variables ( ns quot -- )
|
||||||
swap >n call n> drop ;
|
swap >n call n> drop ;
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: alien byte-arrays help.markup help.syntax math math.blas.vectors sequences strings ;
|
USING: alien byte-arrays help.markup help.syntax math math.blas.vectors sequences strings ;
|
||||||
in: math.blas.matrices
|
IN: math.blas.matrices
|
||||||
|
|
||||||
ARTICLE: "math.blas-summary" "Basic Linear Algebra Subroutines (BLAS) interface"
|
ARTICLE: "math.blas-summary" "Basic Linear Algebra Subroutines (BLAS) interface"
|
||||||
"Factor provides an interface to high-performance vector and matrix math routines available in implementations of the BLAS math library. A set of specialized types are provided for handling packed, unboxed vector data:"
|
"Factor provides an interface to high-performance vector and matrix math routines available in implementations of the BLAS math library. A set of specialized types are provided for handling packed, unboxed vector data:"
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: kernel math.blas.matrices math.blas.vectors
|
USING: kernel math.blas.matrices math.blas.vectors
|
||||||
sequences tools.test ;
|
sequences tools.test ;
|
||||||
in: math.blas.matrices.tests
|
IN: math.blas.matrices.tests
|
||||||
|
|
||||||
! clone
|
! clone
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,7 @@ specialized-array: float
|
||||||
specialized-array: double
|
specialized-array: double
|
||||||
specialized-array: complex-float
|
specialized-array: complex-float
|
||||||
specialized-array: complex-double
|
specialized-array: complex-double
|
||||||
in: math.blas.matrices
|
IN: math.blas.matrices
|
||||||
|
|
||||||
TUPLE: blas-matrix-base underlying ld rows cols transpose ;
|
TUPLE: blas-matrix-base underlying ld rows cols transpose ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: alien byte-arrays help.markup help.syntax math sequences ;
|
USING: alien byte-arrays help.markup help.syntax math sequences ;
|
||||||
in: math.blas.vectors
|
IN: math.blas.vectors
|
||||||
|
|
||||||
ARTICLE: "math.blas.vectors" "BLAS interface vector operations"
|
ARTICLE: "math.blas.vectors" "BLAS interface vector operations"
|
||||||
"Slicing vectors:"
|
"Slicing vectors:"
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: kernel math.blas.vectors math.functions sequences tools.test ;
|
USING: kernel math.blas.vectors math.functions sequences tools.test ;
|
||||||
in: math.blas.vectors.tests
|
IN: math.blas.vectors.tests
|
||||||
|
|
||||||
! clone
|
! clone
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -8,7 +8,7 @@ specialized-array: float
|
||||||
specialized-array: double
|
specialized-array: double
|
||||||
specialized-array: complex-float
|
specialized-array: complex-float
|
||||||
specialized-array: complex-double
|
specialized-array: complex-double
|
||||||
in: math.blas.vectors
|
IN: math.blas.vectors
|
||||||
|
|
||||||
TUPLE: blas-vector-base underlying length inc ;
|
TUPLE: blas-vector-base underlying length inc ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
USING: math.vectors.simd math.vectors.simd.cords tools.test ;
|
USING: math.vectors.simd math.vectors.simd.cords tools.test ;
|
||||||
in: math.vectors.simd.cords.tests
|
IN: math.vectors.simd.cords.tests
|
||||||
|
|
||||||
{ float-4{ 1.0 2.0 3.0 4.0 } } [ double-4{ 1.0 2.0 3.0 4.0 } >float-4 ] unit-test
|
{ float-4{ 1.0 2.0 3.0 4.0 } } [ double-4{ 1.0 2.0 3.0 4.0 } >float-4 ] unit-test
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@ cpu.architecture effects functors generalizations kernel lexer
|
||||||
math math.vectors.simd math.vectors.simd.intrinsics parser
|
math math.vectors.simd math.vectors.simd.intrinsics parser
|
||||||
prettyprint.custom quotations sequences sequences.cords words
|
prettyprint.custom quotations sequences sequences.cords words
|
||||||
classes ;
|
classes ;
|
||||||
in: math.vectors.simd.cords
|
IN: math.vectors.simd.cords
|
||||||
|
|
||||||
COMPILE<
|
COMPILE<
|
||||||
PRIVATE<
|
PRIVATE<
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
USING: classes.tuple.private cpu.architecture help.markup
|
USING: classes.tuple.private cpu.architecture help.markup
|
||||||
help.syntax kernel.private math math.vectors math.vectors.simd.intrinsics
|
help.syntax kernel.private math math.vectors math.vectors.simd.intrinsics
|
||||||
sequences ;
|
sequences ;
|
||||||
in: math.vectors.simd
|
IN: math.vectors.simd
|
||||||
|
|
||||||
ARTICLE: "math.vectors.simd.intro" "Introduction to SIMD support"
|
ARTICLE: "math.vectors.simd.intro" "Introduction to SIMD support"
|
||||||
"Modern CPUs support a form of data-level parallelism, where arithmetic operations on fixed-size short vectors can be done on all components in parallel. This is known as single-instruction-multiple-data (SIMD)."
|
"Modern CPUs support a form of data-level parallelism, where arithmetic operations on fixed-size short vectors can be done on all components in parallel. This is known as single-instruction-multiple-data (SIMD)."
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,7 @@ math.vectors.simd.cords alien.data ;
|
||||||
FROM: math.vectors.simd.intrinsics => alien-vector set-alien-vector ;
|
FROM: math.vectors.simd.intrinsics => alien-vector set-alien-vector ;
|
||||||
QUALIFIED-WITH: alien.c-types c ;
|
QUALIFIED-WITH: alien.c-types c ;
|
||||||
specialized-array: c:float
|
specialized-array: c:float
|
||||||
in: math.vectors.simd.tests
|
IN: math.vectors.simd.tests
|
||||||
|
|
||||||
! Test type propagation
|
! Test type propagation
|
||||||
{ V{ float } } [ [ { float-4 } declare norm-sq ] final-classes ] unit-test
|
{ V{ float } } [ [ { float-4 } declare norm-sq ] final-classes ] unit-test
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,7 @@ namespaces parser prettyprint.custom quotations sequences
|
||||||
sequences.generalizations sequences.private vocabs vocabs.loader
|
sequences.generalizations sequences.private vocabs vocabs.loader
|
||||||
words math.bitwise ;
|
words math.bitwise ;
|
||||||
QUALIFIED-WITH: alien.c-types c ;
|
QUALIFIED-WITH: alien.c-types c ;
|
||||||
in: math.vectors.simd
|
IN: math.vectors.simd
|
||||||
|
|
||||||
ERROR: bad-simd-length got expected ;
|
ERROR: bad-simd-length got expected ;
|
||||||
ERROR: bad-simd-vector obj ;
|
ERROR: bad-simd-vector obj ;
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: xml xml.writer tools.test ;
|
USING: xml xml.writer tools.test ;
|
||||||
in: xml.tests
|
IN: xml.tests
|
||||||
|
|
||||||
{
|
{
|
||||||
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>
|
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
! 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.
|
||||||
in: xml.tests
|
IN: xml.tests
|
||||||
USING: xml xml.writer io.files io.encodings.utf8 tools.test kernel ;
|
USING: xml xml.writer io.files io.encodings.utf8 tools.test kernel ;
|
||||||
|
|
||||||
[ t ] [
|
[ t ] [
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: sequences xml kernel arrays xml.traversal io.files tools.test ;
|
USING: sequences xml kernel arrays xml.traversal io.files tools.test ;
|
||||||
in: xml.tests
|
IN: xml.tests
|
||||||
|
|
||||||
: assemble-data ( tag -- 3array )
|
: assemble-data ( tag -- 3array )
|
||||||
{ "URL" "snippet" "title" }
|
{ "URL" "snippet" "title" }
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
USING: tools.test xml.tokenize xml.state io.streams.string kernel io strings ascii ;
|
USING: tools.test xml.tokenize xml.state io.streams.string kernel io strings ascii ;
|
||||||
in: xml.test.state
|
IN: xml.test.state
|
||||||
|
|
||||||
: string-parse ( str quot -- )
|
: string-parse ( str quot -- )
|
||||||
[ <string-reader> ] dip with-state ; inline
|
[ <string-reader> ] dip with-state ; inline
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
USING: kernel xml sequences assocs tools.test io arrays namespaces fry
|
USING: kernel xml sequences assocs tools.test io arrays namespaces fry
|
||||||
accessors xml.data xml.traversal xml.writer generic sequences.deep multiline ;
|
accessors xml.data xml.traversal xml.writer generic sequences.deep multiline ;
|
||||||
in: xml.tests
|
IN: xml.tests
|
||||||
|
|
||||||
CONSTANT: sub-tag
|
CONSTANT: sub-tag
|
||||||
T{ name f f "sub" "http://littledan.onigirihouse.com/namespaces/replace" } ;
|
T{ name f f "sub" "http://littledan.onigirihouse.com/namespaces/replace" } ;
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (C) 2005, 2009 Daniel Ehrenberg
|
! Copyright (C) 2005, 2009 Daniel Ehrenberg
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
in: xml.tests
|
IN: xml.tests
|
||||||
USING: kernel xml tools.test io namespaces make sequences
|
USING: kernel xml tools.test io namespaces make sequences
|
||||||
xml.errors xml.entities.html parser strings xml.data io.files
|
xml.errors xml.entities.html parser strings xml.data io.files
|
||||||
xml.traversal continuations assocs io.encodings.binary
|
xml.traversal continuations assocs io.encodings.binary
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,7 @@ USING: accessors assocs combinators combinators.smart
|
||||||
continuations fry generalizations io.pathnames kernel macros
|
continuations fry generalizations io.pathnames kernel macros
|
||||||
sequences stack-checker tools.test xml xml.traversal xml.writer
|
sequences stack-checker tools.test xml xml.traversal xml.writer
|
||||||
arrays xml.data ;
|
arrays xml.data ;
|
||||||
in: xml.tests.suite
|
IN: xml.tests.suite
|
||||||
|
|
||||||
TUPLE: xml-test id uri sections description type ;
|
TUPLE: xml-test id uri sections description type ;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
! 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: xml xml.data kernel tools.test ;
|
USING: xml xml.data kernel tools.test ;
|
||||||
in: xml.tests
|
IN: xml.tests
|
||||||
|
|
||||||
[ t ] [
|
[ t ] [
|
||||||
"vocab:xmode/xmode.dtd" file>dtd dtd?
|
"vocab:xmode/xmode.dtd" file>dtd dtd?
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,7 @@
|
||||||
USING: byte-arrays calendar calendar.format destructors io
|
USING: byte-arrays calendar calendar.format destructors io
|
||||||
kernel present strings threads zeromq zeromq.ffi ;
|
kernel present strings threads zeromq zeromq.ffi ;
|
||||||
|
|
||||||
in: zeromq.examples.echo-client
|
IN: zeromq.examples.echo-client
|
||||||
|
|
||||||
: echo-client ( -- )
|
: echo-client ( -- )
|
||||||
[
|
[
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@
|
||||||
|
|
||||||
USING: destructors io kernel strings zeromq zeromq.ffi ;
|
USING: destructors io kernel strings zeromq zeromq.ffi ;
|
||||||
|
|
||||||
in: zeromq.examples.echoserver
|
IN: zeromq.examples.echoserver
|
||||||
|
|
||||||
: echo-server ( -- )
|
: echo-server ( -- )
|
||||||
[
|
[
|
||||||
|
|
|
||||||
|
|
@ -2,7 +2,7 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: byte-arrays destructors formatting io kernel sequences
|
USING: byte-arrays destructors formatting io kernel sequences
|
||||||
strings zeromq zeromq.ffi ;
|
strings zeromq zeromq.ffi ;
|
||||||
in: zeromq.examples.hwclient
|
IN: zeromq.examples.hwclient
|
||||||
|
|
||||||
: hwclient ( -- )
|
: hwclient ( -- )
|
||||||
[
|
[
|
||||||
|
|
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue