factor: Add newlines to every line.
parent
df189eada5
commit
5aa89e6251
|
@ -60,4 +60,4 @@ PREDICATE: enum-c-type-word < c-type-word
|
||||||
"c-type" word-prop members>> values ;
|
"c-type" word-prop members>> values ;
|
||||||
|
|
||||||
: enum>keys ( enum -- seq )
|
: enum>keys ( enum -- seq )
|
||||||
"c-type" word-prop members>> keys [ name>> ] map ;
|
"c-type" word-prop members>> keys [ name>> ] map ;
|
||||||
|
|
|
@ -28,4 +28,4 @@ ENUM: default-touchbar refresh-all-action auto-use-action ;
|
||||||
self
|
self
|
||||||
action-string lookup-selector -> buttonWithTitle:target:action: :> button
|
action-string lookup-selector -> buttonWithTitle:target:action: :> button
|
||||||
item button -> setView:
|
item button -> setView:
|
||||||
item ;
|
item ;
|
||||||
|
|
|
@ -129,4 +129,4 @@ MACRO: nweave ( n -- quot )
|
||||||
[ bi-curry ] swap call-n ; inline
|
[ bi-curry ] swap call-n ; inline
|
||||||
|
|
||||||
MACRO: map-compose ( quots quot -- quot' )
|
MACRO: map-compose ( quots quot -- quot' )
|
||||||
'[ _ compose ] map '[ _ ] ;
|
'[ _ compose ] map '[ _ ] ;
|
||||||
|
|
|
@ -2,4 +2,4 @@ USE: system
|
||||||
USE: prettyprint
|
USE: prettyprint
|
||||||
USE: prettyprint.config
|
USE: prettyprint.config
|
||||||
USE: environment
|
USE: environment
|
||||||
os-envs [ . ] without-limits
|
os-envs [ . ] without-limits
|
||||||
|
|
|
@ -11,4 +11,4 @@ IN: compiler.tree.propagation.call-effect
|
||||||
|
|
||||||
: call-effect-unsafe? ( quot effect -- ? ) 2drop t ; inline
|
: call-effect-unsafe? ( quot effect -- ? ) 2drop t ; inline
|
||||||
|
|
||||||
: execute-effect-unsafe? ( word effect -- ? ) 2drop t ; inline
|
: execute-effect-unsafe? ( word effect -- ? ) 2drop t ; inline
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -30,4 +30,4 @@ IN: L-system.models.abop-5-angular
|
||||||
: main ( -- ) [ L-system abop-5-angular "L-system" open-window ] with-ui ;
|
: main ( -- ) [ L-system abop-5-angular "L-system" open-window ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
||||||
|
|
|
@ -32,4 +32,4 @@ IN: L-system.models.abop-5
|
||||||
: main ( -- ) [ L-system abop-5 "L-system" open-window ] with-ui ;
|
: main ( -- ) [ L-system abop-5 "L-system" open-window ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
||||||
|
|
|
@ -31,4 +31,4 @@ IN: L-system.models.abop-6
|
||||||
: main ( -- ) [ L-system abop-6 "L-system" open-window ] with-ui ;
|
: main ( -- ) [ L-system abop-6 "L-system" open-window ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
||||||
|
|
|
@ -50,4 +50,3 @@ IN: L-system.models.airhorse
|
||||||
: main ( -- ) [ L-system airhorse "L-system" open-window ] with-ui ;
|
: main ( -- ) [ L-system airhorse "L-system" open-window ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
|
@ -34,4 +34,3 @@ IN: L-system.models.tree-5
|
||||||
: main ( -- ) [ L-system tree-5 "L-system" open-window ] with-ui ;
|
: main ( -- ) [ L-system tree-5 "L-system" open-window ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
|
@ -24,4 +24,4 @@ HELP: ad-do-it
|
||||||
ARTICLE: "advice" "Advice"
|
ARTICLE: "advice" "Advice"
|
||||||
"Advice is a simple way of adding additition functionality to words by adding 'hooks' to a word, which can act before, after, or around the calling of the word." ;
|
"Advice is a simple way of adding additition functionality to words by adding 'hooks' to a word, which can act before, after, or around the calling of the word." ;
|
||||||
|
|
||||||
ABOUT: "advice"
|
ABOUT: "advice"
|
||||||
|
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.hadron-chamber
|
||||||
|
|
||||||
: main ( -- ) [ hadron-chamber ] with-ui ;
|
: main ( -- ) [ hadron-chamber ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.large
|
||||||
|
|
||||||
: main ( -- ) [ large ] with-ui ;
|
: main ( -- ) [ large ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.medium
|
||||||
|
|
||||||
: main ( -- ) [ medium ] with-ui ;
|
: main ( -- ) [ medium ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.original
|
||||||
|
|
||||||
: main ( -- ) [ original ] with-ui ;
|
: main ( -- ) [ original ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.quark-chamber
|
||||||
|
|
||||||
: main ( -- ) [ quark-chamber ] with-ui ;
|
: main ( -- ) [ quark-chamber ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.small
|
||||||
|
|
||||||
: main ( -- ) [ small ] with-ui ;
|
: main ( -- ) [ small ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.ten-hadrons
|
||||||
|
|
||||||
: main ( -- ) [ ten-hadrons ] with-ui ;
|
: main ( -- ) [ ten-hadrons ] with-ui ;
|
||||||
|
|
||||||
MAIN: main
|
MAIN: main
|
||||||
|
|
|
@ -259,4 +259,4 @@ SYMBOL: the-slate
|
||||||
USE: fry
|
USE: fry
|
||||||
|
|
||||||
: cfdg-window. ( quot -- )
|
: cfdg-window. ( quot -- )
|
||||||
'[ [ @ <cfdg-gadget> "CFDG" open-window ] with-scope ] with-ui ;
|
'[ [ @ <cfdg-gadget> "CFDG" open-window ] with-scope ] with-ui ;
|
||||||
|
|
|
@ -13,4 +13,4 @@ SYMBOL: modelview-matrix-stack
|
||||||
: push-modelview-matrix ( -- )
|
: push-modelview-matrix ( -- )
|
||||||
get-modelview-matrix modelview-matrix-stack get push ;
|
get-modelview-matrix modelview-matrix-stack get push ;
|
||||||
|
|
||||||
: pop-modelview-matrix ( -- ) modelview-matrix-stack get pop glLoadMatrixd ;
|
: pop-modelview-matrix ( -- ) modelview-matrix-stack get pop glLoadMatrixd ;
|
||||||
|
|
|
@ -51,4 +51,4 @@ DEFER: start
|
||||||
|
|
||||||
: run ( -- ) [ init ] cfdg-window. ;
|
: run ( -- ) [ init ] cfdg-window. ;
|
||||||
|
|
||||||
MAIN: run
|
MAIN: run
|
||||||
|
|
|
@ -45,4 +45,4 @@ DEFER: line
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
MAIN: run
|
MAIN: run
|
||||||
|
|
|
@ -34,4 +34,4 @@ iterate? [
|
||||||
|
|
||||||
: run ( -- ) [ init ] cfdg-window. ;
|
: run ( -- ) [ init ] cfdg-window. ;
|
||||||
|
|
||||||
MAIN: run
|
MAIN: run
|
||||||
|
|
|
@ -25,4 +25,4 @@ DEFER: line
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
MAIN: run
|
MAIN: run
|
||||||
|
|
|
@ -28,4 +28,4 @@ TUPLE: packet data addr socket ;
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
: forever ( quot: ( -- ) -- ) [ call ] [ forever ] bi ; inline recursive
|
: forever ( quot: ( -- ) -- ) [ call ] [ forever ] bi ; inline recursive
|
||||||
|
|
|
@ -33,4 +33,4 @@ it get [ length startLength get swap - number>string "/" startLength get number>
|
||||||
] [ 0 exit ] if*
|
] [ 0 exit ] if*
|
||||||
] with-ui ;
|
] with-ui ;
|
||||||
|
|
||||||
MAIN: drill
|
MAIN: drill
|
||||||
|
|
|
@ -34,4 +34,4 @@ it get [ length startLength get swap - number>string "/" startLength get number>
|
||||||
] when*
|
] when*
|
||||||
] with-ui ;
|
] with-ui ;
|
||||||
|
|
||||||
MAIN: drill
|
MAIN: drill
|
||||||
|
|
|
@ -19,4 +19,4 @@ USING: kernel jni-internals namespaces ;
|
||||||
"java/io/PrintStream" "env" get find-class ! jstr out class
|
"java/io/PrintStream" "env" get find-class ! jstr out class
|
||||||
"println" "(I)V" "env" get get-method-id ! jstr out id
|
"println" "(I)V" "env" get get-method-id ! jstr out id
|
||||||
rot "env" get call1 ;
|
rot "env" get call1 ;
|
||||||
|
|
||||||
|
|
|
@ -20,4 +20,4 @@ MACRO: w-n* ( int -- quot ) dup '[ [ _ narray <collection> #1 ] dip [ _ firstn ]
|
||||||
: w-2* ( a b quot -- mapped ) 2 w-n* ; inline
|
: w-2* ( a b quot -- mapped ) 2 w-n* ; inline
|
||||||
: w-3* ( a b c quot -- mapped ) 3 w-n* ; inline
|
: w-3* ( a b c quot -- mapped ) 3 w-n* ; inline
|
||||||
: w-4* ( a b c d quot -- mapped ) 4 w-n* ; inline
|
: w-4* ( a b c d quot -- mapped ) 4 w-n* ; inline
|
||||||
;FUNCTOR
|
;FUNCTOR
|
||||||
|
|
|
@ -2,4 +2,4 @@ USING: help.syntax help.markup modules.rpc-server modules.using ;
|
||||||
IN: modules.rpc-server
|
IN: modules.rpc-server
|
||||||
HELP: service
|
HELP: service
|
||||||
{ $syntax "IN: my-vocab service" }
|
{ $syntax "IN: my-vocab service" }
|
||||||
{ $description "Allows words defined in the vocabulary to be used as remote procedure calls by " { $link POSTPONE: USING*: } } ;
|
{ $description "Allows words defined in the vocabulary to be used as remote procedure calls by " { $link POSTPONE: USING*: } } ;
|
||||||
|
|
|
@ -6,4 +6,4 @@ ARTICLE: { "modules" "protocol" } "RPC Protocol"
|
||||||
"Send arglist"
|
"Send arglist"
|
||||||
"Send word as string"
|
"Send word as string"
|
||||||
"Receive result list"
|
"Receive result list"
|
||||||
} ;
|
} ;
|
||||||
|
|
|
@ -24,4 +24,4 @@ TUPLE: rpc-request args vocabspec wordname ;
|
||||||
|
|
||||||
: remote-load ( addr vocabspec -- voabspec ) [ swap
|
: remote-load ( addr vocabspec -- voabspec ) [ swap
|
||||||
9012 <inet> binary [ "loader" serialize serialize flush deserialize ] with-client ] keep
|
9012 <inet> binary [ "loader" serialize serialize flush deserialize ] with-client ] keep
|
||||||
[ dictionary get-global set-at ] keep ;
|
[ dictionary get-global set-at ] keep ;
|
||||||
|
|
|
@ -8,4 +8,4 @@ ABOUT: { "modules.using" "use" }
|
||||||
|
|
||||||
HELP: USING*:
|
HELP: USING*:
|
||||||
{ $syntax "USING: rpc-server::module fetch-sever:module { module qualified-name } { module => word ... } { qualified-module } { module EXCEPT word ... } { module word => importname } ;" }
|
{ $syntax "USING: rpc-server::module fetch-sever:module { module qualified-name } { module => word ... } { qualified-module } { module EXCEPT word ... } { module word => importname } ;" }
|
||||||
{ $description "Adds vocabularies to the search path. Vocabularies can be loaded off a server or called as an rpc if preceded by a valid hostname. Bracketed pairs facilitate all types of qualified imports on both remote and local modules." } ;
|
{ $description "Adds vocabularies to the search path. Vocabularies can be loaded off a server or called as an rpc if preceded by a valid hostname. Bracketed pairs facilitate all types of qualified imports on both remote and local modules." } ;
|
||||||
|
|
|
@ -25,4 +25,4 @@ long = "{" ( from | exclude | rename | qualified-with | qualified ) "}" => [[ dr
|
||||||
short = modspec => [[ use-vocab ignore ]]
|
short = modspec => [[ use-vocab ignore ]]
|
||||||
wordSpec = long | short
|
wordSpec = long | short
|
||||||
using = wordSpec+ ";" => [[ drop ignore ]]
|
using = wordSpec+ ";" => [[ drop ignore ]]
|
||||||
;ON-BNF
|
;ON-BNF
|
||||||
|
|
|
@ -20,4 +20,4 @@ IN: multi-method-syntax
|
||||||
|
|
||||||
: (METHOD:) ( -- method def ) CREATE-METHOD parse-definition ;
|
: (METHOD:) ( -- method def ) CREATE-METHOD parse-definition ;
|
||||||
|
|
||||||
: METHOD: (METHOD:) define ; parsing
|
: METHOD: (METHOD:) define ; parsing
|
||||||
|
|
|
@ -11,4 +11,4 @@ HELP: create-bnf
|
||||||
|
|
||||||
HELP: factor
|
HELP: factor
|
||||||
{ $values { "input" string } { "ast" "a sequence of tokens" } }
|
{ $values { "input" string } { "ast" "a sequence of tokens" } }
|
||||||
{ $description "Tokenizer that acts like standard factor lexer, separating tokens by whitespace." } ;
|
{ $description "Tokenizer that acts like standard factor lexer, separating tokens by whitespace." } ;
|
||||||
|
|
|
@ -11,4 +11,4 @@ IN: peg-lexer.tests
|
||||||
|
|
||||||
{ V{ "heavy" "duty" "testing" } } [
|
{ V{ "heavy" "duty" "testing" } } [
|
||||||
test3 heavy duty testing
|
test3 heavy duty testing
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
|
@ -14,4 +14,4 @@ ON-BNF: test2
|
||||||
ON-BNF: test3
|
ON-BNF: test3
|
||||||
tokenizer = <foreign factor>
|
tokenizer = <foreign factor>
|
||||||
expr= "heavy" "duty" "testing"
|
expr= "heavy" "duty" "testing"
|
||||||
;ON-BNF
|
;ON-BNF
|
||||||
|
|
|
@ -58,4 +58,4 @@ STORED-TUPLE: recipe { title { VARCHAR 100 } } { votes INTEGER } { txt TEXT } {
|
||||||
2merge 0 <basic> switch-models >>model
|
2merge 0 <basic> switch-models >>model
|
||||||
] with-interface "recipes" open-window ] with-ui ;
|
] with-interface "recipes" open-window ] with-ui ;
|
||||||
|
|
||||||
MAIN: recipe-browser
|
MAIN: recipe-browser
|
||||||
|
|
|
@ -120,4 +120,4 @@ USING: threads ui ;
|
||||||
|
|
||||||
: go ( -- ) [ [ springies-window* 1000 sleep model ] with-scope ] with-ui ;
|
: go ( -- ) [ [ springies-window* 1000 sleep model ] with-scope ] with-ui ;
|
||||||
|
|
||||||
MAIN: go
|
MAIN: go
|
||||||
|
|
|
@ -220,4 +220,4 @@ each ;
|
||||||
|
|
||||||
: go ( -- ) [ model ] go* ;
|
: go ( -- ) [ model ] go* ;
|
||||||
|
|
||||||
MAIN: go
|
MAIN: go
|
||||||
|
|
|
@ -167,4 +167,4 @@ times
|
||||||
|
|
||||||
: go ( -- ) [ model ] go* ;
|
: go ( -- ) [ model ] go* ;
|
||||||
|
|
||||||
MAIN: go
|
MAIN: go
|
||||||
|
|
|
@ -252,4 +252,4 @@ USING: threads ui ;
|
||||||
|
|
||||||
: go ( -- ) [ [ springies-window* 1000 sleep model ] with-scope ] with-ui ;
|
: go ( -- ) [ [ springies-window* 1000 sleep model ] with-scope ] with-ui ;
|
||||||
|
|
||||||
MAIN: go
|
MAIN: go
|
||||||
|
|
|
@ -304,4 +304,4 @@ nodes> 200 random -100 + 100 2array [ swap set-node-vel ] curry each ;
|
||||||
|
|
||||||
: go ( -- ) [ model ] go* ;
|
: go ( -- ) [ model ] go* ;
|
||||||
|
|
||||||
MAIN: go
|
MAIN: go
|
||||||
|
|
|
@ -77,4 +77,4 @@ each ;
|
||||||
|
|
||||||
: go ( -- ) [ model ] go* ;
|
: go ( -- ) [ model ] go* ;
|
||||||
|
|
||||||
MAIN: go
|
MAIN: go
|
||||||
|
|
|
@ -110,4 +110,4 @@ curry each
|
||||||
|
|
||||||
: go ( -- ) [ model ] go* ;
|
: go ( -- ) [ model ] go* ;
|
||||||
|
|
||||||
MAIN: go
|
MAIN: go
|
||||||
|
|
|
@ -248,4 +248,4 @@ C: <spring> spring
|
||||||
swap node-id >>node-b
|
swap node-id >>node-b
|
||||||
swap node-id >>node-a
|
swap node-id >>node-a
|
||||||
springs> swap suffix >springs
|
springs> swap suffix >springs
|
||||||
drop ;
|
drop ;
|
||||||
|
|
|
@ -19,4 +19,4 @@ combobox H{
|
||||||
} set-gestures
|
} set-gestures
|
||||||
|
|
||||||
: <combobox> ( options -- combobox ) [ first [ combobox new-label ] keep <basic> >>model ] keep
|
: <combobox> ( options -- combobox ) [ first [ combobox new-label ] keep <basic> >>model ] keep
|
||||||
<basic> combo-table new-table [ 1array ] >>quot >>table ;
|
<basic> combo-table new-table [ 1array ] >>quot >>table ;
|
||||||
|
|
|
@ -68,4 +68,4 @@ HELP: IMG-BTN:
|
||||||
|
|
||||||
HELP: output-model
|
HELP: output-model
|
||||||
{ $values { "gadget" gadget } { "model" model } }
|
{ $values { "gadget" gadget } { "model" model } }
|
||||||
{ $description "Returns the model a gadget uses for output. Often the same as " { $link model>> } } ;
|
{ $description "Returns the model a gadget uses for output. Often the same as " { $link model>> } } ;
|
||||||
|
|
|
@ -50,4 +50,4 @@ ARTICLE: "ui.gadgets.layout" "GUI Layout"
|
||||||
"For examples using normal layout, see the " { $vocab-link "sudokus" } " demo. "
|
"For examples using normal layout, see the " { $vocab-link "sudokus" } " demo. "
|
||||||
"For examples of templating, see the " { $vocab-link "recipes" } " demo." ;
|
"For examples of templating, see the " { $vocab-link "recipes" } " demo." ;
|
||||||
|
|
||||||
ABOUT: "ui.gadgets.layout"
|
ABOUT: "ui.gadgets.layout"
|
||||||
|
|
|
@ -163,4 +163,4 @@ plot
|
||||||
{ T{ key-down f f "a" } [ zoom-in drop ] }
|
{ T{ key-down f f "a" } [ zoom-in drop ] }
|
||||||
{ T{ key-down f f "z" } [ zoom-out drop ] }
|
{ T{ key-down f f "z" } [ zoom-out drop ] }
|
||||||
}
|
}
|
||||||
set-gestures
|
set-gestures
|
||||||
|
|
|
@ -47,4 +47,4 @@ M: popper model-changed
|
||||||
[ [ value>> [ <popped> ] map ] dip [ f track-add ] reduce request-focus ] bi ;
|
[ [ value>> [ <popped> ] map ] dip [ f track-add ] reduce request-focus ] bi ;
|
||||||
|
|
||||||
M: popped pref-dim* editor>> [ pref-dim* first ] [ line-height ] bi 2array ;
|
M: popped pref-dim* editor>> [ pref-dim* first ] [ line-height ] bi 2array ;
|
||||||
M: popper focusable-child* children>> [ t ] [ first ] if-empty ;
|
M: popper focusable-child* children>> [ t ] [ first ] if-empty ;
|
||||||
|
|
Loading…
Reference in New Issue