1

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

     2

 *

     3

 *  $Id: fsm_slave.c,v 83e9160319ec 2011/08/01 15:02:45 fp $

     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_mailbox_t *mbox/**< Datagram object to use. */

    61

        )

    62

{

    63

    fsm->slave = slave;

    64

    fsm->mbox = mbox;

    65

    slave->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->mbox);

    73

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

    74

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

    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

 * \return true, if the state machine was executed

    99

 */

   100

int ec_fsm_slave_exec(

   101

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

   102

        )

   103

{

   104

    if (ec_mbox_is_datagram_state(fsm->mbox, EC_DATAGRAM_QUEUED)

   105

        || ec_mbox_is_datagram_state(fsm->mbox, EC_DATAGRAM_SENT)) {

   106

        // datagram was not sent or received yet.

   107

        return 0;

   108

    }

   109

   110

    fsm->state(fsm);

   111

    return 1;

   112

}

   113

   114

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

   115

   116

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

   117

 */

   118

void ec_fsm_slave_ready(

   119

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

   120

        )

   121

{

   122

    if (fsm->state == ec_fsm_slave_state_idle) {

   123

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

   124

        fsm->state = ec_fsm_slave_state_ready;

   125

    }

   126

}

   127

   128

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

   129

 * Slave state machine

   130

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

   131

   132

/** Slave state: IDLE.

   133

 */

   134

void ec_fsm_slave_state_idle(

   135

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

   136

        )

   137

{

   138

    // do nothing

   139

}

   140

   141

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

   142

   143

/** Slave state: READY.

   144

 */

   145

void ec_fsm_slave_state_ready(

   146

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

   147

        )

   148

{

   149

    // Check for pending external SDO requests

   150

    if (ec_fsm_slave_action_process_sdo(fsm))

   151

        return;

   152

   153

    // Check for pending FoE requests

   154

    if (ec_fsm_slave_action_process_foe(fsm))

   155

        return;

   156

   157

    // Check for pending SoE requests

   158

    if (ec_fsm_slave_action_process_soe(fsm))

   159

        return;

   160

}

   161

   162

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

   163

   164

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

   165

 *

   166

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

   167

 */

   168

int ec_fsm_slave_action_process_sdo(

   169

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

   170

        )

   171

{

   172

    ec_slave_t *slave = fsm->slave;

   173

    ec_master_sdo_request_t *request, *next;

   174

   175

    // search the first external request to be processed

   176

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

   177

   178

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

   179

        if (slave->current_state & EC_SLAVE_STATE_ACK_ERR) {

   180

            EC_SLAVE_WARN(slave, "Aborting SDO request %p,"

   181

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

   182

            request->req.state = EC_INT_REQUEST_FAILURE;

   183

            kref_put(&request->refcount,ec_master_sdo_request_release);

   184

            wake_up(&slave->sdo_queue);

   185

            fsm->sdo_request = NULL;

   186

            fsm->state = ec_fsm_slave_state_idle;

   187

            return 0;

   188

        }

   189

   190

        if (slave->current_state == EC_SLAVE_STATE_INIT) {

   191

            EC_SLAVE_WARN(slave, "Aborting SDO request %p,"

   192

                    " slave is in INIT.\n", request);

   193

            request->req.state = EC_INT_REQUEST_FAILURE;

   194

            kref_put(&request->refcount,ec_master_sdo_request_release);

   195

            wake_up(&slave->sdo_queue);

   196

            fsm->sdo_request = NULL;

   197

            fsm->state = ec_fsm_slave_state_idle;

   198

            return 0;

   199

        }

   200

   201

        request->req.state = EC_INT_REQUEST_BUSY;

   202

   203

        // Found pending SDO request. Execute it!

   204

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

   205

   206

        // Start SDO transfer

   207

        fsm->sdo_request = request;

   208

        fsm->state = ec_fsm_slave_state_sdo_request;

   209

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

   210

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

   211

        ec_slave_mbox_queue_datagrams(slave, fsm->mbox);

   212

        return 1;

   213

    }

   214

    return 0;

   215

}

   216

   217

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

   218

   219

/** Slave state: SDO_REQUEST.

   220

 */

   221

void ec_fsm_slave_state_sdo_request(

   222

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

   223

        )

   224

{

   225

    ec_slave_t *slave = fsm->slave;

   226

    ec_master_sdo_request_t *request = fsm->sdo_request;

   227

   228

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

   229

        ec_slave_mbox_queue_datagrams(slave, fsm->mbox);

   230

        return;

   231

    }

   232

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

   233

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

   234

        request->req.state = EC_INT_REQUEST_FAILURE;

   235

        kref_put(&request->refcount, ec_master_sdo_request_release);

   236

        wake_up(&slave->sdo_queue);

   237

        fsm->sdo_request = NULL;

   238

        fsm->state = ec_fsm_slave_state_idle;

   239

        return;

   240

    }

   241

   242

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

   243

   244

    // SDO request finished

   245

    request->req.state = EC_INT_REQUEST_SUCCESS;

   246

    kref_put(&request->refcount, ec_master_sdo_request_release);

   247

    wake_up(&slave->sdo_queue);

   248

   249

    fsm->sdo_request = NULL;

   250

    fsm->state = ec_fsm_slave_state_ready;

   251

}

   252

   253

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

   254

   255

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

   256

 *

   257

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

   258

 */

   259

int ec_fsm_slave_action_process_foe(

   260

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

   261

        )

   262

