1

/*

     2

 * (c) 2003 Mario de Sousa

     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

/*

    27

 * Conversion of type declaration constructs.

    28

 *

    29

 * This is part of the 4th stage that generates

    30

 * a c++ source program equivalent to the IL and ST

    31

 * code.

    32

 */

    33

    34

    35

    36

    37

    38

    39

//#include <stdio.h>  /* required for NULL */

    40

//#include <string>

    41

//#include <iostream>

    42

    43

//#include "../../util/symtable.hh"

    44

    45

    47

    48

    49

class generate_c_typedecl_c: public generate_c_base_c {

    50

    51

  protected:

    52

    stage4out_c &s4o_incl;

    53

    54

  private:

    55

    symbol_c* current_type_name;

    56

    search_base_type_c search_base_type;

    57

    58

    generate_c_base_c *basedecl;

    59

    60

  public:

    61

    generate_c_typedecl_c(stage4out_c *s4o_ptr, stage4out_c *s4o_incl_ptr): generate_c_base_c(s4o_ptr), s4o_incl(*s4o_incl_ptr) {

    62

      current_typedefinition = none_td;

    63

      current_basetypedeclaration = none_bd;

    64

      basedecl = new generate_c_base_c(&s4o_incl);

    65

    }

    66

    generate_c_typedecl_c(stage4out_c *s4o_ptr): generate_c_base_c(s4o_ptr), s4o_incl(*s4o_ptr) {

    67

      current_typedefinition = none_td;

    68

      current_basetypedeclaration = none_bd;

    69

      basedecl = new generate_c_base_c(&s4o_incl);

    70

    }

    71

    ~generate_c_typedecl_c(void) {

    72

      delete basedecl;

    73

    }

    74

    75

    typedef enum {

    76

      none_td,

    77

      subrange_td,

    78

      array_td

    79

    } typedefinition_t;

    80

    81

    typedefinition_t current_typedefinition;

    82

    83

    typedef enum {

    84

      none_bd,

    85

      subrangebasetype_bd,

    86

      subrangetest_bd,

    87

      arraybasetype_bd,

    88

      arraybasetypeincl_bd,

    89

      arraysubrange_bd,

    90

      arraytranslateindex_bd

    91

    } basetypedeclaration_t;

    92

    93

    basetypedeclaration_t current_basetypedeclaration;

    94

    95

    int extract_integer(symbol_c *integer) {

    96

      return atoi(((integer_c *)integer)->value);

    97

    }

    98

    99

    void print_integer(unsigned int integer) {

   100

      char str[10];

   101

      sprintf(str, "%d", integer);

   102

      s4o.print(str);

   103

    }

   104

   105

    void print_integer_incl(unsigned int integer) {

   106

      char str[10];

   107

      sprintf(str, "%d", integer);

   108

      s4o_incl.print(str);

   109

    }

   110

   111

    void *print_list_incl(list_c *list,

   112

         std::string pre_elem_str = "",

   113

         std::string inter_elem_str = "",

   114

         std::string post_elem_str = "",

   115

         visitor_c *visitor = NULL) {

   116

      if (visitor == NULL) visitor = this;

   117

   118

      if (list->n > 0) {

   119

//std::cout << "generate_c_base_c::print_list(n = " << list->n << ")   000\n";

   120

        s4o_incl.print(pre_elem_str);

   121

        list->elements[0]->accept(*visitor);

   122

      }

   123

   124

      for(int i = 1; i < list->n; i++) {

   125

//std::cout << "generate_c_base_c::print_list   " << i << "\n";

   126

        s4o_incl.print(inter_elem_str);

   127

        list->elements[i]->accept(*visitor);

   128

      }

   129

   130

      if (list->n > 0)

   131

        s4o_incl.print(post_elem_str);

   132

   133

      return NULL;

   134

    }

   135

   136

   137

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

   138

/* B 0 - Programming Model */

   139

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

   140

  /* leave for derived classes... */

   141

   142

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

   143

/* B.1 - Common elements */

   144

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

   145

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

   146

/* B 1.1 - Letters, digits and identifiers */

   147

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

   148

  /* done in base class(es) */

   149

   150

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

   151

/* B 1.2 - Constants */

   152

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

   153

  /* originally empty... */

   154

   155

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

   156

/* B 1.2.1 - Numeric Literals */

   157

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

   158

  /* done in base class(es) */

   159

   160

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

   161

/* B.1.2.2   Character Strings */

   162

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

   163

  /* done in base class(es) */

   164

   165

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

   166

/* B 1.2.3 - Time Literals */

   167

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

   168

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

   169

/* B 1.2.3.1 - Duration */

