1

/*

     2

 * Copyright (C) 2007-2011: Edouard TISSERANT and Laurent BESSARD

     3

 *

     4

 * See COPYING and COPYING.LESSER files for copyright details.

     5

 *

     6

 * This program is free software: you can redistribute it and/or modify

     7

 * it under the terms of the GNU General Public License as published by

     8

 * the Free Software Foundation, either version 3 of the License, or

     9

 * (at your option) any later version.

    10

 *

    11

 * This program is distributed in the hope that it will be useful,

    12

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

    13

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    14

 * GNU General Public License for more details.

    15

 *

    16

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

    17

 * along with this program. If not, see <http://www.gnu.org/licenses/>.

    18

 *

    19

 */

    20

    21

/****

    22

 * IEC 61131-3 standard function library

    23

 * generated code, do not edit by hand

    24

 */

    25

    26

    27

function_type_t get_function_type(identifier_c *function_name) {

    28

    29

if (!strcasecmp(function_name->value, "REAL_TO_SINT"))

    30

    return function_real_to_sint;

    31

    32

if (!strcasecmp(function_name->value, "REAL_TO_LINT"))

    33

    return function_real_to_lint;

    34

    35

if (!strcasecmp(function_name->value, "REAL_TO_DINT"))

    36

    return function_real_to_dint;

    37

    38

if (!strcasecmp(function_name->value, "REAL_TO_DATE"))

    39

    return function_real_to_date;

    40

    41

if (!strcasecmp(function_name->value, "REAL_TO_DWORD"))

    42

    return function_real_to_dword;

    43

    44

if (!strcasecmp(function_name->value, "REAL_TO_DT"))

    45

    return function_real_to_dt;

    46

    47

if (!strcasecmp(function_name->value, "REAL_TO_TOD"))

    48

    return function_real_to_tod;

    49

    50

if (!strcasecmp(function_name->value, "REAL_TO_UDINT"))

    51

    return function_real_to_udint;

    52

    53

if (!strcasecmp(function_name->value, "REAL_TO_WORD"))

    54

    return function_real_to_word;

    55

    56

if (!strcasecmp(function_name->value, "REAL_TO_STRING"))

    57

    return function_real_to_string;

    58

    59

if (!strcasecmp(function_name->value, "REAL_TO_LWORD"))

    60

    return function_real_to_lword;

    61

    62

if (!strcasecmp(function_name->value, "REAL_TO_UINT"))

    63

    return function_real_to_uint;

    64

    65

if (!strcasecmp(function_name->value, "REAL_TO_LREAL"))

    66

    return function_real_to_lreal;

    67

    68

if (!strcasecmp(function_name->value, "REAL_TO_BYTE"))

    69

    return function_real_to_byte;

    70

    71

if (!strcasecmp(function_name->value, "REAL_TO_USINT"))

    72

    return function_real_to_usint;

    73

    74

if (!strcasecmp(function_name->value, "REAL_TO_ULINT"))

    75

    return function_real_to_ulint;

    76

    77

if (!strcasecmp(function_name->value, "REAL_TO_BOOL"))

    78

    return function_real_to_bool;

    79

    80

if (!strcasecmp(function_name->value, "REAL_TO_TIME"))

    81

    return function_real_to_time;

    82

    83

if (!strcasecmp(function_name->value, "REAL_TO_INT"))

    84

    return function_real_to_int;

    85

    86

if (!strcasecmp(function_name->value, "SINT_TO_REAL"))

    87

    return function_sint_to_real;

    88

    89

if (!strcasecmp(function_name->value, "SINT_TO_LINT"))

    90

    return function_sint_to_lint;

    91

    92

if (!strcasecmp(function_name->value, "SINT_TO_DINT"))

    93

    return function_sint_to_dint;

    94

    95

if (!strcasecmp(function_name->value, "SINT_TO_DATE"))

    96

    return function_sint_to_date;

    97

    98

if (!strcasecmp(function_name->value, "SINT_TO_DWORD"))

    99

    return function_sint_to_dword;

   100

   101

if (!strcasecmp(function_name->value, "SINT_TO_DT"))

   102

    return function_sint_to_dt;

   103

   104

if (!strcasecmp(function_name->value, "SINT_TO_TOD"))

   105

    return function_sint_to_tod;

   106

   107

if (!strcasecmp(function_name->value, "SINT_TO_UDINT"))

   108

    return function_sint_to_udint;

   109

   110

if (!strcasecmp(function_name->value, "SINT_TO_WORD"))

   111

    return function_sint_to_word;

   112

   113

if (!strcasecmp(function_name->value, "SINT_TO_STRING"))

   114

    return function_sint_to_string;

   115

   116

if (!strcasecmp(function_name->value, "SINT_TO_LWORD"))

   117

    return function_sint_to_lword;

   118

   119

if (!strcasecmp(function_name->value, "SINT_TO_UINT"))

   120

    return function_sint_to_uint;

   121

   122

if (!strcasecmp(function_name->value, "SINT_TO_LREAL"))

   123

    return function_sint_to_lreal;

   124

   125

if (!strcasecmp(function_name->value, "SINT_TO_BYTE"))

   126

    return function_sint_to_byte;

   127

   128

if (!strcasecmp(function_name->value, "SINT_TO_USINT"))

   129

    return function_sint_to_usint;

   130

   131

if (!strcasecmp(function_name->value, "SINT_TO_ULINT"))

   132

    return function_sint_to_ulint;

   133

   134

if (!strcasecmp(function_name->value, "SINT_TO_BOOL"))

   135

    return function_sint_to_bool;

   136

   137

if (!strcasecmp(function_name->value, "SINT_TO_TIME"))

   138

    return function_sint_to_time;

   139

   140

if (!strcasecmp(function_name->value, "SINT_TO_INT"))

   141

    return function_sint_to_int;

   142

   143

if (!strcasecmp(function_name->value, "LINT_TO_REAL"))

   144

    return function_lint_to_real;

   145

   146

if (!strcasecmp(function_name->value, "LINT_TO_SINT"))

   147

    return function_lint_to_sint;

   148

   149

if (!strcasecmp(function_name->value, "LINT_TO_DINT"))

   150

    return function_lint_to_dint;

   151

   152

if (!strcasecmp(function_name->value, "LINT_TO_DATE"))

   153

    return function_lint_to_date;

   154

   155

if (!strcasecmp(function_name->value, "LINT_TO_DWORD"))

   156

    return function_lint_to_dword;

   157

   158

if (!strcasecmp(function_name->value, "LINT_TO_DT"))

   159

    return function_lint_to_dt;

   160

   161

if (!strcasecmp(function_name->value, "LINT_TO_TOD"))

   162

    return function_lint_to_tod;

   163

   164

if (!strcasecmp(function_name->value, "LINT_TO_UDINT"))

   165

    return function_lint_to_udint;

   166

   167

if (!strcasecmp(function_name->value, "LINT_TO_WORD"))

   168

    return function_lint_to_word;

   169

   170

if (!strcasecmp(function_name->value, "LINT_TO_STRING"))

   171

    return function_lint_to_string;

   172

   173

if (!strcasecmp(function_name->value, "LINT_TO_LWORD"))

   174

    return function_lint_to_lword;

   175

   176

if (!strcasecmp(function_name->value, "LINT_TO_UINT"))

   177

    return function_lint_to_uint;

   178

   179

if (!strcasecmp(function_name->value, "LINT_TO_LREAL"))

   180

    return function_lint_to_lreal;

   181

   182

if (!strcasecmp(function_name->value, "LINT_TO_BYTE"))

   183

    return function_lint_to_byte;

   184

   185

if (!strcasecmp(function_name->value, "LINT_TO_USINT"))

   186

    return function_lint_to_usint;

   187

   188

if (!strcasecmp(function_name->value, "LINT_TO_ULINT"))

   189

    return function_lint_to_ulint;

   190

   191

if (!strcasecmp(function_name->value, "LINT_TO_BOOL"))

   192

    return function_lint_to_bool;

   193

   194

if (!strcasecmp(function_name->value, "LINT_TO_TIME"))

   195

    return function_lint_to_time;

   196

   197

if (!strcasecmp(function_name->value, "LINT_TO_INT"))

   198

    return function_lint_to_int;

   199

   200

if (!strcasecmp(function_name->value, "DINT_TO_REAL"))

   201

    return function_dint_to_real;

   202

   203

if (!strcasecmp(function_name->value, "DINT_TO_SINT"))

   204

    return function_dint_to_sint;

   205

   206

if (!strcasecmp(function_name->value, "DINT_TO_LINT"))

   207

    return function_dint_to_lint;

   208

   209

if (!strcasecmp(function_name->value, "DINT_TO_DATE"))

   210

    return function_dint_to_date;

   211

   212

if (!strcasecmp(function_name->value, "DINT_TO_DWORD"))

   213

    return function_dint_to_dword;

   214

   215

if (!strcasecmp(function_name->value, "DINT_TO_DT"))

   216

    return function_dint_to_dt;

   217

   218

if (!strcasecmp(function_name->value, "DINT_TO_TOD"))

   219

    return function_dint_to_tod;

   220

   221

if (!strcasecmp(function_name->value, "DINT_TO_UDINT"))

   222

    return function_dint_to_udint;

   223

   224

if (!strcasecmp(function_name->value, "DINT_TO_WORD"))

   225

    return function_dint_to_word;

   226

   227

if (!strcasecmp(function_name->value, "DINT_TO_STRING"))

   228

    return function_dint_to_string;

   229

   230

if (!strcasecmp(function_name->value, "DINT_TO_LWORD"))

   231

    return function_dint_to_lword;

   232

   233

if (!strcasecmp(function_name->value, "DINT_TO_UINT"))

   234

    return function_dint_to_uint;

   235

   236

if (!strcasecmp(function_name->value, "DINT_TO_LREAL"))

   237

    return function_dint_to_lreal;

   238

   239

if (!strcasecmp(function_name->value, "DINT_TO_BYTE"))

   240

    return function_dint_to_byte;

   241

   242

if (!strcasecmp(function_name->value, "DINT_TO_USINT"))

   243

    return function_dint_to_usint;

   244

   245

if (!strcasecmp(function_name->value, "DINT_TO_ULINT"))

   246

    return function_dint_to_ulint;

   247

   248

if (!strcasecmp(function_name->value, "DINT_TO_BOOL"))

   249

    return function_dint_to_bool;

   250

   251

if (!strcasecmp(function_name->value, "DINT_TO_TIME"))

   252

    return function_dint_to_time;

   253

   254

if (!strcasecmp(function_name->value, "DINT_TO_INT"))

   255

    return function_dint_to_int;

   256

   257

if (!strcasecmp(function_name->value, "DATE_TO_REAL"))

   258

    return function_date_to_real;

   259

   260

if (!strcasecmp(function_name->value, "DATE_TO_SINT"))

   261

    return function_date_to_sint;

   262

   263

if (!strcasecmp(function_name->value, "DATE_TO_LINT"))

   264

    return function_date_to_lint;

   265

   266

if (!strcasecmp(function_name->value, "DATE_TO_DINT"))

   267

    return function_date_to_dint;

   268

   269

if (!strcasecmp(function_name->value, "DATE_TO_DWORD"))

   270

    return function_date_to_dword;

   271

   272

if (!strcasecmp(function_name->value, "DATE_TO_UDINT"))

   273

    return function_date_to_udint;

   274

   275

if (!strcasecmp(function_name->value, "DATE_TO_WORD"))

   276

    return function_date_to_word;

   277

   278

if (!strcasecmp(function_name->value, "DATE_TO_STRING"))

   279

    return function_date_to_string;

   280

   281

if (!strcasecmp(function_name->value, "DATE_TO_LWORD"))

   282

    return function_date_to_lword;

   283

   284

if (!strcasecmp(function_name->value, "DATE_TO_UINT"))

   285

    return function_date_to_uint;

   286

   287

if (!strcasecmp(function_name->value, "DATE_TO_LREAL"))

   288

    return function_date_to_lreal;

   289

   290

if (!strcasecmp(function_name->value, "DATE_TO_BYTE"))

   291

    return function_date_to_byte;

   292

   293

if (!strcasecmp(function_name->value, "DATE_TO_USINT"))

   294

    return function_date_to_usint;

   295

   296

if (!strcasecmp(function_name->value, "DATE_TO_ULINT"))

   297

    return function_date_to_ulint;

   298

   299

if (!strcasecmp(function_name->value, "DATE_TO_INT"))

   300

    return function_date_to_int;

   301

   302

if (!strcasecmp(function_name->value, "DWORD_TO_REAL"))

   303

    return function_dword_to_real;

   304

   305

if (!strcasecmp(function_name->value, "DWORD_TO_SINT"))

   306

    return function_dword_to_sint;

   307

   308

if (!strcasecmp(function_name->value, "DWORD_TO_LINT"))

   309

    return function_dword_to_lint;

   310

   311

if (!strcasecmp(function_name->value, "DWORD_TO_DINT"))

   312

    return function_dword_to_dint;

   313

   314

if (!strcasecmp(function_name->value, "DWORD_TO_DATE"))

   315

    return function_dword_to_date;

   316

   317

if (!strcasecmp(function_name->value, "DWORD_TO_DT"))

   318

    return function_dword_to_dt;

   319

   320

if (!strcasecmp(function_name->value, "DWORD_TO_TOD"))

   321

    return function_dword_to_tod;

   322

   323

if (!strcasecmp(function_name->value, "DWORD_TO_UDINT"))

   324

    return function_dword_to_udint;

   325

   326

if (!strcasecmp(function_name->value, "DWORD_TO_WORD"))

   327

    return function_dword_to_word;

   328

   329

if (!strcasecmp(function_name->value, "DWORD_TO_STRING"))

   330

    return function_dword_to_string;

   331

   332

if (!strcasecmp(function_name->value, "DWORD_TO_LWORD"))

   333

    return function_dword_to_lword;

   334

   335

if (!strcasecmp(function_name->value, "DWORD_TO_UINT"))

   336

    return function_dword_to_uint;

   337

   338

if (!strcasecmp(function_name->value, "DWORD_TO_LREAL"))

   339

    return function_dword_to_lreal;

   340

   341

if (!strcasecmp(function_name->value, "DWORD_TO_BYTE"))

   342

    return function_dword_to_byte;

   343

   344

if (!strcasecmp(function_name->value, "DWORD_TO_USINT"))

   345

    return function_dword_to_usint;

   346

   347

if (!strcasecmp(function_name->value, "DWORD_TO_ULINT"))

   348

    return function_dword_to_ulint;

   349

   350

if (!strcasecmp(function_name->value, "DWORD_TO_BOOL"))

   351

    return function_dword_to_bool;

   352

   353

if (!strcasecmp(function_name->value, "DWORD_TO_TIME"))

   354

    return function_dword_to_time;

   355

   356

if (!strcasecmp(function_name->value, "DWORD_TO_INT"))

   357

    return function_dword_to_int;

   358

   359

if (!strcasecmp(function_name->value, "DT_TO_REAL"))

   360

    return function_dt_to_real;

   361

   362

if (!strcasecmp(function_name->value, "DT_TO_SINT"))

   363

    return function_dt_to_sint;

   364

   365

if (!strcasecmp(function_name->value, "DT_TO_LINT"))

   366

    return function_dt_to_lint;

   367

   368

if (!strcasecmp(function_name->value, "DT_TO_DINT"))

   369

    return function_dt_to_dint;

   370

   371

if (!strcasecmp(function_name->value, "DT_TO_DWORD"))

   372

    return function_dt_to_dword;

   373

   374

if (!strcasecmp(function_name->value, "DT_TO_UDINT"))

   375

    return function_dt_to_udint;

   376

   377

if (!strcasecmp(function_name->value, "DT_TO_WORD"))

   378

    return function_dt_to_word;

   379

   380

if (!strcasecmp(function_name->value, "DT_TO_STRING"))

   381

    return function_dt_to_string;

   382

   383

if (!strcasecmp(function_name->value, "DT_TO_LWORD"))

   384

    return function_dt_to_lword;

   385

   386

if (!strcasecmp(function_name->value, "DT_TO_UINT"))

   387

    return function_dt_to_uint;

   388

   389

if (!strcasecmp(function_name->value, "DT_TO_LREAL"))

   390

    return function_dt_to_lreal;

   391

   392

if (!strcasecmp(function_name->value, "DT_TO_BYTE"))

   393

    return function_dt_to_byte;

   394

   395

if (!strcasecmp(function_name->value, "DT_TO_USINT"))

   396

    return function_dt_to_usint;

   397

   398

if (!strcasecmp(function_name->value, "DT_TO_ULINT"))

   399

    return function_dt_to_ulint;

   400

   401

if (!strcasecmp(function_name->value, "DT_TO_INT"))

   402

    return function_dt_to_int;

   403

   404

if (!strcasecmp(function_name->value, "TOD_TO_REAL"))

   405

    return function_tod_to_real;

   406

   407

if (!strcasecmp(function_name->value, "TOD_TO_SINT"))

   408

    return function_tod_to_sint;

   409

   410

if (!strcasecmp(function_name->value, "TOD_TO_LINT"))

   411

    return function_tod_to_lint;

   412

   413

if (!strcasecmp(function_name->value, "TOD_TO_DINT"))

   414

    return function_tod_to_dint;

   415

   416

if (!strcasecmp(function_name->value, "TOD_TO_DWORD"))

   417

    return function_tod_to_dword;

   418

   419

if (!strcasecmp(function_name->value, "TOD_TO_UDINT"))

   420

    return function_tod_to_udint;

   421

   422

if (!strcasecmp(function_name->value, "TOD_TO_WORD"))

   423

    return function_tod_to_word;

   424

   425

if (!strcasecmp(function_name->value, "TOD_TO_STRING"))

   426

    return function_tod_to_string;

   427

   428

if (!strcasecmp(function_name->value, "TOD_TO_LWORD"))

   429

    return function_tod_to_lword;

   430

   431

if (!strcasecmp(function_name->value, "TOD_TO_UINT"))

   432

    return function_tod_to_uint;

   433

   434

if (!strcasecmp(function_name->value, "TOD_TO_LREAL"))

   435

    return function_tod_to_lreal;

   436

   437

if (!strcasecmp(function_name->value, "TOD_TO_BYTE"))

   438

    return function_tod_to_byte;

   439

   440

if (!strcasecmp(function_name->value, "TOD_TO_USINT"))

   441

    return function_tod_to_usint;

   442

   443

if (!strcasecmp(function_name->value, "TOD_TO_ULINT"))

   444

    return function_tod_to_ulint;

   445

   446

if (!strcasecmp(function_name->value, "TOD_TO_INT"))

   447

    return function_tod_to_int;

   448

   449

if (!strcasecmp(function_name->value, "UDINT_TO_REAL"))

   450

    return function_udint_to_real;

   451

   452

if (!strcasecmp(function_name->value, "UDINT_TO_SINT"))

   453

    return function_udint_to_sint;

   454

   455

if (!strcasecmp(function_name->value, "UDINT_TO_LINT"))

   456

    return function_udint_to_lint;

   457

   458

if (!strcasecmp(function_name->value, "UDINT_TO_DINT"))

   459

    return function_udint_to_dint;

   460

   461

if (!strcasecmp(function_name->value, "UDINT_TO_DATE"))

   462

    return function_udint_to_date;

   463

   464

if (!strcasecmp(function_name->value, "UDINT_TO_DWORD"))

   465

    return function_udint_to_dword;

   466

   467

if (!strcasecmp(function_name->value, "UDINT_TO_DT"))

   468

    return function_udint_to_dt;

   469

   470

if (!strcasecmp(function_name->value, "UDINT_TO_TOD"))

   471

    return function_udint_to_tod;

   472

   473

if (!strcasecmp(function_name->value, "UDINT_TO_WORD"))

   474

    return function_udint_to_word;

   475

   476

if (!strcasecmp(function_name->value, "UDINT_TO_STRING"))

   477

    return function_udint_to_string;

   478

   479

if (!strcasecmp(function_name->value, "UDINT_TO_LWORD"))

   480

    return function_udint_to_lword;

   481

   482

if (!strcasecmp(function_name->value, "UDINT_TO_UINT"))

   483

    return function_udint_to_uint;

   484

   485

if (!strcasecmp(function_name->value, "UDINT_TO_LREAL"))

   486

    return function_udint_to_lreal;

   487

   488

if (!strcasecmp(function_name->value, "UDINT_TO_BYTE"))

   489

    return function_udint_to_byte;

   490

   491

if (!strcasecmp(function_name->value, "UDINT_TO_USINT"))

   492

    return function_udint_to_usint;

   493

   494

if (!strcasecmp(function_name->value, "UDINT_TO_ULINT"))

   495

    return function_udint_to_ulint;

   496

   497

if (!strcasecmp(function_name->value, "UDINT_TO_BOOL"))

   498

    return function_udint_to_bool;

   499

   500

if (!strcasecmp(function_name->value, "UDINT_TO_TIME"))

   501

    return function_udint_to_time;

   502

   503

if (!strcasecmp(function_name->value, "UDINT_TO_INT"))

   504

    return function_udint_to_int;

   505

   506

if (!strcasecmp(function_name->value, "WORD_TO_REAL"))

   507

    return function_word_to_real;

   508

   509

if (!strcasecmp(function_name->value, "WORD_TO_SINT"))

   510

    return function_word_to_sint;

   511

   512

if (!strcasecmp(function_name->value, "WORD_TO_LINT"))

   513

    return function_word_to_lint;

   514

   515

if (!strcasecmp(function_name->value, "WORD_TO_DINT"))

   516

    return function_word_to_dint;

   517

   518

if (!strcasecmp(function_name->value, "WORD_TO_DATE"))

   519

    return function_word_to_date;

   520

   521

if (!strcasecmp(function_name->value, "WORD_TO_DWORD"))

   522

    return function_word_to_dword;

   523

   524

if (!strcasecmp(function_name->value, "WORD_TO_DT"))

   525

    return function_word_to_dt;

   526

   527

if (!strcasecmp(function_name->value, "WORD_TO_TOD"))

   528

    return function_word_to_tod;