tagging tags

3 files changed, 138 insertions, 0 deletions

diff --git a/ychat-0.5.4/scripts/astyle.sh b/ychat-0.5.4/scripts/astyle.sh
new file mode 100755
index 0000000..757364e
--- /dev/null
+++ b/ychat-0.5.4/scripts/astyle.sh
@@ -0,0 +1,15 @@
+#!/bin/sh
+
+# The yChat Project (2004, 2005)
+#
+# This uses "astyle" to format C++ code into a specific code style! 
+
+for f in h cpp tmpl
+do
+ for i in `find . -name "*.$f"`
+ do
+  echo $i
+  astyle --style=ansi -s2 $i
+  rm -f $i.orig
+ done
+done
diff --git a/ychat-0.5.4/scripts/modules/file.pm b/ychat-0.5.4/scripts/modules/file.pm
new file mode 100755
index 0000000..b11e2b3
--- /dev/null
+++ b/ychat-0.5.4/scripts/modules/file.pm
@@ -0,0 +1,28 @@
+sub dopen
+{
+ my $shift = shift;
+ opendir DIR, $shift or die "$shift: $!\n";
+ my @dir = readdir(DIR);
+ closedir DIR;
+ return @dir;
+}
+
+sub fopen
+{
+ my $shift = shift;
+ open FILE, $shift or die "$shift: $!\n";
+ my @file = <FILE>; 
+ close FILE;
+ return @file;
+}
+
+sub fwrite
+{
+ my $shift = shift;
+ my @file = @_;
+ open FILE, ">$shift" or die "$shift: $!\n";
+ print FILE @file;
+ close FILE;
+}
+
+1;
diff --git a/ychat-0.5.4/scripts/stats.pl b/ychat-0.5.4/scripts/stats.pl
new file mode 100755
index 0000000..b55bc9e
--- /dev/null
+++ b/ychat-0.5.4/scripts/stats.pl
@@ -0,0 +1,95 @@
+#!/usr/bin/perl
+
+# The yhttpd Project (2003 - 2004)
+#
+# This script generates source code and project statistics 
+
+use strict;
+
+use scripts::modules::file;
+
+my %stats;
+my $param = shift;
+
+&recursive(".");
+
+$stats{"Lines total"} = $stats{"Lines of source"} 
+                   + $stats{"Lines of scripts"}   
+                   + $stats{"Lines of text"}   
+                   + $stats{"Lines of HTML"};
+
+unless (defined $param) {
+
+ print "$_ = " . $stats{$_} . "\n"
+  for ( sort keys %stats );
+
+} else {
+
+ print $stats{$_} . " "
+  for sort keys %stats;
+
+}
+
+print "\n";
+
+sub recursive
+{
+ my $shift = shift;
+ my @dir = &dopen($shift);
+ 
+ foreach (@dir)
+ {
+  next if /^\.$/ or /^\.{2}$/;
+
+  if ( -f "$shift/$_" )
+  {
+   $stats{"Number of files total"}++;
+   &filestats("$shift/$_");
+  }
+  elsif ( -d "$shift/$_" )
+  {
+   $stats{"Number of dirs total"}++;
+   &recursive("$shift/$_");
+  }
+ }
+}
+
+sub filestats
+{
+ my $shift = shift;
+ if ( $shift =~ /\.(cpp|h|tmpl)$/ )
+ {
+  $stats{"Number of source files"}++;
+  $stats{"Lines of source"} += countlines($shift);
+ }
+ elsif ( $shift =~ /\.(html|css)$/ )
+ {
+  $stats{"Number of HTML files"}++;
+  $stats{"Lines of HTML"} += countlines($shift);
+ }
+ elsif ( $shift =~ /\.(gif|png|jpg)$/ )
+ {
+  $stats{"Number of gfx files"}++;
+ }
+ elsif ( $shift =~ /(\.pl|\.sh|configure.*|Makefile.*)$/ )
+ {
+  $stats{"Number of script files"}++;
+  $stats{"Lines of scripts"} += countlines($shift);
+ }
+ elsif ( $shift =~ /(\.txt|README|INSTALL|COPYING|NEWS|SNAPSHOT|ChangeLog)$/ )
+ {
+  $stats{"Number of text files"}++;
+  $stats{"Lines of text"} += countlines($shift);
+ }
+ elsif ( $shift =~ /\.so$/ )
+ {
+  $stats{"Number of compiled module files"}++;
+ }
+}
+
+sub countlines
+{
+ my $shift = shift;
+ my @file = fopen($shift);
+ return $#file; 
+}