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