changeset 77:62f21240ff63

Add a kludge in the post-processing script to fix the help() function.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 05 Jul 2018 13:49:42 +0300
parents b07084443528
children a258e0cac898
files postprocess.pl
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/postprocess.pl	Thu Jul 05 13:37:12 2018 +0300
+++ b/postprocess.pl	Thu Jul 05 13:49:42 2018 +0300
@@ -19,5 +19,8 @@
     $line =~ s@.p\.parseInt\(\(new\s+.p\.Character\('(.)'\)\)\)@sprintf('%d',ord($1))@eg;
     $line =~ s@\(new\s+.p\.Character\('(.)'\)\)@sprintf('%d',ord($1))@eg;
     $line =~ s@.p\.parseInt\(@Math.trunc(@g;
+
+    # Kludge
+    $line =~ s@switch\s*\(.p\.parseChar\(mode\)\)@switch (mode)@g;
     print $line;
 }