1

/******************************************************************************

     2

 *

     3

 *  $Id$

     4

 *

     5

 *  Copyright (C) 2006-2008  Florian Pose, Ingenieurgemeinschaft IgH

     6

 *

     7

 *  This file is part of the IgH EtherCAT Master.

     8

 *

     9

 *  The IgH EtherCAT Master is free software; you can redistribute it and/or

    10

 *  modify it under the terms of the GNU General Public License version 2, as

    11

 *  published by the Free Software Foundation.

    12

 *

    13

 *  The IgH EtherCAT Master is distributed in the hope that it will be useful,

    14

 *  but WITHOUT ANY WARRANTY; without even the implied warranty of

    15

 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General

    16

 *  Public License for more details.

    17

 *

    18

 *  You should have received a copy of the GNU General Public License along

    19

 *  with the IgH EtherCAT Master; if not, write to the Free Software

    20

 *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

    21

 *

    22

 *  ---

    23

 *

    24

 *  The license mentioned above concerns the source code only. Using the

    25

 *  EtherCAT technology and brand is only permitted in compliance with the

    26

 *  industrial property and similar rights of Beckhoff Automation GmbH.

    27

 *

    28

 *****************************************************************************/

    29

    30

/** \file

    31

 * EtherCAT slave (SDO) state machine.

    32

 */

    33

    34

/*****************************************************************************/

    35

    36

#include "globals.h"

    37

#include "master.h"

    38

#include "mailbox.h"

    39

    40

#include "fsm_slave.h"

    41

    42

/*****************************************************************************/

    43

    44

void ec_fsm_slave_state_idle(ec_fsm_slave_t *);

    45

void ec_fsm_slave_state_ready(ec_fsm_slave_t *);

    46

int ec_fsm_slave_action_process_sdo(ec_fsm_slave_t *);

    47

void ec_fsm_slave_state_sdo_request(ec_fsm_slave_t *);

    48

int ec_fsm_slave_action_process_foe(ec_fsm_slave_t *);

    49

void ec_fsm_slave_state_foe_request(ec_fsm_slave_t *);

    50

int ec_fsm_slave_action_process_soe(ec_fsm_slave_t *);

    51

void ec_fsm_slave_state_soe_request(ec_fsm_slave_t *);

    52

    53

/*****************************************************************************/

    54

    55

/** Constructor.

    56

 */

    57

void ec_fsm_slave_init(

    58

        ec_fsm_slave_t *fsm, /**< Slave state machine. */

    59

        ec_slave_t *slave, /**< EtherCAT slave. */

    60

        ec_datagram_t *datagram /**< Datagram object to use. */

    61

        )

    62

{

    63

    fsm->slave = slave;

    64

    fsm->datagram = datagram;

    65

    fsm->datagram->data_size = 0;

    66

    67

    EC_SLAVE_DBG(slave, 1, "Init FSM.\n");

    68

    69

    fsm->state = ec_fsm_slave_state_idle;

    70

    71

    // init sub-state-machines

    72

    ec_fsm_coe_init(&fsm->fsm_coe, fsm->datagram);

    73

    ec_fsm_foe_init(&fsm->fsm_foe, fsm->datagram);

    74

    ec_fsm_soe_init(&fsm->fsm_soe, fsm->datagram);

    75

}

    76

    77

/*****************************************************************************/

    78

    79

/** Destructor.

    80

 */

    81

void ec_fsm_slave_clear(

    82

        ec_fsm_slave_t *fsm /**< Master state machine. */

    83

        )

    84

{

    85

    // clear sub-state machines

    86

    ec_fsm_coe_clear(&fsm->fsm_coe);

    87

    ec_fsm_foe_clear(&fsm->fsm_foe);

    88

    ec_fsm_soe_clear(&fsm->fsm_soe);

    89

}

    90

    91

/*****************************************************************************/

    92

    93

/** Executes the current state of the state machine.

    94

 *

    95

 * If the state machine's datagram is not sent or received yet, the execution

    96

 * of the state machine is delayed to the next cycle.

    97

 */

    98

void ec_fsm_slave_exec(

    99

        ec_fsm_slave_t *fsm /**< Slave state machine. */

   100

        )

   101

