git.oblomov.eu Git - ikiwiki/blob - ikiwiki-transition

   1 #!/usr/bin/perl -i
   2 use warnings;
   3 use strict;
   4
   5 my $regex = qr{
   6         (\\?)           # 1: escape?
   7         \[\[(!?)        # directive open; 2: optional prefix
   8         ([-\w]+)        # 3: command
   9         (               # 4: the parameters (including initial whitespace)
  10         \s+
  11                 (?:
  12                         (?:[-\w]+=)?            # named parameter key?
  13                         (?:
  14                                 """.*?"""       # triple-quoted value
  15                                 |
  16                                 "[^"]+"         # single-quoted value
  17                                 |
  18                                 [^\s\]]+        # unquoted value
  19                         )
  20                         \s*                     # whitespace or end
  21                                                 # of directive
  22                 )
  23         *)              # 0 or more parameters
  24         \]\]            # directive closed
  25 }sx;
  26
  27 sub handle_directive {
  28         my $escape = shift;
  29         my $prefix = shift;
  30         my $directive = shift;
  31         my $args = shift;
  32
  33         if (length $escape) {
  34                 return "${escape}[[${prefix}${directive}${args}]]"
  35         }
  36         if ($directive =~ m/^(if|more|table|template|toggleable)$/) {
  37                 $args =~ s{$regex}{handle_directive($1, $2, $3, $4)}eg;
  38         }
  39         return "[[!${directive}${args}]]"
  40 }
  41
  42 sub prefix_directives {
  43         $/=undef; # process whole files at once
  44
  45         while (<>) {
  46                 s{$regex}{handle_directive($1, $2, $3, $4)}eg;
  47                 print;
  48         }
  49 }
  50
  51 sub usage {
  52         print STDERR "Usage: ikiwiki-transition type file ...\n";
  53         print STDERR "Currently supported transition types:\n";
  54         print STDERR "  prefix_directives\n";
  55         exit 1;
  56 }
  57
  58 usage() unless @ARGV;
  59
  60 my $mode=shift;
  61 if ($mode eq 'prefix_directives') {
  62         prefix_directives(@ARGV);
  63 }
  64 else {
  65         usage();
  66 }