suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hello world initial version doing something

Browse Source
This commit is contained in:
Danny Yoo 2011-08-22 17:25:45 -04:00
parent 7fae38d2e3
commit 3724a2a621
5 changed files with 54 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
resource/compile-time.rkt
View File

@ -28,7 +28,6 @@
(syntax-e #'path)))] (syntax-e #'path)))]
[munged-path (munge-path normal-path)] [munged-path (munge-path normal-path)]
[content (call-with-input-file normal-path port->bytes)]) [content (call-with-input-file normal-path port->bytes)])
(printf "Read ~s\n" content)
(with-syntax ([normal-path normal-path] (with-syntax ([normal-path normal-path]
[munged-path munged-path] [munged-path munged-path]
[content content]) [content content])

3
resource/munge-path.rkt
View File

@ -15,4 +15,5 @@
"") "")
(get-output-string op))) (get-output-string op)))
(define-values (base path dir?) (split-path a-path)) (define-values (base path dir?) (split-path a-path))
(string-append encoding-prefix "_" (path->string path))) (string-append ;; encoding-prefix "_"
(path->string path)))

22
web-world/examples/hello/hello.rkt
View File

@ -1,19 +1,19 @@
#lang planet dyoo/whalesong #lang planet dyoo/whalesong
(require (planet dyoo/whalesong/web-world) (require (planet dyoo/whalesong/web-world)
(planet dyoo/whalesong/resource) (planet dyoo/whalesong/resource))
(planet dyoo/whalesong/resource/structs))
(define-resource index.html) (define-resource index.html)
(define-resource style.css)
;; (printf "I see the path is: ~s\n"
;; (resource-path index.html))
(printf "I see the path is: ~s\n" ;; (printf "I see the key is: ~s\n"
(resource-path index.html)) ;; (resource-key index.html))
(printf "I see the key is: ~s\n" ;; (printf "I see the content is: ~s\n"
(resource-key index.html)) ;; (resource-content index.html))
(printf "I see the content is: ~s\n" (big-bang "don't care"
(resource-content index.html)) (initial-view index.html))
;; (big-bang "don't care"
;; (initial-view index.html))

4
web-world/examples/hello/index.html
View File

@ -1,4 +1,6 @@
<html> <html>
<head><title>Hello world</title></head> <head><title>Hello world</title>
<link rel="stylesheet" href="res/style.css"/>
</head>
<body><h1>Hello world</h1></body> <body><h1>Hello world</h1></body>
</html> </html>

52
web-world/js-impl.js
View File

@ -18,11 +18,19 @@ var View = function(top, focused, eventHandlers, pendingActions) {
this.eventHandlers = eventHandlers; this.eventHandlers = eventHandlers;
this.pendingActions = pendingActions; this.pendingActions = pendingActions;
}; };
View.prototype.toString = function() { return "#<View>"; }
View.prototype.updateFocused = function(focused) { View.prototype.updateFocused = function(focused) {
return new View(this.top, focused, eventHandlers, pendingActions); return new View(this.top, focused, eventHandlers, pendingActions);
}; };
View.prototype.initialRender = function(top) {
top.empty();
$(document.head).append(this.top.find("head").children());
top.append(this.top.find("body").children());
};
var isView = plt.baselib.makeClassPredicate(View); var isView = plt.baselib.makeClassPredicate(View);
var isResource = resourceStructType.predicate; var isResource = resourceStructType.predicate;
@ -45,20 +53,19 @@ var checkView = plt.baselib.check.makeCheckArgumentType(
// coerseToView: (U resource View) -> View // coerseToView: (U resource View) -> View
var coerseToView = function(x, onSuccess, onFail) { var coerseToView = function(x, onSuccess, onFail) {
var dom, v;
if (isView(x)) { if (isView(x)) {
return onSuccess(x); return onSuccess(x);
} else if (isResource(x)) { } else if (isResource(x)) {
console.log(resourcePath(x), resourceKey(x), resourceContent(x).toString()); dom = $(resourceContent(x).toString())
$.ajax({ .css("margin", "0px")
url: "res/" + resourceKey(x), .css("padding", "0px")
dataType : "html", .css("border", "0px");
success: function(data, textStatus, jqXHR) { dom.children("body").css("margin", "0px");
console.log("data is: ", data); return onSuccess(new View(dom,
return onSuccess(new View(data, [], [], [])); [],
}, [],
error: function(jqXHR, textStatus, errorThrown) { []));
return onFail(new Error(errorThrown));
}});
} else { } else {
return onFail(new Error("Unable to coerse to view")); return onFail(new Error("Unable to coerse to view"));
} }
@ -79,6 +86,8 @@ var InitialViewHandler = function(args, view) {
}; };
InitialViewHandler.prototype = plt.baselib.heir(WorldHandler.prototype); InitialViewHandler.prototype = plt.baselib.heir(WorldHandler.prototype);
InitialViewHandler.prototype.toString = function() { return "#<initial-view>"; };
var isInitialViewHandler = plt.baselib.makeClassPredicate(InitialViewHandler);
@ -89,11 +98,22 @@ var StopWhenHandler = function(args, stopWhen) {
}; };
StopWhenHandler.prototype = plt.baselib.heir(WorldHandler.prototype); StopWhenHandler.prototype = plt.baselib.heir(WorldHandler.prototype);
StopWhenHandler.prototype.toString = function() { return "#<stop-when>"; };
var isStopWhenHandler = plt.baselib.makeClassPredicate(StopWhenHandler);
var findHandler = function(MACHINE, pred) {
var i;
for (i = 1; i < MACHINE.argcount; i++) {
if (pred(MACHINE.env[MACHINE.env.length - 1 - i])) {
return MACHINE.env[MACHINE.env.length - 1 - i];
}
}
return undefined;
};
////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////
@ -103,11 +123,15 @@ EXPORTS['big-bang'] = makeClosure(
'big-bang', 'big-bang',
plt.baselib.arity.makeArityAtLeast(1), plt.baselib.arity.makeArityAtLeast(1),
function(MACHINE) { function(MACHINE) {
var oldArgcount = MACHINE.argcount; var world = MACHINE.env[MACHINE.env.length - 1];
var initialViewHandler = findHandler(MACHINE, isInitialViewHandler);
var oldArgcount = MACHINE.argcount;
var top = $("<div/>");
MACHINE.params.currentDisplayer(MACHINE, top);
PAUSE(function(restart) { PAUSE(function(restart) {
// FILL ME IN initialViewHandler.view.initialRender(top);
var onRestart = function() { var onRestart = function() {
restart(function(MACHINE) { restart(function(MACHINE) {