{

   102

    if (fsm->datagram->state == EC_DATAGRAM_SENT

   103

        || fsm->datagram->state == EC_DATAGRAM_QUEUED) {

   104

        // datagram was not sent or received yet.

   105

        return;

   106

    }

   107

   108

    fsm->state(fsm);

   109

}

   110

   111

/*****************************************************************************/

   112

   113

/** Sets the current state of the state machine to READY

   114

 */

   115

void ec_fsm_slave_ready(

   116

        ec_fsm_slave_t *fsm /**< Slave state machine. */

   117

        )

   118

{

   119

    if (fsm->state == ec_fsm_slave_state_idle) {

   120

        EC_SLAVE_DBG(fsm->slave, 1, "Ready for requests.\n");

   121

        fsm->state = ec_fsm_slave_state_ready;

   122

    }

   123

}

   124

   125

/******************************************************************************

   126

 * Slave state machine

   127

 *****************************************************************************/

   128

   129

/** Slave state: IDLE.

   130

 */

   131

void ec_fsm_slave_state_idle(

   132

        ec_fsm_slave_t *fsm /**< Slave state machine. */

   133

        )

   134

{

   135

    // do nothing

   136

}

   137

   138

   139

/*****************************************************************************/

   140

   141

/** Slave state: READY.

   142

 */

   143

void ec_fsm_slave_state_ready(

   144

        ec_fsm_slave_t *fsm /**< Slave state machine. */

   145

        )

   146

{

   147

    // Check for pending external SDO requests

   148

    if (ec_fsm_slave_action_process_sdo(fsm))

   149

        return;

   150

   151

    // Check for pending FoE requests

   152

    if (ec_fsm_slave_action_process_foe(fsm))

   153

        return;

   154

   155

    // Check for pending SoE requests

   156

    if (ec_fsm_slave_action_process_soe(fsm))

   157

        return;

   158

}

   159

   160

/*****************************************************************************/

   161

   162

/** Check for pending SDO requests and process one.

   163

 *

   164

 * \return non-zero, if an SDO request is processed.

   165

 */

   166

int ec_fsm_slave_action_process_sdo(

   167

        ec_fsm_slave_t *fsm /**< Slave state machine. */

   168

        )

   169

{

   170

    ec_slave_t *slave = fsm->slave;

   171

    ec_master_sdo_request_t *request, *next;

   172

   173

    // search the first external request to be processed

   174

    list_for_each_entry_safe(request, next, &slave->slave_sdo_requests, list) {

   175

   176

        list_del_init(&request->list); // dequeue

   177

        if (slave->current_state & EC_SLAVE_STATE_ACK_ERR) {

   178

            EC_SLAVE_WARN(slave, "Aborting SDO request,"

   179

                    " slave has error flag set.\n");

   180

            request->req.state = EC_INT_REQUEST_FAILURE;

   181

            wake_up(&slave->sdo_queue);

   182

            fsm->sdo_request = NULL;

   183

            fsm->state = ec_fsm_slave_state_idle;

   184

            return 0;

   185

        }

   186

   187

        if (slave->current_state == EC_SLAVE_STATE_INIT) {

   188

            EC_SLAVE_WARN(slave, "Aborting SDO request, slave is in INIT.\n");

   189

            request->req.state = EC_INT_REQUEST_FAILURE;

   190

            wake_up(&slave->sdo_queue);

   191

            fsm->sdo_request = NULL;

   192

            fsm->state = ec_fsm_slave_state_idle;

   193

            return 0;

   194

        }

   195

   196

        request->req.state = EC_INT_REQUEST_BUSY;

   197

   198

        // Found pending SDO request. Execute it!

   199

        EC_SLAVE_DBG(slave, 1, "Processing SDO request...\n");

   200

   201

        // Start SDO transfer

   202

        fsm->sdo_request = &request->req;

   203

        fsm->state = ec_fsm_slave_state_sdo_request;

   204

        ec_fsm_coe_transfer(&fsm->fsm_coe, slave, &request->req);

   205

        ec_fsm_coe_exec(&fsm->fsm_coe); // execute immediately

   206

        ec_master_queue_external_datagram(fsm->slave->master, fsm->datagram);

   207

        return 1;

   208

    }

   209

    return 0;

   210

}

   211

   212

