! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: slides help.markup ;
-IN: talks.chicago-talk
+IN: chicago-talk
CONSTANT: chicago-slides
{
urls peg.ebnf tools.annotations tools.crossref
help.topics math.functions compiler.tree.optimizer
compiler.cfg.optimizer fry ;
-IN: talks.galois-talk
+IN: galois-talk
CONSTANT: galois-slides
{
"Help markup is just literal data"
{ "Look at the help for " { $link T{ link f + } } }
"These slides are built with the help system and a custom style sheet"
- { $vocab-link "talks.galois-talk" }
+ { $vocab-link "galois-talk" }
}
{ $slide "Why stack-based?"
"Because nobody else is doing it"
urls peg.ebnf tools.annotations tools.crossref
help.topics math.functions compiler.tree.optimizer
compiler.cfg.optimizer fry ;
-IN: talks.google-tech-talk
+IN: google-tech-talk
CONSTANT: google-slides
{
USING: fry help.markup help.topics kernel locals math
math.functions memoize peg.ebnf slides ;
-IN: talks.hmc-talk
+IN: hmc-talk
CONSTANT: hmc-slides
{
{ $slide "Words and the stack"
{ $code
- "\"/usr/local/opt/fortune/share/games/fortunes/science\""
+ "\"/opt/homebrew/share/games/fortunes/science\""
"ascii file-lines"
"{ \"%\" } split random"
"[ print ] each"
}
{ $code
": fortune ( -- )"
- " \"/usr/local/opt/fortune/share/games/fortunes/science\""
+ " \"/opt/homebrew/share/games/fortunes/science\""
" ascii file-lines"
" { \"%\" } split random"
" [ print ] each ;"
"Help markup is just literal data"
{ "Look at the help for " { $link T{ link f + } } }
"These slides are built with the help system and a custom style sheet"
- { $vocab-link "talks.hmc-talk" }
+ { $vocab-link "hmc-talk" }
}
{ $slide "Why stack-based?"
"Because nobody else is doing it"
! See http://factorcode.org/license.txt for BSD license.
USING: slides help.markup math math.private kernel sequences
slots.private ;
-IN: talks.jvm-summit-talk
+IN: jvm-summit-talk
CONSTANT: jvm-summit-slides
{
USING: slides help.markup math arrays hashtables namespaces
sequences kernel parser memoize ;
-IN: talks.minneapolis-talk
+IN: minneapolis-talk
CONSTANT: minneapolis-slides
{
compiler.tree.optimizer compiler.cfg.optimizer fry
ui.gadgets.panes tetris tetris.game combinators generalizations
multiline sequences.private ;
-IN: talks.otug-talk
+IN: otug-talk
: $tetris ( element -- )
drop [ <default-tetris> <tetris-gadget> gadget. ] ($block) ;
}
{ $slide "Data flow combinators - cleave family"
{ { $link bi } ", " { $link tri } ", " { $link cleave } }
- { $image "resource:extra/talks/otug-talk/bi.tiff" }
+ { $image "vocab:otug-talk/bi.tiff" }
}
{ $slide "Data flow combinators - cleave family"
{ { $link 2bi } ", " { $link 2tri } ", " { $link 2cleave } }
- { $image "resource:extra/talks/otug-talk/2bi.tiff" }
+ { $image "vocab:otug-talk/2bi.tiff" }
}
{ $slide "Data flow combinators"
"First, let's define a data type:"
}
{ $slide "Data flow combinators - spread family"
{ { $link bi* } ", " { $link tri* } ", " { $link spread } }
- { $image "resource:extra/talks/otug-talk/bi_star.tiff" }
+ { $image "vocab:otug-talk/bi_star.tiff" }
}
{ $slide "Data flow combinators - spread family"
{ { $link 2bi* } }
- { $image "resource:extra/talks/otug-talk/2bi_star.tiff" }
+ { $image "vocab:otug-talk/2bi_star.tiff" }
}
{ $slide "Data flow combinators - apply family"
{ { $link bi@ } ", " { $link tri@ } ", " { $link napply } }
- { $image "resource:extra/talks/otug-talk/bi_at.tiff" }
+ { $image "vocab:otug-talk/bi_at.tiff" }
}
{ $slide "Data flow combinators - apply family"
{ { $link 2bi@ } }
- { $image "resource:extra/talks/otug-talk/2bi_at.tiff" }
+ { $image "vocab:otug-talk/2bi_at.tiff" }
}
{ $slide "Shuffle words"
"When data flow combinators are not enough"
"Help markup is just literal data"
{ "Look at the help for " { $link T{ link f + } } }
"These slides are built with the help system and a custom style sheet"
- { $vocab-link "talks.otug-talk" }
+ { $vocab-link "otug-talk" }
}
{ $slide "The VM"
"Lowest level is the VM: ~12,000 lines of C"
USING: assocs combinators constructors eval help.markup kernel
multiline namespaces parser sequences sequences.private slides
vocabs.refresh words fry ;
-IN: talks.tc-lisp-talk
+IN: tc-lisp-talk
CONSTANT: tc-lisp-slides
{
peg.ebnf tools.annotations tools.crossref help.topics
math.functions compiler.tree.optimizer compiler.cfg.optimizer
fry ;
-IN: talks.vpri-talk
+IN: vpri-talk
CONSTANT: vpri-slides
{
"Help markup is just literal data"
{ "Look at the help for " { $link T{ link f + } } }
"These slides are built with the help system and a custom style sheet"
- { $vocab-link "talks.vpri-talk" }
+ { $vocab-link "vpri-talk" }
}
{ $slide "Some line counts"
"VM: 12,000 lines of C"