templog: network/PPP.c annotate

author	Matt Johnston <matt@ucc.asn.au>
date	Fri, 07 Sep 2012 23:53:53 +0800
parents
children

rev	line source
107 56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1 /*
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2 LUFA Powered Wireless 3G Modem Host
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4 Copyright (C) Mike Alexander, 2010.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5 Copyright (C) Dean Camera, 2010.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6 */
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8 /*
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9 Copyright 2010 Mike Alexander (mike [at] mikealex [dot] com)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	10 Copyright 2010 Dean Camera (dean [at] fourwalledcubicle [dot] com)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	11
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	12 Permission to use, copy, modify, distribute, and sell this
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	13 software and its documentation for any purpose is hereby granted
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	14 without fee, provided that the above copyright notice appear in
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	15 all copies and that both that the copyright notice and this
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	16 permission notice and warranty disclaimer appear in supporting
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	17 documentation, and that the name of the author not be used in
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	18 advertising or publicity pertaining to distribution of the
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	19 software without specific, written prior permission.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	20
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	21 The author disclaim all warranties with regard to this
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	22 software, including all implied warranties of merchantability
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	23 and fitness. In no event shall the author be liable for any
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	24 special, indirect or consequential damages or any damages
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	25 whatsoever resulting from loss of use, data or profits, whether
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	26 in an action of contract, negligence or other tortious action,
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	27 arising out of or in connection with the use or performance of
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	28 this software.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	29 */
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	30
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	31 #define INCLUDE_FROM_PPP_C
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	32 #include "PPP.h"
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	33
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	34 static uint8_t OutgoingPacketID; // Unique packet ID
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	35 static PPP_Phases_t PPP_Phase; // PPP negotiation phases
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	36 static PPP_States_t LCP_State; // Each phase has a number of states
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	37 static PPP_States_t PAP_State;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	38 static PPP_States_t IPCP_State;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	39 static PPP_Packet_t* OutgoingPacket; // Pointer to the outgoing packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	40 static PPP_Packet_t* IncomingPacket; // Pointer to the incoming packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	41 static uint16_t CurrentProtocol; // Type of the last received packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	42 static uint8_t RestartCount;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	43 static uint16_t LinkTimer;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	44 static bool TimerOn;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	45 static bool MarkForNAK;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	46 static bool MarkForREJ;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	47 static uint8_t OutgoingPacketBuffer[OUTGOING_PACKET_BUFFER_SIZE]; // Buffer to store the outgoing packet in
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	48
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	49 PPP_Packet_t* dummy;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	50
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	51
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	52 void PPP_InitPPP(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	53 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	54 PPP_Phase = PPP_PHASE_Dead;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	55 TimerOn = false;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	56 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	57
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	58 void PPP_StartLink(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	59 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	60 OutgoingPacket = NULL;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	61 CurrentProtocol = NONE;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	62 TimerOn = false;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	63 LinkTimer = 0;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	64 uip_len = 0;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	65 RestartCount = MAX_RESTARTS;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	66 MarkForNAK = MarkForREJ = false;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	67 OutgoingPacketID = -1;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	68 OutgoingPacket = IncomingPacket = NULL;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	69 LCP_State = PPP_STATE_Initial;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	70 PAP_State = PPP_STATE_Initial;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	71 IPCP_State = PPP_STATE_Initial;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	72 PPP_Phase = PPP_PHASE_Establish;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	73 PPP_ManageState(PPP_EVENT_Open, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	74 PPP_ManageState(PPP_EVENT_Up, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	75 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	76
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	77 // Called every 10ms. Send events to the state machine every 3 seconds if the timer is currently running
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	78 void PPP_LinkTimer(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	79 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	80 if (!TimerOn \|\| LinkTimer++ < 300)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	81 return;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	82
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	83 if (RestartCount > 0)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	84 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	85 Debug_Print("Timer+\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	86
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	87 switch(PPP_Phase)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	88 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	89 case PPP_PHASE_Establish:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	90 PPP_ManageState(PPP_EVENT_TOPlus, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	91 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	92
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	93 case PPP_PHASE_Authenticate:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	94 PPP_ManageState(PPP_EVENT_TOPlus, &PAP_State, PPP_LAYER_Authentication);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	95 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	96
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	97 case PPP_PHASE_Network:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	98 PPP_ManageState(PPP_EVENT_TOPlus, &IPCP_State, PPP_LAYER_Network);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	99 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	100
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	101 default:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	102 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	103 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	104 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	105 else
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	106 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	107 Debug_Print("Timer-\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	108
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	109 switch(PPP_Phase)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	110 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	111 case PPP_PHASE_Establish:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	112 PPP_ManageState(PPP_EVENT_TOMinus, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	113 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	114
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	115 case PPP_PHASE_Authenticate:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	116 PPP_ManageState(PPP_EVENT_TOMinus, &PAP_State, PPP_LAYER_Authentication);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	117 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	118
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	119 case PPP_PHASE_Network:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	120 PPP_ManageState(PPP_EVENT_TOMinus, &IPCP_State, PPP_LAYER_Network);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	121 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	122
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	123 default:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	124 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	125 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	126 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	127
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	128 LinkTimer = 0; // Reset Timer
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	129 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	130
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	131 void PPP_ManageLink(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	132 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	133 if (PPP_Phase == PPP_PHASE_Dead)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	134 return;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	135
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	136 uint16_t ReadProtocol = network_read(); // Don't mess with CurrentProtocol in case we get 0 (No data) back
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	137
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	138 if (ReadProtocol == 0)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	139 return;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	140
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	141 CurrentProtocol = ReadProtocol;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	142 IncomingPacket = (PPP_Packet_t*)uip_buf; // Map the incoming data to a packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	143
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	144 Debug_Print("Got ");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	145
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	146 switch (CurrentProtocol)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	147 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	148 case LCP:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	149 Debug_Print("LCP ");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	150
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	151 switch(IncomingPacket->Code)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	152 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	153 case REQ:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	154 Debug_Print("REQ\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	155
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	156 MarkForNAK = MarkForREJ = false;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	157
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	158 // List of options that we can support. If any other options come in, we have to REJ them
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	159 const uint8_t SupportedOptions[] = {LCP_OPTION_Maximum_Receive_Unit,
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	160 LCP_OPTION_Magic_Number,
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	161 LCP_OPTION_Async_Control_Character_Map,
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	162 LCP_OPTION_Authentication_Protocol,
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	163 LCP_OPTION_Protocol_Field_Compression,
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	164 LCP_OPTION_Address_and_Control_Field_Compression};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	165
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	166 if ((MarkForREJ = PPP_TestForREJ(SupportedOptions, sizeof(SupportedOptions)))) // Check that we can support all the options the other end wants to use
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	167 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	168 PPP_ManageState(PPP_EVENT_RCRMinus, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	169 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	170 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	171
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	172 static PPP_Option_t Option3 = {.Type = 0x03, .Length = 4, .Data = {0xc0, 0x23}};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	173
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	174 if ((MarkForNAK = PPP_TestForNAK(&Option3))) // Check that the authentication protocol = PAP (0xc023)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	175 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	176 PPP_ManageState(PPP_EVENT_RCRMinus, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	177 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	178 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	179
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	180 PPP_ManageState(PPP_EVENT_RCRPlus, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	181 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	182
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	183 case ACK:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	184 Debug_Print("ACK\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	185
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	186 if (IncomingPacket->PacketID != OutgoingPacketID)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	187 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	188 Debug_Print("Out of sync\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	189 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	190 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	191
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	192 PPP_ManageState(PPP_EVENT_RCA, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	193 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	194
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	195 case NAK:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	196 Debug_Print("NAK\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	197
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	198 if (IncomingPacket->PacketID != OutgoingPacketID)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	199 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	200 Debug_Print("Out of sync\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	201 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	202 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	203
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	204 PPP_ProcessNAK();
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	205 PPP_ManageState(PPP_EVENT_RCN, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	206 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	207
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	208 case REJ:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	209 Debug_Print("REJ\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	210
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	211 if (IncomingPacket->PacketID != OutgoingPacketID)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	212 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	213 Debug_Print("Out of sync\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	214 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	215 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	216
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	217 PPP_ProcessREJ();
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	218 PPP_ManageState(PPP_EVENT_RCN, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	219 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	220
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	221 case DISC:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	222 case ECHOREQ:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	223 case ECHOREPLY:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	224 Debug_Print("DISC\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	225 PPP_ManageState(PPP_EVENT_RXR, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	226 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	227
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	228 case TERMREQ:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	229 Debug_Print("TERM\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	230 PPP_ManageState(PPP_EVENT_RTR, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	231 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	232
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	233 case CODEREJ:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	234 case PROTREJ:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	235 Debug_Print("CODE/PROTREJ\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	236 PPP_ManageState(PPP_EVENT_RXJMinus, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	237 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	238
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	239 default:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	240 Debug_Print("unknown\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	241 PPP_ManageState(PPP_EVENT_RUC, &LCP_State, PPP_LAYER_Physical);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	242 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	243 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	244 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	245
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	246 case PAP:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	247 Debug_Print("PAP ");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	248
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	249 switch(IncomingPacket->Code)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	250 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	251 case REQ:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	252 Debug_Print("REQ\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	253 PPP_ManageState(PPP_EVENT_RCRPlus, &PAP_State, PPP_LAYER_Authentication);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	254 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	255
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	256 case ACK:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	257 Debug_Print("ACK\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	258 PPP_ManageState(PPP_EVENT_RCRPlus, &PAP_State, PPP_LAYER_Authentication); // The host never sends a Configure request for PAP, but we need it to move the state machine to completion. So, fake it.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	259 PPP_ManageState(PPP_EVENT_RCA, &PAP_State, PPP_LAYER_Authentication);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	260 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	261 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	262 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	263
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	264 case IPCP:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	265 Debug_Print("IPCP ");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	266
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	267 switch(IncomingPacket->Code)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	268 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	269 case REQ:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	270 Debug_Print("REQ\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	271
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	272 MarkForNAK = MarkForREJ = false;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	273
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	274 // List of options that we can support. If any other options come in, we have to REJ them
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	275 uint8_t SupportedOptions[] = {IPCP_OPTION_IP_address, IPCP_OPTION_Primary_DNS, IPCP_OPTION_Secondary_DNS};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	276
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	277 if ((MarkForREJ = PPP_TestForREJ(SupportedOptions, sizeof(SupportedOptions))))
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	278 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	279 PPP_ManageState(PPP_EVENT_RCRMinus, &IPCP_State, PPP_LAYER_Network);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	280 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	281 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	282
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	283 PPP_ManageState(PPP_EVENT_RCRPlus, &IPCP_State, PPP_LAYER_Network);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	284 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	285
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	286 case ACK:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	287 Debug_Print("ACK\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	288
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	289 if (IncomingPacket->PacketID != OutgoingPacketID)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	290 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	291 Debug_Print("Out of sync\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	292 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	293 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	294
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	295 IPAddr1 = IncomingPacket->Options[0].Data[0]; // Store address for use in IP packets.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	296 IPAddr2 = IncomingPacket->Options[0].Data[1]; // Assumption is that Option 3 is the first option, which it
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	297 IPAddr3 = IncomingPacket->Options[0].Data[2]; // should be as the PPP spec states that implementations should
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	298 IPAddr4 = IncomingPacket->Options[0].Data[3]; // not reorder packets, and we sent out a REQ with option 3 first
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	299
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	300 PPP_ManageState(PPP_EVENT_RCA, &IPCP_State, PPP_LAYER_Network);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	301 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	302
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	303 case NAK:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	304 Debug_Print("NAK\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	305 if (IncomingPacket->PacketID != OutgoingPacketID)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	306 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	307 Debug_Print("Out of sync\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	308 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	309 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	310
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	311 PPP_ProcessNAK();
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	312 PPP_ManageState(PPP_EVENT_RCN, &IPCP_State, PPP_LAYER_Network);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	313 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	314
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	315 case REJ:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	316 Debug_Print("REJ\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	317
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	318 if (IncomingPacket->PacketID != OutgoingPacketID)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	319 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	320 Debug_Print("Out of sync\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	321 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	322 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	323
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	324 PPP_ProcessREJ();
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	325 PPP_ManageState(PPP_EVENT_RCN, &IPCP_State, PPP_LAYER_Network);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	326 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	327 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	328 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	329
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	330 case IP:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	331 TCPIP_GotNewPacket();
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	332 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	333
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	334 default:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	335 Debug_Print("unknown protocol: 0x");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	336 Debug_PrintHex(CurrentProtocol / 256); Debug_PrintHex(CurrentProtocol & 255);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	337 Debug_Print("\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	338 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	339 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	340 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	341
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	342
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	343 // Either create a new OutgoingPacket, or if we've just received a NAK or REJ we will have already changed the OutgoingPacket so just send that
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	344 static void Send_Configure_Request(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	345 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	346 Debug_Print("Send Configure Request\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	347
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	348 switch(PPP_Phase)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	349 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	350 case PPP_PHASE_Establish:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	351 if (OutgoingPacket == NULL) // Create a new packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	352 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	353 // When we send a REQ, we want to make sure that the other end supports these options
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	354 // static PPP_Option_t Option1 = {.Type = LCP_OPTION_Maximum_Receive_Unit, .Length = 4, .Data = {0x5, 0xa0}};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	355 static PPP_Option_t Option2 = {.Type = LCP_OPTION_Async_Control_Character_Map, .Length = 6, .Data = {0x0, 0x0, 0x0, 0x0}};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	356 static PPP_Option_t Option5 = {.Type = LCP_OPTION_Magic_Number, .Length = 6, .Data = {0x27, 0xf5, 0x46, 0xa1}};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	357 static PPP_Option_t Option7 = {.Type = LCP_OPTION_Protocol_Field_Compression, .Length = 2};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	358 static PPP_Option_t Option8 = {.Type = LCP_OPTION_Address_and_Control_Field_Compression, .Length = 2};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	359 static PPP_Option_t OptionD = {.Type = LCP_OPTION_Callback, .Length = 3, .Data = {0x6}};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	360
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	361 //PPP_AddOption(OutgoingPacket, &Option1);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	362 PPP_AddOption(&Option2);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	363 PPP_AddOption(&Option5);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	364 PPP_AddOption(&Option7);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	365 PPP_AddOption(&Option8);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	366 PPP_AddOption(&OptionD);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	367 OutgoingPacket->Code = REQ;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	368 CurrentProtocol = LCP;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	369 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	370 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	371
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	372 case PPP_PHASE_Authenticate:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	373 if (OutgoingPacket == NULL) // Create a new packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	374 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	375 static PPP_Option_t Option0 = {.Type = 0x00, .Length = 2};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	376
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	377 PPP_AddOption(&Option0);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	378 OutgoingPacket->Options[0].Type = 0x00; // No User Name
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	379 OutgoingPacket->Options[0].Length = 0x00; // No Password
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	380 OutgoingPacket->Code = REQ;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	381 CurrentProtocol = PAP;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	382 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	383 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	384
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	385 case PPP_PHASE_Network:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	386 if (OutgoingPacket == NULL) // Create a new packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	387 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	388 // When we send a REQ, we want to make sure that the other end supports these options
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	389 static PPP_Option_t Option3 = {.Type = IPCP_OPTION_IP_address, .Length = 6, .Data = {0, 0, 0, 0}};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	390 static PPP_Option_t Option81 = {.Type = IPCP_OPTION_Primary_DNS, .Length = 6, .Data = {0, 0, 0, 0}};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	391 static PPP_Option_t Option83 = {.Type = IPCP_OPTION_Secondary_DNS, .Length = 6, .Data = {0, 0, 0, 0}};
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	392
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	393 PPP_AddOption(&Option3); // Make sure Option3 is first
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	394 PPP_AddOption(&Option81);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	395 PPP_AddOption(&Option83);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	396 OutgoingPacket->Code = REQ;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	397 CurrentProtocol = IPCP;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	398 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	399 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	400
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	401 default:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	402 break;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	403 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	404
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	405 OutgoingPacket->PacketID = ++OutgoingPacketID; // Every new REQ Packet going out gets a new ID
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	406 RestartCount--; // Decrement the count before we restart the layer
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	407 uip_len = uip_ntohs(OutgoingPacket->Length);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	408 memcpy(uip_buf, OutgoingPacket, uip_len); // Copy the outgoing packet to the buffer for sending
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	409
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	410 network_send(CurrentProtocol); // Send either the new packet or the modified packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	411 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	412
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	413
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	414 // We change the incoming packet code to send an ACK to the remote end, and re-use all the data from the incoming packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	415 static void Send_Configure_Ack(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	416 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	417 Debug_Print("Send Configure ACK\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	418
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	419 IncomingPacket->Code = ACK;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	420 network_send(CurrentProtocol);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	421 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	422
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	423 // We change the incoming packet code to send a NAK or REJ to the remote end. The incoming packet has already been altered to show which options to NAK/REJ
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	424 static void Send_Configure_Nak_Rej(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	425 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	426 if (MarkForNAK)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	427 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	428 Debug_Print("Send Configure NAK\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	429 IncomingPacket->Code = NAK;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	430 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	431 else if (MarkForREJ)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	432 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	433 Debug_Print("Send Configure REJ\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	434 IncomingPacket->Code = REJ;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	435 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	436 else
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	437 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	438 return;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	439 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	440
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	441 uip_len = uip_ntohs(IncomingPacket->Length);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	442 network_send(CurrentProtocol);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	443 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	444
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	445 // Send a TERM to the remote end.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	446 static void Send_Terminate_Request(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	447 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	448 Debug_Print("Send Terminate Request\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	449
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	450 OutgoingPacket = (PPP_Packet_t*)uip_buf; // Build the outgoing packet in uip_buf
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	451 CurrentProtocol = LCP;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	452 OutgoingPacket->Code = TERMREQ;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	453 OutgoingPacket->Length = UIP_HTONS(sizeof(PPP_Packet_t));
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	454 OutgoingPacket->PacketID = ++OutgoingPacketID; // Every new REQ Packet going out gets a new ID
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	455
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	456 RestartCount--;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	457
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	458 uip_len = uip_ntohs(OutgoingPacket->Length);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	459 network_send(CurrentProtocol); // Send the packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	460 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	461
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	462 // Send a TERM ACK to the remote end.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	463 static void Send_Terminate_Ack(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	464 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	465 Debug_Print("Send Terminate ACK\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	466
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	467 IncomingPacket->Code = TERMREPLY;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	468 network_send(CurrentProtocol);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	469 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	470
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	471 // Send a REJ to the remote end.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	472 static void Send_Code_Reject(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	473 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	474 Debug_Print("Send Code Reject\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	475
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	476 IncomingPacket->Code = CODEREJ;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	477 network_send(CurrentProtocol);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	478 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	479
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	480 // Send an ECHO to the remote end.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	481 static void Send_Echo_Reply(void)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	482 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	483 Debug_Print("Send Echo Reply\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	484
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	485 IncomingPacket->Code = ECHOREPLY;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	486 network_send(CurrentProtocol);
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	487 }
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	488
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	489 // Called by the state machine when the current layer comes up. Use this to start the next layer up.
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	490 static void This_Layer_Up(PPP_Layers_t Layer)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	491 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	492 CurrentProtocol = NONE;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	493 OutgoingPacket = NULL; // Clear the outgoing packet
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	494
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	495 switch(Layer)
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	496 {
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	497 case PPP_LAYER_Physical:
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	498 Debug_Print("LCP Up\r\n");
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	499 PPP_Phase = PPP_PHASE_Authenticate;
56d09a0969b5 Import uIP and the PPP implementation from Matt Johnston <matt@ucc.asn.au> parents: diff changeset	500 OutgoingPacketID = -1;

107

56d09a0969b5 Import uIP and the PPP implementation from