/*****************************************************************************/

   213

   214

/** Slave state: SDO_REQUEST.

   215

 */

   216

void ec_fsm_slave_state_sdo_request(

   217

        ec_fsm_slave_t *fsm /**< Slave state machine. */

   218

        )

   219

{

   220

    ec_slave_t *slave = fsm->slave;

   221

    ec_sdo_request_t *request = fsm->sdo_request;

   222

   223

    if (ec_fsm_coe_exec(&fsm->fsm_coe)) {

   224

        ec_master_queue_external_datagram(fsm->slave->master, fsm->datagram);

   225

        return;

   226

    }

   227

    if (!ec_fsm_coe_success(&fsm->fsm_coe)) {

   228

        EC_SLAVE_ERR(slave, "Failed to process SDO request.\n");

   229

        request->state = EC_INT_REQUEST_FAILURE;

   230

        wake_up(&slave->sdo_queue);

   231

        fsm->sdo_request = NULL;

   232

        fsm->state = ec_fsm_slave_state_idle;

   233

        return;

   234

    }

   235

   236

    EC_SLAVE_DBG(slave, 1, "Finished SDO request.\n");

   237

   238

    // SDO request finished

   239

    request->state = EC_INT_REQUEST_SUCCESS;

   240

    wake_up(&slave->sdo_queue);

   241

   242

    fsm->sdo_request = NULL;

   243

    fsm->state = ec_fsm_slave_state_ready;

   244

}

   245

   246

/*****************************************************************************/

   247

   248

/** Check for pending FOE requests and process one.

   249

 *

   250

 * \return non-zero, if an FOE request is processed.

   251

 */

   252

int ec_fsm_slave_action_process_foe(

   253

        ec_fsm_slave_t *fsm /**< Slave state machine. */

   254

        )

   255

{

   256

    ec_slave_t *slave = fsm->slave;

   257

    ec_master_foe_request_t *request, *next;

   258

   259

    // search the first request to be processed

   260

    list_for_each_entry_safe(request, next, &slave->foe_requests, list) {

   261

        if (slave->current_state & EC_SLAVE_STATE_ACK_ERR) {

   262

            EC_SLAVE_WARN(slave, "Aborting FOE request,"

   263

                    " slave has error flag set.\n");

   264

            request->req.state = EC_INT_REQUEST_FAILURE;

   265

            wake_up(&slave->sdo_queue);

   266

            fsm->sdo_request = NULL;

   267

            fsm->state = ec_fsm_slave_state_idle;

   268

            return 0;

   269

        }

   270

        list_del_init(&request->list); // dequeue

   271

        request->req.state = EC_INT_REQUEST_BUSY;

   272

   273

        EC_SLAVE_DBG(slave, 1, "Processing FoE request.\n");

   274

   275

        fsm->foe_request = &request->req;

   276

        fsm->state = ec_fsm_slave_state_foe_request;

   277

        ec_fsm_foe_transfer(&fsm->fsm_foe, slave, &request->req);

   278

        ec_fsm_foe_exec(&fsm->fsm_foe);

   279

        ec_master_queue_external_datagram(fsm->slave->master, fsm->datagram);

   280

        return 1;

   281

    }

   282

    return 0;

   283

}

   284

   285

/*****************************************************************************/

   286

   287

/** Slave state: FOE REQUEST.

   288

 */

   289

void ec_fsm_slave_state_foe_request(

   290

        ec_fsm_slave_t *fsm /**< Slave state machine. */

   291

        )

   292

{

   293

    ec_slave_t *slave = fsm->slave;

   294

    ec_foe_request_t *request = fsm->foe_request;

   295

   296

    if (ec_fsm_foe_exec(&fsm->fsm_foe)) {

   297

        ec_master_queue_external_datagram(fsm->slave->master, fsm->datagram);

   298

        return;

   299

    }

   300

   301

    if (!ec_fsm_foe_success(&fsm->fsm_foe)) {

   302

        EC_SLAVE_ERR(slave, "Failed to handle FoE request.\n");

   303

        request->state = EC_INT_REQUEST_FAILURE;

   304

        wake_up(&slave->foe_queue);

   305

        fsm->foe_request = NULL;

   306

        fsm->state = ec_fsm_slave_state_idle;

   307

        return;

   308

    }

   309

   310

    // finished transferring FoE

   311

    EC_SLAVE_DBG(slave, 1, "Successfully transferred %zu bytes of FoE"

   312

            " data.\n", request->data_size);

   313

   314

    request->state = EC_INT_REQUEST_SUCCESS;

   315

    wake_up(&slave->foe_queue);

   316

   317

    fsm->foe_request = NULL;

   318

    fsm->state = ec_fsm_slave_state_ready;

   319

}

   320

   321

