working on external file resources

examples/using-resources.rkt

@@ -0,0 +1,4 @@
+#lang planet dyoo/whalesong
+
+(require (planet dyoo/whalesong/resource))
+(file-resource "images/humpback.jpg")

lang/kernel.rkt

@@ -72,6 +72,7 @@
 	 let-values
 	 let*-values
 	 define-struct
+         struct
          if
 	 cond
 	 else

resource.rkt

@@ -1,5 +1,4 @@
 #lang s-exp "lang/kernel.rkt"
 
-(provide (all-defined-out))
+(require "resource/main.rkt")
-
+(provide (all-from-out "resource/main.rkt"))
-(define-struct bytes-resource (name type bytes))

resource/compile-time.rkt

@@ -0,0 +1,22 @@
+#lang s-exp "../lang/kernel.rkt"
+
+(provide file-resource)
+
+
+(require "structs.rkt")
+
+;; Macros for recording the definition of resources in a program.
+(require (for-syntax racket/base))
+
+
+;; file-resource:
+;; 
+(define-for-syntax (file-resource stx)
+  (syntax-case stx ()
+    [(_ path)
+     (syntax/loc stx
+       (let-syntax ([compile-time-code
+                     (lambda (stx)
+                       (displayln "at compile time")
+                       #'(void))])
+         (resource path)))]))

resource/main.rkt

@@ -0,0 +1,4 @@
+#lang s-exp "../lang/kernel.rkt"
+
+(require "compile-time.rkt")
+(provide (all-from-out "compile-time.rkt"))

resource/structs.rkt

@@ -0,0 +1,6 @@
+#lang s-exp "../lang/kernel.rkt"
+
+(provide (all-defined-out))
+
+
+(struct resource (path))