From 2ee5a9b14995f5e730e9c1f7e3a7859d8557148e Mon Sep 17 00:00:00 2001
From: Rob Swindell <rob@synchro.net>
Date: Wed, 7 Oct 2020 19:40:02 -0700
Subject: [PATCH] gtk/glade build interface converter - by Nelgin
---
src/sbbs3/gtkconvert.pl | 25 +++++++++++++++++++++++++
1 file changed, 25 insertions(+)
create mode 100755 src/sbbs3/gtkconvert.pl
diff --git a/src/sbbs3/gtkconvert.pl b/src/sbbs3/gtkconvert.pl
new file mode 100755
index 0000000000..ab1082677b
--- /dev/null
+++ b/src/sbbs3/gtkconvert.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $filename = shift or die "Usage: $0 FILENAME\n";
+
+open my $fh, "<", $filename || die "Cannot open $filename $!\n";
+my $char;
+my $newstr;
+my $count;
+while (read $fh,$char,1 ) {
+ $newstr .= ord($char) . ",";
+ $count++;
+}
+chop $newstr;
+close $fh;
+
+$filename =~ s/\./_/;
+$filename .= ".c";
+
+open my $fh2, ">" , $filename || die "Cannot open g $!\n";
+print $fh2 "const char builder_interface[" . $count ."] = {" . $newstr . "};";
+close $fh2;
+
--
GitLab