src/data/dataframe-xarray.lisp

   1 ;;; -*- mode: lisp -*-
   2
   3 ;;; Time-stamp: <2009-07-05 02:08:15 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 types.")
  31
  32 (defmethod xdims ((obj dataframe-like))
  33   (dataframe-dimensions obj))
  34 #|
  35  ;; use default methods at this point, except for potentially weird DFs
  36  (defmethod xdims* ())
  37
  38  (defmethod xdim ((obj dataframe-like) index)
  39   (dataframe-dimension index))
  40
  41 |#
  42
  43 (defmethod xrank ())
  44
  45 (defmethod slice ())
  46
  47 (defmethod take ())
  48
  49   (defmethod carray ())