Working on Ruby.mn talk

extra/calendar/calendar.factor

@@ -333,16 +333,18 @@ M: integer year. ( n -- )
 M: timestamp year. ( timestamp -- )
     timestamp-year year. ;
 
-: pad-00 number>string 2 CHAR: 0 pad-left write ;
+: pad-00 number>string 2 CHAR: 0 pad-left ;
+
+: write-00 pad-00 write ;
 
 : (timestamp>string) ( timestamp -- )
     dup day-of-week day-abbreviations3 nth write ", " write
     dup timestamp-day number>string write bl
     dup timestamp-month month-abbreviations nth write bl
     dup timestamp-year number>string write bl
-    dup timestamp-hour pad-00 ":" write
+    dup timestamp-hour write-00 ":" write
-    dup timestamp-minute pad-00 ":" write
+    dup timestamp-minute write-00 ":" write
-    timestamp-second >fixnum pad-00 ;
+    timestamp-second >fixnum write-00 ;
 
 : timestamp>string ( timestamp -- str )
     [ (timestamp>string) ] string-out ;
@@ -357,11 +359,11 @@ M: timestamp year. ( timestamp -- )
 
 : (timestamp>rfc3339) ( timestamp -- )
     dup timestamp-year number>string write CHAR: - write1
-    dup timestamp-month pad-00 CHAR: - write1
+    dup timestamp-month write-00 CHAR: - write1
-    dup timestamp-day pad-00 CHAR: T write1
+    dup timestamp-day write-00 CHAR: T write1
-    dup timestamp-hour pad-00 CHAR: : write1
+    dup timestamp-hour write-00 CHAR: : write1
-    dup timestamp-minute pad-00 CHAR: : write1
+    dup timestamp-minute write-00 CHAR: : write1
-    timestamp-second >fixnum pad-00 CHAR: Z write1 ;
+    timestamp-second >fixnum write-00 CHAR: Z write1 ;
 
 : timestamp>rfc3339 ( timestamp -- str )
     >gmt [ (timestamp>rfc3339) ] string-out ;
@@ -390,8 +392,8 @@ M: timestamp year. ( timestamp -- )
         [ timestamp-month month-abbreviations nth write ] keep bl
         [ timestamp-day number>string 2 32 pad-left write ] keep bl
         dup now [ timestamp-year ] 2apply = [
-            [ timestamp-hour pad-00 ] keep ":" write
+            [ timestamp-hour write-00 ] keep ":" write
-            timestamp-minute pad-00
+            timestamp-minute write-00
         ] [
             timestamp-year number>string 5 32 pad-left write
         ] if

extra/calendar/model/model.factor

@@ -0,0 +1,15 @@
+! Copyright (C) 2008 Slava Pestov
+! See http://factorcode.org/license.txt for BSD license.
+USING: calendar namespaces models threads ;
+IN: calendar.model
+
+SYMBOL: time
+
+: (time-thread) ( -- )
+    now time get set-model
+    1000 sleep (time-thread) ;
+
+: time-thread ( -- ) [ (time-thread) ] in-thread ;
+
+f <model> time set-global
+time-thread

extra/catalyst-talk/catalyst-talk.factor

