Skip to content

Instantly share code, notes, and snippets.

Eleni Maria Stea hikiko

Block or report user

Report or block hikiko

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@hikiko
hikiko / Makefile
Last active Apr 19, 2019
Android makefile (not for apk). Just a reminder for adb stuff, compiler selection etc
View Makefile
obj = main.o
bin = test
toolchain_prefix = armv7a-linux-androideabi28-
CC = $(toolchain_prefix)clang
CFLAGS = -pedantic -Wall -g -O0
$(bin): $(obj)
$(CC) -o $@ $(obj) $(LDFLAGS)
@hikiko
hikiko / toc.pl
Last active Apr 11, 2019
creates a toc.html file with links to each file of a given directory, inside the directory.
View toc.pl
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Getopt::Long;
my $dir = ".", my $help;
GetOptions("d=s" => \$dir,
@hikiko
hikiko / pc-notify.pl
Last active Apr 27, 2019
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
View pc-notify.pl
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Getopt::Long;
use Gtk2::Notify -init, "pc-notify";
use Socket;
@hikiko
hikiko / greeklish.pl
Last active Mar 16, 2019
old script - not tested recently - convert greek to latin fnames (?)
View greeklish.pl
#!/usr/bin/perl
use strict;
use Encode;
use File::Copy;
my $dir;
my @files;
my $file;
my $initfile;
@hikiko
hikiko / thumbs.pl
Last active Mar 16, 2019
old script - supposed to create thumbs from images and thumbs.html file (not tested recently)
View thumbs.pl
#!/usr/bin/perl
use strict;
use File::Path qw(rmtree);
use File::Copy;
use File::MimeInfo;
use Image::Magick;
my @files;
@hikiko
hikiko / minandmax.pl
Created Jan 24, 2019
reads v x y z values from obj (supposing 1 model) to find the bounding sphere radius
View minandmax.pl
#!/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 / ext_snippets.pl
Last active Mar 16, 2019
greps the extension related code snippets from Vulkan-Docs (ifdef VK_EXT_... to #endif)
View ext_snippets.pl
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my $dir;
my $extname;
my $help;
@hikiko
hikiko / uncompressed.pl
Last active Dec 14, 2018
only prints an array with the 6 8x8 cube faces colors to paste in my .h file
View uncompressed.pl
#!/usr/bin/perl
use strict;
use warnings;
my $string = "unsigned char pixels[] = {";
my %facecolors = (
a => "255, 0, 0",
b => "0, 0, 255",
@hikiko
hikiko / cubemap-dump-in-order.pl
Last active Dec 6, 2018
dumped cubemaps in order (perl script)
View cubemap-dump-in-order.pl
#!/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 / bin-to-c.c
Last active Nov 11, 2018
creates unsigned char array from bin data
View bin-to-c.c
#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;
You can’t perform that action at this time.