src/development/: WIP work on Perl md2html

1 files changed, 157 insertions, 5 deletions

diff --git a/src/development/md2html.pl b/src/development/md2html.pl
index e2f4cec..de29e40 100755
--- a/src/development/md2html.pl
+++ b/src/development/md2html.pl
@@ -1,9 +1,161 @@
 #!/usr/bin/env perl
 
 use v5.34;
-use CommonMark;
+use warnings;
+use feature 'signatures';
+no warnings 'experimental';
 
-my $doc = CommonMark->parse(
-	string => "# xablau\n# xupliu",
-);
-say $doc->render_html;
+use Getopt::Std ();
+use CommonMark ();
+BEGIN { *CM:: = *CommonMark:: }
+
+
+
+sub usage($fh) {
+	print $fh <<~'EOF';
+		Usage:
+		  md
+		  md -h
+		EOF
+}
+
+sub help($fh) {
+	print $fh <<~'EOF';
+
+		Options:
+		  -h, --help    show this message
+		EOF
+}
+
+for (@ARGV) {
+	last if $_ eq '--';
+	if ($_ eq '--help') {
+		usage *STDOUT;
+		help *STDOUT;
+		exit;
+	}
+}
+
+my %opts;
+if (!Getopt::Std::getopts('h', \%opts)) {
+	usage *STDERR;
+	exit 2;
+}
+
+if ($opts{h}) {
+	usage *STDOUT;
+	help *STDOUT;
+	exit;
+}
+
+sub into_table($s) {
+	my @lines = ();
+	my $i = 1;
+	for (split "\n", $s) {
+		my $line = '<tr><td>' . $i++ . '</td><td>' . $_ . '</td></tr>';
+		push @lines, $line;
+	}
+	return join "\n", @lines;
+}
+
+sub with_file($f, $mode, $block) {
+	\$block();
+	
+}
+
+given (shift @ARGV) {
+	shift @ARGV if defined($ARGV[0]) and $ARGV[0] eq '--';
+	when ('snippets') {
+		for (@ARGV) {
+			open my $fh, '<', $_ or die "Can't open $_";
+			my $doc = CM->parse(file => $fh);
+			my $iter = $doc->iterator;
+			my $i = 0;
+			while (my ($event_type, $node) = $iter->next) {
+				next if $node->get_type != CM::NODE_CODE_BLOCK;
+				my $f = "$_.$i.txt";
+				$i++;
+				say 123;
+				with_file $f, '>', sub {
+					say 456;
+				};
+				open my $fh, '>', $f or die "Can't open $f";
+				print $fh $node->get_literal;
+				close $fh or die "Can't close $f";
+			}
+			close $fh or die "Can't close $_";
+		}
+	}
+	when ('render') {
+		my $s = CM->parse(file => *STDIN)->render(format => 'html');
+		my @ret = ();
+		my $in_block = 0;
+		for (split "\n", $s) {
+			if (/^<pre><code/) {
+				say $_;
+			}
+			push @ret, $_;
+		}
+
+		break;
+		my $s2 = join("\n", @ret) . "\n";
+		# say "antes: $s";
+		# say "depois: " . join "\n", @ret;
+		open my $fh1, '>', 'antes';
+		print $fh1 $s;
+		close $fh1;
+		open my $fh2, '>', 'depois';
+		print $fh2 $s2;
+		close $fh2;
+		say '=========' if $s eq $s2;
+
+		break;
+		say "$s";
+		my $doc = CM->parse(file => *STDIN);
+		my $iter = $doc->iterator;
+		while (my ($event_type, $node) = $iter->next) {
+			# say $node->get_on_exit;
+			# say $node->get_type_string;
+			# next;
+			# next if $node->get_type == CM::NODE_DOCUMENT;
+			# next unless $event_type == CM::EVENT_ENTER;
+			if ($node->get_type == CM::NODE_CODE_BLOCK) {
+				# say $node->get_on_exit;
+				# say $node->get_on_enter;
+				# say 123;
+				# next;
+				# $node->set_literal(into_table($node->get_literal));
+				# say 123;
+			} else {
+				# say $node->render(format => 'html');
+				# use Data::Dumper;
+				# say Dumper($node->get_type_string);
+			}
+		}
+		 say $doc->render(format => 'html', unsafe => 1);
+	}
+	default {
+		print STDERR "Bad ACTION \"$_\".\n\n";
+		usage *STDERR;
+		exit 2;
+	}
+}
+
+
+
+__END__
+
+# use Data::Dumper;
+# print Dumper(\%opts);
+
+# exit: extra newline in output
+# no warnings ('experimental::signatures', );
+# no warnings ('experimental::when', );
+# $Getopt::Std::STANDARD_HELP_VERSION = 1;
+perlcritic
+
+use builtin qw(true);
+if (true) {
+	say 'true';
+	exit 3;
+}