Codebase list libconfig-model-lcdproc-perl / a51a635
New upstream version 2.050 Dominique Dumont 7 years ago
9 changed file(s) with 22 addition(s) and 13 deletion(s). Raw diff Collapse all Expand all
+7
-0
Changes less more
0 2.050 2016-09-17
1
2 Bug fix:
3 * model generator: fix call to load (gh #2).
4 (Thanks Slaven Rezić)
5 * fix doc typo in LCDd.conf
6
07 2.049 2016-07-15
18
29 * merge gen_LCDd_model in lcdconf2model (gh #1)
+1
-1
MANIFEST less more
0 # This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.005.
0 # This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.007.
11 Build.PL
22 CONTRIBUTING.md
33 Changes
+3
-2
META.json less more
33 "Dominique Dumont"
44 ],
55 "dynamic_config" : 0,
6 "generated_by" : "Dist::Zilla version 6.005, CPAN::Meta::Converter version 2.150005",
6 "generated_by" : "Dist::Zilla version 6.007, CPAN::Meta::Converter version 2.150010",
77 "license" : [
88 "lgpl_2_1"
99 ],
5252 "web" : "http://github.com/dod38fr/config-model-lcdproc"
5353 }
5454 },
55 "version" : "2.049"
55 "version" : "2.050",
56 "x_serialization_backend" : "Cpanel::JSON::XS version 3.0217"
5657 }
5758
+3
-2
META.yml less more
1111 Module::Build: '0.34'
1212 Path::Tiny: '0'
1313 dynamic_config: 0
14 generated_by: 'Dist::Zilla version 6.005, CPAN::Meta::Converter version 2.150005'
14 generated_by: 'Dist::Zilla version 6.007, CPAN::Meta::Converter version 2.150010'
1515 license: lgpl
1616 meta-spec:
1717 url: http://module-build.sourceforge.net/META-spec-v1.4.html
2424 bugtracker: https://github.com/dod38fr/config-model-lcdproc/issues
2525 homepage: https://github.com/dod38fr/config-model/wiki
2626 repository: git://github.com/dod38fr/config-model-lcdproc.git
27 version: '2.049'
27 version: '2.050'
28 x_serialization_backend: 'YAML::Tiny version 1.69'
+1
-1
lcdproc/LCDd.conf less more
530530 ## Hitachi HD44780 driver ##
531531 [hd44780]
532532
533 # Select what type of connection. See documentation for availabe types.
533 # Select what type of connection. See documentation for available types.
534534 ConnectionType=4bit
535535
536536 # I/O address of the LPT port. Usual values are: 0x278, 0x378 and 0x3BC.
+2
-2
lib/Config/Model/LcdProc.pm less more
77 # The GNU Lesser General Public License, Version 2.1, February 1999
88 #
99 package Config::Model::LcdProc;
10 $Config::Model::LcdProc::VERSION = '2.049';
10 $Config::Model::LcdProc::VERSION = '2.050';
1111 use 5.10.1;
1212
1313 use Config::Model 2.043;
2828
2929 =head1 VERSION
3030
31 version 2.049
31 version 2.050
3232
3333 =head1 SYNOPSIS
3434
+1
-1
lib/Config/Model/models/LCDd/hd44780.pl less more
5050 'ConnectionType',
5151 {
5252 'default' => '4bit',
53 'description' => 'Select what type of connection. See documentation for availabe types.',
53 'description' => 'Select what type of connection. See documentation for available types.',
5454 'type' => 'leaf',
5555 'value_type' => 'uniline'
5656 },
+1
-1
lib/Config/Model/models/LCDd/hd44780.pod less more
3131
3232 =head2 ConnectionType
3333
34 Select what type of connection. See documentation for availabe types. I<< Optional. Type uniline. default: '4bit'. >>
34 Select what type of connection. See documentation for available types. I<< Optional. Type uniline. default: '4bit'. >>
3535
3636 =head2 Contrast
3737
+3
-3
script/lcdconf2model.pl less more
407407 if (my $legal = delete $info{legal} || '') {
408408 if ( $legal =~ /^([\d.]*)-([\d.]*)$/ or $legal =~ /^>([\d.]+)$/ ) {
409409 my $bounds = '';
410 $bounds.= "min=$1 " if defined $1;
411 $bounds.= "max=$2 " if defined $2;
410 $bounds.= "min=$1 " if defined $1 and length($1);
411 $bounds.= "max=$2 " if defined $2 and length($2);
412412 my $vt = "value_type=";
413413 $vt .= $bounds =~ m/\./ ? 'number ' : 'integer ';
414414 push @model, $vt.$bounds;
423423 push @model, "value_type=enum choice=$1"
424424 }
425425 else{
426 # push back $legal info if no model snippet could be extracted
426427 say "note: unhandled legal spec: '$legal'. Sending it back to doc";
427428 push @model, "value_type=$value_type ";
428429 $$info_r .= "legal: $legal "
429430 }
430 # push back $legal info if no model snippet could be extracted
431431 }
432432 else {
433433 push @model, "value_type=$value_type ";