1

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

     2

 *

     3

 *  $Id$

     4

 *

     5

 *  Copyright (C) 2006  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

    10

 *  and/or modify it under the terms of the GNU General Public License

    11

 *  as published by the Free Software Foundation; either version 2 of the

    12

 *  License, or (at your option) any later version.

    13

 *

    14

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

    15

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

    16

 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    17

 *  GNU General Public License for more details.

    18

 *

    19

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

    20

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

    21

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

    22

 *

    23

 *  The right to use EtherCAT Technology is granted and comes free of

    24

 *  charge under condition of compatibility of product made by

    25

 *  Licensee. People intending to distribute/sell products based on the

    26

 *  code, have to sign an agreement to guarantee that products using

    27

 *  software based on IgH EtherCAT master stay compatible with the actual

    28

 *  EtherCAT specification (which are released themselves as an open

    29

 *  standard) as the (only) precondition to have the right to use EtherCAT

    30

 *  Technology, IP and trade marks.

    31

 *

    32

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

    33

    34

/**

    35

   \file

    36

   EtherCAT domain methods.

    37

*/

    38

    39

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

    40

    41

#include <linux/module.h>

    42

    43

#include "globals.h"

    44

#include "master.h"

    45

#include "slave_config.h"

    46

    47

#include "domain.h"

    48

    49

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

    50

    51

void ec_domain_clear_data(ec_domain_t *);

    52

    53

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

    54

    55

/** Domain constructor.

    56

 */

    57

void ec_domain_init(

    58

        ec_domain_t *domain, /**< EtherCAT domain. */

    59

        ec_master_t *master, /**< Parent master. */

    60

        unsigned int index /**< Index. */

    61

        )

    62

{

    63

    domain->master = master;

    64

    domain->index = index;

    65

    INIT_LIST_HEAD(&domain->fmmu_configs);

    66

    domain->data_size = 0;

    67

    domain->data = NULL;

    68

    domain->data_origin = EC_ORIG_INTERNAL;

    69

    domain->logical_base_address = 0x00000000;

    70

    INIT_LIST_HEAD(&domain->datagrams);

    71

    domain->working_counter = 0x0000;

    72

    domain->expected_working_counter = 0x0000;

    73

    domain->working_counter_changes = 0;

    74

    domain->notify_jiffies = 0;

    75

}

    76

    77

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

    78

    79

/** Domain destructor.

    80

 */

    81

void ec_domain_clear(ec_domain_t *domain /**< EtherCAT domain */)

    82

{

    83

    ec_datagram_t *datagram, *next;

    84

    85

    // dequeue and free datagrams

    86

    list_for_each_entry_safe(datagram, next, &domain->datagrams, list) {

    87

        if (!list_empty(&datagram->queue)) // datagram queued?

    88

            list_del(&datagram->queue);

    89

        ec_datagram_clear(datagram);

    90

        kfree(datagram);

    91

    }

    92

    93

    ec_domain_clear_data(domain);

    94

}

    95

    96

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

    97

    98

/** Frees internally allocated memory.

    99

 */

   100

void ec_domain_clear_data(

   101

        ec_domain_t *domain /**< EtherCAT domain. */

   102

        )

   103

{

   104

    if (domain->data_origin == EC_ORIG_INTERNAL && domain->data)

   105

        kfree(domain->data);

   106

    domain->data = NULL;

   107

    domain->data_origin = EC_ORIG_INTERNAL;

   108

}

   109

   110

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

   111

   112

/** Adds an FMMU configuration to the domain.

   113

 */

   114

void ec_domain_add_fmmu_config(

   115

        ec_domain_t *domain, /**< EtherCAT domain. */

   116

        ec_fmmu_config_t *fmmu /**< FMMU configuration. */

   117

        )

   118

{

   119

    fmmu->domain = domain;

   120

   121

    domain->data_size += fmmu->data_size;

   122

    list_add_tail(&fmmu->list, &domain->fmmu_configs);

   123

   124

    if (domain->master->debug_level)

   125

        EC_DBG("Domain %u: Added %u bytes, total %u.\n", domain->index,

   126

                fmmu->data_size, domain->data_size);

   127

}

   128

   129

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

   130

   131

