/[pengfork]/pengfork/doc/config/global.scm
ViewVC logotype

Diff of /pengfork/doc/config/global.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by chupa, Sat Dec 7 14:01:23 2002 UTC revision 1.4 by chupa, Fri Dec 13 15:29:14 2002 UTC
# Line 28  Line 28 
28  ;;                                                                  ;;  ;;                                                                  ;;
29  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30    
31  (define (GlobalRequestAttn)  (define (GlobalRequestAttn tries)
32    (chat-send "...\r")    (if (> tries 3)
33    (chat-try 25        (chat-failure)
34            '("SITA NETWORK"  (GlobalSetupEnvironment))  
35            '("ANSNET"        (chat-failure))        (chat-send "...\r")
36            '("SATURN.BBN"    (chat-failure))        (chat-try 25
37            '("SPRINT-IP"     (chat-failure))                '("SITA NETWORK"  (GlobalSetupEnvironment 0))
38            '("TERMINAL="     (chat-failure))                '("ANSNET"        (chat-failure))
39            '("TERMINAL ="    (chat-failure))                '("SATURN.BBN"    (chat-failure))
40            '("\r\n@"         (chat-failure))                '("SPRINT-IP"     (chat-failure))
41            '("\r\n ?"        (chat-failure))                '("TERMINAL="     (chat-failure))
42            '("LOCAL"         (chat-failure))                '("TERMINAL ="    (chat-failure))
43            '("ERROR"         (chat-failure))                '("\r\n@"         (chat-failure))
44            '("NO CARRIER"    (chat-failure))                '("\r\n ?"        (chat-failure))
45            '(else            (begin                '("LOCAL"         (chat-failure))
46                            (set! tries (+ tries 1))                '("ERROR"         (chat-failure))
47                            (if (<= (tries) 3)                '("NO CARRIER"    (chat-failure))
48                                (GlobalRequestAttn)                '(else            (GlobalRequestAttn (+ tries 1))))))
                               (chat-failure))))))  
49    
50  (define (GlobalSetupEnvironment)  (define (GlobalSetupEnvironment)
51    (chat-send "SET 1:0,2:0,21:0\r")    (chat-send "SET 1:0,2:0,21:0\r")
52    (sleep 1)    (sleep 1)
   (set! tries 1)  
53    (GlobalTalkToNetwork))    (GlobalTalkToNetwork))
54    
55  (define (GlobalTalkToNetwork)  (define (GlobalTalkToNetwork tries)
56    (sleep 1)    (if (> (tries) 4)
57    (chat-send "NUI 22500001\r")        (chat-failure)
58    (chat-try 10  
59            '("XXXXXX"     (GlobalReqAuth))        (sleep 1)
60            '("\r\n ?"     (chat-failure))        (chat-send "NUI 22500001\r")
61            '("ERROR"      (chat-failure))        (chat-try 10
62            '("NO CARRIER" (chat-failure))                '("XXXXXX"     (GlobalReqAuth))
63            '(else         (begin                '("\r\n ?"     (chat-failure))
64                           (set! tries (+ tries 1))                '("ERROR"      (chat-failure))
65                           (if (<= (tries) 4)                '("NO CARRIER" (chat-failure))
66                             (GlobalTalkToNetwork)                '(else         (GlobalTalkToNetwork (+ tries 1))))))
                            (chat-failure))))))  
67                                                                
68  (define (GlobalReqAuth)  (define (GlobalReqAuth tries)
69    (sleep 1)    (sleep 1)
70    (chat-send "OPXY9F\r")    (chat-send "OPXY9F\r")
71    (chat-try 10    (chat-try 10
# Line 76  Line 73 
73      '("\r\n ?"     (chat-failure))      '("\r\n ?"     (chat-failure))
74      '("ERROR"      (chat-failure))      '("ERROR"      (chat-failure))
75      '("NO CARRIER" (chat-failure))      '("NO CARRIER" (chat-failure))
76      '(else         (GlobalTalkToNetwork))))      '(else         (GlobalTalkToNetwork tries))))
77    
78  (define (GlobalConnect)  (define (GlobalConnect)
79    (sleep 1)    (sleep 1)
# Line 109  Line 106 
106  ;; Main entry point  ;; Main entry point
107  (define (chat-connect)  (define (chat-connect)
108    (sleep 5)    (sleep 5)
109    (define (tries) 1)    (GlobalRequestAttn 0))
   (GlobalRequestAttn))  

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26