   170

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

   171

  /* done in base class(es) */

   172

   173

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

   174

/* B 1.2.3.2 - Time of day and Date */

   175

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

   176

  /* done in base class(es) */

   177

   178

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

   179

/* B.1.3 - Data types */

   180

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

   181

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

   182

/* B 1.3.1 - Elementary Data Types */

   183

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

   184

  /* done in base class(es) */

   185

   186

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

   187

/* B.1.3.2 - Generic data types */

   188

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

   189

  /* originally empty... */

   190

   191

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

   192

/* B 1.3.3 - Derived data types */

   193

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

   194

/*  subrange_type_name ':' subrange_spec_init */

   195

void *visit(subrange_type_declaration_c *symbol) {

   196

  TRACE("subrange_type_declaration_c");  

   197

  /* add this type declaration to the type symbol table... */

   198

  type_symtable.insert(symbol->subrange_type_name, symbol->subrange_spec_init);

   199

   200

  s4o_incl.print("typedef ");

   201

  current_basetypedeclaration = subrangebasetype_bd;

   202

  symbol->subrange_spec_init->accept(*this);

   203

  current_basetypedeclaration = none_bd;

   204

  s4o_incl.print(" ");

   205

  symbol->subrange_type_name->accept(*basedecl);

   206

  s4o_incl.print(";\n\n");

   207

   208

  current_type_name = symbol->subrange_type_name;

   209

   210

  current_basetypedeclaration = subrangetest_bd;

   211

  symbol->subrange_spec_init->accept(*this);

   212

  current_basetypedeclaration = none_bd;

   213

   214

  return NULL;

   215

}

   216

   217

/* subrange_specification ASSIGN signed_integer */

   218

void *visit(subrange_spec_init_c *symbol) {

   219

  TRACE("subrange_spec_init_c");

   220

  current_typedefinition = subrange_td;

   221

  symbol->subrange_specification->accept(*this);

   222

  current_typedefinition = none_td;

   223

  return NULL;

   224

}

   225

   226

/*  integer_type_name '(' subrange')' */

   227

void *visit(subrange_specification_c *symbol) {

   228

  switch (current_basetypedeclaration) {

   229

    case subrangebasetype_bd:

   230

      symbol->integer_type_name->accept(*basedecl);

   231

      break;

   232

    case subrangetest_bd:

   233

      if (symbol->subrange != NULL) {

   234

        current_type_name->accept(*this);

   235

        s4o.print(" __CHECK_");

   236

        current_type_name->accept(*this);

   237

        s4o.print("(");

   238

        current_type_name->accept(*this);

   239

        s4o.print(" value) {\n");

   240

        s4o.indent_right();

   241

   242

        if (search_base_type.type_is_subrange(symbol->integer_type_name)) {

   243

          s4o.print(s4o.indent_spaces + "value = __CHECK_");

   244

          symbol->integer_type_name->accept(*this);

   245

          s4o.print("(value);\n");

   246

        }

   247

   248

        symbol->subrange->accept(*this);

   249

   250

        s4o.indent_left();

   251

        s4o.print("}\n");

   252

      }

   253

      else {

   254

        s4o.print("#define __CHECK_");

   255

        current_type_name->accept(*this);

   256

        s4o.print(" __CHECK_");

   257

        symbol->integer_type_name->accept(*this);

   258

        s4o.print("\n");

   259

      } 

   260

      break;

   261

    default:

   262

      break;

   263

  }

   264

  return NULL;

   265

}

   266

   267

/*  signed_integer DOTDOT signed_integer */

   268

void *visit(subrange_c *symbol) {

   269

  int dimension;

   270

  switch (current_typedefinition) {

   271

    case array_td:

   272

      if (current_basetypedeclaration == arraysubrange_bd) {

   273

        s4o_incl.print("[");

   274

        dimension = extract_integer(symbol->upper_limit) - extract_integer(symbol->lower_limit) + 1;

   275

        print_integer_incl(dimension);

   276

        s4o_incl.print("]");

   277

      }

   278

      else

   279

        symbol->lower_limit->accept(*this);

   280

      break;

   281

    case subrange_td:

   282

      s4o.print(s4o.indent_spaces + "if (value < ");

   283

      symbol->lower_limit->accept(*this);

   284

      s4o.print(")\n");

   285

      s4o.indent_right();

   286

      s4o.print(s4o.indent_spaces + "return ");

   287

      symbol->lower_limit->accept(*this);

   288

      s4o.print(";\n");

   289

      s4o.indent_left();

   290

      s4o.print(s4o.indent_spaces + "else if (value > ");

   291

      symbol->upper_limit->accept(*this);

   292

      s4o.print(")\n");

   293

      s4o.indent_right();

   294

      s4o.print(s4o.indent_spaces + "return ");

   295

      symbol->upper_limit->accept(*this);

   296

      s4o.print(";\n");

   297

      s4o.indent_left();

   298

      s4o.print(s4o.indent_spaces + "else\n");

   299

      s4o.indent_right();

   300

      s4o.print(s4o.indent_spaces + "return value;\n");

   301

      s4o.indent_left();

   302

    default:

   303

      break;

   304

  }

   305

  return NULL;

   306

}

