代码统计工具 source code count ソース規模計算ツール

 

 

 

TSuperSouceCountWin.h

 

1. //---------------------------------------------------------------------------
3. #ifndef TSuperSouceCountWinH
4. #define TSuperSouceCountWinH
5. //---------------------------------------------------------------------------
6. #include <Classes.hpp>
7. #include <Controls.hpp>
8. #include <StdCtrls.hpp>
9. #include <Forms.hpp>
10. #include "SUIForm.hpp"
11. #include <ExtCtrls.hpp>
12. #include "SUIGroupBox.hpp"
13. #include "SUIImagePanel.hpp"
14. #include "TFlatSplitterUnit.hpp"
15. #include "TFlatPanelUnit.hpp"
16. #include "SUIButton.hpp"
17. #include "SUIComboBox.hpp"
18. #include "SUIListBox.hpp"
19. #include "SUIPageControl.hpp"
20. #include "SUITabControl.hpp"
21. #include <FileCtrl.hpp>
22. #include "SUIEdit.hpp"
23. #include "SUIListView.hpp"
24. #include <ComCtrls.hpp>
25. #include "SUIMemo.hpp"
26. #include "Utilities.h"
27. //---------------------------------------------------------------------------
28. #define MAXCHARS 20 
29. //---------------------------------------------------------------------------
30. //配置情報
31. typedef struct _signinfo {
32.     char * type;
33.     char * blockstart;
34.     char * blockend;
35.     char * linesign;
36.     char * escape;
37.     char * quote;
38. } SignInfo;
39. //---------------------------------------------------------------------------
40. //ファイル情報
41. typedef struct _lines {
42.     char * type;
43.     AnsiString filename;
44.     ULong phylines;
45.     ULong logicallines;
46.     ULong commentlines;
47. } Lines;
48. //---------------------------------------------------------------------------
49. class TSuperSouceCountWin : public TForm
50. {
51. __published:    // IDE-managed Components
52.     TsuiForm *suiForm1;
53.     TFlatPanel *FlatPanel1;
54.     TFlatSplitter *FlatSplitter1;
55.     TFlatPanel *FlatPanel2;
56.     TsuiPageControl *suiPageControl1;
57.     TsuiTabSheet *suiTabSheet1;
58.     TsuiTabSheet *suiTabSheet2;
59.     TsuiDriveComboBox *suiDriveComboBox1;
60.     TsuiDirectoryListBox *suiDirectoryListBox1;
61.     TsuiButton *btnFolderCount;
62.     TsuiEdit *edFile;
63.     TsuiListView *suiListView1;
64.     TsuiButton *btnDelete;
65.     TsuiButton *btnDeleteAll;
66.     TsuiButton *btnSelectFile;
67.     TsuiButton *btnadd;
68.     TsuiButton *btnReplace;
69.     TsuiGroupBox *suiGroupBox1;
70.     TsuiButton *btnFileCount;
71.     TLabel *Label1;
72.     TLabel *lbFileTotalCount;
73.     TLabel *Label2;
74.     TLabel *lbFolderTotalCount;
75.     TsuiMemo *memoResult;
76.     TLabel *Label3;
77.     TsuiEdit *edNO;
78.     TStatusBar *StatusBar1;
79.     TsuiCheckBox *cbSubFolder;
80.     void __fastcall btnFolderCountClick(TObject *Sender);
81.     void __fastcall btnaddClick(TObject *Sender);
82.     void __fastcall btnFileCountClick(TObject *Sender);
83. private:    // User declarations
84.     AnsiString BugNO;
85.     SignInfo sign;
86.     Lines total;
87.     void __fastcall DoFolder(AnsiString folder);
88.     int __fastcall ReadSignDB(ULong  hash, SignInfo * sign);
89.     int __fastcall CountLines(char * filename, SignInfo sign, Lines * lines);
90.     void __fastcall WriteResults(Lines result,bool total = false);
91. public:     // User declarations
92.     __fastcall TSuperSouceCountWin(TComponent* Owner);
93. };
94. //---------------------------------------------------------------------------
95. extern PACKAGE TSuperSouceCountWin *SuperSouceCountWin;
96. //---------------------------------------------------------------------------
97. #endif

 

