factor: Add newlines to every line.
Doug Coleman
parent
df189eada5
commit
5aa89e6251
|
|
@ -60,4 +60,4 @@ PREDICATE: enum-c-type-word < c-type-word
|
|||
"c-type" word-prop members>> values ;
|
||||
|
||||
: 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
|
||||
action-string lookup-selector -> buttonWithTitle:target:action: :> button
|
||||
item button -> setView:
|
||||
item ;
|
||||
item ;
|
||||
|
|
|
|||
|
|
@ -129,4 +129,4 @@ MACRO: nweave ( n -- quot )
|
|||
[ bi-curry ] swap call-n ; inline
|
||||
|
||||
MACRO: map-compose ( quots quot -- quot' )
|
||||
'[ _ compose ] map '[ _ ] ;
|
||||
'[ _ compose ] map '[ _ ] ;
|
||||
|
|
|
|||
|
|
@ -2,4 +2,4 @@ USE: system
|
|||
USE: prettyprint
|
||||
USE: prettyprint.config
|
||||
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
|
||||
|
||||
: execute-effect-unsafe? ( word effect -- ? ) 2drop t ; inline
|
||||
: execute-effect-unsafe? ( word effect -- ? ) 2drop t ; inline
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
IN: io.tests
|
||||
USE: math
|
||||
: 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: main
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -32,4 +32,4 @@ IN: L-system.models.abop-5
|
|||
: main ( -- ) [ L-system abop-5 "L-system" open-window ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -31,4 +31,4 @@ IN: L-system.models.abop-6
|
|||
: main ( -- ) [ L-system abop-6 "L-system" open-window ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -50,4 +50,3 @@ IN: L-system.models.airhorse
|
|||
: main ( -- ) [ L-system airhorse "L-system" open-window ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
|
||||
|
|
@ -34,4 +34,3 @@ IN: L-system.models.tree-5
|
|||
: main ( -- ) [ L-system tree-5 "L-system" open-window ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
|
||||
|
|
@ -24,4 +24,4 @@ HELP: ad-do-it
|
|||
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." ;
|
||||
|
||||
ABOUT: "advice"
|
||||
ABOUT: "advice"
|
||||
|
|
|
|||
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.hadron-chamber
|
|||
|
||||
: main ( -- ) [ hadron-chamber ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
MAIN: main
|
||||
|
|
|
|||
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.large
|
|||
|
||||
: main ( -- ) [ large ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
MAIN: main
|
||||
|
|
|
|||
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.medium
|
|||
|
||||
: main ( -- ) [ medium ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
MAIN: main
|
||||
|
|
|
|||
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.original
|
|||
|
||||
: main ( -- ) [ original ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
MAIN: main
|
||||
|
|
|
|||
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.quark-chamber
|
|||
|
||||
: main ( -- ) [ quark-chamber ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
MAIN: main
|
||||
|
|
|
|||
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.small
|
|||
|
||||
: main ( -- ) [ small ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
MAIN: main
|
||||
|
|
|
|||
|
|
@ -5,4 +5,4 @@ IN: bubble-chamber.ten-hadrons
|
|||
|
||||
: main ( -- ) [ ten-hadrons ] with-ui ;
|
||||
|
||||
MAIN: main
|
||||
MAIN: main
|
||||
|
|
|
|||
|
|
@ -259,4 +259,4 @@ SYMBOL: the-slate
|
|||
USE: fry
|
||||
|
||||
: 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 ( -- )
|
||||
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. ;
|
||||
|
||||
MAIN: run
|
||||
MAIN: run
|
||||
|
|
|
|||
|
|
@ -45,4 +45,4 @@ DEFER: line
|
|||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
MAIN: run
|
||||
MAIN: run
|
||||
|
|
|
|||
|
|
@ -34,4 +34,4 @@ iterate? [
|
|||
|
||||
: 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*
|
||||
] with-ui ;
|
||||
|
||||
MAIN: drill
|
||||
MAIN: drill
|
||||
|
|
|
|||
|
|
@ -34,4 +34,4 @@ it get [ length startLength get swap - number>string "/" startLength get number>
|
|||
] when*
|
||||
] 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
|
||||
"println" "(I)V" "env" get get-method-id ! jstr out id
|
||||
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-3* ( a b c quot -- mapped ) 3 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
|
||||
HELP: 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 word as string"
|
||||
"Receive result list"
|
||||
} ;
|
||||
} ;
|
||||
|
|
|
|||
|
|
@ -24,4 +24,4 @@ TUPLE: rpc-request args vocabspec wordname ;
|
|||
|
||||
: remote-load ( addr vocabspec -- voabspec ) [ swap
|
||||
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*:
|
||||
{ $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 ]]
|
||||
wordSpec = long | short
|
||||
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:) define ; parsing
|
||||
: METHOD: (METHOD:) define ; parsing
|
||||
|
|
|
|||
|
|
@ -11,4 +11,4 @@ HELP: create-bnf
|
|||
|
||||
HELP: factor
|
||||
{ $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" } } [
|
||||
test3 heavy duty testing
|
||||
] unit-test
|
||||
] unit-test
|
||||
|
|
|
|||
|
|
@ -14,4 +14,4 @@ ON-BNF: test2
|
|||
ON-BNF: test3
|
||||
tokenizer = <foreign factor>
|
||||
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
|
||||
] 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 ;
|
||||
|
||||
MAIN: go
|
||||
MAIN: go
|
||||
|
|
|
|||
|
|
@ -220,4 +220,4 @@ each ;
|
|||
|
||||
: go ( -- ) [ model ] go* ;
|
||||
|
||||
MAIN: go
|
||||
MAIN: go
|
||||
|
|
|
|||
|
|
@ -167,4 +167,4 @@ times
|
|||
|
||||
: go ( -- ) [ model ] go* ;
|
||||
|
||||
MAIN: go
|
||||
MAIN: go
|
||||
|
|
|
|||
|
|
@ -252,4 +252,4 @@ USING: threads 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* ;
|
||||
|
||||
MAIN: go
|
||||
MAIN: go
|
||||
|
|
|
|||
|
|
@ -77,4 +77,4 @@ each ;
|
|||
|
||||
: go ( -- ) [ model ] go* ;
|
||||
|
||||
MAIN: go
|
||||
MAIN: go
|
||||
|
|
|
|||
|
|
@ -110,4 +110,4 @@ curry each
|
|||
|
||||
: go ( -- ) [ model ] go* ;
|
||||
|
||||
MAIN: go
|
||||
MAIN: go
|
||||
|
|
|
|||
|
|
@ -248,4 +248,4 @@ C: <spring> spring
|
|||
swap node-id >>node-b
|
||||
swap node-id >>node-a
|
||||
springs> swap suffix >springs
|
||||
drop ;
|
||||
drop ;
|
||||
|
|
|
|||
|
|
@ -19,4 +19,4 @@ combobox H{
|
|||
} set-gestures
|
||||
|
||||
: <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
|
||||
{ $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 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 "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 ;
|
||||
|
||||
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