home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / web_dev / files / mwjpp516.exe / %MAINDIR% / Tools / Misc / countScriptLines.script < prev    next >
Encoding:
Text File  |  2001-06-19  |  1.1 KB  |  49 lines

  1. !!script
  2. // Copyright ⌐ 1997-1998 - Modelworks Software
  3.  
  4. /**
  5. @Tool: countScriptLines~counts Script lines in a directory and subdirectories. 
  6. @EndTool: 
  7. @Summary: countScriptLines~counts Script lines in a directory
  8. */
  9.  
  10. var output = getOutput();
  11.  
  12. function DoCommand()
  13. {
  14.   output.clear();
  15.   output.writeLine("Line Count:");
  16.   var lineCount = 0;
  17.   var fileCount = 0;
  18.   var directory = chooseDirectory("Choose directory");
  19.   
  20.   if (directory)
  21.   {
  22.     var files = getDirectoryFiles(directory, "*.script", true);
  23.     if (files)
  24.     {
  25.       var position = files.getHeadPosition();
  26.       while (position.valid)
  27.       {
  28.         var file = files.getNext(position);
  29.         if (file)
  30.         {
  31.           fileCount += 1;
  32.           var editor = file.open(false);
  33.           var fileLineCount = editor.getLineCount();
  34.           lineCount += fileLineCount;
  35.           
  36.           output.writeLine(file.path + ": " + fileLineCount);
  37.           
  38.           editor.close();
  39.         }
  40.       }
  41.     }
  42.     
  43.     output.writeLine("Total line count: " + lineCount);
  44.     output.writeLine("Total file count: " + fileCount);
  45.   }
  46. }
  47. !!/script
  48.  
  49.