TSuperSouceCountWin.cpp

 

1. //---------------------------------------------------------------------------
3. #include <vcl.h>
4. #pragma hdrstop
6. #include "TSuperSouceCountWin.h"
7. //---------------------------------------------------------------------------
8. #pragma package(smart_init)
9. #pragma link "SUIForm"
10. #pragma link "SUIImagePanel"
11. #pragma link "SUIGroupBox"
12. #pragma link "SUIImagePanel"
13. #pragma link "TFlatSplitterUnit"
14. #pragma link "TFlatPanelUnit"
15. #pragma link "SUIButton"
16. #pragma link "SUIComboBox"
17. #pragma link "SUIListBox"
18. #pragma link "SUIPageControl"
19. #pragma link "SUITabControl"
20. #pragma link "SUIEdit"
21. #pragma link "SUIListView"
22. #pragma link "SUIMemo"
23. #pragma resource "*.dfm"
24. //---------------------------------------------------------------------------
25. const char * Exp = "--------------------------------------------";
26. TSuperSouceCountWin *SuperSouceCountWin;
27. //---------------------------------------------------------------------------
28. __fastcall TSuperSouceCountWin::TSuperSouceCountWin(TComponent* Owner)
29.     : TForm(Owner)
30. {
31.     ReadSignDB(MyHash(NULL), &sign);
32. }
33. //---------------------------------------------------------------------------
34. void __fastcall TSuperSouceCountWin::btnFolderCountClick(TObject *Sender)
35. {
36.     memoResult->Text = "";
37.     BugNO = edNO->Text;
38.     total.phylines = 0;
39.     total.logicallines = 0;
40.     total.commentlines = 0;
41.     DoFolder(suiDirectoryListBox1->Directory);
42.     WriteResults(total,true);
43. }
44. //---------------------------------------------------------------------------
45. void __fastcall TSuperSouceCountWin::DoFolder(AnsiString folder)
46. {
47.     TSearchRec sr;
48.     if (FindFirst(folder+"//*.*", faAnyFile, sr) == 0){
49.         do{
50.             Application->ProcessMessages();
51.             if(sr.Name!="." && sr.Name!=".."){
52.                 if( cbSubFolder->Checked && (sr.Attr & faDirectory) == faDirectory ){
53.                     DoFolder(folder+"//"+sr.Name);
54.                 }else{
55.                     Lines lines;
56.                     CountLines((folder+"//"+sr.Name).c_str(), sign, &lines);
57.                     WriteResults(lines);
58.                     total.phylines += lines.phylines;
59.                     total.logicallines += lines.logicallines;
60.                     total.commentlines += lines.commentlines;
61.                 }
62.             }
63.         } while (FindNext(sr) == 0);
64.         FindClose(sr);
65.     }
66. }
67. //---------------------------------------------------------------------------
68. int __fastcall TSuperSouceCountWin::ReadSignDB(ULong hashcode, SignInfo * sign)
69. {
70.     FILE * fp;
71.     char value[MAXCHARS + 1] = "/0";
72.     int token = '=';
73.     if (!sign) {
74.         return 1;
75.     }
76.     fp = fopen("sign.db", "r");
77.     if (!fp) {  
78.         return 1;
79.         
80.     }
81.     fseek(fp, 0, SEEK_SET);
82.     while (fgets(value, MAXCHARS, fp)) {
83.         if(atoi(value) == hashcode){
84.             break;
85.         }
86.     }
87.     
88.     //fgets(value, MAXCHARS, fp);
89.     sign->type = new char[strlen(value) + 1];
90.     strcpy(sign->type, value);
91.     
92.     fgets(value, MAXCHARS, fp);
93.     ReadValue(value, token, &sign->blockstart);
94.     RmnewLine(sign->blockstart);
95.     
96.     fgets(value, MAXCHARS, fp);
97.     ReadValue(value, token, &sign->blockend);
98.     RmnewLine(sign->blockend);
99.     
100.     fgets(value, MAXCHARS, fp);
101.     ReadValue(value, token, &sign->linesign);
102.     RmnewLine(sign->linesign);
104.     fgets(value, MAXCHARS, fp);
105.     ReadValue(value, token, &sign->escape);
106.     RmnewLine(sign->escape);
108.     fgets(value, MAXCHARS, fp);
109.     ReadValue(value, token, &sign->quote);
110.     RmnewLine(sign->quote);
111.     
112.     fclose(fp); 
113.     return 0;
114.     
115. }
116. //---------------------------------------------------------------------------
117. int __fastcall TSuperSouceCountWin::CountLines(char * filename, SignInfo sign, Lines * lines)
118. {
119.     FILE * fp;
120.     int iscomment = 0, both = 0, linecomment = 0, commentend = 0, isquote = 0;
121.     int c = 0;
122.     bool isstart = false;
123.     char * buffer, * newline, * tmp, * src;
124.     ULong nsize, nread;
125.     
126.     if(!lines){
127.         return 1;
128.     }
130.     lines->type = new char[strlen(sign.type) + 1];
131.     if(!lines->type){
132.         return 1;
133.     }
134.     strcpy(lines->type, sign.type);
135.     lines->filename = filename; 
136.     lines->phylines = 0;
137.     lines->logicallines = 0;
138.     lines->commentlines = 0;
139.     
140.     fp = fopen(filename, "r");
141.     if(!fp){
142.         return 1;
143.     }
145.     fseek(fp, 0, SEEK_END);
146.     nsize = ftell(fp);
147.     fseek(fp, 0, SEEK_SET);
148.     buffer = new char[nsize + 1];
149.     if(!buffer){
150.         return 1;
151.     }
153.     for(nread = 0; nread < nsize; nread++){
154.         c = fgetc(fp);
155.         if(c == EOF){
156.             break;
157.         }
158.         *(buffer + nread) = c;
159.     }
161.     *(buffer + nread) = '/0';
162.     
163.     src = buffer;
164.     newline = buffer;
166.     while(*buffer){
167.         if (!strncmp(buffer, BugNO.c_str(), BugNO.Length())) {
168.             if(!isstart){
169.                 isstart = true;
170.             }else{
171.                 isstart = false;
172.             }
173.         }
175.         if(isstart){
177.             if (!strncmp(buffer, sign.escape, strlen(sign.escape))) {
178.                 buffer += strlen(sign.escape) + strlen(sign.quote) + 1;
179.                 continue;
180.             
181.             }
183.             if (!strncmp(buffer, sign.quote, strlen(sign.quote)) && !iscomment) {
184.                 isquote = !isquote;
185.             }
187.             if (*buffer == sign.blockstart[0] && !isquote) {
188.                 if (!strncmp(buffer, sign.blockstart, strlen(sign.blockstart))) {
189.                     iscomment = 1;
190.                     commentend = 0;
191.                     tmp = buffer;
192.                     if (!isquote) {
193.                         for(; tmp > newline; tmp--){
194.                             if (!isspace(*tmp)) {
195.                                 //printf("a both:%d/n", lines->phylines + 1);
196.                                 both = 1;
197.                                 break;
198.                             }
199.                         }
200.                     }
201.                 }
202.             }
204.             if(*buffer == sign.linesign[0] && !isquote) {
205.                 if (!strncmp(buffer, sign.linesign, strlen(sign.linesign))) {
206.                     linecomment = 1;
207.                     tmp = buffer;
208.                     if(!isquote){
209.                         for(; tmp > newline; tmp--){
210.                             if (!isspace(*tmp)) {
211.                                 //printf("b both:%d/n", lines->phylines + 1);
212.                                 both = 1;
213.                                 break;
214.                             }
215.                         }
216.                     }
217.                 }
218.             }
220.             if(*buffer == sign.blockend[0] && !isquote){
221.                 if (!strncmp(buffer, sign.blockend, strlen(sign.blockend))) {
222.                     commentend = 1;
223.                     iscomment = 0;
224.                     linecomment = 0;
225.                     tmp = buffer + strlen(sign.blockend);
226.                 }
227.             }
229.             if (*buffer == '/n') {
230.                 lines->phylines++;
231.                 if (iscomment) {
232.                     //printf("blockstart:%d/n", lines->phylines);
233.                     lines->commentlines++;
234.                     if (both) {
235.                         lines->logicallines++;
236.                         both = 0;
237.                     }
238.                 }else if(linecomment){
239.                     //printf("line:%d/n", lines->phylines);
240.                     linecomment = 0;
241.                     lines->commentlines++;
242.                     if(both){
243.                         lines->logicallines++;
244.                         both = 0;
245.                     }
246.                 } else if(commentend){
247.                     //printf("blockend:%d/n", lines->phylines);
248.                     commentend = 0;
249.                     lines->commentlines++;
250.                     if (both) {
251.                         lines->logicallines++;
252.                         both = 0;
253.                     }else{
254.                         for(; tmp < buffer; tmp++){
255.                             if (!isspace(*tmp)) {
256.                                 //printf("c both:%d/n", lines->phylines);
257.                                 lines->logicallines++;
258.                                 break;
259.                             }
260.                         }
261.                     }
262.                 }else{
263.                     //printf("logical:%d/n", lines->phylines);
264.                     lines->logicallines++;
265.                 }
266.                 newline = buffer + 1;
267.             }
268.         }
269.         buffer++;
270.     }
271.     free(src);
272.     fclose(fp);
273.     return 0;
274. }
275. //---------------------------------------------------------------------------
276. void __fastcall TSuperSouceCountWin::WriteResults(Lines result , bool total)
277. {
278.     char str[256];
279.     memoResult->Text = memoResult->Text  +  "/r/n" + Exp;
280.     if(!total){
281.         sprintf(str, "ファイル名:%s/t実際行数:%d/t論理行数:%d/tコメント行数:%d/t/n", result.filename , result.phylines, result.logicallines, result.commentlines);
282.     }else{
283.         sprintf(str, "統計:/t実際行数:%d/t論理行数:%d/tコメント行数:%d/t/n", result.phylines, result.logicallines, result.commentlines);
284.         lbFolderTotalCount->Caption =  result.logicallines;
285.     }
286.     memoResult->Text = memoResult->Text  +  "/r/n" + str;
287.     memoResult->Perform(WM_VSCROLL,SB_BOTTOM,0);
288. }
289. //---------------------------------------------------------------------------
290. void __fastcall TSuperSouceCountWin::btnaddClick(TObject *Sender)
291. {
292.     TListItem  *listItem;
293.     listItem = suiListView1->Items->Add();
294.     listItem->Caption = edFile->Text;
295. }
296. //---------------------------------------------------------------------------
297. void __fastcall TSuperSouceCountWin::btnFileCountClick(TObject *Sender)
298. {
299.     memoResult->Text = "";
300.     total.phylines = 0;
301.     total.logicallines = 0;
302.     total.commentlines = 0;
303.     for(int i = 0 ; i < suiListView1->Items->Count ; i++){
304.         Lines lines;
305.         CountLines((suiListView1->Items->Item[i]->Caption).c_str(), sign, &lines);
306.         WriteResults(lines);
307.         total.phylines += lines.phylines;
308.         total.logicallines += lines.logicallines;
309.         total.commentlines += lines.commentlines;
310.     }
311.     WriteResults(total,true);
312.     lbFileTotalCount->Caption  =  total.logicallines;
313. }
314. //---------------------------------------------------------------------------