/** Allocates a domain datagram and appends it to the list.

   132

 *

   133

 * The datagram type and expected working counters are determined by the

   134

 * number of input and output fmmus that share the datagram.

   135

 *

   136

 * \return 0 in case of success, else < 0

   137

 */

   138

int ec_domain_add_datagram(

   139

        ec_domain_t *domain, /**< EtherCAT domain. */

   140

        uint32_t logical_offset, /**< Logical offset. */

   141

        size_t data_size, /**< Size of the data. */

   142

        uint8_t *data, /**< Process data. */

   143

        const unsigned int used[] /**< Used by inputs/outputs. */

   144

        )

   145

{

   146

    ec_datagram_t *datagram;

   147

   148

    if (!(datagram = kmalloc(sizeof(ec_datagram_t), GFP_KERNEL))) {

   149

        EC_ERR("Failed to allocate domain datagram!\n");

   150

        return -1;

   151

    }

   152

   153

    ec_datagram_init(datagram);

   154

    snprintf(datagram->name, EC_DATAGRAM_NAME_SIZE,

   155

            "domain%u-%u", domain->index, logical_offset);

   156

   157

    if (used[EC_DIR_OUTPUT] && used[EC_DIR_INPUT]) { // inputs and outputs

   158

        if (ec_datagram_lrw(datagram, logical_offset, data_size, data)) {

   159

            kfree(datagram);

   160

            return -1;

   161

        }

   162

        // If LRW is used, output FMMUs increment the working counter by 2,

   163

        // while input FMMUs increment it by 1.

   164

        domain->expected_working_counter =

   165

            used[EC_DIR_OUTPUT] * 2 + used[EC_DIR_INPUT];

   166

    } else if (used[EC_DIR_OUTPUT]) { // outputs only

   167

        if (ec_datagram_lwr(datagram, logical_offset, data_size, data)) {

   168

            kfree(datagram);

   169

            return -1;

   170

        }

   171

        domain->expected_working_counter = used[EC_DIR_OUTPUT];

   172

    } else { // inputs only (or nothing)

   173

        if (ec_datagram_lrd(datagram, logical_offset, data_size, data)) {

   174

            kfree(datagram);

   175

            return -1;

   176

        }

   177

        domain->expected_working_counter = used[EC_DIR_INPUT];

   178

    }

   179

   180

    list_add_tail(&datagram->list, &domain->datagrams);

   181

    return 0;

   182

}

   183

   184

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

   185

   186

/** Finishes a domain.

   187

 *

   188

 * This allocates the necessary datagrams and writes the correct logical

   189

 * addresses to every configured FMMU.

   190

 *

   191

 * \todo Check for FMMUs that do not fit into any datagram.

   192

 *

   193

 * \retval 0 in case of success

   194

 * \retval <0 on failure.

   195

 */

   196

int ec_domain_finish(

   197

        ec_domain_t *domain, /**< EtherCAT domain. */

   198

        uint32_t base_address /**< Logical base address. */

   199

        )

   200

