~mwshinn/+junk/notes

« back to all changes in this revision

Viewing changes to extract-code.pl

  • Committer: Max Shinn
  • Date: 2014-10-17 18:35:47 UTC
  • mfrom: (42.1.3 notes-bin)
  • Revision ID: trombonechamp@gmail.com-20141017183547-8n5g1g1uywdwiiym
Merged

Show diffs side-by-side

added added

removed removed

Lines of Context:
18
18
    }
19
19
};
20
20
$path = (fileparse($filename))[1];
 
21
$prefix = "$path";
 
22
if (-d "$filename.d") {
 
23
    $prefix = "$filename.d/generated-scripts/";
 
24
    mkdir $prefix;
 
25
}
21
26
if (exists $ARGV[1]) {
22
27
    $onlyshow = $ARGV[1];
23
28
}
72
77
    else {last;}
73
78
}
74
79
while(($k,$v)=each(%sourcetexts)) {
75
 
    open HANDLE, ">",  $path . "/" . $k;
 
80
    open HANDLE, ">",  "$prefix$k";
76
81
    print HANDLE $v;
77
82
    close HANDLE;
78
83
    if ($onlyshow eq $k) {