src/data/dataframe-xarray.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; Time-stamp: <2009-07-12 08:05:27 tony>
   4 ;;; Creation:   <2009-06-22 17:09:47 tony>
   5 ;;; File:       dataframe-xarray.lisp
   6 ;;; Author:     AJ Rossini <blindglobe@gmail.com>
   7 ;;; Copyright:  (c)2009--, AJ Rossini.  BSD, LLGPL, or GPLv2, depending
   8 ;;;             on how it arrives.
   9 ;;; Purpose:    Integration of xarray tools with dataframe-like
  10 ;;;             objects.
  11
  12 ;;; What is this talk of 'release'? Klingons do not make software
  13 ;;; 'releases'.  Our software 'escapes', leaving a bloody trail of
  14 ;;; designers and quality assurance people in its wake.
  15
  16 ;;; Tamas Papp's xarray package is his 2nd generation generic array
  17 ;;; indexing package, coming after the ideas and thoughts behind his
  18 ;;; affi package, which while novel, is somewhat obsolete.
  19
  20
  21 (defmethod xref ((obj data-frame-like)  &rest indices)
  22   (apply #'dfref obj indices))
  23
  24 (defmethod (setf xref) (value (object array) &rest subscripts)
  25   (setf (apply #'dfref object subscripts) value))
  26
  27 (defmethod xref ((obj matrix-like) &rest indices))
  28
  29 (defmethod xtype ((obj dataframe-like))
  30   "Unlike the standard xtype, here we need to return a vector of the
  31   types.  Vectors can have single types, but arrays have single type.
  32   Dataframe-like have multiple types, variable-like single type,
  33   case-like has multiple types, and matrix-like has single type.")
  34
  35 (defmethod xdims ((obj dataframe-like))
  36   (dataframe-dimensions obj))
  37 #|
  38  ;; use default methods at this point, except for potentially weird DFs
  39  (defmethod xdims* ())
  40
  41  (defmethod xdim ((obj dataframe-like) index)
  42   (dataframe-dimension index))
  43
  44 |#
  45
  46 (defmethod xrank ())
  47
  48 (defmethod slice ())
  49
  50 (defmethod take ())
  51
  52   (defmethod carray ())