#! /usr/local/bin/emacs --script
;;; el-shell --- el shell it -*- quick: t; basic-display: t; lexical-binding: t -*-

(push "." load-path)
(require 'el-gpu "el-gpu.elc")

(let* ((beg)
       (tme)
       (gfx (evenp (random 100)))
       (name      "(el-gpu)")
       (gfx-label "/gfx .....")
       (spc-label " .........")
       (cmd (string-join command-line-args-left [32]))
       (pause 3))
  (when (and (stringp cmd) (not (zerop (length cmd))))
    ;; init
    (setq current-time-list nil)
    (emacs_gpu_init)
    ;; first
    (setf beg (pix-time-ticks))
    (el-shell cmd gfx)
    (setf tme (/ (* 1000 (- (pix-time-ticks) beg)) (pix-time-hz)))
    (message " %s text%s %.1f ms" name (if gfx gfx-label spc-label) tme)
    (sleep-for pause)
    ;; second
    (setf beg (pix-time-ticks))
    (el-shell cmd (not gfx))
    (setf tme (/ (* 1000 (- (pix-time-ticks) beg)) (pix-time-hz)))
    (message " %s text%s %.1f ms" name (if (not gfx) gfx-label spc-label) tme)
    (sleep-for pause)
    ;; done
    (emacs_gpu_quit 0)))