/[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.4 by chupa, Fri Dec 13 15:29:14 2002 UTC revision 1.5 by chupa, Thu Jan 2 13:43:48 2003 UTC
# Line 28  Line 28 
28  ;;                                                                  ;;  ;;                                                                  ;;
29  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30    
31  (define (GlobalRequestAttn tries)  (define (request-attn tries)
32    (if (> tries 3)    (if (> tries 3)
33        (chat-failure)        (chat-failure)
34    
35        (chat-send "...\r")        (chat-send "...\r")
36        (chat-try 25        (chat-try 25
37                '("SITA NETWORK"  (GlobalSetupEnvironment 0))                '("SITA NETWORK"  (setup-environment 0))
38                '("ANSNET"        (chat-failure))                '("ANSNET"        (chat-failure))
39                '("SATURN.BBN"    (chat-failure))                '("SATURN.BBN"    (chat-failure))
40                '("SPRINT-IP"     (chat-failure))                '("SPRINT-IP"     (chat-failure))
# Line 45  Line 45 
45                '("LOCAL"         (chat-failure))                '("LOCAL"         (chat-failure))
46                '("ERROR"         (chat-failure))                '("ERROR"         (chat-failure))
47                '("NO CARRIER"    (chat-failure))                '("NO CARRIER"    (chat-failure))
48                '(else            (GlobalRequestAttn (+ tries 1))))))                '(else            (request-attn (+ tries 1))))))
49    
50  (define (GlobalSetupEnvironment)  (define (setup-snvironment)
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)
53    (GlobalTalkToNetwork))    (talk-to-network))
54    
55  (define (GlobalTalkToNetwork tries)  (define (talk-to-network tries)
56    (if (> (tries) 4)    (if (> (tries) 4)
57        (chat-failure)        (chat-failure)
58    
59        (sleep 1)        (sleep 1)
60        (chat-send "NUI 22500001\r")        (chat-send "NUI 22500001\r")
61        (chat-try 10        (chat-try 10
62                '("XXXXXX"     (GlobalReqAuth))                '("XXXXXX"     (req-auth (+ tries 1)))
63                '("\r\n ?"     (chat-failure))                '("\r\n ?"     (chat-failure))
64                '("ERROR"      (chat-failure))                '("ERROR"      (chat-failure))
65                '("NO CARRIER" (chat-failure))                '("NO CARRIER" (chat-failure))
66                '(else         (GlobalTalkToNetwork (+ tries 1))))))                '(else         (talk-to-network (+ tries 1))))))
67                                                                
68  (define (GlobalReqAuth tries)  (define (req-auth tries)
69    (sleep 1)    (sleep 1)
70    (chat-send "OPXY9F\r")    (chat-send "OPXY9F\r")
71    (chat-try 10    (chat-try 10
72      '("ACTIVE"     (GlobalConnect))      '("ACTIVE"     (aol-connect))
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 tries))))      '(else         (talk-to-network tries))))
77    
78  (define (GlobalConnect)  (define (aol-connect)
79    (sleep 1)    (sleep 1)
80    (chat-send "LINE(256)9001131,windows 0001\r")    (chat-send "LINE(256)9001131,windows 0001\r")
81    (chat-try 23    (chat-try 23
# Line 106  Line 106 
106  ;; Main entry point  ;; Main entry point
107  (define (chat-connect)  (define (chat-connect)
108    (sleep 5)    (sleep 5)
109    (GlobalRequestAttn 0))    (request-attn 0))

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

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