filemorph

Check-in [243ef9b378]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add build.pl file
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:243ef9b378ed4d74b531ef7627f55c73bfd976cb
User & Date: kevin 2015-11-17 03:37:15
Context
2015-11-18
03:40
Adjust start menu item for Windows check-in: 19d98f7524 user: kevin tags: trunk
2015-11-17
03:37
Add build.pl file check-in: 243ef9b378 user: kevin tags: trunk
01:00
Fix serious crash in Windows build check-in: de77c8d1dc user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added build.pl.















>
>
>
>
>
>
>
1
2
3
4
5
6
7
use ExtUtils::Embed;

my $gcc_cmd = join( ' ' , 'gcc -Wall -o   FileMorph icons.o versioninfo.o filemorph.c -lShlwapi' , &ccopts , &ldopts );
print STDOUT $gcc_cmd , "\n";
system( $gcc_cmd );

#-mwindows

Changes to filemorph.pl.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
# FileMorph: Rename files, edit attributes

#Copyright (C) 2015 WordTech Communications LLC

#MIT license

#let's get started
 
use FindBin qw($Bin);
use Config;
use File::Spec::Functions;
use File::Copy::Recursive qw(dircopy );
use Env qw(HOME);
use File::Path qw(remove_tree);
use File::Copy::Recursive qw (rmove);







|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
# FileMorph: Rename files, edit attributes

#Copyright (C) 2015 WordTech Communications LLC

#MIT license

#let's get started

use FindBin qw($Bin);
use Config;
use File::Spec::Functions;
use File::Copy::Recursive qw(dircopy );
use Env qw(HOME);
use File::Path qw(remove_tree);
use File::Copy::Recursive qw (rmove);