Utilities.h

 

1. //---------------------------------------------------------------------------
2. #ifndef UtilitiesH
3. #define UtilitiesH
4. //---------------------------------------------------------------------------
5. #include <stdio.h>
6. #include <stdlib.h>
7. #include <string.h>
8. #include <ctype.h>
9. //---------------------------------------------------------------------------
10. typedef unsigned long int ULong;
12. int ReadLine(FILE * infile, char ** line);
13. int IsDigits(char * str);
14. int IsSpace(char * str);
15. ULong MyHash(char * str);
16. int ReadValue(char * str, int token, char ** value);
17. int RmnewLine(char * str);
18. //---------------------------------------------------------------------------
19. #endif

 

Utilities.cpp

1. //---------------------------------------------------------------------------
2. #pragma hdrstop
3. #include "Utilities.h"
4. //---------------------------------------------------------------------------
5. #define BUFSIZE 80
6. //---------------------------------------------------------------------------
7. int ReadLine(FILE * infile, char ** line) {
8.     char * tmp;
9.     int c, n = 0, size = BUFSIZE;
10.     *line  = new char[size + 1];
12.     if (!*line){
13.         return 0;
14.     }
16.     while ((c = fgetc(infile)) != EOF){
17.         if (n == size){
18.             size *= 2;
19.             tmp = (char *) realloc(*line, size + 1);
20.             
21.             if(!tmp){
22.                 return n;
23.             }
24.             *line = tmp;
25.         }
26.         *(*line + n) = c;
27.         n++;
28.         
29.         if (c == '/n')
30.             break;
31.     }
33.     if(n == 0 && c == EOF){
34.         free(*line);
35.         *line = NULL;
36.         return 0;
38.     }
39.     
40.     *(*line + n)= '/0';
41.     tmp = 0;
42.     return n;
43. }
44. //---------------------------------------------------------------------------
45. int IsDigits(char * str)
46. {   
47.     if(!str){
48.         return 0;
49.     }
51.     while(*str){
52.         if (isdigit(*str))
53.             *str++;
54.         else
55.             return 0;
56.     }
57.     return 1;
58. }
59. //---------------------------------------------------------------------------
60. int IsSpace(char * str)
61. {
62.     if(!str){
63.         return 0;
64.     }
66.     while (*str) {
67.         if (isspace(*str))
68.             *str++;
69.         else
70.             return 0;
71.     }
72.     return 1;
73. }
74. //---------------------------------------------------------------------------
75. #define SMALL_MAGICNUM 3
76. #define BIG_MAGICNUM 13
77. //---------------------------------------------------------------------------
78. ULong MyHash(char * str)
79. {
81.     ULong result = 0, tmp = 0;
82.     ULong i, len = 0;
84.     if (!str) {
85.         return 0;
86.     }
87.     
88.     len = strlen(str);
89.     for (i = 0; i < len; i++) {
90.         if (str[i] >= 'A') {
91.             if (str[i] <= 'L')
92.                 tmp = str[i] * BIG_MAGICNUM;
93.             else
94.                 tmp = str[i] * SMALL_MAGICNUM;
95.                 
96.         } else {
97.             tmp = str[i] * SMALL_MAGICNUM;
98.             
99.         }
101.         if (!result)
102.             result = tmp;
103.         else 
104.             result += tmp;
105.             
106.     }
107.     return result;
108.     
109. }
110. //---------------------------------------------------------------------------
111. int ReadValue(char * str, int token, char ** value)
112. {
114.     char * tmp;
115.     
116.     if(!str) {
117.         return 1;
118.     }
119.             
120.     tmp = strrchr(str, token);
121.     if (tmp) {
122.         tmp++;
123.         *value = new char[strlen(tmp) + 1];
124.         if (!*value) {
125.             *value = 0;
126.             tmp = 0;
127.             return 1;
128.         }
129.         strcpy(*value, tmp);
130.     }else{
131.         tmp = 0;
132.         return 1;
133.     }
134.     return 0;
135. }
136. //---------------------------------------------------------------------------
137. int RmnewLine(char * str)
138. {
139.     if (!str) {
140.         return 1;
141.     }
142.     while (*str) {
143.         if (*str == '/n') {
144.             *str = '/0';
145.             break;
146.         }
147.         str++;
148.     }
149.     return 0;
150. }
151. //---------------------------------------------------------------------------
152. #pragma package(smart_init)