TODO.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; Time-stamp: <2010-01-03 17:12:16 tony>
   4 ;;; Creation:   <2008-09-08 08:06:30 tony>
   5 ;;; File:       TODO.lisp
   6 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
   7 ;;; Copyright:  (c) 2007-2008, AJ Rossini <blindglobe@gmail.com>.  BSD.
   8 ;;; Purpose: Stuff that needs to be made working sits inside the
   9 ;;;          progns... This file contains the current challenges to
  10 ;;;          solve, including a description of the setup and the work
  11 ;;;          to solve....
  12
  13 ;;; What is this talk of 'release'? Klingons do not make software
  14 ;;; 'releases'.  Our software 'escapes', leaving a bloody trail of
  15 ;;; designers and quality assurance people in its wake.
  16
  17 ;;; SET UP
  18
  19 (in-package :cl-user)
  20
  21 (progn
  22   (defun init-CLS ()
  23
  24     ;; core system
  25     ;;(asdf:oos 'asdf:load-op 'lisp-matrix)
  26     ;;(asdf:oos 'asdf:compile-op 'cls :force t)
  27     (asdf:oos 'asdf:load-op 'cls)
  28
  29     ;; visualization
  30     (asdf:oos 'asdf:load-op 'cl-cairo2-x11)
  31     (asdf:oos 'asdf:load-op 'cl-2d)
  32
  33     ;; doc reporting
  34     (asdf:oos 'asdf:load-op 'cl-pdf)
  35     (asdf:oos 'asdf:load-op 'cl-typesetting))
  36
  37   ;;INFRA
  38   ;; (asdf:oos 'asdf:compile-op 'asdf-system-connections :force t)
  39   ;; (asdf:oos 'asdf:compile-op 'lisp-matrix)
  40   ;; (asdf:oos 'asdf:load-op 'xarray)
  41
  42   ;;DOCS
  43   ;; (asdf:oos 'asdf:compile-op 'metatilities-base :force t)
  44   ;; (asdf:oos 'asdf:load-op 'metatilities-base)
  45   ;; (asdf:oos 'asdf:load-op 'anaphora)
  46   ;; (asdf:oos 'asdf:load-op 'tinaa)
  47   ;; (asdf:oos 'asdf:load-op 'cl-ppcre)
  48   ;; (asdf:oos 'asdf:load-op 'cl-markdown)
  49
  50   ;;use of extension packages supporting versioning and validation of
  51   ;;CLOS objects?
  52   ;; (asdf:oos 'asdf:compile-op 'versioned-objects :force t)
  53   ;; (asdf:oos 'asdf:load-op 'versioned-objects)
  54   ;; (asdf:oos 'asdf:compile-op 'validations :force t)
  55   ;; (asdf:oos 'asdf:load-op 'validations)
  56
  57   ;;VIZ
  58   ;; (asdf:oos 'asdf:compile-op 'cffi :force t)
  59   ;; (asdf:oos 'asdf:load-op 'cl-opengl)
  60   ;; (asdf:oos 'asdf:load-op 'cl-glu)
  61   ;; (asdf:oos 'asdf:load-op 'cl-glut)
  62   ;; (asdf:oos 'asdf:load-op 'cl-glut-examples)
  63
  64   ;; (asdf:oos 'asdf:load-op 'cells)
  65   ;; (asdf:oos 'asdf:load-op 'bordeaux-threads)
  66   ;; (asdf:oos 'asdf:load-op 'cells-gtk)
  67
  68   (init-CLS))
  69
  70 (in-package :lisp-stat-unittests)
  71
  72 ;; tests = 78, failures = 7, errors = 20
  73 (run-tests :suite 'lisp-stat-ut)
  74
  75 (asdf:oos 'asdf:test-op 'cls)
  76 ;; which runs (describe (run-tests :suite 'lisp-stat-ut))
  77
  78 (describe 'lisp-stat-ut)
  79 (documentation 'lisp-stat-ut 'type)
  80
  81 ;; FIXME: Example: currently not relevant, yet
  82 ;;   (describe (lift::run-test :test-case  'lisp-stat-unittests::create-proto
  83 ;;                             :suite 'lisp-stat-unittests::lisp-stat-ut-proto))
  84
  85 (describe (lift::run-tests :suite 'lisp-stat-ut-dataframe))
  86 (lift::run-tests :suite 'lisp-stat-ut-dataframe)
  87
  88 (describe (lift::run-test
  89            :test-case  'lisp-stat-unittests::create-proto
  90            :suite 'lisp-stat-unittests::lisp-stat-ut-proto))
  91
  92 (in-package :ls-user)
  93
  94 ;;; Tasks working on...
  95
  96 #+nil
  97 (progn
  98
  99 #+nil
 100 (progn
 101   ;; Syntax examples using lexical scope, closures, and bindings to
 102   ;; ensure a clean communication of results
 103   (with-data dataset ((dsvarname1 [usevarname1])
 104                       (dsvarname2 [usevarname2]))
 105       @body))
 106
 107 (defparameter *df-test*
 108   (make-instance 'dataframe-array
 109                  :storage #2A (('a "test0" 0 0d0)
 110                                ('b "test1" 1 1d0)
 111                                ('c "test2" 2 2d0)
 112                                ('d "test3" 3 3d0)
 113                                ('e "test4" 4 4d0))
 114                  :doc "test reality"
 115                  :case-labels (list "0" "1" "2" "3" "4")
 116                  :var-labels (list "symbol" "string" "integer" "double-float")
 117                  :var-types (list 'symbol 'string 'integer 'double-float)))
 118
 119 *df-test* ; but with SBCL, ints become floats?
 120
 121 (defun check-var (df colnum)
 122   (let ((nobs (xdim df 0)))
 123     (dotimes (i nobs)
 124       (check-type (xref df i colnum) (elt (var-types df) i)))))
 125
 126 (check-var *df-test* 0)
 127
 128 (xref *df-test* 1 2)
 129
 130 (integerp (xref *df-test* 1 2))
 131 (floatp (xref *df-test* 1 2))
 132 (integerp (xref *df-test* 1 3))
 133 (type-of (xref *df-test* 1 3))
 134 (floatp (xref *df-test* 1 3))
 135
 136 (type-of (vector 1 1d0))
 137
 138
 139
 140 (loop )
 141
 142 (xref *df-test* 2 1)
 143 (xref *df-test* 0 0)
 144 (xref *df-test* 1 0)
 145 (xref *df-test* 1 '*)
 146
 147 ;;; Experiments with cl-variates
 148
 149 ;; (asdf:oos 'asdf:compile-op 'cl-variates :force t)
 150 ;; (asdf:oos 'asdf:compile-op 'cl-variates-test :force t)
 151 ;; (asdf:oos 'asdf:load-op 'lift)
 152 ;; (asdf:oos 'asdf:load-op 'cl-variates)
 153 (asdf:oos 'asdf:load-op 'cl-variates-test)
 154
 155 (in-package :cl-variates-test)
 156 ;; check tests
 157 (run-tests :suite 'cl-variates-test)
 158 (describe (run-tests :suite 'cl-variates-test))
 159
 160 (in-package :cl-variates-user)
 161 ;; example usage
 162 (defparameter state (make-random-number-generator))
 163 (setf (random-seed state) 44)
 164 (random-seed state)
 165 (loop for i from 1 to 10 collect
 166                   (random-range state 0 10))
 167 ;; => (1 5 1 0 7 1 2 2 8 10)
 168 (setf (random-seed state) 44)
 169 (loop for i from 1 to 10 collect
 170                   (random-range state 0 10))
 171 ;; => (1 5 1 0 7 1 2 2 8 10)
 172
 173 (setf (random-seed state) 44)
 174 (random-seed state)
 175 (loop for i from 1 to 10 collect
 176                   (normal-random state 0 1))
 177 ;; =>
 178 ;; (-1.2968656102820426 0.40746363934173213 -0.8594712469518473 0.8795681301148328
 179 ;;  1.0731526250004264 -0.8161629082481728 0.7001813608754809 0.1078045427044097
 180 ;;  0.20750134211656893 -0.14501914108452274)
 181
 182 (setf (random-seed state) 44)
 183 (loop for i from 1 to 10 collect
 184                   (normal-random state 0 1))
 185 ;; =>
 186 ;; (-1.2968656102820426 0.40746363934173213 -0.8594712469518473 0.8795681301148328
 187 ;;  1.0731526250004264 -0.8161629082481728 0.7001813608754809 0.1078045427044097
 188 ;;  0.20750134211656893 -0.14501914108452274)
 189
 190
 191 ;;; experiments with LLA
 192 (in-package :cl-user)
 193 (asdf:oos 'asdf:load-op 'lla)
 194 (in-package :lla-user)
 195