livecode/util/encode_source.pl at develop · livecodeali/livecode · GitHub

History

executable file

46 lines (36 loc) · 870 Bytes

Raw

#!/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;

livecode/util/encode_source.pl at develop · livecodeali/livecode · GitHub

Expand file tree

Breadcrumbs

encode_source.pl

Latest commit

History

Breadcrumbs

encode_source.pl

File metadata and controls