EnglishРусский  

   ..

   main.g

Реклама

Инсталлятор CreateInstall
Бесплатные и коммерческие инсталляторы

 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 
Редактировать