1 /******************************************************************************
2 *
3 * Copyright (C) 2006, The Gentee Group. All rights reserved.
4 * This file is part of the Gentee open source project - http://www.gentee.com.
5 *
6 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT").
7 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS
8 * ACCEPTANCE OF THE AGREEMENT.
9 *
10 * ID: main 18.10.06 0.0.A.
11 *
12 * Author: Aleksandr Antypenko ( santy )
13 *
14 ******************************************************************************/
15
16 include
17 {
18 "sizelines.g"
19 }
20
21 func findfiledir <main>()
22 {
23 str findDir; //"C:\\gentee\\";
24 flinfo infofile;
25 if argc()<1
26 {
27 print("\t\nUsage : findfiledir [dir+pattern] \n")
28 exit(1)
29 }
30 if !(sizelines(infofile,argv(findDir,1))) : print("Error run function \n")
31 else : print("Size -> \(infofile.countsize) Lines -> \(infofile.countlines) \n")
32 }
33