defstruct-ps-sample.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(eval-when (:compile-toplevel :execute :load-toplevel)
  (ql:quickload :ps-experiment)
  (ql:quickload :cl-js))

(pse:defstruct.ps parent
  (a 10)
  b)

(pse:defstruct.ps (child (:include parent))
  (c 30))

(pse:defstruct.ps hamster a b)

(defun main (&rest argv)
  (declare (ignorable argv))
  (cl-js:run-js
   (pse:with-use-ps-pack (:this)
     (defvar x (make-child :b 20))
     (print (child-a x))  ; => 10
     (print (parent-a x)) ; => 10
     (setf (child-a x) 50)
     (print (child-a x))  ; => 50
     (print (child-b x))  ; => 20
     (print (child-c x))  ; => 30
     (print (parent-p x)) ; => true
     (print (child-p x))  ; => true
     (print (hamster-p x)); => false
     )))