Donatien Garnier
/
LwIPNetworking
Important changes to repositories hosted on mbed.com
Mbed hosted mercurial repositories are deprecated and are due to be permanently deleted in July 2026.
To keep a copy of this software download the repository Zip archive or clone locally using Mercurial.
It is also possible to export all your personal repositories from the account settings page.
Dependencies: DebugLib Socket lwip lwip-sys
Fork of
NetworkingCoreLib
by 
Donatien Garnier
main/lwip/src/netif/ppp/fsm.c@0:013f5d54248c, 2012-05-24 (annotated)
- Committer:
- donatien
- Date:
- Thu May 24 14:49:40 2012 +0000
- Revision:
- 0:013f5d54248c
Initial Commit
Who changed what in which revision?
| User | Revision | Line number | New contents of line |
|---|---|---|---|
| donatien | 0:013f5d54248c | 1 | /***************************************************************************** |
| donatien | 0:013f5d54248c | 2 | * fsm.c - Network Control Protocol Finite State Machine program file. |
| donatien | 0:013f5d54248c | 3 | * |
| donatien | 0:013f5d54248c | 4 | * Copyright (c) 2003 by Marc Boucher, Services Informatiques (MBSI) inc. |
| donatien | 0:013f5d54248c | 5 | * portions Copyright (c) 1997 by Global Election Systems Inc. |
| donatien | 0:013f5d54248c | 6 | * |
| donatien | 0:013f5d54248c | 7 | * The authors hereby grant permission to use, copy, modify, distribute, |
| donatien | 0:013f5d54248c | 8 | * and license this software and its documentation for any purpose, provided |
| donatien | 0:013f5d54248c | 9 | * that existing copyright notices are retained in all copies and that this |
| donatien | 0:013f5d54248c | 10 | * notice and the following disclaimer are included verbatim in any |
| donatien | 0:013f5d54248c | 11 | * distributions. No written agreement, license, or royalty fee is required |
| donatien | 0:013f5d54248c | 12 | * for any of the authorized uses. |
| donatien | 0:013f5d54248c | 13 | * |
| donatien | 0:013f5d54248c | 14 | * THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTORS *AS IS* AND ANY EXPRESS OR |
| donatien | 0:013f5d54248c | 15 | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
| donatien | 0:013f5d54248c | 16 | * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
| donatien | 0:013f5d54248c | 17 | * IN NO EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, |
| donatien | 0:013f5d54248c | 18 | * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
| donatien | 0:013f5d54248c | 19 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
| donatien | 0:013f5d54248c | 20 | * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
| donatien | 0:013f5d54248c | 21 | * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| donatien | 0:013f5d54248c | 22 | * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
| donatien | 0:013f5d54248c | 23 | * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| donatien | 0:013f5d54248c | 24 | * |
| donatien | 0:013f5d54248c | 25 | ****************************************************************************** |
| donatien | 0:013f5d54248c | 26 | * REVISION HISTORY |
| donatien | 0:013f5d54248c | 27 | * |
| donatien | 0:013f5d54248c | 28 | * 03-01-01 Marc Boucher <marc@mbsi.ca> |
| donatien | 0:013f5d54248c | 29 | * Ported to lwIP. |
| donatien | 0:013f5d54248c | 30 | * 97-12-01 Guy Lancaster <lancasterg@acm.org>, Global Election Systems Inc. |
| donatien | 0:013f5d54248c | 31 | * Original based on BSD fsm.c. |
| donatien | 0:013f5d54248c | 32 | *****************************************************************************/ |
| donatien | 0:013f5d54248c | 33 | /* |
| donatien | 0:013f5d54248c | 34 | * fsm.c - {Link, IP} Control Protocol Finite State Machine. |
| donatien | 0:013f5d54248c | 35 | * |
| donatien | 0:013f5d54248c | 36 | * Copyright (c) 1989 Carnegie Mellon University. |
| donatien | 0:013f5d54248c | 37 | * All rights reserved. |
| donatien | 0:013f5d54248c | 38 | * |
| donatien | 0:013f5d54248c | 39 | * Redistribution and use in source and binary forms are permitted |
| donatien | 0:013f5d54248c | 40 | * provided that the above copyright notice and this paragraph are |
| donatien | 0:013f5d54248c | 41 | * duplicated in all such forms and that any documentation, |
| donatien | 0:013f5d54248c | 42 | * advertising materials, and other materials related to such |
| donatien | 0:013f5d54248c | 43 | * distribution and use acknowledge that the software was developed |
| donatien | 0:013f5d54248c | 44 | * by Carnegie Mellon University. The name of the |
| donatien | 0:013f5d54248c | 45 | * University may not be used to endorse or promote products derived |
| donatien | 0:013f5d54248c | 46 | * from this software without specific prior written permission. |
| donatien | 0:013f5d54248c | 47 | * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR |
| donatien | 0:013f5d54248c | 48 | * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED |
| donatien | 0:013f5d54248c | 49 | * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. |
| donatien | 0:013f5d54248c | 50 | */ |
| donatien | 0:013f5d54248c | 51 | |
| donatien | 0:013f5d54248c | 52 | /* |
| donatien | 0:013f5d54248c | 53 | * TODO: |
| donatien | 0:013f5d54248c | 54 | * Randomize fsm id on link/init. |
| donatien | 0:013f5d54248c | 55 | * Deal with variable outgoing MTU. |
| donatien | 0:013f5d54248c | 56 | */ |
| donatien | 0:013f5d54248c | 57 | |
| donatien | 0:013f5d54248c | 58 | #include "lwip/opt.h" |
| donatien | 0:013f5d54248c | 59 | |
| donatien | 0:013f5d54248c | 60 | #if PPP_SUPPORT /* don't build if not configured for use in lwipopts.h */ |
| donatien | 0:013f5d54248c | 61 | |
| donatien | 0:013f5d54248c | 62 | #include "ppp.h" |
| donatien | 0:013f5d54248c | 63 | #include "pppdebug.h" |
| donatien | 0:013f5d54248c | 64 | |
| donatien | 0:013f5d54248c | 65 | #include "fsm.h" |
| donatien | 0:013f5d54248c | 66 | |
| donatien | 0:013f5d54248c | 67 | #include <string.h> |
| donatien | 0:013f5d54248c | 68 | |
| donatien | 0:013f5d54248c | 69 | #if PPP_DEBUG |
| donatien | 0:013f5d54248c | 70 | static const char *ppperr_strerr[] = { |
| donatien | 0:013f5d54248c | 71 | "LS_INITIAL", /* LS_INITIAL 0 */ |
| donatien | 0:013f5d54248c | 72 | "LS_STARTING", /* LS_STARTING 1 */ |
| donatien | 0:013f5d54248c | 73 | "LS_CLOSED", /* LS_CLOSED 2 */ |
| donatien | 0:013f5d54248c | 74 | "LS_STOPPED", /* LS_STOPPED 3 */ |
| donatien | 0:013f5d54248c | 75 | "LS_CLOSING", /* LS_CLOSING 4 */ |
| donatien | 0:013f5d54248c | 76 | "LS_STOPPING", /* LS_STOPPING 5 */ |
| donatien | 0:013f5d54248c | 77 | "LS_REQSENT", /* LS_REQSENT 6 */ |
| donatien | 0:013f5d54248c | 78 | "LS_ACKRCVD", /* LS_ACKRCVD 7 */ |
| donatien | 0:013f5d54248c | 79 | "LS_ACKSENT", /* LS_ACKSENT 8 */ |
| donatien | 0:013f5d54248c | 80 | "LS_OPENED" /* LS_OPENED 9 */ |
| donatien | 0:013f5d54248c | 81 | }; |
| donatien | 0:013f5d54248c | 82 | #endif /* PPP_DEBUG */ |
| donatien | 0:013f5d54248c | 83 | |
| donatien | 0:013f5d54248c | 84 | static void fsm_timeout (void *); |
| donatien | 0:013f5d54248c | 85 | static void fsm_rconfreq (fsm *, u_char, u_char *, int); |
| donatien | 0:013f5d54248c | 86 | static void fsm_rconfack (fsm *, int, u_char *, int); |
| donatien | 0:013f5d54248c | 87 | static void fsm_rconfnakrej (fsm *, int, int, u_char *, int); |
| donatien | 0:013f5d54248c | 88 | static void fsm_rtermreq (fsm *, int, u_char *, int); |
| donatien | 0:013f5d54248c | 89 | static void fsm_rtermack (fsm *); |
| donatien | 0:013f5d54248c | 90 | static void fsm_rcoderej (fsm *, u_char *, int); |
| donatien | 0:013f5d54248c | 91 | static void fsm_sconfreq (fsm *, int); |
| donatien | 0:013f5d54248c | 92 | |
| donatien | 0:013f5d54248c | 93 | #define PROTO_NAME(f) ((f)->callbacks->proto_name) |
| donatien | 0:013f5d54248c | 94 | |
| donatien | 0:013f5d54248c | 95 | int peer_mru[NUM_PPP]; |
| donatien | 0:013f5d54248c | 96 | |
| donatien | 0:013f5d54248c | 97 | |
| donatien | 0:013f5d54248c | 98 | /* |
| donatien | 0:013f5d54248c | 99 | * fsm_init - Initialize fsm. |
| donatien | 0:013f5d54248c | 100 | * |
| donatien | 0:013f5d54248c | 101 | * Initialize fsm state. |
| donatien | 0:013f5d54248c | 102 | */ |
| donatien | 0:013f5d54248c | 103 | void |
| donatien | 0:013f5d54248c | 104 | fsm_init(fsm *f) |
| donatien | 0:013f5d54248c | 105 | { |
| donatien | 0:013f5d54248c | 106 | f->state = LS_INITIAL; |
| donatien | 0:013f5d54248c | 107 | f->flags = 0; |
| donatien | 0:013f5d54248c | 108 | f->id = 0; /* XXX Start with random id? */ |
| donatien | 0:013f5d54248c | 109 | f->timeouttime = FSM_DEFTIMEOUT; |
| donatien | 0:013f5d54248c | 110 | f->maxconfreqtransmits = FSM_DEFMAXCONFREQS; |
| donatien | 0:013f5d54248c | 111 | f->maxtermtransmits = FSM_DEFMAXTERMREQS; |
| donatien | 0:013f5d54248c | 112 | f->maxnakloops = FSM_DEFMAXNAKLOOPS; |
| donatien | 0:013f5d54248c | 113 | f->term_reason_len = 0; |
| donatien | 0:013f5d54248c | 114 | } |
| donatien | 0:013f5d54248c | 115 | |
| donatien | 0:013f5d54248c | 116 | |
| donatien | 0:013f5d54248c | 117 | /* |
| donatien | 0:013f5d54248c | 118 | * fsm_lowerup - The lower layer is up. |
| donatien | 0:013f5d54248c | 119 | */ |
| donatien | 0:013f5d54248c | 120 | void |
| donatien | 0:013f5d54248c | 121 | fsm_lowerup(fsm *f) |
| donatien | 0:013f5d54248c | 122 | { |
| donatien | 0:013f5d54248c | 123 | int oldState = f->state; |
| donatien | 0:013f5d54248c | 124 | |
| donatien | 0:013f5d54248c | 125 | LWIP_UNUSED_ARG(oldState); |
| donatien | 0:013f5d54248c | 126 | |
| donatien | 0:013f5d54248c | 127 | switch( f->state ) { |
| donatien | 0:013f5d54248c | 128 | case LS_INITIAL: |
| donatien | 0:013f5d54248c | 129 | f->state = LS_CLOSED; |
| donatien | 0:013f5d54248c | 130 | break; |
| donatien | 0:013f5d54248c | 131 | |
| donatien | 0:013f5d54248c | 132 | case LS_STARTING: |
| donatien | 0:013f5d54248c | 133 | if( f->flags & OPT_SILENT ) { |
| donatien | 0:013f5d54248c | 134 | f->state = LS_STOPPED; |
| donatien | 0:013f5d54248c | 135 | } else { |
| donatien | 0:013f5d54248c | 136 | /* Send an initial configure-request */ |
| donatien | 0:013f5d54248c | 137 | fsm_sconfreq(f, 0); |
| donatien | 0:013f5d54248c | 138 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 139 | } |
| donatien | 0:013f5d54248c | 140 | break; |
| donatien | 0:013f5d54248c | 141 | |
| donatien | 0:013f5d54248c | 142 | default: |
| donatien | 0:013f5d54248c | 143 | FSMDEBUG(LOG_INFO, ("%s: Up event in state %d (%s)!\n", |
| donatien | 0:013f5d54248c | 144 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 145 | } |
| donatien | 0:013f5d54248c | 146 | |
| donatien | 0:013f5d54248c | 147 | FSMDEBUG(LOG_INFO, ("%s: lowerup state %d (%s) -> %d (%s)\n", |
| donatien | 0:013f5d54248c | 148 | PROTO_NAME(f), oldState, ppperr_strerr[oldState], f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 149 | } |
| donatien | 0:013f5d54248c | 150 | |
| donatien | 0:013f5d54248c | 151 | |
| donatien | 0:013f5d54248c | 152 | /* |
| donatien | 0:013f5d54248c | 153 | * fsm_lowerdown - The lower layer is down. |
| donatien | 0:013f5d54248c | 154 | * |
| donatien | 0:013f5d54248c | 155 | * Cancel all timeouts and inform upper layers. |
| donatien | 0:013f5d54248c | 156 | */ |
| donatien | 0:013f5d54248c | 157 | void |
| donatien | 0:013f5d54248c | 158 | fsm_lowerdown(fsm *f) |
| donatien | 0:013f5d54248c | 159 | { |
| donatien | 0:013f5d54248c | 160 | int oldState = f->state; |
| donatien | 0:013f5d54248c | 161 | |
| donatien | 0:013f5d54248c | 162 | LWIP_UNUSED_ARG(oldState); |
| donatien | 0:013f5d54248c | 163 | |
| donatien | 0:013f5d54248c | 164 | switch( f->state ) { |
| donatien | 0:013f5d54248c | 165 | case LS_CLOSED: |
| donatien | 0:013f5d54248c | 166 | f->state = LS_INITIAL; |
| donatien | 0:013f5d54248c | 167 | break; |
| donatien | 0:013f5d54248c | 168 | |
| donatien | 0:013f5d54248c | 169 | case LS_STOPPED: |
| donatien | 0:013f5d54248c | 170 | f->state = LS_STARTING; |
| donatien | 0:013f5d54248c | 171 | if( f->callbacks->starting ) { |
| donatien | 0:013f5d54248c | 172 | (*f->callbacks->starting)(f); |
| donatien | 0:013f5d54248c | 173 | } |
| donatien | 0:013f5d54248c | 174 | break; |
| donatien | 0:013f5d54248c | 175 | |
| donatien | 0:013f5d54248c | 176 | case LS_CLOSING: |
| donatien | 0:013f5d54248c | 177 | f->state = LS_INITIAL; |
| donatien | 0:013f5d54248c | 178 | UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */ |
| donatien | 0:013f5d54248c | 179 | break; |
| donatien | 0:013f5d54248c | 180 | |
| donatien | 0:013f5d54248c | 181 | case LS_STOPPING: |
| donatien | 0:013f5d54248c | 182 | case LS_REQSENT: |
| donatien | 0:013f5d54248c | 183 | case LS_ACKRCVD: |
| donatien | 0:013f5d54248c | 184 | case LS_ACKSENT: |
| donatien | 0:013f5d54248c | 185 | f->state = LS_STARTING; |
| donatien | 0:013f5d54248c | 186 | UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */ |
| donatien | 0:013f5d54248c | 187 | break; |
| donatien | 0:013f5d54248c | 188 | |
| donatien | 0:013f5d54248c | 189 | case LS_OPENED: |
| donatien | 0:013f5d54248c | 190 | if( f->callbacks->down ) { |
| donatien | 0:013f5d54248c | 191 | (*f->callbacks->down)(f); |
| donatien | 0:013f5d54248c | 192 | } |
| donatien | 0:013f5d54248c | 193 | f->state = LS_STARTING; |
| donatien | 0:013f5d54248c | 194 | break; |
| donatien | 0:013f5d54248c | 195 | |
| donatien | 0:013f5d54248c | 196 | default: |
| donatien | 0:013f5d54248c | 197 | FSMDEBUG(LOG_INFO, ("%s: Down event in state %d (%s)!\n", |
| donatien | 0:013f5d54248c | 198 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 199 | } |
| donatien | 0:013f5d54248c | 200 | |
| donatien | 0:013f5d54248c | 201 | FSMDEBUG(LOG_INFO, ("%s: lowerdown state %d (%s) -> %d (%s)\n", |
| donatien | 0:013f5d54248c | 202 | PROTO_NAME(f), oldState, ppperr_strerr[oldState], f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 203 | } |
| donatien | 0:013f5d54248c | 204 | |
| donatien | 0:013f5d54248c | 205 | |
| donatien | 0:013f5d54248c | 206 | /* |
| donatien | 0:013f5d54248c | 207 | * fsm_open - Link is allowed to come up. |
| donatien | 0:013f5d54248c | 208 | */ |
| donatien | 0:013f5d54248c | 209 | void |
| donatien | 0:013f5d54248c | 210 | fsm_open(fsm *f) |
| donatien | 0:013f5d54248c | 211 | { |
| donatien | 0:013f5d54248c | 212 | int oldState = f->state; |
| donatien | 0:013f5d54248c | 213 | |
| donatien | 0:013f5d54248c | 214 | LWIP_UNUSED_ARG(oldState); |
| donatien | 0:013f5d54248c | 215 | |
| donatien | 0:013f5d54248c | 216 | switch( f->state ) { |
| donatien | 0:013f5d54248c | 217 | case LS_INITIAL: |
| donatien | 0:013f5d54248c | 218 | f->state = LS_STARTING; |
| donatien | 0:013f5d54248c | 219 | if( f->callbacks->starting ) { |
| donatien | 0:013f5d54248c | 220 | (*f->callbacks->starting)(f); |
| donatien | 0:013f5d54248c | 221 | } |
| donatien | 0:013f5d54248c | 222 | break; |
| donatien | 0:013f5d54248c | 223 | |
| donatien | 0:013f5d54248c | 224 | case LS_CLOSED: |
| donatien | 0:013f5d54248c | 225 | if( f->flags & OPT_SILENT ) { |
| donatien | 0:013f5d54248c | 226 | f->state = LS_STOPPED; |
| donatien | 0:013f5d54248c | 227 | } else { |
| donatien | 0:013f5d54248c | 228 | /* Send an initial configure-request */ |
| donatien | 0:013f5d54248c | 229 | fsm_sconfreq(f, 0); |
| donatien | 0:013f5d54248c | 230 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 231 | } |
| donatien | 0:013f5d54248c | 232 | break; |
| donatien | 0:013f5d54248c | 233 | |
| donatien | 0:013f5d54248c | 234 | case LS_CLOSING: |
| donatien | 0:013f5d54248c | 235 | f->state = LS_STOPPING; |
| donatien | 0:013f5d54248c | 236 | /* fall through */ |
| donatien | 0:013f5d54248c | 237 | case LS_STOPPED: |
| donatien | 0:013f5d54248c | 238 | case LS_OPENED: |
| donatien | 0:013f5d54248c | 239 | if( f->flags & OPT_RESTART ) { |
| donatien | 0:013f5d54248c | 240 | fsm_lowerdown(f); |
| donatien | 0:013f5d54248c | 241 | fsm_lowerup(f); |
| donatien | 0:013f5d54248c | 242 | } |
| donatien | 0:013f5d54248c | 243 | break; |
| donatien | 0:013f5d54248c | 244 | } |
| donatien | 0:013f5d54248c | 245 | |
| donatien | 0:013f5d54248c | 246 | FSMDEBUG(LOG_INFO, ("%s: open state %d (%s) -> %d (%s)\n", |
| donatien | 0:013f5d54248c | 247 | PROTO_NAME(f), oldState, ppperr_strerr[oldState], f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 248 | } |
| donatien | 0:013f5d54248c | 249 | |
| donatien | 0:013f5d54248c | 250 | #if 0 /* backport pppd 2.4.4b1; */ |
| donatien | 0:013f5d54248c | 251 | /* |
| donatien | 0:013f5d54248c | 252 | * terminate_layer - Start process of shutting down the FSM |
| donatien | 0:013f5d54248c | 253 | * |
| donatien | 0:013f5d54248c | 254 | * Cancel any timeout running, notify upper layers we're done, and |
| donatien | 0:013f5d54248c | 255 | * send a terminate-request message as configured. |
| donatien | 0:013f5d54248c | 256 | */ |
| donatien | 0:013f5d54248c | 257 | static void |
| donatien | 0:013f5d54248c | 258 | terminate_layer(fsm *f, int nextstate) |
| donatien | 0:013f5d54248c | 259 | { |
| donatien | 0:013f5d54248c | 260 | /* @todo */ |
| donatien | 0:013f5d54248c | 261 | } |
| donatien | 0:013f5d54248c | 262 | #endif |
| donatien | 0:013f5d54248c | 263 | |
| donatien | 0:013f5d54248c | 264 | /* |
| donatien | 0:013f5d54248c | 265 | * fsm_close - Start closing connection. |
| donatien | 0:013f5d54248c | 266 | * |
| donatien | 0:013f5d54248c | 267 | * Cancel timeouts and either initiate close or possibly go directly to |
| donatien | 0:013f5d54248c | 268 | * the LS_CLOSED state. |
| donatien | 0:013f5d54248c | 269 | */ |
| donatien | 0:013f5d54248c | 270 | void |
| donatien | 0:013f5d54248c | 271 | fsm_close(fsm *f, char *reason) |
| donatien | 0:013f5d54248c | 272 | { |
| donatien | 0:013f5d54248c | 273 | int oldState = f->state; |
| donatien | 0:013f5d54248c | 274 | |
| donatien | 0:013f5d54248c | 275 | LWIP_UNUSED_ARG(oldState); |
| donatien | 0:013f5d54248c | 276 | |
| donatien | 0:013f5d54248c | 277 | f->term_reason = reason; |
| donatien | 0:013f5d54248c | 278 | f->term_reason_len = (reason == NULL ? 0 : (int)strlen(reason)); |
| donatien | 0:013f5d54248c | 279 | switch( f->state ) { |
| donatien | 0:013f5d54248c | 280 | case LS_STARTING: |
| donatien | 0:013f5d54248c | 281 | f->state = LS_INITIAL; |
| donatien | 0:013f5d54248c | 282 | break; |
| donatien | 0:013f5d54248c | 283 | case LS_STOPPED: |
| donatien | 0:013f5d54248c | 284 | f->state = LS_CLOSED; |
| donatien | 0:013f5d54248c | 285 | break; |
| donatien | 0:013f5d54248c | 286 | case LS_STOPPING: |
| donatien | 0:013f5d54248c | 287 | f->state = LS_CLOSING; |
| donatien | 0:013f5d54248c | 288 | break; |
| donatien | 0:013f5d54248c | 289 | |
| donatien | 0:013f5d54248c | 290 | case LS_REQSENT: |
| donatien | 0:013f5d54248c | 291 | case LS_ACKRCVD: |
| donatien | 0:013f5d54248c | 292 | case LS_ACKSENT: |
| donatien | 0:013f5d54248c | 293 | case LS_OPENED: |
| donatien | 0:013f5d54248c | 294 | if( f->state != LS_OPENED ) { |
| donatien | 0:013f5d54248c | 295 | UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */ |
| donatien | 0:013f5d54248c | 296 | } else if( f->callbacks->down ) { |
| donatien | 0:013f5d54248c | 297 | (*f->callbacks->down)(f); /* Inform upper layers we're down */ |
| donatien | 0:013f5d54248c | 298 | } |
| donatien | 0:013f5d54248c | 299 | /* Init restart counter, send Terminate-Request */ |
| donatien | 0:013f5d54248c | 300 | f->retransmits = f->maxtermtransmits; |
| donatien | 0:013f5d54248c | 301 | fsm_sdata(f, TERMREQ, f->reqid = ++f->id, |
| donatien | 0:013f5d54248c | 302 | (u_char *) f->term_reason, f->term_reason_len); |
| donatien | 0:013f5d54248c | 303 | TIMEOUT(fsm_timeout, f, f->timeouttime); |
| donatien | 0:013f5d54248c | 304 | --f->retransmits; |
| donatien | 0:013f5d54248c | 305 | |
| donatien | 0:013f5d54248c | 306 | f->state = LS_CLOSING; |
| donatien | 0:013f5d54248c | 307 | break; |
| donatien | 0:013f5d54248c | 308 | } |
| donatien | 0:013f5d54248c | 309 | |
| donatien | 0:013f5d54248c | 310 | FSMDEBUG(LOG_INFO, ("%s: close reason=%s state %d (%s) -> %d (%s)\n", |
| donatien | 0:013f5d54248c | 311 | PROTO_NAME(f), reason, oldState, ppperr_strerr[oldState], f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 312 | } |
| donatien | 0:013f5d54248c | 313 | |
| donatien | 0:013f5d54248c | 314 | |
| donatien | 0:013f5d54248c | 315 | /* |
| donatien | 0:013f5d54248c | 316 | * fsm_timeout - Timeout expired. |
| donatien | 0:013f5d54248c | 317 | */ |
| donatien | 0:013f5d54248c | 318 | static void |
| donatien | 0:013f5d54248c | 319 | fsm_timeout(void *arg) |
| donatien | 0:013f5d54248c | 320 | { |
| donatien | 0:013f5d54248c | 321 | fsm *f = (fsm *) arg; |
| donatien | 0:013f5d54248c | 322 | |
| donatien | 0:013f5d54248c | 323 | switch (f->state) { |
| donatien | 0:013f5d54248c | 324 | case LS_CLOSING: |
| donatien | 0:013f5d54248c | 325 | case LS_STOPPING: |
| donatien | 0:013f5d54248c | 326 | if( f->retransmits <= 0 ) { |
| donatien | 0:013f5d54248c | 327 | FSMDEBUG(LOG_WARNING, ("%s: timeout sending Terminate-Request state=%d (%s)\n", |
| donatien | 0:013f5d54248c | 328 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 329 | /* |
| donatien | 0:013f5d54248c | 330 | * We've waited for an ack long enough. Peer probably heard us. |
| donatien | 0:013f5d54248c | 331 | */ |
| donatien | 0:013f5d54248c | 332 | f->state = (f->state == LS_CLOSING)? LS_CLOSED: LS_STOPPED; |
| donatien | 0:013f5d54248c | 333 | if( f->callbacks->finished ) { |
| donatien | 0:013f5d54248c | 334 | (*f->callbacks->finished)(f); |
| donatien | 0:013f5d54248c | 335 | } |
| donatien | 0:013f5d54248c | 336 | } else { |
| donatien | 0:013f5d54248c | 337 | FSMDEBUG(LOG_WARNING, ("%s: timeout resending Terminate-Requests state=%d (%s)\n", |
| donatien | 0:013f5d54248c | 338 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 339 | /* Send Terminate-Request */ |
| donatien | 0:013f5d54248c | 340 | fsm_sdata(f, TERMREQ, f->reqid = ++f->id, |
| donatien | 0:013f5d54248c | 341 | (u_char *) f->term_reason, f->term_reason_len); |
| donatien | 0:013f5d54248c | 342 | TIMEOUT(fsm_timeout, f, f->timeouttime); |
| donatien | 0:013f5d54248c | 343 | --f->retransmits; |
| donatien | 0:013f5d54248c | 344 | } |
| donatien | 0:013f5d54248c | 345 | break; |
| donatien | 0:013f5d54248c | 346 | |
| donatien | 0:013f5d54248c | 347 | case LS_REQSENT: |
| donatien | 0:013f5d54248c | 348 | case LS_ACKRCVD: |
| donatien | 0:013f5d54248c | 349 | case LS_ACKSENT: |
| donatien | 0:013f5d54248c | 350 | if (f->retransmits <= 0) { |
| donatien | 0:013f5d54248c | 351 | FSMDEBUG(LOG_WARNING, ("%s: timeout sending Config-Requests state=%d (%s)\n", |
| donatien | 0:013f5d54248c | 352 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 353 | f->state = LS_STOPPED; |
| donatien | 0:013f5d54248c | 354 | if( (f->flags & OPT_PASSIVE) == 0 && f->callbacks->finished ) { |
| donatien | 0:013f5d54248c | 355 | (*f->callbacks->finished)(f); |
| donatien | 0:013f5d54248c | 356 | } |
| donatien | 0:013f5d54248c | 357 | } else { |
| donatien | 0:013f5d54248c | 358 | FSMDEBUG(LOG_WARNING, ("%s: timeout resending Config-Request state=%d (%s)\n", |
| donatien | 0:013f5d54248c | 359 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 360 | /* Retransmit the configure-request */ |
| donatien | 0:013f5d54248c | 361 | if (f->callbacks->retransmit) { |
| donatien | 0:013f5d54248c | 362 | (*f->callbacks->retransmit)(f); |
| donatien | 0:013f5d54248c | 363 | } |
| donatien | 0:013f5d54248c | 364 | fsm_sconfreq(f, 1); /* Re-send Configure-Request */ |
| donatien | 0:013f5d54248c | 365 | if( f->state == LS_ACKRCVD ) { |
| donatien | 0:013f5d54248c | 366 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 367 | } |
| donatien | 0:013f5d54248c | 368 | } |
| donatien | 0:013f5d54248c | 369 | break; |
| donatien | 0:013f5d54248c | 370 | |
| donatien | 0:013f5d54248c | 371 | default: |
| donatien | 0:013f5d54248c | 372 | FSMDEBUG(LOG_INFO, ("%s: UNHANDLED timeout event in state %d (%s)!\n", |
| donatien | 0:013f5d54248c | 373 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 374 | } |
| donatien | 0:013f5d54248c | 375 | } |
| donatien | 0:013f5d54248c | 376 | |
| donatien | 0:013f5d54248c | 377 | |
| donatien | 0:013f5d54248c | 378 | /* |
| donatien | 0:013f5d54248c | 379 | * fsm_input - Input packet. |
| donatien | 0:013f5d54248c | 380 | */ |
| donatien | 0:013f5d54248c | 381 | void |
| donatien | 0:013f5d54248c | 382 | fsm_input(fsm *f, u_char *inpacket, int l) |
| donatien | 0:013f5d54248c | 383 | { |
| donatien | 0:013f5d54248c | 384 | u_char *inp = inpacket; |
| donatien | 0:013f5d54248c | 385 | u_char code, id; |
| donatien | 0:013f5d54248c | 386 | int len; |
| donatien | 0:013f5d54248c | 387 | |
| donatien | 0:013f5d54248c | 388 | /* |
| donatien | 0:013f5d54248c | 389 | * Parse header (code, id and length). |
| donatien | 0:013f5d54248c | 390 | * If packet too short, drop it. |
| donatien | 0:013f5d54248c | 391 | */ |
| donatien | 0:013f5d54248c | 392 | if (l < HEADERLEN) { |
| donatien | 0:013f5d54248c | 393 | FSMDEBUG(LOG_WARNING, ("fsm_input(%x): Rcvd short header.\n", |
| donatien | 0:013f5d54248c | 394 | f->protocol)); |
| donatien | 0:013f5d54248c | 395 | return; |
| donatien | 0:013f5d54248c | 396 | } |
| donatien | 0:013f5d54248c | 397 | GETCHAR(code, inp); |
| donatien | 0:013f5d54248c | 398 | GETCHAR(id, inp); |
| donatien | 0:013f5d54248c | 399 | GETSHORT(len, inp); |
| donatien | 0:013f5d54248c | 400 | if (len < HEADERLEN) { |
| donatien | 0:013f5d54248c | 401 | FSMDEBUG(LOG_INFO, ("fsm_input(%x): Rcvd illegal length.\n", |
| donatien | 0:013f5d54248c | 402 | f->protocol)); |
| donatien | 0:013f5d54248c | 403 | return; |
| donatien | 0:013f5d54248c | 404 | } |
| donatien | 0:013f5d54248c | 405 | if (len > l) { |
| donatien | 0:013f5d54248c | 406 | FSMDEBUG(LOG_INFO, ("fsm_input(%x): Rcvd short packet.\n", |
| donatien | 0:013f5d54248c | 407 | f->protocol)); |
| donatien | 0:013f5d54248c | 408 | return; |
| donatien | 0:013f5d54248c | 409 | } |
| donatien | 0:013f5d54248c | 410 | len -= HEADERLEN; /* subtract header length */ |
| donatien | 0:013f5d54248c | 411 | |
| donatien | 0:013f5d54248c | 412 | if( f->state == LS_INITIAL || f->state == LS_STARTING ) { |
| donatien | 0:013f5d54248c | 413 | FSMDEBUG(LOG_INFO, ("fsm_input(%x): Rcvd packet in state %d (%s).\n", |
| donatien | 0:013f5d54248c | 414 | f->protocol, f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 415 | return; |
| donatien | 0:013f5d54248c | 416 | } |
| donatien | 0:013f5d54248c | 417 | FSMDEBUG(LOG_INFO, ("fsm_input(%s):%d,%d,%d\n", PROTO_NAME(f), code, id, l)); |
| donatien | 0:013f5d54248c | 418 | /* |
| donatien | 0:013f5d54248c | 419 | * Action depends on code. |
| donatien | 0:013f5d54248c | 420 | */ |
| donatien | 0:013f5d54248c | 421 | switch (code) { |
| donatien | 0:013f5d54248c | 422 | case CONFREQ: |
| donatien | 0:013f5d54248c | 423 | fsm_rconfreq(f, id, inp, len); |
| donatien | 0:013f5d54248c | 424 | break; |
| donatien | 0:013f5d54248c | 425 | |
| donatien | 0:013f5d54248c | 426 | case CONFACK: |
| donatien | 0:013f5d54248c | 427 | fsm_rconfack(f, id, inp, len); |
| donatien | 0:013f5d54248c | 428 | break; |
| donatien | 0:013f5d54248c | 429 | |
| donatien | 0:013f5d54248c | 430 | case CONFNAK: |
| donatien | 0:013f5d54248c | 431 | case CONFREJ: |
| donatien | 0:013f5d54248c | 432 | fsm_rconfnakrej(f, code, id, inp, len); |
| donatien | 0:013f5d54248c | 433 | break; |
| donatien | 0:013f5d54248c | 434 | |
| donatien | 0:013f5d54248c | 435 | case TERMREQ: |
| donatien | 0:013f5d54248c | 436 | fsm_rtermreq(f, id, inp, len); |
| donatien | 0:013f5d54248c | 437 | break; |
| donatien | 0:013f5d54248c | 438 | |
| donatien | 0:013f5d54248c | 439 | case TERMACK: |
| donatien | 0:013f5d54248c | 440 | fsm_rtermack(f); |
| donatien | 0:013f5d54248c | 441 | break; |
| donatien | 0:013f5d54248c | 442 | |
| donatien | 0:013f5d54248c | 443 | case CODEREJ: |
| donatien | 0:013f5d54248c | 444 | fsm_rcoderej(f, inp, len); |
| donatien | 0:013f5d54248c | 445 | break; |
| donatien | 0:013f5d54248c | 446 | |
| donatien | 0:013f5d54248c | 447 | default: |
| donatien | 0:013f5d54248c | 448 | FSMDEBUG(LOG_INFO, ("fsm_input(%s): default: \n", PROTO_NAME(f))); |
| donatien | 0:013f5d54248c | 449 | if( !f->callbacks->extcode || |
| donatien | 0:013f5d54248c | 450 | !(*f->callbacks->extcode)(f, code, id, inp, len) ) { |
| donatien | 0:013f5d54248c | 451 | fsm_sdata(f, CODEREJ, ++f->id, inpacket, len + HEADERLEN); |
| donatien | 0:013f5d54248c | 452 | } |
| donatien | 0:013f5d54248c | 453 | break; |
| donatien | 0:013f5d54248c | 454 | } |
| donatien | 0:013f5d54248c | 455 | } |
| donatien | 0:013f5d54248c | 456 | |
| donatien | 0:013f5d54248c | 457 | |
| donatien | 0:013f5d54248c | 458 | /* |
| donatien | 0:013f5d54248c | 459 | * fsm_rconfreq - Receive Configure-Request. |
| donatien | 0:013f5d54248c | 460 | */ |
| donatien | 0:013f5d54248c | 461 | static void |
| donatien | 0:013f5d54248c | 462 | fsm_rconfreq(fsm *f, u_char id, u_char *inp, int len) |
| donatien | 0:013f5d54248c | 463 | { |
| donatien | 0:013f5d54248c | 464 | int code, reject_if_disagree; |
| donatien | 0:013f5d54248c | 465 | |
| donatien | 0:013f5d54248c | 466 | FSMDEBUG(LOG_INFO, ("fsm_rconfreq(%s): Rcvd id %d state=%d (%s)\n", |
| donatien | 0:013f5d54248c | 467 | PROTO_NAME(f), id, f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 468 | switch( f->state ) { |
| donatien | 0:013f5d54248c | 469 | case LS_CLOSED: |
| donatien | 0:013f5d54248c | 470 | /* Go away, we're closed */ |
| donatien | 0:013f5d54248c | 471 | fsm_sdata(f, TERMACK, id, NULL, 0); |
| donatien | 0:013f5d54248c | 472 | return; |
| donatien | 0:013f5d54248c | 473 | case LS_CLOSING: |
| donatien | 0:013f5d54248c | 474 | case LS_STOPPING: |
| donatien | 0:013f5d54248c | 475 | return; |
| donatien | 0:013f5d54248c | 476 | |
| donatien | 0:013f5d54248c | 477 | case LS_OPENED: |
| donatien | 0:013f5d54248c | 478 | /* Go down and restart negotiation */ |
| donatien | 0:013f5d54248c | 479 | if( f->callbacks->down ) { |
| donatien | 0:013f5d54248c | 480 | (*f->callbacks->down)(f); /* Inform upper layers */ |
| donatien | 0:013f5d54248c | 481 | } |
| donatien | 0:013f5d54248c | 482 | fsm_sconfreq(f, 0); /* Send initial Configure-Request */ |
| donatien | 0:013f5d54248c | 483 | break; |
| donatien | 0:013f5d54248c | 484 | |
| donatien | 0:013f5d54248c | 485 | case LS_STOPPED: |
| donatien | 0:013f5d54248c | 486 | /* Negotiation started by our peer */ |
| donatien | 0:013f5d54248c | 487 | fsm_sconfreq(f, 0); /* Send initial Configure-Request */ |
| donatien | 0:013f5d54248c | 488 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 489 | break; |
| donatien | 0:013f5d54248c | 490 | } |
| donatien | 0:013f5d54248c | 491 | |
| donatien | 0:013f5d54248c | 492 | /* |
| donatien | 0:013f5d54248c | 493 | * Pass the requested configuration options |
| donatien | 0:013f5d54248c | 494 | * to protocol-specific code for checking. |
| donatien | 0:013f5d54248c | 495 | */ |
| donatien | 0:013f5d54248c | 496 | if (f->callbacks->reqci) { /* Check CI */ |
| donatien | 0:013f5d54248c | 497 | reject_if_disagree = (f->nakloops >= f->maxnakloops); |
| donatien | 0:013f5d54248c | 498 | code = (*f->callbacks->reqci)(f, inp, &len, reject_if_disagree); |
| donatien | 0:013f5d54248c | 499 | } else if (len) { |
| donatien | 0:013f5d54248c | 500 | code = CONFREJ; /* Reject all CI */ |
| donatien | 0:013f5d54248c | 501 | } else { |
| donatien | 0:013f5d54248c | 502 | code = CONFACK; |
| donatien | 0:013f5d54248c | 503 | } |
| donatien | 0:013f5d54248c | 504 | |
| donatien | 0:013f5d54248c | 505 | /* send the Ack, Nak or Rej to the peer */ |
| donatien | 0:013f5d54248c | 506 | fsm_sdata(f, (u_char)code, id, inp, len); |
| donatien | 0:013f5d54248c | 507 | |
| donatien | 0:013f5d54248c | 508 | if (code == CONFACK) { |
| donatien | 0:013f5d54248c | 509 | if (f->state == LS_ACKRCVD) { |
| donatien | 0:013f5d54248c | 510 | UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */ |
| donatien | 0:013f5d54248c | 511 | f->state = LS_OPENED; |
| donatien | 0:013f5d54248c | 512 | if (f->callbacks->up) { |
| donatien | 0:013f5d54248c | 513 | (*f->callbacks->up)(f); /* Inform upper layers */ |
| donatien | 0:013f5d54248c | 514 | } |
| donatien | 0:013f5d54248c | 515 | } else { |
| donatien | 0:013f5d54248c | 516 | f->state = LS_ACKSENT; |
| donatien | 0:013f5d54248c | 517 | } |
| donatien | 0:013f5d54248c | 518 | f->nakloops = 0; |
| donatien | 0:013f5d54248c | 519 | } else { |
| donatien | 0:013f5d54248c | 520 | /* we sent CONFACK or CONFREJ */ |
| donatien | 0:013f5d54248c | 521 | if (f->state != LS_ACKRCVD) { |
| donatien | 0:013f5d54248c | 522 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 523 | } |
| donatien | 0:013f5d54248c | 524 | if( code == CONFNAK ) { |
| donatien | 0:013f5d54248c | 525 | ++f->nakloops; |
| donatien | 0:013f5d54248c | 526 | } |
| donatien | 0:013f5d54248c | 527 | } |
| donatien | 0:013f5d54248c | 528 | } |
| donatien | 0:013f5d54248c | 529 | |
| donatien | 0:013f5d54248c | 530 | |
| donatien | 0:013f5d54248c | 531 | /* |
| donatien | 0:013f5d54248c | 532 | * fsm_rconfack - Receive Configure-Ack. |
| donatien | 0:013f5d54248c | 533 | */ |
| donatien | 0:013f5d54248c | 534 | static void |
| donatien | 0:013f5d54248c | 535 | fsm_rconfack(fsm *f, int id, u_char *inp, int len) |
| donatien | 0:013f5d54248c | 536 | { |
| donatien | 0:013f5d54248c | 537 | FSMDEBUG(LOG_INFO, ("fsm_rconfack(%s): Rcvd id %d state=%d (%s)\n", |
| donatien | 0:013f5d54248c | 538 | PROTO_NAME(f), id, f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 539 | |
| donatien | 0:013f5d54248c | 540 | if (id != f->reqid || f->seen_ack) { /* Expected id? */ |
| donatien | 0:013f5d54248c | 541 | return; /* Nope, toss... */ |
| donatien | 0:013f5d54248c | 542 | } |
| donatien | 0:013f5d54248c | 543 | if( !(f->callbacks->ackci? (*f->callbacks->ackci)(f, inp, len): (len == 0)) ) { |
| donatien | 0:013f5d54248c | 544 | /* Ack is bad - ignore it */ |
| donatien | 0:013f5d54248c | 545 | FSMDEBUG(LOG_INFO, ("%s: received bad Ack (length %d)\n", |
| donatien | 0:013f5d54248c | 546 | PROTO_NAME(f), len)); |
| donatien | 0:013f5d54248c | 547 | return; |
| donatien | 0:013f5d54248c | 548 | } |
| donatien | 0:013f5d54248c | 549 | f->seen_ack = 1; |
| donatien | 0:013f5d54248c | 550 | |
| donatien | 0:013f5d54248c | 551 | switch (f->state) { |
| donatien | 0:013f5d54248c | 552 | case LS_CLOSED: |
| donatien | 0:013f5d54248c | 553 | case LS_STOPPED: |
| donatien | 0:013f5d54248c | 554 | fsm_sdata(f, TERMACK, (u_char)id, NULL, 0); |
| donatien | 0:013f5d54248c | 555 | break; |
| donatien | 0:013f5d54248c | 556 | |
| donatien | 0:013f5d54248c | 557 | case LS_REQSENT: |
| donatien | 0:013f5d54248c | 558 | f->state = LS_ACKRCVD; |
| donatien | 0:013f5d54248c | 559 | f->retransmits = f->maxconfreqtransmits; |
| donatien | 0:013f5d54248c | 560 | break; |
| donatien | 0:013f5d54248c | 561 | |
| donatien | 0:013f5d54248c | 562 | case LS_ACKRCVD: |
| donatien | 0:013f5d54248c | 563 | /* Huh? an extra valid Ack? oh well... */ |
| donatien | 0:013f5d54248c | 564 | UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */ |
| donatien | 0:013f5d54248c | 565 | fsm_sconfreq(f, 0); |
| donatien | 0:013f5d54248c | 566 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 567 | break; |
| donatien | 0:013f5d54248c | 568 | |
| donatien | 0:013f5d54248c | 569 | case LS_ACKSENT: |
| donatien | 0:013f5d54248c | 570 | UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */ |
| donatien | 0:013f5d54248c | 571 | f->state = LS_OPENED; |
| donatien | 0:013f5d54248c | 572 | f->retransmits = f->maxconfreqtransmits; |
| donatien | 0:013f5d54248c | 573 | if (f->callbacks->up) { |
| donatien | 0:013f5d54248c | 574 | (*f->callbacks->up)(f); /* Inform upper layers */ |
| donatien | 0:013f5d54248c | 575 | } |
| donatien | 0:013f5d54248c | 576 | break; |
| donatien | 0:013f5d54248c | 577 | |
| donatien | 0:013f5d54248c | 578 | case LS_OPENED: |
| donatien | 0:013f5d54248c | 579 | /* Go down and restart negotiation */ |
| donatien | 0:013f5d54248c | 580 | if (f->callbacks->down) { |
| donatien | 0:013f5d54248c | 581 | (*f->callbacks->down)(f); /* Inform upper layers */ |
| donatien | 0:013f5d54248c | 582 | } |
| donatien | 0:013f5d54248c | 583 | fsm_sconfreq(f, 0); /* Send initial Configure-Request */ |
| donatien | 0:013f5d54248c | 584 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 585 | break; |
| donatien | 0:013f5d54248c | 586 | } |
| donatien | 0:013f5d54248c | 587 | } |
| donatien | 0:013f5d54248c | 588 | |
| donatien | 0:013f5d54248c | 589 | |
| donatien | 0:013f5d54248c | 590 | /* |
| donatien | 0:013f5d54248c | 591 | * fsm_rconfnakrej - Receive Configure-Nak or Configure-Reject. |
| donatien | 0:013f5d54248c | 592 | */ |
| donatien | 0:013f5d54248c | 593 | static void |
| donatien | 0:013f5d54248c | 594 | fsm_rconfnakrej(fsm *f, int code, int id, u_char *inp, int len) |
| donatien | 0:013f5d54248c | 595 | { |
| donatien | 0:013f5d54248c | 596 | int (*proc) (fsm *, u_char *, int); |
| donatien | 0:013f5d54248c | 597 | int ret; |
| donatien | 0:013f5d54248c | 598 | |
| donatien | 0:013f5d54248c | 599 | FSMDEBUG(LOG_INFO, ("fsm_rconfnakrej(%s): Rcvd id %d state=%d (%s)\n", |
| donatien | 0:013f5d54248c | 600 | PROTO_NAME(f), id, f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 601 | |
| donatien | 0:013f5d54248c | 602 | if (id != f->reqid || f->seen_ack) { /* Expected id? */ |
| donatien | 0:013f5d54248c | 603 | return; /* Nope, toss... */ |
| donatien | 0:013f5d54248c | 604 | } |
| donatien | 0:013f5d54248c | 605 | proc = (code == CONFNAK)? f->callbacks->nakci: f->callbacks->rejci; |
| donatien | 0:013f5d54248c | 606 | if (!proc || !((ret = proc(f, inp, len)))) { |
| donatien | 0:013f5d54248c | 607 | /* Nak/reject is bad - ignore it */ |
| donatien | 0:013f5d54248c | 608 | FSMDEBUG(LOG_INFO, ("%s: received bad %s (length %d)\n", |
| donatien | 0:013f5d54248c | 609 | PROTO_NAME(f), (code==CONFNAK? "Nak": "reject"), len)); |
| donatien | 0:013f5d54248c | 610 | return; |
| donatien | 0:013f5d54248c | 611 | } |
| donatien | 0:013f5d54248c | 612 | f->seen_ack = 1; |
| donatien | 0:013f5d54248c | 613 | |
| donatien | 0:013f5d54248c | 614 | switch (f->state) { |
| donatien | 0:013f5d54248c | 615 | case LS_CLOSED: |
| donatien | 0:013f5d54248c | 616 | case LS_STOPPED: |
| donatien | 0:013f5d54248c | 617 | fsm_sdata(f, TERMACK, (u_char)id, NULL, 0); |
| donatien | 0:013f5d54248c | 618 | break; |
| donatien | 0:013f5d54248c | 619 | |
| donatien | 0:013f5d54248c | 620 | case LS_REQSENT: |
| donatien | 0:013f5d54248c | 621 | case LS_ACKSENT: |
| donatien | 0:013f5d54248c | 622 | /* They didn't agree to what we wanted - try another request */ |
| donatien | 0:013f5d54248c | 623 | UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */ |
| donatien | 0:013f5d54248c | 624 | if (ret < 0) { |
| donatien | 0:013f5d54248c | 625 | f->state = LS_STOPPED; /* kludge for stopping CCP */ |
| donatien | 0:013f5d54248c | 626 | } else { |
| donatien | 0:013f5d54248c | 627 | fsm_sconfreq(f, 0); /* Send Configure-Request */ |
| donatien | 0:013f5d54248c | 628 | } |
| donatien | 0:013f5d54248c | 629 | break; |
| donatien | 0:013f5d54248c | 630 | |
| donatien | 0:013f5d54248c | 631 | case LS_ACKRCVD: |
| donatien | 0:013f5d54248c | 632 | /* Got a Nak/reject when we had already had an Ack?? oh well... */ |
| donatien | 0:013f5d54248c | 633 | UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */ |
| donatien | 0:013f5d54248c | 634 | fsm_sconfreq(f, 0); |
| donatien | 0:013f5d54248c | 635 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 636 | break; |
| donatien | 0:013f5d54248c | 637 | |
| donatien | 0:013f5d54248c | 638 | case LS_OPENED: |
| donatien | 0:013f5d54248c | 639 | /* Go down and restart negotiation */ |
| donatien | 0:013f5d54248c | 640 | if (f->callbacks->down) { |
| donatien | 0:013f5d54248c | 641 | (*f->callbacks->down)(f); /* Inform upper layers */ |
| donatien | 0:013f5d54248c | 642 | } |
| donatien | 0:013f5d54248c | 643 | fsm_sconfreq(f, 0); /* Send initial Configure-Request */ |
| donatien | 0:013f5d54248c | 644 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 645 | break; |
| donatien | 0:013f5d54248c | 646 | } |
| donatien | 0:013f5d54248c | 647 | } |
| donatien | 0:013f5d54248c | 648 | |
| donatien | 0:013f5d54248c | 649 | |
| donatien | 0:013f5d54248c | 650 | /* |
| donatien | 0:013f5d54248c | 651 | * fsm_rtermreq - Receive Terminate-Req. |
| donatien | 0:013f5d54248c | 652 | */ |
| donatien | 0:013f5d54248c | 653 | static void |
| donatien | 0:013f5d54248c | 654 | fsm_rtermreq(fsm *f, int id, u_char *p, int len) |
| donatien | 0:013f5d54248c | 655 | { |
| donatien | 0:013f5d54248c | 656 | LWIP_UNUSED_ARG(p); |
| donatien | 0:013f5d54248c | 657 | |
| donatien | 0:013f5d54248c | 658 | FSMDEBUG(LOG_INFO, ("fsm_rtermreq(%s): Rcvd id %d state=%d (%s)\n", |
| donatien | 0:013f5d54248c | 659 | PROTO_NAME(f), id, f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 660 | |
| donatien | 0:013f5d54248c | 661 | switch (f->state) { |
| donatien | 0:013f5d54248c | 662 | case LS_ACKRCVD: |
| donatien | 0:013f5d54248c | 663 | case LS_ACKSENT: |
| donatien | 0:013f5d54248c | 664 | f->state = LS_REQSENT; /* Start over but keep trying */ |
| donatien | 0:013f5d54248c | 665 | break; |
| donatien | 0:013f5d54248c | 666 | |
| donatien | 0:013f5d54248c | 667 | case LS_OPENED: |
| donatien | 0:013f5d54248c | 668 | if (len > 0) { |
| donatien | 0:013f5d54248c | 669 | FSMDEBUG(LOG_INFO, ("%s terminated by peer (%p)\n", PROTO_NAME(f), p)); |
| donatien | 0:013f5d54248c | 670 | } else { |
| donatien | 0:013f5d54248c | 671 | FSMDEBUG(LOG_INFO, ("%s terminated by peer\n", PROTO_NAME(f))); |
| donatien | 0:013f5d54248c | 672 | } |
| donatien | 0:013f5d54248c | 673 | if (f->callbacks->down) { |
| donatien | 0:013f5d54248c | 674 | (*f->callbacks->down)(f); /* Inform upper layers */ |
| donatien | 0:013f5d54248c | 675 | } |
| donatien | 0:013f5d54248c | 676 | f->retransmits = 0; |
| donatien | 0:013f5d54248c | 677 | f->state = LS_STOPPING; |
| donatien | 0:013f5d54248c | 678 | TIMEOUT(fsm_timeout, f, f->timeouttime); |
| donatien | 0:013f5d54248c | 679 | break; |
| donatien | 0:013f5d54248c | 680 | } |
| donatien | 0:013f5d54248c | 681 | |
| donatien | 0:013f5d54248c | 682 | fsm_sdata(f, TERMACK, (u_char)id, NULL, 0); |
| donatien | 0:013f5d54248c | 683 | } |
| donatien | 0:013f5d54248c | 684 | |
| donatien | 0:013f5d54248c | 685 | |
| donatien | 0:013f5d54248c | 686 | /* |
| donatien | 0:013f5d54248c | 687 | * fsm_rtermack - Receive Terminate-Ack. |
| donatien | 0:013f5d54248c | 688 | */ |
| donatien | 0:013f5d54248c | 689 | static void |
| donatien | 0:013f5d54248c | 690 | fsm_rtermack(fsm *f) |
| donatien | 0:013f5d54248c | 691 | { |
| donatien | 0:013f5d54248c | 692 | FSMDEBUG(LOG_INFO, ("fsm_rtermack(%s): state=%d (%s)\n", |
| donatien | 0:013f5d54248c | 693 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 694 | |
| donatien | 0:013f5d54248c | 695 | switch (f->state) { |
| donatien | 0:013f5d54248c | 696 | case LS_CLOSING: |
| donatien | 0:013f5d54248c | 697 | UNTIMEOUT(fsm_timeout, f); |
| donatien | 0:013f5d54248c | 698 | f->state = LS_CLOSED; |
| donatien | 0:013f5d54248c | 699 | if( f->callbacks->finished ) { |
| donatien | 0:013f5d54248c | 700 | (*f->callbacks->finished)(f); |
| donatien | 0:013f5d54248c | 701 | } |
| donatien | 0:013f5d54248c | 702 | break; |
| donatien | 0:013f5d54248c | 703 | |
| donatien | 0:013f5d54248c | 704 | case LS_STOPPING: |
| donatien | 0:013f5d54248c | 705 | UNTIMEOUT(fsm_timeout, f); |
| donatien | 0:013f5d54248c | 706 | f->state = LS_STOPPED; |
| donatien | 0:013f5d54248c | 707 | if( f->callbacks->finished ) { |
| donatien | 0:013f5d54248c | 708 | (*f->callbacks->finished)(f); |
| donatien | 0:013f5d54248c | 709 | } |
| donatien | 0:013f5d54248c | 710 | break; |
| donatien | 0:013f5d54248c | 711 | |
| donatien | 0:013f5d54248c | 712 | case LS_ACKRCVD: |
| donatien | 0:013f5d54248c | 713 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 714 | break; |
| donatien | 0:013f5d54248c | 715 | |
| donatien | 0:013f5d54248c | 716 | case LS_OPENED: |
| donatien | 0:013f5d54248c | 717 | if (f->callbacks->down) { |
| donatien | 0:013f5d54248c | 718 | (*f->callbacks->down)(f); /* Inform upper layers */ |
| donatien | 0:013f5d54248c | 719 | } |
| donatien | 0:013f5d54248c | 720 | fsm_sconfreq(f, 0); |
| donatien | 0:013f5d54248c | 721 | break; |
| donatien | 0:013f5d54248c | 722 | default: |
| donatien | 0:013f5d54248c | 723 | FSMDEBUG(LOG_INFO, ("fsm_rtermack(%s): UNHANDLED state=%d (%s)!!!\n", |
| donatien | 0:013f5d54248c | 724 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 725 | } |
| donatien | 0:013f5d54248c | 726 | } |
| donatien | 0:013f5d54248c | 727 | |
| donatien | 0:013f5d54248c | 728 | |
| donatien | 0:013f5d54248c | 729 | /* |
| donatien | 0:013f5d54248c | 730 | * fsm_rcoderej - Receive an Code-Reject. |
| donatien | 0:013f5d54248c | 731 | */ |
| donatien | 0:013f5d54248c | 732 | static void |
| donatien | 0:013f5d54248c | 733 | fsm_rcoderej(fsm *f, u_char *inp, int len) |
| donatien | 0:013f5d54248c | 734 | { |
| donatien | 0:013f5d54248c | 735 | u_char code, id; |
| donatien | 0:013f5d54248c | 736 | |
| donatien | 0:013f5d54248c | 737 | FSMDEBUG(LOG_INFO, ("fsm_rcoderej(%s): state=%d (%s)\n", |
| donatien | 0:013f5d54248c | 738 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 739 | |
| donatien | 0:013f5d54248c | 740 | if (len < HEADERLEN) { |
| donatien | 0:013f5d54248c | 741 | FSMDEBUG(LOG_INFO, ("fsm_rcoderej: Rcvd short Code-Reject packet!\n")); |
| donatien | 0:013f5d54248c | 742 | return; |
| donatien | 0:013f5d54248c | 743 | } |
| donatien | 0:013f5d54248c | 744 | GETCHAR(code, inp); |
| donatien | 0:013f5d54248c | 745 | GETCHAR(id, inp); |
| donatien | 0:013f5d54248c | 746 | FSMDEBUG(LOG_WARNING, ("%s: Rcvd Code-Reject for code %d, id %d\n", |
| donatien | 0:013f5d54248c | 747 | PROTO_NAME(f), code, id)); |
| donatien | 0:013f5d54248c | 748 | |
| donatien | 0:013f5d54248c | 749 | if( f->state == LS_ACKRCVD ) { |
| donatien | 0:013f5d54248c | 750 | f->state = LS_REQSENT; |
| donatien | 0:013f5d54248c | 751 | } |
| donatien | 0:013f5d54248c | 752 | } |
| donatien | 0:013f5d54248c | 753 | |
| donatien | 0:013f5d54248c | 754 | |
| donatien | 0:013f5d54248c | 755 | /* |
| donatien | 0:013f5d54248c | 756 | * fsm_protreject - Peer doesn't speak this protocol. |
| donatien | 0:013f5d54248c | 757 | * |
| donatien | 0:013f5d54248c | 758 | * Treat this as a catastrophic error (RXJ-). |
| donatien | 0:013f5d54248c | 759 | */ |
| donatien | 0:013f5d54248c | 760 | void |
| donatien | 0:013f5d54248c | 761 | fsm_protreject(fsm *f) |
| donatien | 0:013f5d54248c | 762 | { |
| donatien | 0:013f5d54248c | 763 | switch( f->state ) { |
| donatien | 0:013f5d54248c | 764 | case LS_CLOSING: |
| donatien | 0:013f5d54248c | 765 | UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */ |
| donatien | 0:013f5d54248c | 766 | /* fall through */ |
| donatien | 0:013f5d54248c | 767 | case LS_CLOSED: |
| donatien | 0:013f5d54248c | 768 | f->state = LS_CLOSED; |
| donatien | 0:013f5d54248c | 769 | if( f->callbacks->finished ) { |
| donatien | 0:013f5d54248c | 770 | (*f->callbacks->finished)(f); |
| donatien | 0:013f5d54248c | 771 | } |
| donatien | 0:013f5d54248c | 772 | break; |
| donatien | 0:013f5d54248c | 773 | |
| donatien | 0:013f5d54248c | 774 | case LS_STOPPING: |
| donatien | 0:013f5d54248c | 775 | case LS_REQSENT: |
| donatien | 0:013f5d54248c | 776 | case LS_ACKRCVD: |
| donatien | 0:013f5d54248c | 777 | case LS_ACKSENT: |
| donatien | 0:013f5d54248c | 778 | UNTIMEOUT(fsm_timeout, f); /* Cancel timeout */ |
| donatien | 0:013f5d54248c | 779 | /* fall through */ |
| donatien | 0:013f5d54248c | 780 | case LS_STOPPED: |
| donatien | 0:013f5d54248c | 781 | f->state = LS_STOPPED; |
| donatien | 0:013f5d54248c | 782 | if( f->callbacks->finished ) { |
| donatien | 0:013f5d54248c | 783 | (*f->callbacks->finished)(f); |
| donatien | 0:013f5d54248c | 784 | } |
| donatien | 0:013f5d54248c | 785 | break; |
| donatien | 0:013f5d54248c | 786 | |
| donatien | 0:013f5d54248c | 787 | case LS_OPENED: |
| donatien | 0:013f5d54248c | 788 | if( f->callbacks->down ) { |
| donatien | 0:013f5d54248c | 789 | (*f->callbacks->down)(f); |
| donatien | 0:013f5d54248c | 790 | } |
| donatien | 0:013f5d54248c | 791 | /* Init restart counter, send Terminate-Request */ |
| donatien | 0:013f5d54248c | 792 | f->retransmits = f->maxtermtransmits; |
| donatien | 0:013f5d54248c | 793 | fsm_sdata(f, TERMREQ, f->reqid = ++f->id, |
| donatien | 0:013f5d54248c | 794 | (u_char *) f->term_reason, f->term_reason_len); |
| donatien | 0:013f5d54248c | 795 | TIMEOUT(fsm_timeout, f, f->timeouttime); |
| donatien | 0:013f5d54248c | 796 | --f->retransmits; |
| donatien | 0:013f5d54248c | 797 | |
| donatien | 0:013f5d54248c | 798 | f->state = LS_STOPPING; |
| donatien | 0:013f5d54248c | 799 | break; |
| donatien | 0:013f5d54248c | 800 | |
| donatien | 0:013f5d54248c | 801 | default: |
| donatien | 0:013f5d54248c | 802 | FSMDEBUG(LOG_INFO, ("%s: Protocol-reject event in state %d (%s)!\n", |
| donatien | 0:013f5d54248c | 803 | PROTO_NAME(f), f->state, ppperr_strerr[f->state])); |
| donatien | 0:013f5d54248c | 804 | } |
| donatien | 0:013f5d54248c | 805 | } |
| donatien | 0:013f5d54248c | 806 | |
| donatien | 0:013f5d54248c | 807 | |
| donatien | 0:013f5d54248c | 808 | /* |
| donatien | 0:013f5d54248c | 809 | * fsm_sconfreq - Send a Configure-Request. |
| donatien | 0:013f5d54248c | 810 | */ |
| donatien | 0:013f5d54248c | 811 | static void |
| donatien | 0:013f5d54248c | 812 | fsm_sconfreq(fsm *f, int retransmit) |
| donatien | 0:013f5d54248c | 813 | { |
| donatien | 0:013f5d54248c | 814 | u_char *outp; |
| donatien | 0:013f5d54248c | 815 | int cilen; |
| donatien | 0:013f5d54248c | 816 | |
| donatien | 0:013f5d54248c | 817 | if( f->state != LS_REQSENT && f->state != LS_ACKRCVD && f->state != LS_ACKSENT ) { |
| donatien | 0:013f5d54248c | 818 | /* Not currently negotiating - reset options */ |
| donatien | 0:013f5d54248c | 819 | if( f->callbacks->resetci ) { |
| donatien | 0:013f5d54248c | 820 | (*f->callbacks->resetci)(f); |
| donatien | 0:013f5d54248c | 821 | } |
| donatien | 0:013f5d54248c | 822 | f->nakloops = 0; |
| donatien | 0:013f5d54248c | 823 | } |
| donatien | 0:013f5d54248c | 824 | |
| donatien | 0:013f5d54248c | 825 | if( !retransmit ) { |
| donatien | 0:013f5d54248c | 826 | /* New request - reset retransmission counter, use new ID */ |
| donatien | 0:013f5d54248c | 827 | f->retransmits = f->maxconfreqtransmits; |
| donatien | 0:013f5d54248c | 828 | f->reqid = ++f->id; |
| donatien | 0:013f5d54248c | 829 | } |
| donatien | 0:013f5d54248c | 830 | |
| donatien | 0:013f5d54248c | 831 | f->seen_ack = 0; |
| donatien | 0:013f5d54248c | 832 | |
| donatien | 0:013f5d54248c | 833 | /* |
| donatien | 0:013f5d54248c | 834 | * Make up the request packet |
| donatien | 0:013f5d54248c | 835 | */ |
| donatien | 0:013f5d54248c | 836 | outp = outpacket_buf[f->unit] + PPP_HDRLEN + HEADERLEN; |
| donatien | 0:013f5d54248c | 837 | if( f->callbacks->cilen && f->callbacks->addci ) { |
| donatien | 0:013f5d54248c | 838 | cilen = (*f->callbacks->cilen)(f); |
| donatien | 0:013f5d54248c | 839 | if( cilen > peer_mru[f->unit] - (int)HEADERLEN ) { |
| donatien | 0:013f5d54248c | 840 | cilen = peer_mru[f->unit] - HEADERLEN; |
| donatien | 0:013f5d54248c | 841 | } |
| donatien | 0:013f5d54248c | 842 | if (f->callbacks->addci) { |
| donatien | 0:013f5d54248c | 843 | (*f->callbacks->addci)(f, outp, &cilen); |
| donatien | 0:013f5d54248c | 844 | } |
| donatien | 0:013f5d54248c | 845 | } else { |
| donatien | 0:013f5d54248c | 846 | cilen = 0; |
| donatien | 0:013f5d54248c | 847 | } |
| donatien | 0:013f5d54248c | 848 | |
| donatien | 0:013f5d54248c | 849 | /* send the request to our peer */ |
| donatien | 0:013f5d54248c | 850 | fsm_sdata(f, CONFREQ, f->reqid, outp, cilen); |
| donatien | 0:013f5d54248c | 851 | |
| donatien | 0:013f5d54248c | 852 | /* start the retransmit timer */ |
| donatien | 0:013f5d54248c | 853 | --f->retransmits; |
| donatien | 0:013f5d54248c | 854 | TIMEOUT(fsm_timeout, f, f->timeouttime); |
| donatien | 0:013f5d54248c | 855 | |
| donatien | 0:013f5d54248c | 856 | FSMDEBUG(LOG_INFO, ("%s: sending Configure-Request, id %d\n", |
| donatien | 0:013f5d54248c | 857 | PROTO_NAME(f), f->reqid)); |
| donatien | 0:013f5d54248c | 858 | } |
| donatien | 0:013f5d54248c | 859 | |
| donatien | 0:013f5d54248c | 860 | |
| donatien | 0:013f5d54248c | 861 | /* |
| donatien | 0:013f5d54248c | 862 | * fsm_sdata - Send some data. |
| donatien | 0:013f5d54248c | 863 | * |
| donatien | 0:013f5d54248c | 864 | * Used for all packets sent to our peer by this module. |
| donatien | 0:013f5d54248c | 865 | */ |
| donatien | 0:013f5d54248c | 866 | void |
| donatien | 0:013f5d54248c | 867 | fsm_sdata( fsm *f, u_char code, u_char id, u_char *data, int datalen) |
| donatien | 0:013f5d54248c | 868 | { |
| donatien | 0:013f5d54248c | 869 | u_char *outp; |
| donatien | 0:013f5d54248c | 870 | int outlen; |
| donatien | 0:013f5d54248c | 871 | |
| donatien | 0:013f5d54248c | 872 | /* Adjust length to be smaller than MTU */ |
| donatien | 0:013f5d54248c | 873 | outp = outpacket_buf[f->unit]; |
| donatien | 0:013f5d54248c | 874 | if (datalen > peer_mru[f->unit] - (int)HEADERLEN) { |
| donatien | 0:013f5d54248c | 875 | datalen = peer_mru[f->unit] - HEADERLEN; |
| donatien | 0:013f5d54248c | 876 | } |
| donatien | 0:013f5d54248c | 877 | if (datalen && data != outp + PPP_HDRLEN + HEADERLEN) { |
| donatien | 0:013f5d54248c | 878 | BCOPY(data, outp + PPP_HDRLEN + HEADERLEN, datalen); |
| donatien | 0:013f5d54248c | 879 | } |
| donatien | 0:013f5d54248c | 880 | outlen = datalen + HEADERLEN; |
| donatien | 0:013f5d54248c | 881 | MAKEHEADER(outp, f->protocol); |
| donatien | 0:013f5d54248c | 882 | PUTCHAR(code, outp); |
| donatien | 0:013f5d54248c | 883 | PUTCHAR(id, outp); |
| donatien | 0:013f5d54248c | 884 | PUTSHORT(outlen, outp); |
| donatien | 0:013f5d54248c | 885 | pppWrite(f->unit, outpacket_buf[f->unit], outlen + PPP_HDRLEN); |
| donatien | 0:013f5d54248c | 886 | FSMDEBUG(LOG_INFO, ("fsm_sdata(%s): Sent code %d,%d,%d.\n", |
| donatien | 0:013f5d54248c | 887 | PROTO_NAME(f), code, id, outlen)); |
| donatien | 0:013f5d54248c | 888 | } |
| donatien | 0:013f5d54248c | 889 | |
| donatien | 0:013f5d54248c | 890 | #endif /* PPP_SUPPORT */ |