1

/*

     2

 * (c) 2008 Edouard TISSERANT

     3

 *

     4

 * Offered to the public under the terms of the GNU General Public License

     5

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

     6

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

     7

 *

     8

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

     9

 * WITHOUT ANY WARRANTY; without even the implied warranty of

    10

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

    11

 * Public License for more details.

    12

 *

    13

 * This code is made available on the understanding that it will not be

    14

 * used in safety-critical situations without a full and competent review.

    15

 */

    16

    17

/*

    18

 * An IEC 61131-3 IL and ST compiler.

    19

 *

    20

 * Based on the

    21

 * FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)

    22

 *

    23

 */

    24

    25

/****

    26

 * IEC 61131-3 standard function library

    27

 * generated code, do not edit by hand

    28

 */

    29

    30

    31

function_type_t get_function_type(identifier_c *function_name) {

    32

    33

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

    34

    return function_real_to_sint;

    35

    36

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

    37

    return function_real_to_lint;

    38

    39

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

    40

    return function_real_to_dint;

    41

    42

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

    43

    return function_real_to_date;

    44

    45

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

    46

    return function_real_to_dword;

    47

    48

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

    49

    return function_real_to_dt;

    50

    51

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

    52

    return function_real_to_tod;

    53

    54

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

    55

    return function_real_to_udint;

    56

    57

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

    58

    return function_real_to_word;

    59

    60

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

    61

    return function_real_to_string;

    62

    63

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

    64

    return function_real_to_lword;

    65

    66

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

    67

    return function_real_to_uint;

    68

    69

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

    70

    return function_real_to_lreal;

    71

    72

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

    73

    return function_real_to_byte;

    74

    75

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

    76

    return function_real_to_usint;

    77

    78

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

    79

    return function_real_to_ulint;

    80

    81

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

    82

    return function_real_to_bool;

    83

    84

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

    85

    return function_real_to_time;

    86

    87

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

    88

    return function_real_to_int;

    89

    90

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

    91

    return function_sint_to_real;

    92

    93

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

    94

    return function_sint_to_lint;

    95

    96

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

    97

    return function_sint_to_dint;

    98

    99

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

   100

    return function_sint_to_date;

   101

   102

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

   103

    return function_sint_to_dword;

   104

   105

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

   106

    return function_sint_to_dt;

   107

   108

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

   109

    return function_sint_to_tod;

   110

   111

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

   112

    return function_sint_to_udint;

   113

   114

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

   115

    return function_sint_to_word;

   116

   117

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

   118

    return function_sint_to_string;

   119

   120

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

   121

    return function_sint_to_lword;

   122

   123

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

   124

    return function_sint_to_uint;

   125

   126

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

   127

    return function_sint_to_lreal;

   128

   129

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

   130

    return function_sint_to_byte;

   131

   132

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

   133

    return function_sint_to_usint;

   134

   135

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

   136

    return function_sint_to_ulint;

   137

   138

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

   139

    return function_sint_to_bool;

   140

   141

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

   142

    return function_sint_to_time;

   143

   144

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

   145

    return function_sint_to_int;

   146

   147

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

   148

    return function_lint_to_real;

   149

   150

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

   151

    return function_lint_to_sint;

   152

   153

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

   154

    return function_lint_to_dint;

   155

   156

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

   157

    return function_lint_to_date;

   158

   159

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

   160

    return function_lint_to_dword;

   161

   162

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

   163

    return function_lint_to_dt;

   164

   165

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

   166

    return function_lint_to_tod;

   167

   168

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

   169

    return function_lint_to_udint;

   170

   171

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

   172

    return function_lint_to_word;

   173

   174

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

   175

    return function_lint_to_string;

   176

   177

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

   178

    return function_lint_to_lword;

   179

   180

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

   181

    return function_lint_to_uint;

   182

   183

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

   184

    return function_lint_to_lreal;

   185

   186

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

   187

    return function_lint_to_byte;

   188

   189

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

   190

    return function_lint_to_usint;

   191

   192

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

   193

    return function_lint_to_ulint;

   194

   195

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

   196

    return function_lint_to_bool;

   197

   198

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

   199

    return function_lint_to_time;

   200

   201

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

   202

    return function_lint_to_int;

   203

   204

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

   205

    return function_dint_to_real;

   206

   207

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

   208

    return function_dint_to_sint;

   209

   210

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

   211

    return function_dint_to_lint;

   212

   213

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

   214

    return function_dint_to_date;

   215

   216

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

   217

    return function_dint_to_dword;

   218

   219

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

   220

    return function_dint_to_dt;

   221

   222

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

   223

    return function_dint_to_tod;

   224

   225

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

   226

    return function_dint_to_udint;

   227

   228

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

   229

    return function_dint_to_word;

   230

   231

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

   232

    return function_dint_to_string;

   233

   234

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

   235

    return function_dint_to_lword;

   236

   237

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

   238

    return function_dint_to_uint;

   239

   240

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

   241

    return function_dint_to_lreal;

   242

   243

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

   244

    return function_dint_to_byte;

   245

   246

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

   247

    return function_dint_to_usint;

   248

   249

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

   250

    return function_dint_to_ulint;

   251

   252

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

   253

    return function_dint_to_bool;

   254

   255

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

   256

    return function_dint_to_time;

   257

   258

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

   259

    return function_dint_to_int;

   260

   261

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

   262

    return function_date_to_real;

   263

   264

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

   265

    return function_date_to_sint;

   266

   267

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

   268

    return function_date_to_lint;

   269

   270

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

   271

    return function_date_to_dint;

   272

   273

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

   274

    return function_date_to_dword;

   275

   276

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

   277

    return function_date_to_udint;

   278

   279

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

   280

    return function_date_to_word;

   281

   282

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

   283

    return function_date_to_string;

   284

   285

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

   286

    return function_date_to_lword;

   287

   288

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

   289

    return function_date_to_uint;

   290

   291

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

   292

    return function_date_to_lreal;

   293

   294

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

   295

    return function_date_to_byte;

   296

   297

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

   298

    return function_date_to_usint;

   299

   300

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

   301

    return function_date_to_ulint;

   302

   303

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

   304

    return function_date_to_int;

   305

   306

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

   307

    return function_dword_to_real;

   308

   309

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

   310

    return function_dword_to_sint;

   311

   312

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

   313

    return function_dword_to_lint;

   314

   315

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

   316

    return function_dword_to_dint;

   317

   318

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

   319

    return function_dword_to_date;

   320

   321

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

   322

    return function_dword_to_dt;

   323

   324

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

   325

    return function_dword_to_tod;

   326

   327

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

   328

    return function_dword_to_udint;

   329

   330

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

   331

    return function_dword_to_word;

   332

   333

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

   334

    return function_dword_to_string;

   335

   336

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

   337

    return function_dword_to_lword;

   338

   339

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

   340

    return function_dword_to_uint;

   341

   342

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

   343

    return function_dword_to_lreal;

   344

   345

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

   346

    return function_dword_to_byte;

   347

   348

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

   349

    return function_dword_to_usint;

   350

   351

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

   352

    return function_dword_to_ulint;

   353

   354

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

   355

    return function_dword_to_bool;

   356

   357

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

   358

    return function_dword_to_time;

   359

   360

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

   361

    return function_dword_to_int;

   362

   363

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

   364

    return function_dt_to_real;

   365

   366

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

   367

    return function_dt_to_sint;

   368

   369

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

   370

    return function_dt_to_lint;

   371

   372

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

   373

    return function_dt_to_dint;

   374

   375

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

   376

    return function_dt_to_dword;

   377

   378

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

   379

    return function_dt_to_udint;

   380

   381

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

   382

    return function_dt_to_word;

   383

   384

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

   385

    return function_dt_to_string;

   386

   387

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

   388

    return function_dt_to_lword;

   389

   390

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

   391

    return function_dt_to_uint;

   392

   393

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

   394

    return function_dt_to_lreal;

   395

   396

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

   397

    return function_dt_to_byte;

   398

   399

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

   400

    return function_dt_to_usint;

   401

   402

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

   403

    return function_dt_to_ulint;

   404

   405

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

   406

    return function_dt_to_int;

   407

   408

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

   409

    return function_tod_to_real;

   410

   411

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

   412

    return function_tod_to_sint;

   413

   414

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

   415

    return function_tod_to_lint;

   416

   417

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

   418

    return function_tod_to_dint;

   419

   420

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

   421

    return function_tod_to_dword;

   422

   423

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

   424

    return function_tod_to_udint;

   425

   426

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

   427

    return function_tod_to_word;

   428

   429

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

   430

    return function_tod_to_string;

   431

   432

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

   433

    return function_tod_to_lword;

   434

   435

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

   436

    return function_tod_to_uint;

   437

   438

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

   439

    return function_tod_to_lreal;

   440

   441

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

   442

    return function_tod_to_byte;

   443

   444

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

   445

    return function_tod_to_usint;

   446

   447

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

   448

    return function_tod_to_ulint;

   449

   450

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

   451

    return function_tod_to_int;

   452

   453

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

   454

    return function_udint_to_real;

   455

   456

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

   457

    return function_udint_to_sint;

   458

   459

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

   460

    return function_udint_to_lint;

   461

   462

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

   463

    return function_udint_to_dint;

   464

   465

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

   466

    return function_udint_to_date;

   467

   468

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

   469

    return function_udint_to_dword;

   470

   471

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

   472

    return function_udint_to_dt;

   473

   474

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

   475

    return function_udint_to_tod;

   476

   477

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

   478

    return function_udint_to_word;

   479

   480

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

   481

    return function_udint_to_string;

   482

   483

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

   484

    return function_udint_to_lword;

   485

   486

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

   487

    return function_udint_to_uint;

   488

   489

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

   490

    return function_udint_to_lreal;

   491

   492

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

   493

    return function_udint_to_byte;

   494

   495

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

   496

    return function_udint_to_usint;

   497

   498

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

   499

    return function_udint_to_ulint;

   500

   501

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

   502

    return function_udint_to_bool;

   503

   504

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

   505

    return function_udint_to_time;

   506

   507

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

   508

    return function_udint_to_int;

   509

   510

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

   511

    return function_word_to_real;

   512

   513

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

   514

    return function_word_to_sint;

   515

   516

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

   517

    return function_word_to_lint;

   518

   519

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

   520

    return function_word_to_dint;

   521

   522

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

   523

    return function_word_to_date;

   524

   525

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

   526

    return function_word_to_dword;

   527

   528

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

   529

    return function_word_to_dt;

   530