   307

   308

/*  enumerated_type_name ':' enumerated_spec_init */

   309

void *visit(enumerated_type_declaration_c *symbol) {

   310

  TRACE("enumerated_type_declaration_c");

   311

  /* add this type declaration to the type symbol table... */

   312

  type_symtable.insert(symbol->enumerated_type_name, symbol->enumerated_spec_init);

   313

   314

  s4o_incl.print("typedef enum {\n");

   315

  s4o_incl.indent_right();

   316

  symbol->enumerated_spec_init->accept(*this);

   317

  s4o_incl.indent_left();

   318

  s4o_incl.print("} ");

   319

  symbol->enumerated_type_name->accept(*basedecl);

   320

  s4o_incl.print(";\n");

   321

  return NULL;

   322

}

   323

   324

void *visit(enumerated_spec_init_c *symbol) {

   325

  TRACE("enumerated_spec_init_c");

   326

  symbol->enumerated_specification->accept(*this);

   327

  return NULL;

   328

}

   329

   330

/* helper symbol for enumerated_specification->enumerated_spec_init */

   331

/* enumerated_value_list ',' enumerated_value */

   332

void *visit(enumerated_value_list_c *symbol) {

   333

  print_list_incl(symbol, s4o_incl.indent_spaces, ",\n"+s4o_incl.indent_spaces, "\n");

   334

  return NULL;

   335

}

   336

   337

/* enumerated_type_name '#' identifier */

   338

void *visit(enumerated_value_c *symbol) {

   339

  symbol->value->accept(*basedecl);

   340

  return NULL;

   341

}

   342

   343

/*  identifier ':' array_spec_init */

   344

void *visit(array_type_declaration_c *symbol) {

   345

  TRACE("array_type_declaration_c");

   346

  /* add this type declaration to the type symbol table... */

   347

  type_symtable.insert(symbol->identifier, symbol->array_spec_init);

   348

   349

  s4o_incl.print("typedef ");

   350

  current_basetypedeclaration = arraybasetypeincl_bd;

   351

  symbol->array_spec_init->accept(*this);

   352

  current_basetypedeclaration = none_bd;

   353

  s4o_incl.print(" ");

   354

  symbol->identifier->accept(*basedecl);

   355

  current_basetypedeclaration = arraysubrange_bd;

   356

  symbol->array_spec_init->accept(*this);

   357

  current_basetypedeclaration = none_bd;

   358

  s4o_incl.print(";\n");

   359

   360

  if (search_base_type.type_is_subrange(current_type_name)) {

   361

    s4o.print("#define __CHECK_");

   362

    symbol->identifier->accept(*this);

   363

    s4o.print(" __CHECK_");

   364

    current_basetypedeclaration = arraybasetype_bd;

   365

    symbol->array_spec_init->accept(*this);

   366

    current_basetypedeclaration = none_bd;

   367

    s4o.print("\n");

   368

  }

   369

   370

  current_type_name = symbol->identifier;

   371

  current_basetypedeclaration = arraytranslateindex_bd;

   372

  symbol->array_spec_init->accept(*this);

   373

  current_basetypedeclaration = none_bd;

   374

  s4o.print("\n");

   375

   376

  return NULL;

   377

}

   378

   379

/* array_specification [ASSIGN array_initialization} */

   380

/* array_initialization may be NULL ! */

   381

void *visit(array_spec_init_c *symbol) {

   382

  TRACE("array_spec_init_c");

   383

  current_typedefinition = array_td;

   384

  symbol->array_specification->accept(*this);

   385

  current_typedefinition = none_td;

   386

  return NULL;

   387

}

   388

   389

/* ARRAY '[' array_subrange_list ']' OF non_generic_type_name */

   390

void *visit(array_specification_c *symbol) {

   391

  switch (current_basetypedeclaration) {

   392

    case arraybasetype_bd:

   393

      symbol->non_generic_type_name->accept(*this);

   394

      break;

   395

    case arraybasetypeincl_bd:

   396

      symbol->non_generic_type_name->accept(*basedecl);

   397

      break;

   398

    case arraysubrange_bd:

   399

    case arraytranslateindex_bd:

   400

      symbol->array_subrange_list->accept(*this);

   401

      break;

   402

    default:

   403

      break;

   404

  }

   405

  return NULL;

   406

}

