Changeset 196
- Timestamp:
- 03/26/07 19:25:26 (1 year ago)
- Files:
-
- trunk/bin/k2-make-src (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/bin/k2-make-src
r179 r196 6 6 use lib abs_path('lib'); 7 7 use IO::All; 8 9 # Get a list of all dists in system. 10 # For each dist, find all modules in dist 11 # For each module: 12 # Extract doc into src/docs 13 # Extract files into src/ 14 # Extract a template version of the module into src/lib 15 # Create a src/Makefile to rebuild modules 16 # Link all src files into the base/ tree 17 # Report all collisions 8 18 9 19 @ARGV == 1 or die usage(); … … 26 36 my $instance = $module_name->new; 27 37 $instance->extract_files; 28 # my @data = $instance->get_packed_files_from_classes($module_name);29 # while (my ($file_name, $file_contents) = splice(@data, 0, 2)) {30 # $file_name =~ s/!//;31 # io("$dist_path/src/$file_name")->assert->print($file_contents);32 # }33 38 } 34 39
