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
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); |