annotate unique.d @ 679:8907387e7a6a

doppelgaenger ....
author thomask
date Thu, 22 Sep 2005 14:40:55 +0000
parents
children fa8d1cf74ab8
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){
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
40 writef("%s :\n\t%s\n\t%s\n", base, file, *tmp);
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 }
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
68
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
69 printf("hits : %i\n", doppelgaenger);
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
70
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
71 return doppelgaenger > 0;
8907387e7a6a doppelgaenger ....
thomask
parents:
diff changeset
72 }