← Back to branch summary

~ubuntu-branches/ubuntu/natty/freecell-solver/natty

« back to all changes in this revision

Viewing changes to scripts/keyval2.pl

  • Committer: Bazaar Package Importer
  • Author(s): RISKO Gergely
  • Date: 2009-03-15 23:42:21 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20090315234221-sx95hxyfyfgi0pja
Tags: 2.16.0-1
http://bugs.debian.org/518440
* Imported Upstream version 2.16.0 (closes: #518440)
* cmake is the new buildsystem

Show diffs side-by-side

added added

removed removed

Lines of Context:
scripts/keyval2.pl
 
1
#!/usr/bin/perl
 
2
 
 
3
use strict;
 
4
use warnings;
 
5
 
 
6
while (<>)
 
7
{
 
8
    chomp;
 
9
    if (my ($lead, $star, $id) =
 
10
            m{\A(\s+)fcs_state_with_locations_t(\s*\*\s*)(\w+);\s*\z}
 
11
        )
 
12
    {
 
13
        print "${lead}fcs_state_t${star}${id}_key;\n";
 
14
        print "${lead}fcs_state_extra_info_t${star}${id}_val;\n";
 
15
    }
 
16
    else
 
17
    {
 
18
        print "$_\n";
 
19
    }
 
20
}