@@ -1,121 +0,0 @@
-USING: slides help.markup math arrays hashtables namespaces
-sequences kernel sequences parser ;
-IN: catalyst-talk
-
-: catalyst-slides
-{
-    { $slide "What is Factor?"
-        "Originally scripting for a Java game"
-        "Language dev more fun than game dev"
-        "Start with ideas which were mostly dead"
-        "Throw in features from crazy languages"
-        "Develop practical libraries and tools"
-    }
-    { $slide "Factor: a stack language"
-        "Implicit parameter passing"
-        { "Each " { $emphasis "word" } " is a function call" }
-        { $code ": sq dup * ;" }
-        { $code "2 3 + sq ." }
-        "Minimal syntax and semantics = easy meta-programming"
-        { "Related languages: Forth, Joy, PostScript" }
-    }
-    { $slide "Factor: a functional language"
-        { { $emphasis "Quotations" } " can be passed around, constructed..." }
-        { $code "[ sq 3 + ]" }
-        { { $emphasis "Combinators" } " are words which take quotations, eg " { $link if } }
-        { "For FP buffs: " { $link each } ", " { $link map } ", " { $link reduce } ", " { $link accumulate } ", " { $link interleave } ", " { $link subset } }
-        { $code "{ 42 69 666 } [ sq 3 + ] map ." }
-    }
-    { $slide "Factor: an object-oriented language"
-        { "Everything is an " { $emphasis "object" } }
-        { "An object is an instance of a " { $emphasis "class" } }
-        "Methods"
-        "Generic words"
-        "For CLOS buffs: we allow custom method combination, classes are objects too, there's a MOP"
-    }
-    
-    STRIP-TEASE:
-        $slide "Primary school geometry recap"
-        { $code
-            "GENERIC: area ( shape -- meters^2 )"
-            "TUPLE: square dimension ;"
-            "M: square area square-dimension sq ;"
-            "TUPLE: circle radius ;"
-            "M: circle area circle-radius sq pi * ;"
-            "TUPLE: rectangle width height ;"
-            "M: rectangle area"
-            "    dup rectangle-width"
-            "    swap rectangle-height"
-            "    * ;"
-        }
-    ;
-
-    { $slide "Geometry example"
-        { $code "10 <square> area ." }
-        { $code "18 <circle> area ." }
-        { $code "20 40 <rectangle> area ." }
-    }
-!    { $slide "Factor: a meta language"
-!        "Writing code which writes code"
-!        "Extensible parser: define new syntax"
-!        "Compiler transforms"
-!        "Here's an inefficient word:"
-!        { $code
-!            ": fib ( x -- y )"
-!            "    dup 1 > ["
-!            "        1 - dup fib swap 1 - fib +"
-!            "    ] when ;"
-!        }
-!    }
-!    { $slide "Memoization"
-!        { { $link POSTPONE: : } " is just another word" }
-!        "What if we could define a word which caches its results?"
-!        { "The " { $vocab-link "memoize" } " library provides such a feature" }
-!        { "Just change " { $link POSTPONE: : } " to " { $link POSTPONE: MEMO: } }
-!        { $code
-!            "MEMO: fib ( x -- y )"
-!            "    dup 1 > ["
-!            "        1 - dup fib swap 1 - fib +"
-!            "    ] when ;"
-!        }
-!    }
-    { $slide "Factor: a tool-building language"
-        "Tools are not monolithic, but are themselves just sets of words"
-        "Examples: parser, compiler, etc"
-        "Parser: turns strings into objects"
-        { $code "\"1\" <file-reader> contents parse" }
-        "Prettyprinter: turns objects into strings"
-        { $code "\"2\" <file-writer> [ . ] with-stream" }
-    }
-    { $slide "Factor: an interactive language"
-        { "Let's hack " { $vocab-link "tetris" } }
-        "Editor integration"
-        { $code "\\ tetrominoes edit" }
-        "Inspector"
-        { $code "\\ tetrominoes get inspect" }
-    }
-    { $slide "C library interface"
-        "No need to write C glue code!"
-        "Callbacks from C to Factor"
-        "Factor can be embedded in C apps"
-        { "Example: " { $vocab-link "ogg.vorbis" } }
-        { "Other bindings: OpenGL, OpenAL, X11, Win32, Cocoa, OpenSSL, memory mapped files, ..." }
-    }
-    { $slide "Native libraries"
-        "XML, HTTP, SMTP, Unicode, calendar, ..."
-        "Lazy lists, pattern matching, packed arrays, ..."
-    }
-    { $slide "Factor: a fun language"
-        { "Let's play "
-        { $vocab-link "space-invaders" }
-        }
-        { $url "http://factorcode.org" }
-        { $url "http://factor-language.blogspot.com" }
-        "irc.freenode.net #concatenative"
-        "Have fun!"
-    }
-} ;
-
-: catalyst-talk catalyst-slides slides-window ;
-
-MAIN: catalyst-talk

extra/lcd/lcd.factor

@@ -1,19 +1,19 @@
 USING: sequences kernel math io ;
 IN: lcd
 
