Merge branch 'pages_for_v0.09-beta' into gh-pages
Hauke D
7 years ago
commit
03a4888669
@ -0,0 +1,52 @@
|
|||||||
|
#!/usr/bin/env perl
|
||||||
|
use warnings;
|
||||||
|
use 5.026;
|
||||||
|
use FindBin ();
|
||||||
|
use Path::Class qw/dir file/;
|
||||||
|
|
||||||
|
# A quick and dirty script for importing stuff from webperl/master to gh-pages
|
||||||
|
|
||||||
|
sub edit (&$$) {
|
||||||
|
my ($code,$source,$dest) = @_;
|
||||||
|
state $basedir = dir($FindBin::Bin)->parent->parent;
|
||||||
|
local $_ = file($source)->absolute($basedir)->slurp(iomode=>'<:raw:encoding(UTF-8)');
|
||||||
|
$code->();
|
||||||
|
file($dest)->absolute($basedir)->spew(iomode=>'>:raw:encoding(UTF-8)', $_);
|
||||||
|
}
|
||||||
|
|
||||||
|
edit {
|
||||||
|
s{ iframe.perleditor\s*\{ [^\}]* border: \s* \K \N* (?=\n) }{1px dotted lightgrey;}xmsg==1 or die;
|
||||||
|
s{ <!--(?<x>script\s+src="http.+?iframeResizer.min.js"[^>]+crossorigin[^>]+></script)--> }{<$+{x}>}xmsg==1 or die;
|
||||||
|
s{ ^ \s* \K /[/*] (?= \s* iFrameResize ) }{}xmsg==2 or die;
|
||||||
|
} 'web/democode/demo.html', 'pages/democode/index.html';
|
||||||
|
|
||||||
|
edit {
|
||||||
|
s{ <!-- [^>]* \K demo.html (?= [^>]* --> ) }{index.html}xmsg==1 or die;
|
||||||
|
s{ <!--(?<x>script\s+src="http.+?iframeResizer.contentWindow.min.js"[^>]+crossorigin[^>]+></script)--> }{<$+{x}>}xmsg==1 or die;
|
||||||
|
} 'web/democode/perleditor.html', 'pages/democode/perleditor.html';
|
||||||
|
|
||||||
|
edit {
|
||||||
|
s{ <!-- [^>]* \K demo.html (?= [^>]* --> ) }{index.html}xmsg==1 or die;
|
||||||
|
s{ <(?<x>script\s+src="[^"]*webperl\.js"\s*></script)> }{<!--$+{x}-->}xmsg==1 or die;
|
||||||
|
s{ <!--(?<x>script\s+src="http.+?webperl\.js"[^>]+crossorigin[^>]+></script)--> }{<$+{x}>}xmsg==1 or die;
|
||||||
|
} 'web/democode/perlrunner.html', 'pages/democode/perlrunner.html';
|
||||||
|
|
||||||
|
edit {
|
||||||
|
} 'web/democode/perleditor.css', 'pages/democode/perleditor.css';
|
||||||
|
|
||||||
|
edit {
|
||||||
|
my $msg = <<'ENDMSG';
|
||||||
|
This is essentially a copy of
|
||||||
|
https://github.com/haukex/webperl/blob/master/web/regex_tester.html
|
||||||
|
with the following differences:
|
||||||
|
- webperl.js from CDN
|
||||||
|
- $RUN_CODE_IN_IFRAME enabled
|
||||||
|
- URL updated to https://github.com/haukex/webperl/blob/gh-pages/regex.html
|
||||||
|
(see import_regex_tester.pl)
|
||||||
|
ENDMSG
|
||||||
|
s{ <(?<x>script\s+src="(?:webperl\.js|__WEBPERLURL__)"\s*></scr_*ipt)> }{<!--$+{x}-->}xmsg==2 or die;
|
||||||
|
s{ <!--(?<x>script\s+src="http.+?webperl\.js"[^>]+crossorigin[^>]+></scr_*ipt)--> }{<$+{x}>}xmsg==2 or die;
|
||||||
|
s{ ^ \s* our \s+ \$RUN_CODE_IN_IFRAME\s*=\s*\K[01](?=\s*;\s*) }{1}xmsg==1 or die;
|
||||||
|
s{ https?://github.com/haukex/webperl/blob/\Kmaster/web/regex_tester.html }{gh-pages/regex.html}xmsg==1 or die;
|
||||||
|
s{ \#\#\#\#\#\s*-->\n\K }{\n<!-- $msg-->\n}xmsg==1 or die;
|
||||||
|
} 'web/regex_tester.html', 'pages/regex.html';
|
||||||
@ -1,31 +0,0 @@
|
|||||||
#!/usr/bin/env perl
|
|
||||||
use warnings;
|
|
||||||
use strict;
|
|
||||||
use FindBin ();
|
|
||||||
|
|
||||||
# A quick and dirty script for importing regex_tester.html to pages
|
|
||||||
|
|
||||||
my $infn = "$FindBin::Bin/../../web/regex_tester.html";
|
|
||||||
my $outfn = "$FindBin::Bin/../regex.html";
|
|
||||||
|
|
||||||
my $html = do { open my $ifh, '<:encoding(UTF-8)', $infn or die "$infn: $!"; local $/; <$ifh> };
|
|
||||||
|
|
||||||
my $msg = <<'ENDMSG';
|
|
||||||
This is essentially a copy of
|
|
||||||
https://github.com/haukex/webperl/blob/master/web/regex_tester.html
|
|
||||||
with the following differences:
|
|
||||||
- webperl.js from CDN
|
|
||||||
- $RUN_CODE_IN_IFRAME enabled
|
|
||||||
- URL updated to https://github.com/haukex/webperl/blob/gh-pages/regex.html
|
|
||||||
(see import_regex_tester.pl)
|
|
||||||
ENDMSG
|
|
||||||
|
|
||||||
( $html =~ s{ <(?<x>script\s+src="(?:webperl\.js|__WEBPERLURL__)"\s*></scr_*ipt)> }{<!--$+{x}-->}xmsg )==2 or die;
|
|
||||||
( $html =~ s{ <!--(?<x>script\s+src="http.+?webperl\.js"[^>]+crossorigin[^>]+></scr_*ipt)--> }{<$+{x}>}xmsg )==2 or die;
|
|
||||||
( $html =~ s{ ^ \s* our \s+ \$RUN_CODE_IN_IFRAME\s*=\s*\K[01](?=\s*;\s*) }{1}xmsg )==1 or die;
|
|
||||||
( $html =~ s{ https?://github.com/haukex/webperl/blob/\Kmaster/web/regex_tester.html }{gh-pages/regex.html}xmsg )==1 or die;
|
|
||||||
( $html =~ s{ \#\#\#\#\#\s*-->\n\K }{\n<!-- $msg-->\n}xmsg )==1 or die;
|
|
||||||
|
|
||||||
open my $ofh, '>:encoding(UTF-8)', $outfn or die "$outfn: $!";
|
|
||||||
print $ofh $html;
|
|
||||||
close $ofh;
|
|
||||||
Loading…
Reference in New Issue