From ea5ceabca790bb6189a61e987f2fc333f33c6885 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Sat, 24 Oct 2015 23:05:13 +0200 Subject: [PATCH] slides: add a title to the slides windows, looks a little more polished that way --- extra/chicago-talk/chicago-talk.factor | 94 ++++++++----------- extra/galois-talk/galois-talk.factor | 2 +- .../google-tech-talk/google-tech-talk.factor | 3 +- extra/jvm-summit-talk/jvm-summit-talk.factor | 2 +- .../minneapolis-talk/minneapolis-talk.factor | 3 +- extra/otug-talk/otug-talk.factor | 3 +- extra/slides/slides.factor | 4 +- extra/tc-lisp-talk/tc-lisp-talk.factor | 5 +- extra/vpri-talk/vpri-talk.factor | 2 +- 9 files changed, 55 insertions(+), 63 deletions(-) diff --git a/extra/chicago-talk/chicago-talk.factor b/extra/chicago-talk/chicago-talk.factor index 9f84c023ce..aa6208cf93 100644 --- a/extra/chicago-talk/chicago-talk.factor +++ b/extra/chicago-talk/chicago-talk.factor @@ -5,61 +5,49 @@ IN: chicago-talk CONSTANT: chicago-slides { -{ $slide "factor" + { $slide "factor" + { $url "http://factorcode.org" } + } + { $slide "goals" + "high level language" + "expressive and extensible" + "reasonable performance" + "interactive development with arbitrary redefinition" + "standalone app deployment (strip out compiler and REPL)" + } + { $slide "challenges" -{ $url "http://factorcode.org" } - -} -{ $slide "goals" - -"high level language" -"expressive and extensible" -"reasonable performance" -"interactive development with arbitrary redefinition" -"standalone app deployment (strip out compiler and REPL)" - -} -{ $slide "challenges" - -"higher-order functions" -"dynamic typing" -"memory allocation" -"float boxing/unboxing" -"integer overflow checks" -"user-defined abstractions" - -} -{ $slide "implementation" - -"VM: 12 kloc of C, library: >100 kloc of Factor" -"generational copying garbage collection, card marking write barrier" -"full continuations, tail calls" -"simple non-optimizing “bootstrap” compiler" -"optimizing compiler" - -} -{ $slide "optimizing compiler" - -"about 12,000 lines of Factor code" -"targets x86-32, x86-64, PowerPC" -"factor code ⇒ high-level SSA ⇒ low-level SSA ⇒ machine code" - -} -{ $slide "high-level optimizer" - -"macro expansion, defunctionalization" -"type and interval inference, sparse conditional constant propagation, method inlining" -"escape analysis and tuple unboxing" - -} -{ $slide "low-level optimizer" - -"alias analysis, value numbering, write barrier elimination" -"linear scan register allocation" - -} + "higher-order functions" + "dynamic typing" + "memory allocation" + "float boxing/unboxing" + "integer overflow checks" + "user-defined abstractions" + } + { $slide "implementation" + "VM: 12 kloc of C, library: >100 kloc of Factor" + "generational copying garbage collection, card marking write barrier" + "full continuations, tail calls" + "simple non-optimizing “bootstrap” compiler" + "optimizing compiler" + } + { $slide "optimizing compiler" + "about 12,000 lines of Factor code" + "targets x86-32, x86-64, PowerPC" + "factor code ⇒ high-level SSA ⇒ low-level SSA ⇒ machine code" + } + { $slide "high-level optimizer" + "macro expansion, defunctionalization" + "type and interval inference, sparse conditional constant propagation, method inlining" + "escape analysis and tuple unboxing" + } + { $slide "low-level optimizer" + "alias analysis, value numbering, write barrier elimination" + "linear scan register allocation" + } } -: chicago-talk ( -- ) chicago-slides slides-window ; +: chicago-talk ( -- ) + chicago-slides "Chicago talk" slides-window ; MAIN: chicago-talk diff --git a/extra/galois-talk/galois-talk.factor b/extra/galois-talk/galois-talk.factor index 4c9c04ba8d..27f39d3464 100644 --- a/extra/galois-talk/galois-talk.factor +++ b/extra/galois-talk/galois-talk.factor @@ -307,6 +307,6 @@ CONSTANT: galois-slides } } -: galois-talk ( -- ) galois-slides slides-window ; +: galois-talk ( -- ) galois-slides "Galois talk" slides-window ; MAIN: galois-talk diff --git a/extra/google-tech-talk/google-tech-talk.factor b/extra/google-tech-talk/google-tech-talk.factor index 5eac3bd45d..f58e31d868 100644 --- a/extra/google-tech-talk/google-tech-talk.factor +++ b/extra/google-tech-talk/google-tech-talk.factor @@ -564,6 +564,7 @@ CONSTANT: google-slides { $slide "Questions?" } } -: google-talk ( -- ) google-slides slides-window ; +: google-talk ( -- ) + google-slides "Google Tech talk" slides-window ; MAIN: google-talk diff --git a/extra/jvm-summit-talk/jvm-summit-talk.factor b/extra/jvm-summit-talk/jvm-summit-talk.factor index 6f8e9c6b7b..61e0d31abb 100644 --- a/extra/jvm-summit-talk/jvm-summit-talk.factor +++ b/extra/jvm-summit-talk/jvm-summit-talk.factor @@ -353,6 +353,6 @@ CONSTANT: jvm-summit-slides } : jvm-summit-talk ( -- ) - jvm-summit-slides slides-window ; + jvm-summit-slides "JVM Summit talk" slides-window ; MAIN: jvm-summit-talk diff --git a/extra/minneapolis-talk/minneapolis-talk.factor b/extra/minneapolis-talk/minneapolis-talk.factor index a2a73e4509..4bb2b3f6e9 100644 --- a/extra/minneapolis-talk/minneapolis-talk.factor +++ b/extra/minneapolis-talk/minneapolis-talk.factor @@ -177,6 +177,7 @@ CONSTANT: minneapolis-slides { $slide "Questions?" } } -: minneapolis-talk ( -- ) minneapolis-slides slides-window ; +: minneapolis-talk ( -- ) + minneapolis-slides "Minneapolis talk" slides-window ; MAIN: minneapolis-talk diff --git a/extra/otug-talk/otug-talk.factor b/extra/otug-talk/otug-talk.factor index f77123c086..dfdf2c18a3 100644 --- a/extra/otug-talk/otug-talk.factor +++ b/extra/otug-talk/otug-talk.factor @@ -336,6 +336,7 @@ var price = (order == null ? null : order.price);" } } } -: otug-talk ( -- ) otug-slides slides-window ; +: otug-talk ( -- ) + otug-slides "OTUG talk" slides-window ; MAIN: otug-talk diff --git a/extra/slides/slides.factor b/extra/slides/slides.factor index ecfc2cf00e..5fd7f8d9b7 100644 --- a/extra/slides/slides.factor +++ b/extra/slides/slides.factor @@ -123,5 +123,5 @@ SYNTAX: STRIP-TEASE: { T{ key-down f f "f" } [ toggle-fullscreen ] } } set-gestures -: slides-window ( slides -- ) - '[ _ "Slides" open-window ] with-ui ; +: slides-window ( slides title -- ) + '[ _ _ open-window ] with-ui ; diff --git a/extra/tc-lisp-talk/tc-lisp-talk.factor b/extra/tc-lisp-talk/tc-lisp-talk.factor index 3023d936c2..fd5b786fd7 100644 --- a/extra/tc-lisp-talk/tc-lisp-talk.factor +++ b/extra/tc-lisp-talk/tc-lisp-talk.factor @@ -26,7 +26,7 @@ CONSTANT: tc-lisp-slides { $slide "XML Literals" { $code "USING: splitting xml.writer xml.syntax ; -{ \"one\" \"two\" \"three\" } +{ \"one\" \"two\" \"three\" } [ [XML <-> XML] ] map <-> XML> pprint-xml" } @@ -529,6 +529,7 @@ xyz } } -: tc-lisp-talk ( -- ) tc-lisp-slides slides-window ; +: tc-lisp-talk ( -- ) + tc-lisp-slides "TC Lisp talk" slides-window ; MAIN: tc-lisp-talk diff --git a/extra/vpri-talk/vpri-talk.factor b/extra/vpri-talk/vpri-talk.factor index a09d17356a..a3d27f1e44 100644 --- a/extra/vpri-talk/vpri-talk.factor +++ b/extra/vpri-talk/vpri-talk.factor @@ -487,6 +487,6 @@ CONSTANT: vpri-slides } } -: vpri-talk ( -- ) vpri-slides slides-window ; +: vpri-talk ( -- ) vpri-slides "VPRI talk" slides-window ; MAIN: vpri-talk