TODO.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; Time-stamp: <2009-09-15 06:51:08 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   (init-CLS))
  38
  39 (in-package :lisp-stat-unittests)
  40
  41 ;; tests = 80, failures = 8, errors = 20
  42 (run-tests :suite 'lisp-stat-ut)
  43 (describe (run-tests :suite 'lisp-stat-ut))
  44
  45 (describe 'lisp-stat-ut)
  46 (documentation 'lisp-stat-ut 'type)
  47
  48 ;; FIXME: Example: currently not relevant, yet
  49 ;;   (describe (lift::run-test :test-case  'lisp-stat-unittests::create-proto
  50 ;;                             :suite 'lisp-stat-unittests::lisp-stat-ut-proto))
  51
  52 (describe (lift::run-tests :suite 'lisp-stat-ut-dataframe))
  53 (lift::run-tests :suite 'lisp-stat-ut-dataframe)
  54
  55 (describe (lift::run-test
  56            :test-case  'lisp-stat-unittests::create-proto
  57            :suite 'lisp-stat-unittests::lisp-stat-ut-proto))
  58
  59 (in-package :ls-user)
  60
  61 ;;; Tasks working on...
  62
  63 #+nil
  64 (progn
  65   ;; use of extension packages supporting versioning and validation of
  66   ;; CLOS objects?
  67   (asdf:oos 'asdf:load-op 'versioned-objects)
  68   (asdf:oos 'asdf:load-op 'validations))
  69
  70 #+nil
  71 (progn
  72   ;; Syntax examples using lexical scope, closures, and bindings to
  73   ;; ensure a clean communication of results
  74   (with-data dataset ((dsvarname1 [usevarname1])
  75                       (dsvarname2 [usevarname2]))
  76       @body))
  77
  78
  79 (defparameter *df-test*
  80   (make-instance 'dataframe-array
  81                  :storage #2A (('a "test0" 0 0d0)
  82                                ('b "test1" 1 1d0)
  83                                ('c "test2" 2 2d0)
  84                                ('d "test3" 3 3d0)
  85                                ('e "test4" 4 4d0))
  86                  :doc "test reality"
  87                  :case-labels (list "0" "1" "2" "3" "4")
  88                  :var-labels (list "symbol" "string" "integer" "double-float")
  89                  :var-types (list 'symbol 'string 'integer 'double-float)))
  90
  91 *df-test* ; but with SBCL, ints become floats?
  92
  93 (defun check-var (df colnum)
  94   (let ((nobs (xdim df 0)))
  95     (dotimes (i nobs)
  96       (check-type (xref df i colnum) (elt (var-types df) i)))))
  97
  98 (check-var *df-test* 0)
  99
 100 (xref *df-test* 1 2)
 101
 102 (integerp (xref *df-test* 1 2))
 103 (floatp (xref *df-test* 1 2))
 104 (integerp (xref *df-test* 1 3))
 105 (type-of (xref *df-test* 1 3))
 106 (floatp (xref *df-test* 1 3))
 107
 108 (type-of (vector 1 1d0))
 109
 110
 111
 112 (loop )
 113
 114 (xref *df-test* 2 1)
 115 (xref *df-test* 0 0)
 116 (xref *df-test* 1 0)
 117
 118 (xref *df-test* 1 '*)