/*****************************************************************************/

   322

   323

/** Check for pending SoE requests and process one.

   324

 *

   325

 * \return non-zero, if a request is processed.

   326

 */

   327

int ec_fsm_slave_action_process_soe(

   328

        ec_fsm_slave_t *fsm /**< Slave state machine. */

   329

        )

   330

{

   331

    ec_slave_t *slave = fsm->slave;

   332

    ec_master_soe_request_t *req, *next;

   333

   334

    // search the first request to be processed

   335

    list_for_each_entry_safe(req, next, &slave->soe_requests, list) {

   336

   337

        list_del_init(&req->list); // dequeue

   338

        if (slave->current_state & EC_SLAVE_STATE_ACK_ERR) {

   339

            EC_SLAVE_WARN(slave, "Aborting SoE request,"

   340

                    " slave has error flag set.\n");

   341

            req->req.state = EC_INT_REQUEST_FAILURE;

   342

            wake_up(&slave->soe_queue);

   343

            fsm->state = ec_fsm_slave_state_idle;

   344

            return 0;

   345

        }

   346

   347

        if (slave->current_state == EC_SLAVE_STATE_INIT) {

   348

            EC_SLAVE_WARN(slave, "Aborting SoE request, slave is in INIT.\n");

   349

            req->req.state = EC_INT_REQUEST_FAILURE;

   350

            wake_up(&slave->soe_queue);

   351

            fsm->state = ec_fsm_slave_state_idle;

   352

            return 0;

   353

        }

   354

   355

        req->req.state = EC_INT_REQUEST_BUSY;

   356

   357

        // Found pending request. Execute it!

   358

        EC_SLAVE_DBG(slave, 1, "Processing SoE request...\n");

   359

   360

        // Start SoE transfer

   361

        fsm->soe_request = &req->req;

   362

        fsm->state = ec_fsm_slave_state_soe_request;

   363

        ec_fsm_soe_transfer(&fsm->fsm_soe, slave, &req->req);

   364

        ec_fsm_soe_exec(&fsm->fsm_soe); // execute immediately

   365

        ec_master_queue_external_datagram(fsm->slave->master, fsm->datagram);

   366

        return 1;

   367

    }

   368

    return 0;

   369

}

   370

   371

/*****************************************************************************/

   372

   373

/** Slave state: SOE_REQUEST.

   374

 */

   375

void ec_fsm_slave_state_soe_request(

   376

        ec_fsm_slave_t *fsm /**< Slave state machine. */

   377

        )

   378

{

   379

    ec_slave_t *slave = fsm->slave;

   380

    ec_soe_request_t *request = fsm->soe_request;

   381

   382

    if (ec_fsm_soe_exec(&fsm->fsm_soe)) {

   383

        ec_master_queue_external_datagram(fsm->slave->master, fsm->datagram);

   384

        return;

   385

    }

   386

   387

    if (!ec_fsm_soe_success(&fsm->fsm_soe)) {

   388

        EC_SLAVE_ERR(slave, "Failed to process SoE request.\n");

   389

        request->state = EC_INT_REQUEST_FAILURE;

   390

        wake_up(&slave->soe_queue);

   391

        fsm->soe_request = NULL;

   392

        fsm->state = ec_fsm_slave_state_idle;

   393

        return;

   394

    }

   395

   396

    EC_SLAVE_DBG(slave, 1, "Finished SoE request.\n");

   397

   398

    // SoE request finished

   399

    request->state = EC_INT_REQUEST_SUCCESS;

   400

    wake_up(&slave->soe_queue);

   401

   402

    fsm->soe_request = NULL;

   403

    fsm->state = ec_fsm_slave_state_ready;

   404

}

   405

   406

/*****************************************************************************/