diff options
author | Joey Hess <joey@kodama.kitenet.net> | 2008-01-30 17:22:59 -0500 |
---|---|---|
committer | Joey Hess <joey@kodama.kitenet.net> | 2008-01-30 17:22:59 -0500 |
commit | 61ffa4a81653bc499abb358244dba102323abc99 (patch) | |
tree | 90189e2ae2e7d9bdeff09b53529c47de3e814bc0 /ikiwiki-prefix-directives | |
parent | 4c18058dfb52ae32c55e27efda380f1df0a4c872 (diff) |
rename ikiwiki-prefix-directives into ikiwiki-transition
If we have transitions of this sort in the future, this program will
hopefully be used to handle them too.
Diffstat (limited to 'ikiwiki-prefix-directives')
-rwxr-xr-x | ikiwiki-prefix-directives | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/ikiwiki-prefix-directives b/ikiwiki-prefix-directives deleted file mode 100755 index f14fe339f..000000000 --- a/ikiwiki-prefix-directives +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/perl -i -use warnings; -use strict; - -undef $/; # process whole files at once - -my $regex = qr{ - (\\?) # 1: escape? - \[\[(!?) # directive open; 2: optional prefix - ([-\w]+) # 3: command - ( # 4: the parameters (including initial whitespace) - \s+ - (?: - (?:[-\w]+=)? # named parameter key? - (?: - """.*?""" # triple-quoted value - | - "[^"]+" # single-quoted value - | - [^\s\]]+ # unquoted value - ) - \s* # whitespace or end - # of directive - ) - *) # 0 or more parameters - \]\] # directive closed -}sx; - -sub handle_directive { - my $escape = shift; - my $prefix = shift; - my $directive = shift; - my $args = shift; - - if (length $escape) { - return "${escape}[[${prefix}${directive}${args}]]" - } - if ($directive =~ m/^(if|more|table|template|toggleable)$/) { - $args =~ s{$regex}{handle_directive($1, $2, $3, $4)}eg; - } - return "[[!${directive}${args}]]" -} - -while (<>) { - s{$regex}{handle_directive($1, $2, $3, $4)}eg; - print; -} |