{

   201

    uint32_t datagram_offset;

   202

    size_t datagram_size;

   203

    unsigned int datagram_count;

   204

    unsigned int datagram_used[EC_DIR_COUNT];

   205

    ec_fmmu_config_t *fmmu;

   206

    const ec_datagram_t *datagram;

   207

   208

    domain->logical_base_address = base_address;

   209

   210

    if (domain->data_size && domain->data_origin == EC_ORIG_INTERNAL) {

   211

        if (!(domain->data =

   212

                    (uint8_t *) kmalloc(domain->data_size, GFP_KERNEL))) {

   213

            EC_ERR("Failed to allocate %u bytes internal memory for"

   214

                    " domain %u!\n", domain->data_size, domain->index);

   215

            return -1;

   216

        }

   217

    }

   218

   219

    // Cycle through all domain FMMUS and

   220

    // - correct the logical base addresses

   221

    // - set up the datagrams to carry the process data

   222

    datagram_offset = 0;

   223

    datagram_size = 0;

   224

    datagram_count = 0;

   225

    datagram_used[EC_DIR_OUTPUT] = 0;

   226

    datagram_used[EC_DIR_INPUT] = 0;

   227

   228

    list_for_each_entry(fmmu, &domain->fmmu_configs, list) {

   229

        // Correct logical FMMU address

   230

        fmmu->logical_start_address += base_address;

   231

   232

        // Increment Input/Output counter to determine datagram types

   233

        // and calculate expected working counters

   234

        datagram_used[fmmu->dir]++;

   235

   236

        // If the current FMMU's data do not fit in the current datagram,

   237

        // allocate a new one.

   238

        if (datagram_size + fmmu->data_size > EC_MAX_DATA_SIZE) {

   239

            if (ec_domain_add_datagram(domain,

   240

                        domain->logical_base_address + datagram_offset,

   241

                        datagram_size, domain->data + datagram_offset,

   242

                        datagram_used))

   243

                return -1;

   244

            datagram_offset += datagram_size;

   245

            datagram_size = 0;

   246

            datagram_count++;

   247

            datagram_used[EC_DIR_OUTPUT] = 0;

   248

            datagram_used[EC_DIR_INPUT] = 0;

   249

        }

   250

   251

        datagram_size += fmmu->data_size;

   252

    }

   253

   254

    // Allocate last datagram, if data are left (this is also the case if the

   255

    // process data fit into a single datagram)

   256

    if (datagram_size) {

   257

        if (ec_domain_add_datagram(domain,

   258

                    domain->logical_base_address + datagram_offset,

   259

                    datagram_size, domain->data + datagram_offset,

   260

                    datagram_used))

   261

            return -1;

   262

        datagram_count++;

   263

    }

   264

   265

    EC_INFO("Domain%u: Logical address 0x%08x, %u byte, "

   266

            "expected working counter %u.\n", domain->index,

   267

            domain->logical_base_address, domain->data_size,

   268

            domain->expected_working_counter);

   269

    list_for_each_entry(datagram, &domain->datagrams, list) {

   270

        EC_INFO("  Datagram %s: Logical offset 0x%08x, %u byte, type %s.\n",

   271

                datagram->name, EC_READ_U32(datagram->address),

   272

                datagram->data_size, ec_datagram_type_string(datagram));

   273

    }

   274

   275

    return 0;

   276

}

   277

   278

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

   279

   280

/** Get the number of FMMU configurations of the domain.

   281

 */

   282

unsigned int ec_domain_fmmu_count(const ec_domain_t *domain)

   283

{

   284

    const ec_fmmu_config_t *fmmu;

   285

    unsigned int num = 0;

   286

   287

    list_for_each_entry(fmmu, &domain->fmmu_configs, list) {

   288

        num++;

   289

    }

   290

   291

    return num;

   292

}

   293

   294

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

   295

   296

/** Get a certain FMMU configuration via its position in the list.

   297

 */

   298

const ec_fmmu_config_t *ec_domain_find_fmmu(

   299

        const ec_domain_t *domain, /**< EtherCAT domain. */

   300

        unsigned int pos /**< List position. */

   301

        )

   302

{

   303

    const ec_fmmu_config_t *fmmu;

   304

   305

    list_for_each_entry(fmmu, &domain->fmmu_configs, list) {

   306

        if (pos--)

   307

            continue;

   308

        return fmmu;

   309

    }

   310

   311

    return NULL;

   312

}

   313

   314

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

   315

 *  Realtime interface

   316

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

   317

   318

int ecrt_domain_reg_pdo_entry_list(ec_domain_t *domain,

   319

        const ec_pdo_entry_reg_t *regs)

   320

