remove hollywoo test cases I wasn't going to finish
This commit is contained in:
@@ -1,13 +0,0 @@
|
||||
package hollywoo;
|
||||
|
||||
import kiss.Kiss;
|
||||
import kiss.Prelude;
|
||||
import hollywoo.text.TextDirector;
|
||||
import hollywoo.text.TextStage;
|
||||
import kiss.EmbeddedScript;
|
||||
|
||||
@:build(kiss.AsyncEmbeddedScript.build("HollywooDSL.kiss", "examples/pure-hollywoo/basic.hollywoo"))
|
||||
class BasicHollywoo extends TextStage {}
|
||||
|
||||
@:build(kiss.Kiss.build())
|
||||
class Main {}
|
@@ -1,4 +0,0 @@
|
||||
(defMacro runTextExample [exampleClass]
|
||||
`(.run (new ,exampleClass (new TextDirector))))
|
||||
|
||||
(runTextExample BasicHollywoo)
|
@@ -1,17 +0,0 @@
|
||||
Stuff outside the thing is a comment which you can edit to your heart's content|||Title: The First Fountain->Hollywoo Script
|
||||
Credit: written by
|
||||
Author: Nat Quayle Nelson (she/her)
|
||||
Contact: natquaylenelson@gmail.com
|
||||
|
||||
|>|${source}|||testing editing another comment|||EXT. CABIN - DAY
|
||||
|
||||
|>||||
|
||||
|||A swanky cabin sits in a clearing in the Adirondacks. The Autumn colors are beautiful.
|
||||
|
||||
|>||||
|
||||
|||INT. CABIN - SAME
|
||||
|
||||
|>||||
|
||||
|||NAT NELSON (23, femme) sits by a tall window, typing on a laptop.
|
||||
|
||||
|>||||Stuff at the end is a different comment
|
@@ -1,2 +0,0 @@
|
||||
(director.showSet (object name "Cabin" description "A cool cabin") FirstAppearance cc)
|
||||
(director.showCharacter (object stagePosition OnStage stageFacing "" actor (object name "Nat" description "scruffy transfemme")) FirstAppearance cc)
|
@@ -1,30 +0,0 @@
|
||||
package hollywoo.text;
|
||||
|
||||
import hollywoo.text.TextStage;
|
||||
import hollywoo.Director;
|
||||
|
||||
class TextDirector implements Director<TextSet, TextStagePosition, TextStageFacing, TextScreenPosition, TextActor> {
|
||||
public function new() {}
|
||||
|
||||
public function showSet(set:TextSet, appearance:Appearance, cc:Continuation) {
|
||||
switch (appearance) {
|
||||
case FirstAppearance:
|
||||
Sys.println('-- ${set.name} --');
|
||||
Sys.println(set.description);
|
||||
case ReAppearance:
|
||||
Sys.println('-- back at the ${set.name}');
|
||||
}
|
||||
cc();
|
||||
}
|
||||
|
||||
public function showCharacter(character:TextCharacter, appearance:Appearance, cc:Continuation) {
|
||||
switch ([appearance, character.stagePosition]) {
|
||||
case [_, OffStage]:
|
||||
case [FirstAppearance, OnStage]:
|
||||
Sys.println('A ${character.actor.description} is onstage. This is ${character.actor.name}');
|
||||
case [ReAppearance, OnStage]:
|
||||
Sys.println('${character.actor.name} is here');
|
||||
}
|
||||
cc();
|
||||
}
|
||||
}
|
@@ -1,26 +0,0 @@
|
||||
package hollywoo.text;
|
||||
|
||||
import hollywoo.Stage;
|
||||
|
||||
typedef TextSet = {
|
||||
name:String,
|
||||
description:String
|
||||
}
|
||||
|
||||
enum TextStagePosition {
|
||||
OnStage;
|
||||
OffStage;
|
||||
}
|
||||
|
||||
typedef TextStageFacing = String;
|
||||
|
||||
typedef TextScreenPosition = Int; // number of line breaks to precede a SUPER
|
||||
|
||||
typedef TextCharacter = Character<TextStagePosition, TextStageFacing, TextActor>;
|
||||
|
||||
typedef TextActor = {
|
||||
name:String,
|
||||
description:String
|
||||
};
|
||||
|
||||
typedef TextStage = Stage<TextSet, TextStagePosition, TextStageFacing, TextScreenPosition, TextActor>;
|
Reference in New Issue
Block a user