;; -*- Mode: LISP; Syntax: Common-Lisp; Package: (USER); -*-
;-----------------------------------------------------------
;
;  abbrev.lisp
;  -for making interaction easier with less typing
;
; 'Ymir Agent System, 1994-1995 
;
;-----------------------------------------------------------

(defun cb () "Close Body" (close-body-stream))

(defun cs () "Close Speech" (close-speech))

(defun cg () "Close Graphics" (close-graphics))

(defun og () "Open Graphics" (open-graphics))

(defun ci () "Close Intonation" (close-inton-stream))

(defun ob () "Open Body" (open-body-socket t))

(defun os () "Open Speech" (open-speech-socket speech-host-name))

(defun oi () "Open Intonation" (open-inton-stream))

(defun rb () "Read Body" (refresh-body-data))

(defun rs () "Read Speech" (read-speech-data))

(defun ri () "Read Intonation" (read-inton-data))

(defun rd () "ReDraw" (redraw))

(defun run () (main2))

(defun mk () "Make All" (make-all))

(defun kas () (kill-all-sockets))

(defun oss () (open-select-sockets))

(defun oas () (open-all-sockets))

(defun cas () (close-all-sockets))

(defun kas () (kill-all-sockets))

(defun ia () (initialize-all))

(defun ofs () (open-face-socket))

(defun of  () "Open Face" (open-face-socket))

(defun oos () "Open OUt Sockcet" (open-face-socket))

(defun mmr () "MultiModal Recorder" (make-grapher))


; -- Socket connection to the Scheduler on Spot --
; more on this can be found in MotorMV.lisp

(defvar *act-out-sock* nil)
(defvar act-out-sock-# 1999)