GeezerVison is showing github.com — livecode/util/encode_source.pl at develop · livecode/livecode

This repository was archived by the owner on Aug 31, 2021. It is now read-only.

Expand file tree

encode_source.pl

Copy path

More file actions

Latest commit

History

executable file

46 lines (36 loc) · 870 Bytes

encode_source.pl

Copy path

File metadata and controls

executable file

46 lines (36 loc) · 870 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

#!/usr/bin/env perl

use warnings;

use File::Basename;

# Incoming arguments

my $sourceFile = $ARGV[0];

my $destFile = $ARGV[1];

# Work around gyp issue on windows where it is

# sometimes too eager in relativising paths

my $varName = basename($ARGV[2]);

#! /usr/bin/revolution -ui

# $1 = source file

# $2 = dst file

# $3 = var name

# Read in the source file

open INPUT, "<$sourceFile"

or die "Could not open source file \"$sourceFile\": $!";

my @lines = <INPUT>;

close INPUT;

# Write to the output file

open OUTPUT, ">$destFile"

or die "Could not open output file \"$destFile\": $!";

print OUTPUT "const char *${varName} [] =\n{\n";

foreach my $line (@lines)

{

if ((length $line) == 0)

{

next;

}

$line =~ s/\\/\\\\/g;

$line =~ s/\"/\\"/g;

$line =~ s/\n/\\n/g;

print OUTPUT "\t\"$line\",\n";

}

print OUTPUT "\t0\n";

print OUTPUT "};\n";

close OUTPUT;