tools/preproc.pl: Support any regex delimiter

hinrik · hinrik · commit 0ac9fe2e68bf · 2015-03-04T23:15:33.000+01:00
diff --git a/preproc.pl b/preproc.pl
@@ -28,8 +28,8 @@
         }
     }
 
-    if ($line =~ /^"\s*$preproc(\w+)$preproc\s+(?:"(.+)"|'(.*)')\s*$/) {
-        my ($name, $content) = ($1, $2);
+    if ($line =~ /^"\s*$preproc(\w+)$preproc\s+(?:(.)(.+)\2)\s*$/) {
+        my ($name, $content) = ($1, $3);
         $content =~ s/$preproc(\w+)$preproc/
             die "Replacement for $preproc$1$preproc not found at line $.\n" if !$replacements{$1};
             $replacements{$1}

Original file line number	Diff line number	Diff line change
`@@ -28,8 +28,8 @@`
`28`	`28`	`}`
`29`	`29`	`}`
`30`	`30`
`31`		`- if ($line =~ /^"\s$preproc(\w+)$preproc\s+(?:"(.+)"\|'(.)')\s*$/) {`
`32`		`- my ($name, $content) = ($1, $2);`
	`31`	`+ if ($line =~ /^"\s$preproc(\w+)$preproc\s+(?:(.)(.+)\2)\s$/) {`
	`32`	`+ my ($name, $content) = ($1, $3);`
`33`	`33`	`$content =~ s/$preproc(\w+)$preproc/`
`34`	`34`	`die "Replacement for $preproc$1$preproc not found at line $.\n" if !$replacements{$1};`
`35`	`35`	`$replacements{$1}`