Changeset 938 in genapp


Ignore:
Timestamp:
Jun 29, 2016, 5:33:39 AM (6 years ago)
Author:
ehb
Message:

error genapp if duplicate id's found

File:
1 edited

Legend:

Unmodified
Added
Removed
  • etc/perl/genapp_util.pl

    r886 r938  
    12071207                $error .= valid_name( "$f \"id\"", $x );
    12081208            }
     1209            # check for duplicate id's
     1210            {
     1211                my $ref_mod = {};
     1212                my $mod_info = start_json( $json, $ref_mod );
     1213               
     1214                my %ids;
     1215
     1216                do {
     1217                    if ( !$$mod_info{ 'fields:id' } ) {
     1218                        $error .= "Module $f has field without field id defined\n" if $$mod_info{ 'fields:type' } ne "info";
     1219                    } else {
     1220                        $error .= "Module $f has fields with duplicate id \"" . $$mod_info{ 'fields:id' } . "\"\n" if $ids{ $$mod_info{ 'fields:id' } }++;
     1221                    }
     1222                } while( $mod_info = next_json( $ref_mod, 'fields:id' ) );
    12091223            # check repeaters & repeats
    12101224            {
Note: See TracChangeset for help on using the changeset viewer.