annotate unique.d @ 707:5ba45899cddd

minor infrastructure fixes
author thomask
date Thu, 20 Oct 2005 06:53:54 +0000
parents 8dc894322ce8
children 3f45fca47bec
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
679
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
1 module cn.kuehne.uniquefile;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
2
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
3 private import std.file;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
4 private import std.stdio;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
5 private import std.path;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
6
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
7 private char[][char[]] known;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
8 private uint doppelgaenger;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
9
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
10 private char[] lastPathElem(char[] path){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
11 size_t end=path.length-1;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
12 size_t start;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
13
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
14 for(end = path.length-1; path[end]==std.path.sep[0]; end--){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
15 if(end==0){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
16 return std.path.sep;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
17 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
18 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
19
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
20 for(start = end-1; start<start.max; start--){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
21 if(path[start]==std.path.sep[0]){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
22 break;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
23 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
24 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
25
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
26 if(start==start.max){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
27 start=0;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
28 }else{
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
29 start+=1;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
30 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
31 return path[start .. end+1];
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
32 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
33
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
34 private void add(char[] file){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
35 char[] base = lastPathElem(file);
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
36
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
37 if(isfile(file)){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
38 char[]* tmp = base in known;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
39 if(tmp){
703
8dc894322ce8 repos maintenance
thomask
parents: 696
diff changeset
40 fwritef(stdout, "%s :\n\t%s\n\t%s\n", base, file, *tmp);
679
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
41 doppelgaenger++;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
42 }else{
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
43 known[base] = file;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
44 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
45 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
46
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
47 if(isdir(file) && (base[0]!='.')){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
48 foreach(char[] entry; listdir(file)){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
49 add(file~std.path.sep~entry);
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
50 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
51 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
52 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
53
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
54 int main(char[][] args){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
55 if(args.length<2){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
56 fwritef(stderr, "at least one directory name is required as argument\n");
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
57 return -1;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
58 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
59
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
60 doppelgaenger = 0;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
61
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
62 foreach(char[] file; args[1 .. args.length]){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
63 if(file=="."){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
64 file=getcwd();
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
65 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
66 add(file);
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
67 }
696
fa8d1cf74ab8 added verbose listing to unique.d
thomask
parents: 679
diff changeset
68
fa8d1cf74ab8 added verbose listing to unique.d
thomask
parents: 679
diff changeset
69 version(verbose){
fa8d1cf74ab8 added verbose listing to unique.d
thomask
parents: 679
diff changeset
70 foreach(char[] entry; known.keys.sort){
707
5ba45899cddd minor infrastructure fixes
thomask
parents: 703
diff changeset
71 fwritef(stderr, "\t%s\n", known[entry]);
696
fa8d1cf74ab8 added verbose listing to unique.d
thomask
parents: 679
diff changeset
72 }
fa8d1cf74ab8 added verbose listing to unique.d
thomask
parents: 679
diff changeset
73 }
679
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
74
703
8dc894322ce8 repos maintenance
thomask
parents: 696
diff changeset
75 fwritef(stdout, "hits : %s\n", doppelgaenger);
679
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
76
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
77 return doppelgaenger > 0;
703
8dc894322ce8 repos maintenance
thomask
parents: 696
diff changeset
78 }