[elpa] 129/255: igs message types from igs.c

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 73c50f996ae68673e783ad769cdc04367e47c38c
Author: Eric Schulte <address@hidden>
Date:   Wed May 30 22:49:31 2012 -0600

    igs message types from igs.c
---
 back-ends/igs.el |   45 +++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 45 insertions(+), 0 deletions(-)

diff --git a/back-ends/igs.el b/back-ends/igs.el
index 56a9cf4..b114f0a 100644
--- a/back-ends/igs.el
+++ b/back-ends/igs.el
@@ -41,6 +41,51 @@
 (defvar igs-port 6969
   "Port to use when connecting to an IGS server.")
 
+(defvar igs-message-types
+  '((:unknown   . 0)
+    (:AUTOMAT   . 35)   ;; Automatch announcement
+    (:AUTOASK   . 36)   ;; Automatch accept
+    (:CHOICES   . 38)   ;; game choices
+    (:CLIVRFY   . 41)   ;; Client verify message
+    (:BEEP      . 2)    ;; \7 telnet
+    (:BOARD     . 3)    ;; Board being drawn
+    (:DOWN      . 4)    ;; The server is going down
+    (:ERROR     . 5)    ;; An error reported
+    (:FIL       . 6)    ;; File being sent
+    (:GAMES     . 7)    ;; Games listing
+    (:HELP      . 8)    ;; Help file
+    (:INFO      . 9)    ;; Generic info
+    (:LAST      . 10)   ;; Last command
+    (:KIBITZ    . 11)   ;; Kibitz strings
+    (:LOAD      . 12)   ;; Loading a game
+    (:LOOK_M    . 13)   ;; Look
+    (:MESSAGE   . 14)   ;; Message listing
+    (:MOVE      . 15)   ;; Move #:(B) A1
+    (:OBSERVE   . 16)   ;; Observe report
+    (:PROMPT    . 1)    ;; A Prompt (never)
+    (:REFRESH   . 17)   ;; Refresh of a board
+    (:SAVED     . 18)   ;; Stored command
+    (:SAY       . 19)   ;; Say string
+    (:SCORE_M   . 20)   ;; Score report
+    (:SGF_M     . 34)   ;; SGF variation
+    (:SHOUT     . 21)   ;; Shout string
+    (:SHOW      . 29)   ;; Shout string
+    (:STATUS    . 22)   ;; Current Game status
+    (:STORED    . 23)   ;; Stored games
+    (:TEACH     . 33)   ;; teaching game
+    (:TELL      . 24)   ;; Tell string
+    (:DOT       . 40)   ;; your . string
+    (:THIST     . 25)   ;; Thist report
+    (:TIM       . 26)   ;; times command
+    (:TRANS     . 30)   ;; Translation info
+    (:TTT_BOARD . 37)   ;; tic tac toe
+    (:WHO       . 27)   ;; who command
+    (:UNDO      . 28)   ;; Undo report
+    (:USER      . 42)   ;; Long user report
+    (:VERSION   . 39)   ;; IGS Version
+    (:YELL      . 32))) ;; Channel yelling
+
+
 (defvar igs-process-name "igs"
   "Name for the igs process.")