GeezerVison is showing github.com — livecode/util/encode_version.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_version.pl

Copy path

More file actions

Latest commit

History

executable file

46 lines (37 loc) · 1.04 KB

encode_version.pl

Copy path

File metadata and controls

executable file

46 lines (37 loc) · 1.04 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

#!/usr/bin/env perl

use warnings;

sub trim

{

my $trimmed = $_[0];

$trimmed =~ s/^\s+|\s+$//g ;

return $trimmed;

}

my $gitRevision = $ARGV[0];

my $inputDir = $ARGV[1];

my $outputDir = $ARGV[2];

# Open the file containing the variables

open VARIABLES, "<" . $inputDir . "/../version"

or die "Could not open version information: $!";

my @variables = <VARIABLES>;

close VARIABLES;

# Open the template header

open TEMPLATE, "<" . $inputDir . "/include/revbuild.h.in"

or die "Could not open template header: $!";

my @template = <TEMPLATE>;

close TEMPLATE;

# Flatten the input

my $output = join('', @template);

# Replace each instance of the variable in the template file

foreach $variable (@variables)

{

my @parts = split('=', $variable);

my $varName = trim($parts[0]);

my $varValue = trim($parts[1]);

$output =~ s/\$${varName}/${varValue}/g;

}

$output =~ s/\$GIT_REVISION/${gitRevision}/g;

# Create the output file

open OUTPUT, ">" . $outputDir . "/include/revbuild.h"

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

print OUTPUT $output;

close OUTPUT;