remove hollywoo test cases I wasn't going to finish

This commit is contained in:
2021-11-29 18:10:51 -07:00
parent 88a8be6bda
commit 533da7dcb6
7 changed files with 0 additions and 95 deletions

View File

@@ -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 {}

View File

@@ -1,4 +0,0 @@
(defMacro runTextExample [exampleClass]
`(.run (new ,exampleClass (new TextDirector))))
(runTextExample BasicHollywoo)

View File

@@ -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

View File

@@ -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)

View File

@@ -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();
}
}

View File

@@ -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>;

View File

@@ -1,3 +0,0 @@
#! /bin/bash
haxe build.hxml