extra/obj/examples/todo/todo.factor

   1
   2 USING: kernel sequences sets combinators.cleave
   3        obj obj.view obj.util obj.print ;
   4
   5 IN: obj.examples.todo
   6
   7 SYM: person types adjoin
   8 SYM: todo   types adjoin
   9
  10 SYM: owners properties adjoin
  11 SYM: eta    properties adjoin
  12 SYM: notes  properties adjoin
  13
  14 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  15
  16 SYM: slava { type person } define-object
  17 SYM: doug  { type person } define-object
  18 SYM: ed    { type person } define-object
  19
  20 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  21
  22 SYM: compiler-bugs
  23   {
  24     type todo
  25     owners { slava }
  26     notes  {
  27              "Investitage FEP on Terrorist"
  28              "Problem with cutler in VirtualBox?"
  29            }
  30   }
  31 define-object
  32
  33 SYM: remove-old-accessors-from-core
  34   {
  35     type todo
  36     owners { slava }
  37   }
  38 define-object
  39
  40 SYM: move-db-and-web-framework-to-basis
  41   {
  42    type todo
  43    owners { slava }
  44   }
  45 define-object
  46
  47 SYM: remove-old-accessors-from-basis
  48   {
  49     type todo
  50     owners { doug ed }
  51   }
  52 define-object
  53
  54 SYM: blas-on-bsd
  55   {
  56     type todo
  57     owners { slava doug }
  58   }
  59 define-object
  60
  61 SYM: multi-methods-backend
  62   {
  63     type todo
  64     owners { slava }
  65   }
  66 define-object
  67
  68 SYM: update-core-for-multi-methods { type todo owners { slava } } define-object
  69 SYM: update-basis-for-multi-methods { type todo } define-object
  70 SYM: update-extra-for-multi-methods { type todo } define-object
  71
  72
  73 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  74
  75 : todo-list ( -- )
  76   objects [ type -> todo = ] filter
  77     [ { [ self -> ] [ owners -> ] [ eta -> ] } 1arr ]
  78   map
  79   { "ITEM" "OWNERS" "ETA" } prefix
  80   print-table ;
  81
  82 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  83