You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
103 lines
3.6 KiB
103 lines
3.6 KiB
;; Cake Adventure
|
|
;; This is meant to be a dead simple "game" which you can modify while it is running.
|
|
;; This is to test hot-reloading
|
|
|
|
;; GDB commands:
|
|
;; set solib-search-path ~/Development/code/repositories/cakelisp/runtime
|
|
;; set cwd ~/Development/code/repositories/cakelisp/runtime
|
|
|
|
(import "HotReloading.cake")
|
|
(import "ArrayTest.cake")
|
|
|
|
(c-import "<stdio.h>"
|
|
"cctype" ;; For isdigit
|
|
"<stdlib.h>" ;; atoi
|
|
&with-decls "<vector>")
|
|
|
|
(defstruct room
|
|
name (* (const char))
|
|
description (* (const char))
|
|
connected-rooms (<> std::vector room))
|
|
|
|
(global-var rooms ([] 1 room)
|
|
(array
|
|
(array "front porch" "You're outside the front door of your home. The lights are off inside."
|
|
(array (array
|
|
"inside home" "Surprise! Your home is filled with cake. You look at your hands. You are cake."
|
|
(array))))))
|
|
|
|
;; TODO: Make arrays also be var, but have generator not cause auto derefs, just change [] to *
|
|
(var-noreload rooms-state (* room) nullptr)
|
|
(hot-reload-make-state-variable-array-initializer rooms-state ([] room) (array
|
|
(array "front porch" "You're outside the front door of your home. The lights are off inside."
|
|
(array (array
|
|
"inside home" "Surprise! Your home is filled with cake. You look at your hands. You are cake."
|
|
(array))))))
|
|
|
|
(state-var num-times-hot-reloaded int 0)
|
|
|
|
;; This now makes order matter, because if we move it up we'll get a null pointer exception
|
|
(state-var current-room (* (const room)) (addr (at 0 rooms-state)))
|
|
|
|
;; TODO: This should be autogenerated
|
|
(defun libGeneratedCakelisp_initialize ()
|
|
(num-times-hot-reloaded-initialize)
|
|
(rooms-state-initialize)
|
|
(current-room-initialize))
|
|
|
|
(defun print-help ()
|
|
(printf "At any point, enter 'r' to reload the code, 'h' for help, or 'q' to quit\n")
|
|
(printf "Enter room number for desired room\n\n"))
|
|
|
|
(defun print-room (room-to-print (* (const room)))
|
|
(printf "You are at: %s.\n%s\n"
|
|
(path room-to-print > name)
|
|
(path room-to-print > description))
|
|
(var room-index int 0)
|
|
(for-in connected-room (& (const room)) (path room-to-print > connected-rooms)
|
|
(printf "%d: %s\n" room-index (field connected-room name))
|
|
(incr room-index))
|
|
(when (on-call (path room-to-print > connected-rooms) empty)
|
|
(printf "There are no connected rooms. This must be the end of the game!\n")))
|
|
|
|
(defstruct TestStruct
|
|
a int
|
|
b int
|
|
c float)
|
|
|
|
;; Return true to hot-reload, or false to exit
|
|
(defun reloadable-entry-point (&return bool)
|
|
(unless num-times-hot-reloaded
|
|
(printf "CAKE ADVENTURE\n\n")
|
|
(print-help))
|
|
|
|
(printf "Num times reloaded: %d\n" num-times-hot-reloaded)
|
|
(++ num-times-hot-reloaded)
|
|
|
|
(print-room current-room)
|
|
|
|
(var input char 0)
|
|
(var previous-room (* (const room)) current-room)
|
|
(while (!= input 'q')
|
|
(when (!= current-room previous-room)
|
|
(set previous-room current-room)
|
|
(print-room current-room))
|
|
|
|
(printf "> ")
|
|
(set input (getchar))
|
|
|
|
(when (= input 'r')
|
|
(return true))
|
|
(when (= input 'h')
|
|
(print-help))
|
|
(when (call (in std isdigit) input)
|
|
(var room-request int (atoi (addr input)))
|
|
(var num-rooms int (on-call (path current-room > connected-rooms) size))
|
|
(unless (and num-rooms (< room-request num-rooms))
|
|
(printf "I don't know where that is. There are %d rooms\n" num-rooms)
|
|
(continue))
|
|
(printf "Going to room %d\n" room-request)
|
|
(set current-room (addr (at room-request
|
|
(path current-room > connected-rooms))))))
|
|
|
|
(return false))
|