to-snprintf.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#!/usr/bin/perl
#
# to use:
#   perl to-snprintf.pl < ee-discovery.json 
#

use strict;
use warnings;

my @variables;

print <<"HEADER";
   snprintf (str, str_len, "\\
HEADER

while (my $line = <>) {
  chomp $line;
  next if $line eq '' or $line =~ m/^#/;
  if ($line =~ s/%([A-Z]+)%/%s/) {
    push @variables, lc $1;
  }
  $line =~ s/"/\\"/g;
  print "$line\\n\\\n";
}

print "\",\n";

print "             ".join(', ',@variables).");\n";