Merge branch 'master' into x11_event_loop
commit
51789bb9dd
|
@ -0,0 +1 @@
|
||||||
|
Doug Coleman
|
|
@ -0,0 +1,17 @@
|
||||||
|
! Copyright (C) 2008 Doug Coleman.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
USING: editors io.launcher kernel make math.parser namespaces
|
||||||
|
sequences ;
|
||||||
|
IN: editors.gedit
|
||||||
|
|
||||||
|
: gedit-path ( -- path )
|
||||||
|
\ gedit-path get-global [
|
||||||
|
"gedit"
|
||||||
|
] unless* ;
|
||||||
|
|
||||||
|
: gedit ( file line -- )
|
||||||
|
[
|
||||||
|
gedit-path , number>string "+" prepend , ,
|
||||||
|
] { } make run-detached drop ;
|
||||||
|
|
||||||
|
[ gedit ] edit-hook set-global
|
|
@ -0,0 +1 @@
|
||||||
|
gedit integration
|
|
@ -0,0 +1 @@
|
||||||
|
unportable
|
|
@ -24,6 +24,9 @@ ERROR: no-vocab vocab ;
|
||||||
|
|
||||||
: contains-separator? ( string -- ? ) [ path-separator? ] any? ;
|
: contains-separator? ( string -- ? ) [ path-separator? ] any? ;
|
||||||
|
|
||||||
|
: ensure-vocab-exists ( string -- string )
|
||||||
|
dup vocabs member? [ no-vocab ] unless ;
|
||||||
|
|
||||||
: check-vocab-name ( string -- string )
|
: check-vocab-name ( string -- string )
|
||||||
[ ]
|
[ ]
|
||||||
[ contains-dot? [ vocab-name-contains-dot ] when ]
|
[ contains-dot? [ vocab-name-contains-dot ] when ]
|
||||||
|
@ -234,6 +237,7 @@ PRIVATE>
|
||||||
[ (help.) ] [ nl vocabulary>> link-vocab ] bi ;
|
[ (help.) ] [ nl vocabulary>> link-vocab ] bi ;
|
||||||
|
|
||||||
: scaffold-help ( vocab -- )
|
: scaffold-help ( vocab -- )
|
||||||
|
ensure-vocab-exists
|
||||||
[
|
[
|
||||||
dup "-docs.factor" vocab/suffix>path scaffolding? [
|
dup "-docs.factor" vocab/suffix>path scaffolding? [
|
||||||
set-scaffold-docs-file
|
set-scaffold-docs-file
|
||||||
|
@ -268,6 +272,7 @@ PRIVATE>
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: scaffold-tests ( vocab -- )
|
: scaffold-tests ( vocab -- )
|
||||||
|
ensure-vocab-exists
|
||||||
dup "-tests.factor" vocab/suffix>path
|
dup "-tests.factor" vocab/suffix>path
|
||||||
scaffolding? [
|
scaffolding? [
|
||||||
set-scaffold-tests-file
|
set-scaffold-tests-file
|
||||||
|
|
|
@ -1,5 +1,2 @@
|
||||||
USING: mason.build tools.test sequences ;
|
USING: mason.build tools.test sequences ;
|
||||||
IN: mason.build.tests
|
IN: mason.build.tests
|
||||||
|
|
||||||
{ create-build-dir enter-build-dir clone-builds-factor record-id }
|
|
||||||
[ must-infer ] each
|
|
||||||
|
|
|
@ -5,7 +5,6 @@ USING: mason.email mason.common mason.config namespaces tools.test ;
|
||||||
[
|
[
|
||||||
"linux" target-os set
|
"linux" target-os set
|
||||||
"x86.64" target-cpu set
|
"x86.64" target-cpu set
|
||||||
status-error status set
|
status-error subject prefix-subject
|
||||||
subject prefix-subject
|
|
||||||
] with-scope
|
] with-scope
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
|
@ -63,6 +63,7 @@ IN: mason.report
|
||||||
benchmark-time-file
|
benchmark-time-file
|
||||||
html-help-time-file
|
html-help-time-file
|
||||||
} [
|
} [
|
||||||
|
execute( -- string )
|
||||||
dup utf8 file-contents milli-seconds>time
|
dup utf8 file-contents milli-seconds>time
|
||||||
[XML <tr><td><-></td><td><-></td></tr> XML]
|
[XML <tr><td><-></td><td><-></td></tr> XML]
|
||||||
] map [XML <h2>Timings</h2> <table><-></table> XML] ;
|
] map [XML <h2>Timings</h2> <table><-></table> XML] ;
|
||||||
|
|
Loading…
Reference in New Issue