Changeset 15890 in project


Ignore:
Timestamp:
09/15/09 04:39:46 (10 years ago)
Author:
iraikov
Message:

simple test case for smtp

Location:
release/4/smtp/trunk
Files:
4 added
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/smtp/trunk/smtp.scm

    r15867 r15890  
    708708(define (fsm st)
    709709  (lambda (s)
    710     (print "fsm: s = " s)
    711710    ((parse-cmd (handle-cmd st)) s)))
    712711
     
    719718(define (handle-cmd st)
    720719    (lambda (cmd)
    721       (print "handle-cmd: st = " st)
    722       (print "handle-cmd: cmd = " cmd)
    723720      (match (cons st cmd )
    724721         ((_ )                             (event (Unrecognized "")))
     
    742739         ((_                            ($ cmd 'Rset))          (trans (HaveHelo) (ResetState )))
    743740
    744          ((($ session-state 'Unknown)   ($ cmd 'Helo x))        (begin
    745                                                                   (print "(trans (HaveHelo) (SayHelo x))")
    746                                                                   (trans (HaveHelo) (SayHelo x))))
     741         ((($ session-state 'Unknown)   ($ cmd 'Helo x))        (trans (HaveHelo) (SayHelo x)))
    747742         ((_                            ($ cmd 'Helo x))        (trans (HaveHelo) (SayHeloAgain x)))
    748743         ((($ session-state 'Unknown)   ($ cmd 'Ehlo x))        (trans (HaveHelo) (SayEhlo x)))
     
    756751         ((_                            ($ cmd 'RcptTo x p))    (trans (HaveRcptTo) (AddRcptTo x p)))
    757752
    758          ((($ session-state 'Unknown)      ($ cmd 'Data x))     (event (NeedHeloFirst)))
    759          ((($ session-state 'HaveHelo)     ($ cmd 'Data x))     (event (NeedMailFromFirst)))
    760          ((($ session-state 'HaveMailFrom) ($ cmd 'Data x))     (event (NeedRcptToFirst)))
    761          ((($ session-state 'HaveRcptTo)   ($ cmd 'Data x))     (trans (HaveData) (StartData)))
     753         ((($ session-state 'Unknown)      ($ cmd 'Data))     (event (NeedHeloFirst)))
     754         ((($ session-state 'HaveHelo)     ($ cmd 'Data))     (event (NeedMailFromFirst)))
     755         ((($ session-state 'HaveMailFrom) ($ cmd 'Data))     (event (NeedRcptToFirst)))
     756         ((($ session-state 'HaveRcptTo)   ($ cmd 'Data))     (trans (HaveData) (StartData)))
    762757
    763758         ((($ session-state 'HaveData)   _)     (event (StartData)))
Note: See TracChangeset for help on using the changeset viewer.