spooky jumpscares

Author: ftripier

Dockerfile

@@ -17,4 +17,4 @@ COPY ./build.sh /compiler
 WORKDIR /compiler
 RUN /compiler/build.sh
 RUN ln -s /compiler/_build/spooky.native /usr/local/bin/compile
-ENTRYPOINT [ "compile" ]
+ENTRYPOINT [ "compile", "-j" ]

compiler/bytecodeInterpreter.ml

@@ -318,12 +318,17 @@ class virtual_machine = object(self)
   val mutable registers = ((Array.create ~len:0 (Void)): spookyval array)
   val mutable op_stack = ([] : spookyval list)
   val mutable debug = false
+  val mutable jumpscares = false  
   val mutable context = Void
   val mutable returning = false
 
   method enable_debug =
     debug <- true
 
+  method enable_jumpscares =
+    JumpScares.initialize;
+    jumpscares <- true
+
   method print_and_then_scream =
     match op_stack with
       | [] -> print_endline "AHHHHHHHHHHHH!"
@@ -515,7 +520,8 @@ class virtual_machine = object(self)
         self#try_loop loop_statement        
     );
 
-  method interpret_opcodes opcodes = 
+  method interpret_opcodes opcodes =
+    JumpScares.try_jump_scare;
     match Stream.peek opcodes, op_stack with
     | None, [] -> ()
     | None, result :: tl -> ()
@@ -873,11 +879,12 @@ let rec opcodes ?d:(debug=false) bytes =
     )
   in Stream.from(next_opcode)
 
-let interpret ?d:(debug=false) bytestream =
+let interpret ?j:(jumpscares=false) ?d:(debug=false) bytestream =
   if debug then (
     print_endline "DEBUGGING BYTECODE: ";
     print_newline()
   );
   let vm = new virtual_machine in
   if debug then vm#enable_debug;
+  if jumpscares then vm#enable_jumpscares;
   vm#interpret_opcodes (opcodes ~d:debug bytestream)

compiler/jumpScares.ml

@@ -0,0 +1,10 @@
+open Core
+
+let initialize =
+  Random.self_init()
+
+let try_jump_scare =
+  if (Random.float 1.0) <. 0.001 then (
+    print_endline "       BOO! AHHHHHHHHHHHHHHHHH!";
+    print_endline("               _.---._\n             .'       `.\n             :)       (:\n             \\ (@) (@) /\n              \\   A   /\n               )     (\n               \\\"\"\"\"\"/\n                `._.'\n                 .=.\n         .---._.-.=.-._.---.\n        / ':-(_.-: :-._)-:` \\\n       / /' (__.-: :-.__) `\\ \\\n      / /  (___.-` '-.___)  \\ \\\n     / /   (___.-'^`-.___)   \\ \\\n    / /    (___.-'=`-.___)    \\ \\\n   / /     (____.'=`.____)     \\ \\\n  / /       (___.'=`.___)       \\ \\\n (_.;       `---'.=.`---'       ;._)\n ;||        __  _.=._  __        ||;\n ;||       (  `.-.=.-.'  )       ||;\n ;||       \\    `.=.'    /       ||;\n ;||        \\    .=.    /        ||;\n ;||       .-`.`-._.-'.'-.       ||;\n.:::\\      ( ,): O O :(, )      /:::.\n|||| `     / /'`--'--'`\\ \\     ' ||||\n''''      / /           \\ \\      ''''\n         / /             \\ \\\n        / /               \\ \\\n       / /                 \\ \\\n      / /                   \\ \\\n     / /                     \\ \\\n    /.'                       `.\\\n   (_)'                       `(_)\n    \\\\.                       .//\n     \\\\.                     .//\n      \\\\.                   .//\n       \\\\.                 .//\n        \\\\.               .//\n         \\\\.             .//\n    jgs   \\\\.           .//\n          ///)         (\\\\\\\n        ,///'           `\\\\\\,\n       ///'               `\\\\\\\n      \"\"'                   '\"\"\n")
+  )

compiler/spooky.ml

@@ -249,7 +249,7 @@ and compile_key_value_assignment key_val symbol_table =
     let key_val_expr = List.append key_expression value_expression in
     List.append key_opcode key_val_expr
 
-let compile debug filename =
+let compile debug jumpscares filename =
   let input = open_in filename in
   let filebuf = Lexing.from_channel input in
   try
@@ -267,7 +267,7 @@ let compile debug filename =
       print_newline();
       print_newline();      
     );
-    BytecodeInterpreter.interpret ~d:debug (Stream.of_list (add_main_call st (compile_ast st ast)));
+    BytecodeInterpreter.interpret ~j:jumpscares ~d:debug (Stream.of_list (add_main_call st (compile_ast st ast)));
     if debug then print_endline "🐛  🐞  🐜  🦋  🕷️  🐝  🐛  🦋  🐞  🐛  🐞  🐜  🐝  🦋  🕷️  🐛  🐝  🦋  🐞  🕷️  🐛  🦋  🐝  🐞  🐛  🐞  🐜  🦋  🐞  🐝  🕷️  🐛  🦋  🐞"    
   with
   | Scarerrors.Error msg ->
@@ -287,14 +287,15 @@ let spec =
   let open Command.Spec in
   empty
   +> flag "-d" no_arg ~doc:"run with scary de'bug'ging output"
+  +> flag "-j" no_arg ~doc:"run with jumpscares"
   +> anon("filename" %: file)
 
 let command =
   Command.basic
   ~summary:"The Spooky language compiler"
   ~readme:(fun () -> "The world's first scary-complete language.")
   spec
-  (fun debug filename () -> compile debug filename)
+  (fun jumpscares debug filename () -> compile jumpscares debug filename)
 
 let () =
   Command.run ~version:"0.10" ~build_info:"RWO" command