From a7411eadf4c79ee6298a31d90d13327d98fa8801 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 4 Sep 2001 02:35:53 +0000 Subject: vm status guile commands --- mixguile/mixguile-vm-stat.scm | 48 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 mixguile/mixguile-vm-stat.scm (limited to 'mixguile') diff --git a/mixguile/mixguile-vm-stat.scm b/mixguile/mixguile-vm-stat.scm new file mode 100644 index 0000000..5bd8233 --- /dev/null +++ b/mixguile/mixguile-vm-stat.scm @@ -0,0 +1,48 @@ +;; -*-scheme-*- -------------- mixguile-commands.scm : +; mixvm status functions +; ------------------------------------------------------------------ +; Last change: Time-stamp: "01/09/04 04:25:40 jao" +; ------------------------------------------------------------------ +; Copyright (C) 2001 Free Software Foundation, Inc. +; +; This program is free software; you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License +; along with this program; if not, write to the Free Software +; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +; +;; + +;; possible status index +(define mix-status-values (vector 'MIX_ERROR + 'MIX_BREAK + 'MIX_COND_BREAK + 'MIX_HALTED + 'MIX_RUNNING + 'MIX_LOADED + 'MIX_EMPTY)) +;; return status as a simbol +(define mix-vm-status (lambda () (vector-ref mix-status-values (mixvm-status)))) + +;; check for a given status +(define mix-vm-status? + (lambda (status) (eq? status (mix-vm-status)))) + +;; predicates for each possible status +(define mix-vm-status-error? (lambda () (mix-vm-status? 'MIX_ERROR))) +(define mix-vm-status-break? (lambda () (mix-vm-status? 'MIX_BREAK))) +(define mix-vm-status-cond-break? (lambda () (mix-vm-status? 'MIX_COND_BREAK))) +(define mix-vm-status-halted? (lambda () (mix-vm-status? 'MIX_HALTED))) +(define mix-vm-status-running? (lambda () (mix-vm-status? 'MIX_RUNNING))) +(define mix-vm-status-loaded? (lambda () (mix-vm-status? 'MIX_LOADED))) +(define mix-vm-status-empty? (lambda () (mix-vm-status? 'MIX_EMPTY))) + + -- cgit v1.2.3