# -*- coding: utf-8 -*-
# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
use warnings; use strict;

# Communication status codes
package Devel::Trepan::Interface::ComCodes;

our (@ISA, @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(PRINT COMMAND CONFIRM_TRUE CONFIRM_FALSE CONFIRM_REPLY QUIT PROMPT RESTART SERVERERR);

# Most of these go from debugged process to front-end
# client interface. COMMAND goes the other way.

use constant PRINT         => '.';
use constant COMMAND       => 'C';
use constant CONFIRM_TRUE  => 'Y';
use constant CONFIRM_FALSE => 'N';
use constant CONFIRM_REPLY => '?';
use constant QUIT          => 'q';
use constant PROMPT        => 'p';
use constant RESTART       => 'r';
use constant SERVERERR     => '!';

# This constant indicates a protocol error accross the wire and is
# used internally for syncronization.
use constant PROTOERROR    => 'X';

1;