{

   263

    ec_slave_t *slave = fsm->slave;

   264

    ec_master_foe_request_t *request, *next;

   265

   266

    // search the first request to be processed

   267

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

   268

        if (slave->current_state & EC_SLAVE_STATE_ACK_ERR) {

   269

            EC_SLAVE_WARN(slave, "Aborting FOE request %p,"

   270

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

   271

            request->req.state = EC_INT_REQUEST_FAILURE;

   272

            kref_put(&request->refcount, ec_master_foe_request_release);

   273

            wake_up(&slave->foe_queue);

   274

            fsm->sdo_request = NULL;

   275

            fsm->state = ec_fsm_slave_state_idle;

   276

            return 0;

   277

        }

   278

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

   279

        request->req.state = EC_INT_REQUEST_BUSY;

   280

   281

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

   282

   283

        fsm->foe_request = request;

   284

        fsm->state = ec_fsm_slave_state_foe_request;

   285

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

   286

        ec_fsm_foe_exec(&fsm->fsm_foe);

   287

        ec_slave_mbox_queue_datagrams(slave, fsm->mbox);

   288

        return 1;

   289

    }

   290

    return 0;

   291

}

   292

   293

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

   294

   295

/** Slave state: FOE REQUEST.

   296

 */

   297

void ec_fsm_slave_state_foe_request(

   298

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

   299

        )

   300

{

   301

    ec_slave_t *slave = fsm->slave;

   302

    ec_master_foe_request_t *request = fsm->foe_request;

   303

   304

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

   305

        ec_slave_mbox_queue_datagrams(slave, fsm->mbox);

   306

        return;

   307

    }

   308

   309

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

   310

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

   311

        request->req.state = EC_INT_REQUEST_FAILURE;

   312

        kref_put(&request->refcount, ec_master_foe_request_release);

   313

        wake_up(&slave->foe_queue);

   314

        fsm->foe_request = NULL;

   315

        fsm->state = ec_fsm_slave_state_idle;

   316

        return;

   317

    }

   318

   319

    // finished transferring FoE

   320

    EC_SLAVE_DBG(slave, 1, "FoE request %p successfully"

   321

            " transferred %zu bytes.\n", request, request->req.data_size);

   322

   323

    request->req.state = EC_INT_REQUEST_SUCCESS;

   324

    kref_put(&request->refcount, ec_master_foe_request_release);

   325

    wake_up(&slave->foe_queue);

   326

   327

    fsm->foe_request = NULL;

   328

    fsm->state = ec_fsm_slave_state_ready;

   329

}

   330

   331

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

   332

   333

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

   334

 *

   335

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

   336

 */

   337

int ec_fsm_slave_action_process_soe(

   338

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

   339

        )

   340

{

   341

    ec_slave_t *slave = fsm->slave;

   342

    ec_master_soe_request_t *request, *next;

   343

   344

    // search the first request to be processed

   345

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

   346

   347

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

   348

        if (slave->current_state & EC_SLAVE_STATE_ACK_ERR) {

   349

            EC_SLAVE_WARN(slave, "Aborting SoE request,"

   350

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

   351

            request->req.state = EC_INT_REQUEST_FAILURE;

   352

            kref_put(&request->refcount, ec_master_soe_request_release);

   353

            wake_up(&slave->soe_queue);

   354

            fsm->state = ec_fsm_slave_state_idle;

   355

            return 0;

   356

        }

   357

   358

        if (slave->current_state == EC_SLAVE_STATE_INIT) {

   359

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

   360

            request->req.state = EC_INT_REQUEST_FAILURE;

   361

            kref_put(&request->refcount, ec_master_soe_request_release);

   362

            wake_up(&slave->soe_queue);

   363

            fsm->state = ec_fsm_slave_state_idle;

   364

            return 0;

   365

        }

   366

   367

        request->req.state = EC_INT_REQUEST_BUSY;

   368

   369

        // Found pending request. Execute it!

   370

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

   371

   372

        // Start SoE transfer

   373

        fsm->soe_request = request;

   374

        fsm->state = ec_fsm_slave_state_soe_request;

   375

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

   376

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

   377

        ec_slave_mbox_queue_datagrams(slave, fsm->mbox);

   378

        return 1;

   379

    }

   380

    return 0;

   381

}

   382

   383

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

   384

   385

/** Slave state: SOE_REQUEST.

   386

 */

   387

void ec_fsm_slave_state_soe_request(

   388

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

   389

        )

   390

{

   391

    ec_slave_t *slave = fsm->slave;

   392

    ec_master_soe_request_t *request = fsm->soe_request;

   393

   394

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

   395

        ec_slave_mbox_queue_datagrams(slave, fsm->mbox);

   396

        return;

   397

    }

   398

   399

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

   400

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

   401

        request->req.state = EC_INT_REQUEST_FAILURE;

   402

        kref_put(&request->refcount, ec_master_soe_request_release);

   403

        wake_up(&slave->soe_queue);

   404

        fsm->soe_request = NULL;

   405

        fsm->state = ec_fsm_slave_state_idle;

   406

        return;

   407

    }

   408

   409

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

   410

   411

    // SoE request finished

   412

    request->req.state = EC_INT_REQUEST_SUCCESS;

   413

    kref_put(&request->refcount, ec_master_soe_request_release);

   414

    wake_up(&slave->soe_queue);

   415

   416

    fsm->soe_request = NULL;

   417

    fsm->state = ec_fsm_slave_state_ready;

   418

}

   419

   420

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