   407

   408

/* helper symbol for array_specification */

   409

/* array_subrange_list ',' subrange */

   410

void *visit(array_subrange_list_c *symbol) {

   411

  if (current_basetypedeclaration == arraytranslateindex_bd) {

   412

    for (int i = 0; i < symbol->n; i++) {

   413

      s4o.print("#define __");

   414

      current_type_name->accept(*this);

   415

      s4o.print("_TRANSIDX");

   416

      print_integer(i);

   417

      s4o.print("(index) (index) - ");

   418

      symbol->elements[i]->accept(*this);

   419

      s4o.print("\n");

   420

    }

   421

  }

   422

  else

   423

    print_list(symbol);

   424

  return NULL;

   425

}

   426

   427

/*  TYPE type_declaration_list END_TYPE */

   428

void *visit(data_type_declaration_c *symbol) {

   429

  TRACE("data_type_declaration_c");

   430

  symbol->type_declaration_list->accept(*this);

   431

  s4o.print("\n\n");

   432

  return NULL;

   433

}

   434

   435

/* helper symbol for data_type_declaration */

   436

void *visit(type_declaration_list_c *symbol) {

   437

  TRACE("type_declaration_list_c");

   438

  return print_list(symbol, "", "\n");

   439

}

   440

   441

/*  simple_type_name ':' simple_spec_init */

   442

void *visit(simple_type_declaration_c *symbol) {

   443

  TRACE("simple_type_declaration_c");

   444

  /* add this type declaration to the type symbol table... */

   445

  type_symtable.insert(symbol->simple_type_name, symbol->simple_spec_init);

   446

   447

  s4o_incl.print("typedef ");

   448

  symbol->simple_spec_init->accept(*this);

   449

  s4o_incl.print(" ");

   450

  symbol->simple_type_name->accept(*basedecl);

   451

  s4o_incl.print(";\n");

   452

  return NULL;

   453

}

   454

   455

/* simple_specification [ASSIGN constant] */

   456

//SYM_REF2(simple_spec_init_c, simple_specification, constant)

   457

// <constant> may be NULL

   458

void *visit(simple_spec_init_c *symbol) {

   459

  TRACE("simple_spec_init_c");

   460

  symbol->simple_specification->accept(*basedecl);

   461

  return NULL;

   462

}

   463

   464

#if 0

   465

/*  subrange_type_name ':' subrange_spec_init */

   466

SYM_REF2(subrange_type_declaration_c, subrange_type_name, subrange_spec_init)

   467

   468

/* subrange_specification ASSIGN signed_integer */

   469

SYM_REF2(subrange_spec_init_c, subrange_specification, signed_integer)

   470

   471

/*  integer_type_name '(' subrange')' */

   472

SYM_REF2(subrange_specification_c, integer_type_name, subrange)

   473

   474

/*  signed_integer DOTDOT signed_integer */

   475

SYM_REF2(subrange_c, lower_limit, upper_limit)

   476

   477

/*  enumerated_type_name ':' enumerated_spec_init */

   478

SYM_REF2(enumerated_type_declaration_c, enumerated_type_name, enumerated_spec_init)

   479

   480

/* enumerated_specification ASSIGN enumerated_value */

   481

SYM_REF2(enumerated_spec_init_c, enumerated_specification, enumerated_value)

   482

   483

/* helper symbol for enumerated_specification->enumerated_spec_init */

   484

/* enumerated_value_list ',' enumerated_value */

   485

SYM_LIST(enumerated_value_list_c)

   486

   487

/* enumerated_type_name '#' identifier */

   488

SYM_REF2(enumerated_value_c, type, value)

   489

   490

/*  identifier ':' array_spec_init */

   491

SYM_REF2(array_type_declaration_c, identifier, array_spec_init)

   492

   493

/* array_specification [ASSIGN array_initialization} */

   494

/* array_initialization may be NULL ! */

   495

SYM_REF2(array_spec_init_c, array_specification, array_initialization)

   496

   497

/* ARRAY '[' array_subrange_list ']' OF non_generic_type_name */

   498

SYM_REF2(array_specification_c, array_subrange_list, non_generic_type_name)

   499

   500

/* helper symbol for array_specification */

   501

/* array_subrange_list ',' subrange */

   502

SYM_LIST(array_subrange_list_c)

   503

   504

/* array_initialization:  '[' array_initial_elements_list ']' */

   505