Commits

Jim Ursetto committed 0829f3f Draft

add module and egg scaffolding

  • Participants
  • Parent commits b0358a6

Comments (0)

Files changed (4)

describe-coops-mod.scm

-;; TODO: respect sequence limit when displaying slots
-
 (use coops)
+(use extras)
 (use (only srfi-1 fold))
 (use (only srfi-13 string-pad))
+(import (only csi toplevel-command))
 (use (prefix describe describe:))
 
 (define-inline (symbol-length sym) (string-length (symbol->string sym)))
 (define (describe obj #!optional (out (current-output-port)))
   (describe-object obj out))
 
+(define dump describe:dump)
+(define hexdump describe:hexdump)
+(define set-describer! describe:set-describer!)
+(define describe-sequence-limit describe:describe-sequence-limit)
 
 ;;; REPL
 

describe-coops.meta

+; -*- scheme -*-
+
+((category misc)
+ (author "Jim Ursetto")
+ (license "BSD")
+ (depends describe)
+ (synopsis "Describe coops (and regular) objects in detail")
+ (test-depends test))

describe-coops.scm

+(module describe-coops
+(describe dump hexdump
+ set-describer!
+ describe-object
+ describe-sequence-limit)
+(import scheme chicken)
+(include "describe-coops-mod.scm"))

describe-coops.setup

+;; -*- scheme -*-
+(compile -s -O2 -d0 describe-coops.scm -J)
+(compile -s -d0 describe-coops.import.scm)
+
+(install-extension
+ 'describe-coops
+ '("describe-coops.so" "describe-coops.import.so")
+ '((version "0.0.1")))