src/intrinsic-macros.lisp

(in-package sugar-qsp)

;;;; Macros implementing some intrinsics where it makes sense
;;;; E.g. an equivalent JS function exists, or it's a direct API call

;;; 1loc

;;; 2var

(ps:defpsmacro killvar (varname &optional (index :whole))
  `(api-call kill-var ,varname ,index))

(ps:defpsmacro killall ()
  `(api-call kill-all))

;;; 3expr

(ps:defpsmacro obj (name)
  `(funcall (root objs includes) ,name))

(ps:defpsmacro loc (name)
  `(funcall (root locs includes) ,name))

(ps:defpsmacro no (arg)
  `(- -1 ,arg))

;;; 4code

(ps:defpsmacro qspver ()
  "0.0.1")

(ps:defpsmacro curloc ()
  `(root current-location))

(ps:defpsmacro rnd ()
  `(funcall (root lib rand) 1 1000))

(ps:defpsmacro qspmax (&rest args)
  (if (= 1 (length args))
      `(*math.max.apply nil ,@args)
      `(*math.max ,@args)))

(ps:defpsmacro qspmin (&rest args)
  (if (= 1 (length args))
      `(*math.min.apply nil ,@args)
      `(*math.min ,@args)))

;;; 5arrays

(ps:defpsmacro arrsize (name)
  `(api-call array-size ,name))

;;; 6str

(ps:defpsmacro len (s)
  `(length ,s))

(ps:defpsmacro mid (s from &optional count)
  `(ps:chain ,s (substring ,from ,count)))

(ps:defpsmacro ucase (s)
  `(ps:chain ,s (to-upper-case)))

(ps:defpsmacro lcase (s)
  `(ps:chain ,s (to-lower-case)))

(ps:defpsmacro trim (s)
  `(ps:chain ,s (trim)))

(ps:defpsmacro replace (s from to)
  `(ps:chain ,s (replace ,from ,to)))

(ps:defpsmacro val (s)
  `(parse-int ,s 10))

(ps:defpsmacro qspstr (n)
  `(ps:chain ,n (to-string)))

;;; 7if

;;; 8sub

;;; 9loops

;; JUMP is in ps-macros.lisp (because it's a part of a huge kludge)

(ps:defpsmacro exit ()
  `(return-from nil (values)))

;;; 10dynamic

;;; 11main

(ps:defpsmacro desc (s)
  (declare (ignore s))
  "")

;;; 12stat

(ps:defpsmacro showstat (enable)
  `(api-call enable-frame :stat ,enable))

;;; 13diag

(ps:defpsmacro msg (text)
  `(alert ,text))

;;; 14act

(ps:defpsmacro showacts (enable)
  `(api-call enable-frame :acts ,enable))

(ps:defpsmacro delact (name)
  `(api-call del-act ,name))

(ps:defpsmacro cla ()
  `(api-call clear-act))

;;; 15objs

(ps:defpsmacro showobjs (enable)
  `(api-call enable-frame :objs ,enable))

(ps:defpsmacro countobj ()
  `(length (root objs)))

(ps:defpsmacro getobj (index)
  `(or (elt (root objs) ,index) ""))

;;; 16menu

;;; 17sound

(ps:defpsmacro isplay (filename)
  `(funcall (root playing includes) ,filename))

;;; 18img

;;; 19input

;;; 20time

;;; misc