Skip to content

Instantly share code, notes, and snippets.

@hikiko
hikiko / check-mesa-diff.pl
Last active March 19, 2018 14:30
A script that checks if a mesa patch indentation uses 3 spaces and no tabs. Run it with: ./check-mesa-diff.pl <patch-filename>
#!/usr/bin/perl
use strict;
use warnings;
use Term::ANSIColor;
local $Term::ANSIColor::AUTOLOCAL = 1;
my $fname = $ARGV[0];
if(not defined $fname) {
@hikiko
hikiko / side-by-side-diff.pl
Last active January 17, 2019 11:01
a script I use with claws-mail: https://bit.ly/2JJs5ql
#!/usr/bin/perl
use strict;
use warnings;
use File::Copy qw(copy);
#use X11::Protocol;
my $fname = $ARGV[0];
if(not defined $fname) {
die "No input\n";
}
@hikiko
hikiko / bin-to-c.c
Last active November 11, 2018 10:49
creates unsigned char array from bin data
#include <stdio.h>
int main(int argc, char **argv)
{
FILE *fp;
int cur, c, prevc;
if(argc < 2) {
fprintf(stderr, "You should provide a filename.\n");
return 1;
@hikiko
hikiko / cubemap-dump-in-order.pl
Last active December 6, 2018 17:49
dumped cubemaps in order (perl script)
#!/usr/bin/perl
use strict;
use warnings;
use IPC::System::Simple qw(capture);
my %cubefaces = (
astc10_rgba => ["astc10-rgba.cube1", "astc10-rgba.cube2", "astc10-rgba.cube3", "astc10-rgba.cube4", "astc10-rgba.cube5", "astc10-rgba.cube6"],
astc10_srgba => ["astc10-srgba.cube1", "astc10-srgba.cube2", "astc10-srgba.cube3", "astc10-srgba.cube4", "astc10-srgba.cube5", "astc10-srgba.cube6"],
@hikiko
hikiko / uncompressed.pl
Last active December 14, 2018 14:33
only prints an array with the 6 8x8 cube faces colors to paste in my .h file
#!/usr/bin/perl
use strict;
use warnings;
my $string = "unsigned char pixels[] = {";
my %facecolors = (
a => "255, 0, 0",
b => "0, 0, 255",
@hikiko
hikiko / ext_snippets.pl
Last active March 16, 2019 09:58
greps the extension related code snippets from Vulkan-Docs (ifdef VK_EXT_... to #endif)
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my $dir;
my $extname;
my $help;
@hikiko
hikiko / minandmax.pl
Created January 24, 2019 19:47
reads v x y z values from obj (supposing 1 model) to find the bounding sphere radius
#!/usr/bin/perl
use strict;
use warnings;
use POSIX;
use List::Util qw[min max];
my $fname = $ARGV[0];
if(not defined $fname) {
die "You must set the vectors filename.\n";
@hikiko
hikiko / thumbs.pl
Last active March 16, 2019 10:31
old script - supposed to create thumbs from images and thumbs.html file (not tested recently)
#!/usr/bin/perl
use strict;
use File::Path qw(rmtree);
use File::Copy;
use File::MimeInfo;
use Image::Magick;
my @files;
@hikiko
hikiko / greeklish.pl
Last active March 16, 2019 10:33
old script - not tested recently - convert greek to latin fnames (?)
#!/usr/bin/perl
use strict;
use Encode;
use File::Copy;
my $dir;
my @files;
my $file;
my $initfile;
@hikiko
hikiko / pc-notify.pl
Last active April 27, 2019 17:51
perl client for: https://github.com/jtsiomb/phoneline/tree/master/phonelined prints desktop notifications when someone calls at home and allows me to hang up the call from my laptop :D
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Getopt::Long;
use Gtk2::Notify -init, "pc-notify";
use Socket;