Add stolen wrapping script

Author: randomnetcat

.github/workflows/ci.yml

@@ -36,8 +36,7 @@ jobs:
           out='generation/gh-pages/std-2023'
           mkdir -- "$out"
 
-          gcc -E cpp23/flowchart.dot.cpp | dot -Tsvg -start=1000 > "$out"/initialization.svg
-          gcc -E cpp23/flowchart.dot.cpp | dot -Tpng -start=1000 > "$out"/initialization.png
+          cpp23/build.sh "$out"/initialization.svg "$out"/initialization.png
 
       - name: Deploy generated flowcharts to Github Pages
         if: github.ref == 'refs/heads/main'

cpp23/wrap.perl

@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+
+# Based on https://biowize.wordpress.com/2011/03/11/text-wrapping-with-dot-graphviz/
+
+use strict;
+ 
+my $usage = "setdotlabelwidth [char-width] < [dotfile]";
+my $width = shift() or die("Usage: $usage $!");
+ 
+while(<STDIN>)
+{
+  if(m/label="((?:\\.|[^\\"])*)"/)
+  {
+    my $labeltext = $1;
+    my @words = split(/ /, $labeltext);
+    my @newtext = ();
+    my $newline = "";
+    foreach my $word(@words)
+    {
+      if( length($newline) > 0 and
+          length($newline) + length($word) > $width )
+      {
+        push(@newtext, $newline);
+        $newline = "";
+      }
+      $newline .= " " if( length($newline) > 0 );
+      $newline .= $word;
+    }
+    push(@newtext, $newline) if( length($newline) > 0 );
+    my $newlabel = join("\\n", @newtext);
+    s/label="((?:\\.|[^\\"])*)"/label="$newlabel"/;
+  }
+  print;
+}