{

   321

    const ec_pdo_entry_reg_t *reg;

   322

    ec_slave_config_t *sc;

   323

    int ret;

   324

   325

    for (reg = regs; reg->index; reg++) {

   326

        if (!(sc = ecrt_master_slave_config(domain->master, reg->alias,

   327

                        reg->position, reg->vendor_id, reg->product_code)))

   328

            return -1;

   329

   330

        if ((ret = ecrt_slave_config_reg_pdo_entry(sc, reg->index,

   331

                        reg->subindex, domain, reg->bit_position)) < 0)

   332

            return -1;

   333

   334

        *reg->offset = ret;

   335

    }

   336

   337

    return 0;

   338

}

   339

   340

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

   341

   342

size_t ecrt_domain_size(ec_domain_t *domain)

   343

{

   344

    return domain->data_size;

   345

}

   346

   347

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

   348

   349

void ecrt_domain_external_memory(ec_domain_t *domain, uint8_t *mem)

   350

{

   351

    down(&domain->master->master_sem);

   352

   353

    ec_domain_clear_data(domain);

   354

   355

    domain->data = mem;

   356

    domain->data_origin = EC_ORIG_EXTERNAL;

   357

   358

    up(&domain->master->master_sem);

   359

}

   360

   361

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

   362

   363

uint8_t *ecrt_domain_data(ec_domain_t *domain)

   364

{

   365

    return domain->data;

   366

}

   367

   368

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

   369

   370

void ecrt_domain_process(ec_domain_t *domain)

   371

{

   372

    uint16_t working_counter_sum;

   373

    ec_datagram_t *datagram;

   374

   375

    working_counter_sum = 0x0000;

   376

    list_for_each_entry(datagram, &domain->datagrams, list) {

   377

        ec_datagram_output_stats(datagram);

   378

        if (datagram->state == EC_DATAGRAM_RECEIVED) {

   379

            working_counter_sum += datagram->working_counter;

   380

        }

   381

    }

   382

   383

    if (working_counter_sum != domain->working_counter) {

   384

        domain->working_counter_changes++;

   385

        domain->working_counter = working_counter_sum;

   386

    }

   387

   388

    if (domain->working_counter_changes &&

   389

        jiffies - domain->notify_jiffies > HZ) {

   390

        domain->notify_jiffies = jiffies;

   391

        if (domain->working_counter_changes == 1) {

   392

            EC_INFO("Domain %u: Working counter changed to %u/%u.\n",

   393

                    domain->index, domain->working_counter,

   394

                    domain->expected_working_counter);

   395

        } else {

   396

            EC_INFO("Domain %u: %u working counter changes - now %u/%u.\n",

   397

                    domain->index, domain->working_counter_changes,

   398

                    domain->working_counter, domain->expected_working_counter);

   399

        }

   400

        domain->working_counter_changes = 0;

   401

    }

   402

}

   403

   404

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

   405

   406

void ecrt_domain_queue(ec_domain_t *domain)

   407

{

   408

    ec_datagram_t *datagram;

   409

   410

    list_for_each_entry(datagram, &domain->datagrams, list) {

   411

        ec_master_queue_datagram(domain->master, datagram);

   412

    }

   413

}

   414

   415

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

   416

   417

void ecrt_domain_state(const ec_domain_t *domain, ec_domain_state_t *state)

   418

{

   419

    state->working_counter = domain->working_counter;

   420

   421

    if (domain->working_counter) {

   422

        if (domain->working_counter == domain->expected_working_counter) {

   423

            state->wc_state = EC_WC_COMPLETE;

   424

        } else {

   425

            state->wc_state = EC_WC_INCOMPLETE;

   426

        }

   427

    } else {

   428

        state->wc_state = EC_WC_ZERO;

   429

    }

   430

}

   431

   432

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

   433

   434

/** \cond */

   435

   436

EXPORT_SYMBOL(ecrt_domain_reg_pdo_entry_list);

   437

EXPORT_SYMBOL(ecrt_domain_size);

   438

EXPORT_SYMBOL(ecrt_domain_external_memory);

   439

EXPORT_SYMBOL(ecrt_domain_data);

   440

EXPORT_SYMBOL(ecrt_domain_process);

   441

EXPORT_SYMBOL(ecrt_domain_queue);

   442

EXPORT_SYMBOL(ecrt_domain_state);

   443

   444

/** \endcond */

   445

   446

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