Diamond75/Panda3DS
1
0
Fork 0
mirror of https://github.com/wheremyfoodat/Panda3DS.git synced 2025-04-23 13:55:50 +12:00
Code Issues Projects Releases Packages Wiki Activity Actions

[Qt] Initial Imgui integration

Browse source
This commit is contained in:
wheremyfoodat 2024-01-28 22:27:30 +02:00
parent 8ff2d7f9b2
commit 918645479a
211 changed files with 49460 additions and 21918 deletions
Download patch file Download diff file Expand all files Collapse all files

85
third_party/imgui-lua-bindings/parse_blocks.pl vendored Normal file
View file

@ -0,0 +1,85 @@
##!/usr/bin/perl
#use strict;
#use warnings;
#use diagnostics;
#
#my ($blocksref, $blocknamesref) = parse_blocks();
#
#my @blocks = @$blocksref;
#my @blocknames = @$blocknamesref;
#
#my $name;
#my $block;
#foreach $name (@blocknames) {
# print "BLOCKNAME" . $name;
#}
#
#foreach $block (@blocks) {
# print "---------------BLOCK START-----------\n";
# print $block;
# print "---------------BLOCK END -------------\n"
#}
# WARNING THIS FUNCTION WILL MESS UP ALL OF PARSING IF IT SEES
# A DIFFERENT NUMBER OF BLOCKNAMES AS BLOCKS...
# TODO FIX THIS ^
#returns list of string blocks from stdin
sub does_line_match_end_block {
my $line = shift;
# Make sure you take into account random whitespace that could happen by using [ ]*[\t]*
my $match = 0;
$match |= $line =~ m/^};[ ]*[\t]*\/\//; # Semicolon, comment
$match |= $line =~ m/^};[ ]*[\t]*$/; # Semicolon, no comment
$match |= $line =~ m/^}[ ]*[\t]*\/\//; # No semicolon, comment
$match |= $line =~ m/^}[ ]*[\t]*$/; # No semicolon, no comment
return $match;
}
sub does_line_match_begin_block {
my $line = shift;
my $match = 0;
$match |= $line =~ m/^{[ ]*[\t]*$/;
return $match
}
sub parse_blocks {
my @blocks;
my @blocknames;
my $lastline;
my $curBlock;
while (my $line = <STDIN>) {
if (does_line_match_begin_block($line)) {
push @blocknames, $lastline;
$curBlock = "";
next;
}
if (does_line_match_end_block($line)) {
push @blocks, $curBlock;
# Enforce the invariant that we should have the same number of elements in blocks / block names
if (scalar @blocks != scalar @blocknames) {
print STDERR "The parser did a bad and has mismatched block open / close.";
print STDERR "This is probably a problem with the regular expression that matches block open and close.";
die
}
$curBlock = "";
next;
}
$curBlock .= $line . "\n";
$lastline = $line;
}
return (\@blocks, \@blocknames);
}
1;