-: lcd-digit ( digit row -- str )
+: lcd-digit ( row digit -- str )
-    {
+    dup CHAR: : = [ drop 10 ] [ CHAR: 0 - ] if swap {
-        "  _       _  _       _   _   _   _   _  "
+        "  _       _  _       _   _   _   _   _      "
-        " | |  |   _| _| |_| |_  |_    | |_| |_| "     
+        " | |  |   _| _| |_| |_  |_    | |_| |_|  *  "
-        " |_|  |  |_  _|   |  _| |_|   | |_|   | "
+        " |_|  |  |_  _|   |  _| |_|   | |_|   |  *  "
     } nth >r 4 * dup 4 + r> subseq ;
 
-: lcd-row ( num row -- )
+: lcd-row ( num row -- string )
-    swap [ CHAR: 0 - swap lcd-digit write ] with each ;
+    [ swap lcd-digit ] curry { } map-as concat ;
 
-: lcd ( digit-str -- )
+: lcd ( digit-str -- string )
-    3 [ lcd-row nl ] with each ;
+    3 [ lcd-row ] with map "\n" join ;
 
-: lcd-demo ( -- ) "31337" lcd ;
+: lcd-demo ( -- ) "31337" lcd print ;
 
 MAIN: lcd-demo

extra/minneapolis-talk/minneapolis-talk.factor

@@ -0,0 +1,149 @@
+USING: slides help.markup math arrays hashtables namespaces
+sequences kernel sequences parser ;
+IN: minneapolis-talk
+
+: minneapolis-slides
+{
+    { $slide "What is Factor?"
+        "Dynamically typed, stack language"
+        "Have our cake and eat it too"
+        "Research -vs- production"
+        "High level -vs- performance"
+        "Interactive -vs- stand-alone apps"
+    }
+    { $slide "The view from 10,000 feet"
+        "Influenced by Forth, Lisp, Joy, Smalltalk, even Java..."
+        "Vocabularies: modules"
+        "Words: named functions, classes, variables"
+        "Combinators: higher-order functions"
+        "Quotations: anonymous functions"
+        "Other concepts are familiar: classes, objects, etc"
+    }
+    { $slide "Stack-based programming"
+        { "Most languages are " { $emphasis "applicative" } }
+        "Words pop inputs from the stack and push outputs on the stack"
+        "Literals are pushed on the stack"
+        { $code "{ 1 2 } { 7 } append reverse sum ." }
+        "With the stack you can omit unnecessary names"
+        "You can still name things: lexical/dynamic variables, sequences, associations, objects, ..."
+    }
+    { $slide "Functional programming"
+        "A quotation is a sequence of literals and words"
+        "Combinators replace imperative-style loops"
+        "A simple example:"
+        { $code "10 [ \"Hello world\" print ] times" }
+        { "Partial application: " { $link curry } }
+        { $code "{ 3 1 3 3 7 } [ 5 + ] map ." }
+        { $code "{ 3 1 3 3 7 } 5 [ + ] curry map ." }
+    }
+    { $slide "Word definitions"
+        { $code ": name ( inputs -- outputs ) definition ;" }
+        "Stack effect comments document stack inputs and outputs."
+        "Example from previous slide:"
+        { $code ": add-each ( seq n -- newseq ) [ + ] curry map ;" }
+        { $code "{ 3 1 3 3 7 } add-each ." }
+        "Copy and paste factoring"
+    }
+    { $slide "Object-oriented programming"
+        "Define a tuple class and a constructor:"
+        { $code
+            "TUPLE: person name address ;"
+            "C: <person> person"
+        }
+        "Create an instance:"
+        { $code "\"Cosmo Kramer\" \"100 Blah blah St, New York\" <person>" }
+        "We can inspect it and edit it"
+        "We can reshape the class:"
+        { $code "TUPLE: person name address age phone-number ;" }
+        { $code "TUPLE: person name address phone-number age ;" }
+    }
+    STRIP-TEASE:
+        $slide "Primary school geometry recap"
+        { $code
+            "TUPLE: square dimension ;"
+            "TUPLE: circle radius ;"
+            "TUPLE: rectangle width height ;"
+            ""
+            "GENERIC: area ( shape -- meters^2 )"
+            "M: square area square-dimension sq ;"
+            "M: circle area circle-radius sq pi * ;"
+            "M: rectangle area"
+            "    { rectangle-width rectangle-height } get-slots * ;"
+        }
+    ;
+
+    { $slide "Geometry example"
+        { $code "10 <square> area ." }
+        { $code "18 <circle> area ." }
+        { $code "20 40 <rectangle> area ." }
+    }
+    { $slide "Factor: a meta language"
+        "Here's fibonacci:"
+        { $code
+            ": fib ( x -- y )"
+            "    dup 1 > ["
+            "        1 - dup fib swap 1 - fib +"
+            "    ] when ;"
+        }
+        "It is slow:"
+        { $code
+            "20 [ fib ] map ."
+        }
+        "Let's profile it!"
+    }
+    { $slide "Memoization"
+        { { $link POSTPONE: : } " is just another word" }
+        "What if we could define a word which caches its results?"
+        { "The " { $vocab-link "memoize" } " library provides such a feature" }
+        { "Just change " { $link POSTPONE: : } " to " { $link POSTPONE: MEMO: } }
+        { $code
+            "MEMO: fib ( x -- y )"
+            "    dup 1 > ["
+            "        1 - dup fib swap 1 - fib +"
+            "    ] when ;"
+        }
+        "It is faster:"
+        { $code
+            "20 [ fib ] map ."
+        }
+    }
+    { $slide "The Factor UI"
+        "Written in Factor"
+        "Renders with OpenGL"
+        "Backends for Windows, X11, Cocoa"
+        "You can call Windows, X11, Cocoa APIs directly too"
+        "OpenGL 2.1 shaders, OpenAL 3D audio..."
+    }
+    { $slide "Implementation"
+        "Very small C core"
+        "Non-optimizing compiler"
+        "Optimizing compiler"
+        "Generational garbage collector"
+        "Non-blocking I/O"
+    }
+    { $slide "Live coding demo"
+        
+    }
+    { $slide "C library interface"
+        "Efficient"
+        "No need to write C code"
+        "Supports floats, structs, unions, ..."
+        "Function pointers, callbacks"
+    }
+    { $slide "Live coding demo"
+        
+    }
+    { $slide "Community"
+        "Factor development began in 2003"
+        "About a dozen contributors"
+        "Handful of \"core contributors\""
+        { "Web site: " { $url "http://factorcode.org" } }
+        "IRC: #concatenative on irc.freenode.net"
+        "Mailing list: factor-talk@lists.sf.net"
+        { "Let's play " { $vocab-link "space-invaders" } }
+    }
+} ;
+
+: minneapolis-talk minneapolis-slides slides-window ;
+
+MAIN: minneapolis-talk

extra/minneapolis-talk/minneapolis-talk.txt

@@ -0,0 +1,116 @@
+- how to create a small module
+- editor integration
+- presentations
+- module system
+- copy and paste factoring, inverse
+- help system
+- tetris
+- memoization
+- editing inspector demo
+- dynamic scope, lexical scope
+
+Factor: contradictions?
+-----------------------
+
+Have our cake and eat it too
+
+Research -vs- practical
+High level -vs- fast
+Interactive -vs- deployment
+
+Factor from 10,000 feet
+-----------------------
+
+word: named function
+vocabulary: module
+quotation: anonymous function
+classes, objects, etc.
+
+The stack
+---------
+
+- Stack -vs- applicative
+- Pass by reference, dynamically typed
+- Stack languages: you can omit names where they're not needed
+- More compositional style
+- If you need to name things for clarity, you can:
+  lexical vars, dynamic vars, sequences, assocs, objects...
+
+Functional programming
+----------------------
+
+Quotations
+Curry
+Continuations
+
+Object-oriented programming
+---------------------------
+
+Generic words: sort of like open classes
+Tuple reshaping
+Editing inspector
+
+Meta programming
+----------------
+
+Simple, orthogonal core
+
+Why use a stack at all?
+-----------------------
+
+Nice idioms: 10 days ago
+Copy and paste factoring
+Easy meta-programming
+Sequence operations correspond to functional operations:
+- curry is adding at the front
+- compose is append
+
+UI
+--
+
+Written in Factor
+renders with OpenGL
+Windows, X11, Cocoa backends
+You can call Windows, X11, Cocoa APIs directly
+OpenGL 2.1 shaders, OpenAL 3D audio...
+
+Tools
+-----
+
+Edit
+Usages
+Profiler
+Easy to make your own tools
+
+Implementation
+--------------
+
+Two compilers
+Generational garbage collector
+Non-blocking I/O
+
+Hands on
+--------
+
+Community
+---------
+
+Factor started in 2003
+About a dozen contributors
+Handful of "core contributors"
+Web site: http://factorcode.org
+IRC: #concatenative on irc.freenode.net
+Mailing list: factor-talk@lists.sf.net
+
+C library interface
+-------------------
+
+Efficient
+No need to write C code
+Supports floats, structs, unions, ...
+Function pointers, callbacks
+Here is an example
+
+TerminateProcess
+
+process-handle TerminateProcess

extra/ui/gadgets/labels/labels.factor

@@ -40,7 +40,7 @@ M: label gadget-text* label-string % ;
 TUPLE: label-control ;
 
 M: label-control model-changed
-    swap model-value over set-label-text relayout ;
+    swap model-value over set-label-string relayout ;
 
 : <label-control> ( model -- gadget )
     "" <label> label-control construct-control ;