filemorph

Check-in [243ef9b378]
Login
☰Home Timeline Branches Tags Tickets Wiki 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 Side-by-Side 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

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




︙












This page was generated in about
0.013s by
Fossil 2.20 [0d61fd2310] 2022-10-28 19:48:33