objective-ci 0.0.1

data/externals/sloccount/cobol_count

@@ -0,0 +1,82 @@
+#!/usr/bin/perl
+# cobol_count - count physical lines of code.
+# Usage: cobol_count [-f file] [list_of_files]
+#  file: file with a list of files to count (if "-", read list from stdin)
+#  list_of_files: list of files to count
+#  -f file or list_of_files can be used, or both
+# This is a trivial/naive program for scripts, etc.
+# 
+# This is part of SLOCCount, a toolsuite that counts
+# source lines of code (SLOC).
+# Copyright (C) 2001-2004 David A. Wheeler.
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+# To contact David A. Wheeler, see his website at:
+#  http://www.dwheeler.com.
+# 
+# 
+
+$total_sloc = 0;
+
+# Do we have "-f" (read list of files from second argument)?
+if (($#ARGV >= 1) && ($ARGV[0] eq "-f")) {
+  # Yes, we have -f
+  if ($ARGV[1] eq "-") {
+    # The list of files is in STDIN
+    while (<STDIN>) {
+      chomp ($_);
+      &count_file ($_);
+    }
+  } else {
+    # The list of files is in the file $ARGV[1]
+    open (FILEWITHLIST, $ARGV[1]) || die "Error: Could not open $filewithlist\n";
+    while (<FILEWITHLIST>) {
+      chomp ($_);
+      &count_file ($_);
+    }
+    close FILEWITHLIST;
+  }
+  shift @ARGV; shift @ARGV;
+}
+# Process all (remaining) arguments as file names
+while ($file = shift @ARGV) {
+  &count_file ($file);
+}
+
+print "Total:\n";
+print "$total_sloc\n";
+
+sub count_file {
+  my ($file) = @_;
+  my $sloc = 0;
+  my $free_format = 0;  # Support "free format" source code.
+
+  open (FILE, $file);
+  while (<FILE>) {
+    if (m/^......\$.*SET.*SOURCEFORMAT.*FREE/i) {$free_format = 1;}
+    if ($free_format) {
+      if (m/^\s*[\*\/]/) { }  # Saw a comment.
+      elsif (m/\S/) {$sloc++;} # Saw a non-whitespace, it's SLOC.
+    } else {
+      if (m/^......[\*\/]/) {}  # Saw a comment - marked in indicator area.
+      elsif (m/^[\*\/]/) {}     # Saw a comment.
+      elsif (m/^........*\S/) {$sloc++;} # Saw a non-whitespace, it's SLOC.
+    }
+  }
+  print "$sloc $file\n";
+  $total_sloc += $sloc;
+  close (FILE);
+}

data/externals/sloccount/compute_all

@@ -0,0 +1,87 @@
+#!/bin/sh
+# Computes filecounts and SLOC counts in the listed data directories
+# if the don't already exist.
+# 
+# This is part of SLOCCount, a toolsuite that counts
+# source lines of code (SLOC).
+# Copyright (C) 2001-2004 David A. Wheeler.
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+# To contact David A. Wheeler, see his website at:
+#  http://www.dwheeler.com.
+# 
+# 
+
+if [ "$#" -eq 0 ]
+then
+  echo "Error: You must provide a list of directories to examine."
+  exit 1
+fi
+
+starting_dir=`pwd`
+
+for dir
+do
+ if [ -d "$dir" -a -r "${dir}/filelist" ]
+ then
+  cd "$dir"
+
+  if [ ! -r all.filecount ]
+  then
+    # Create all.filecount and all-physical.sloc; create them in
+    # separate files, so that we can safely restart if it stops in the middle:
+    > all.filecount.new
+    > all-physical.sloc.new
+    for listfile in *_list.dat
+    do
+     language=`echo $listfile | sed -e 's/_list\.dat$//'`
+
+     # Skip language "*" - this happens if there are NO source
+     # files in the given directory.
+     if [ "$language" = "*" ]; then
+       continue
+     fi
+
+     # Skip language "h" - it's counted in the ansic, cpp, and objc lists.
+     if [ "$language" = "h" ]; then
+       continue
+     fi
+
+     numfiles=`wc -l < $listfile | tr -d " "`
+     echo "$language	$numfiles" >> all.filecount.new
+
+     # Ignore certain "languages" when counting SLOC:
+     case "$language"
+     in
+       not) true ;;
+       unknown) true ;;
+       zero) true ;;
+       dup) true ;;
+       auto) true ;;
+       *)
+         numsloc=`compute_sloc_lang $language "." | tr -d " "`
+         echo "$language	$numsloc" >> all-physical.sloc.new
+       ;;
+     esac
+    done
+    mv all.filecount.new all.filecount
+    mv all-physical.sloc.new all-physical.sloc
+  fi
+
+  cd "$starting_dir"
+ fi
+done
+

data/externals/sloccount/compute_sloc_lang

@@ -0,0 +1,66 @@
+#!/bin/sh
+# Computes sloc in the listed directories.
+# first parameter = language.
+# Creates the "outfile", and prints the total.
+# 
+# This is part of SLOCCount, a toolsuite that counts
+# source lines of code (SLOC).
+# Copyright (C) 2001-2004 David A. Wheeler.
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+# To contact David A. Wheeler, see his website at:
+#  http://www.dwheeler.com.
+# 
+# 
+
+language="$1"
+shift
+
+starting_dir=`pwd`
+
+for dir in "$@"
+do
+ if [ -d "$dir" -a -r "${dir}/filelist" ]
+ then
+  cd "$dir"
+
+  if [ -s ${language}_list.dat ]
+  then
+   case "$language" in
+     ansic)  use_c_count="y" ;;
+     cpp)    use_c_count="y" ;;
+     java)   use_c_count="y" ;;
+     yacc)   use_c_count="y" ;;
+     cs)     use_c_count="y" ;;
+     *)      use_c_count="n" ;;
+   esac
+
+   case "$use_c_count" in
+     y) c_count -f ${language}_list.dat > ${language}_outfile.dat ;;
+     *) ${language}_count -f ${language}_list.dat > ${language}_outfile.dat
+        ;;
+   esac
+   tail -1 < ${language}_outfile.dat
+
+  else
+   rm -f ${language}_outfile.dat
+   echo 0
+  fi
+
+  cd "$starting_dir"
+ fi
+done
+

data/externals/sloccount/count_extensions

@@ -0,0 +1,56 @@
+#!/usr/bin/perl -w
+
+# Read from standard input a list of filenames, and
+# report a sorted list of extensions and filenames
+# (most common ones first).
+
+# The format is "name count", where "count" is the number of appearances.
+# "name" usually begins with a "." followed by the name of the extension.
+# In the case where the filename has no extension, the name begins with "/"
+# followed by the entire basename.
+
+# This is part of SLOCCount, a toolsuite that counts
+# source lines of code (SLOC).
+# Copyright (C) 2001-2004 David A. Wheeler.
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+# To contact David A. Wheeler, see his website at:
+#  http://www.dwheeler.com.
+# 
+# 
+
+%extensions = ();
+
+while (<>) {
+   if (m/\.([^.\/]+)$/) {
+      $type = $1;
+      chomp($type);
+      $type = ".$type";
+      if (defined($extensions{$type})) { $extensions{$type}++; }
+      else                             { $extensions{$type} = 1; }
+   } elsif (m!/([^/]+)$!) {
+      $filename = $1;
+      chomp($filename);
+      $filename = "/$filename";
+      if (defined($extensions{$filename})) { $extensions{$filename}++; }
+      else                                 { $extensions{$filename} = 1; }
+   }
+}
+
+foreach $entry (sort {$extensions{$b} <=> $extensions{$a}} keys %extensions) {
+  print "${entry}  $extensions{$entry}\n";
+}
+

data/externals/sloccount/count_unknown_ext

@@ -0,0 +1,32 @@
+#!/bin/sh
+
+# This reports a sorted list of the "unknown" file extensions
+# analyzed by a previous run of SLOCCount, most common first.
+# Use this to make sure that there isn't a common language type
+# that you are NOT counting.
+
+# This is part of SLOCCount, a toolsuite that counts
+# source lines of code (SLOC).
+# Copyright (C) 2001-2004 David A. Wheeler.
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+# To contact David A. Wheeler, see his website at:
+#  http://www.dwheeler.com.
+
+
+find ${HOME}/.slocdata -name 'unknown_list.dat' -exec cat {} \; | \
+   count_extensions  | less
+

data/externals/sloccount/csh_count

@@ -0,0 +1,27 @@
+#!/bin/sh
+# 
+# This is part of SLOCCount, a toolsuite that counts
+# source lines of code (SLOC).
+# Copyright (C) 2001-2004 David A. Wheeler.
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+# To contact David A. Wheeler, see his website at:
+#  http://www.dwheeler.com.
+# 
+# 
+
+generic_count '#' $@
+

data/externals/sloccount/exp_count

@@ -0,0 +1,27 @@
+#!/bin/sh
+# 
+# This is part of SLOCCount, a toolsuite that counts
+# source lines of code (SLOC).
+# Copyright (C) 2001-2004 David A. Wheeler.
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+# To contact David A. Wheeler, see his website at:
+#  http://www.dwheeler.com.
+# 
+# 
+
+generic_count '#' $@
+

data/externals/sloccount/f90_count

@@ -0,0 +1,81 @@
+#!/usr/bin/perl
+# f90_count - count physical lines of code in Fortran 90.
+# Usage: f90_count [-f file] [list_of_files]
+#  file: file with a list of files to count (if "-", read list from stdin)
+#  list_of_files: list of files to count
+#  -f file or list_of_files can be used, or both
+
+# Ignores comment-only lines (where first nonblank character = !).
+# Lines beginning with !hpf$ or !omp$ are not comments lines.
+
+# 
+# This is part of SLOCCount, a toolsuite that counts
+# source lines of code (SLOC).
+# Copyright (C) 2001-2004 David A. Wheeler.
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+# To contact David A. Wheeler, see his website at:
+#  http://www.dwheeler.com.
+# 
+# 
+
+$total_sloc = 0;
+
+# Do we have "-f" (read list of files from second argument)?
+if (($#ARGV >= 1) && ($ARGV[0] eq "-f")) {
+  # Yes, we have -f
+  if ($ARGV[1] eq "-") {
+    # The list of files is in STDIN
+    while (<STDIN>) {
+      chomp ($_);
+      &count_file ($_);
+    }
+  } else {
+    # The list of files is in the file $ARGV[1]
+    open (FILEWITHLIST, $ARGV[1]) || die "Error: Could not open $ARGV[1]\n";
+    while (<FILEWITHLIST>) {
+      chomp ($_);
+      &count_file ($_);
+    }
+    close FILEWITHLIST;
+  }
+  shift @ARGV; shift @ARGV;
+}
+# Process all (remaining) arguments as file names
+while ($file = shift @ARGV) {
+  &count_file ($file);
+}
+
+print "Total:\n";
+print "$total_sloc\n";
+
+sub count_file {
+  my ($file) = @_;
+  my $sloc = 0;
+
+  open (FILE, $file);
+  while (<FILE>) {
+    # a comment is              m/^\s*!/
+    # an empty line is          m/^\s*$/
+    # a HPF statement is        m/^\s*!hpf\$/i
+    # an Open MP statement is   m/^\s*!omp\$/i
+    if (! m/^(\s*!|\s*$)/ || m/^\s*!(hpf|omp)\$/i) {$sloc++;}
+  }
+  print "$sloc $file\n";
+  $total_sloc += $sloc;
+  $sloc = 0;
+  close (FILE);
+}

data/externals/sloccount/fortran_count

@@ -0,0 +1,83 @@
+#!/usr/bin/perl
+# fortran_count - count physical lines of code in Fortran 77.
+# Usage: fortran_count [-f file] [list_of_files]
+#  file: file with a list of files to count (if "-", read list from stdin)
+#  list_of_files: list of files to count
+#  -f file or list_of_files can be used, or both
+
+# Ignores comment-only lines
+# (where column 1 character = C, c, *, or !,
+#  or where a ! is preceded only by white space)
+# Lines beginning with !hpf$ or !omp$ are not comments lines either.
+
+# This is part of SLOCCount, a toolsuite that counts
+# source lines of code (SLOC).
+# Copyright (C) 2001-2004 David A. Wheeler.
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+# To contact David A. Wheeler, see his website at:
+#  http://www.dwheeler.com.
+# 
+# 
+
+$total_sloc = 0;
+
+# Do we have "-f" (read list of files from second argument)?
+if (($#ARGV >= 1) && ($ARGV[0] eq "-f")) {
+  # Yes, we have -f
+  if ($ARGV[1] eq "-") {
+    # The list of files is in STDIN
+    while (<STDIN>) {
+      chomp ($_);
+      &count_file ($_);
+    }
+  } else {
+    # The list of files is in the file $ARGV[1]
+    open (FILEWITHLIST, $ARGV[1]) || die "Error: Could not open $ARGV[1]\n";
+    while (<FILEWITHLIST>) {
+      chomp ($_);
+      &count_file ($_);
+    }
+    close FILEWITHLIST;
+  }
+  shift @ARGV; shift @ARGV;
+}
+# Process all (remaining) arguments as file names
+while ($file = shift @ARGV) {
+  &count_file ($file);
+}
+
+print "Total:\n";
+print "$total_sloc\n";
+
+sub count_file {
+  my ($file) = @_;
+  my $sloc = 0;
+
+  open (FILE, $file);
+  while (<FILE>) {
+    # a normal comment is       m/^[c*!]/i
+    # a fancier comment is      m/^\s+!/i
+    # an empty line is          m/^\s*$/i
+    # a HPF statement is        m/^[c*!]hpf\$/i
+    # an Open MP statement is   m/^[c*!]omp\$/i
+    if (! m/^([c*!]|\s+!|\s*$)/i || m/^[c*!](hpf|omp)\$/i) {$sloc++;}
+  }
+  print "$sloc $file\n";
+  $total_sloc += $sloc;
+  $sloc = 0;
+  close (FILE);
+}

data/externals/sloccount/generic_count

@@ -0,0 +1,77 @@
+#!/usr/bin/perl
+# generic_count - count physical lines of code, given a comment marker.
+# Usage: generic_count commentstart [-f file] [list_of_files]
+#  commentstart: string that begins a comment (continuing til end-of-line)
+#  file: file with a list of files to count (if "-", read list from stdin)
+#  list_of_files: list of files to count
+#  -f file or list_of_files can be used, or both
+# This is a trivial/naive program for scripts, etc.
+
+
+# This is part of SLOCCount, a toolsuite that counts
+# source lines of code (SLOC).
+# Copyright (C) 2001-2004 David A. Wheeler.
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+# 
+# To contact David A. Wheeler, see his website at:
+#  http://www.dwheeler.com.
+# 
+# 
+
+$commentstart = shift @ARGV;
+$total_sloc = 0;
+
+# Do we have "-f" (read list of files from second argument)?
+if (($#ARGV >= 1) && ($ARGV[0] eq "-f")) {
+  # Yes, we have -f
+  if ($ARGV[1] eq "-") {
+    # The list of files is in STDIN
+    while (<STDIN>) {
+      chomp ($_);
+      &count_file ($_);
+    }
+  } else {
+    # The list of files is in the file $ARGV[1]
+    open (FILEWITHLIST, $ARGV[1]) || die "Error: Could not open $filewithlist\n";
+    while (<FILEWITHLIST>) {
+      chomp ($_);
+      &count_file ($_);
+    }
+    close FILEWITHLIST;
+  }
+  shift @ARGV; shift @ARGV;
+}
+# Process all (remaining) arguments as file names
+while ($file = shift @ARGV) {
+  &count_file ($file);
+}
+
+print "Total:\n";
+print "$total_sloc\n";
+
+sub count_file {
+  my ($file) = @_;
+  my $sloc = 0;
+
+  open (FILE, $file);
+  while (<FILE>) {
+    s/${commentstart}.*//;
+    if (m/\S/) {$sloc++;}
+  }
+  print "$sloc $file\n";
+  $total_sloc += $sloc;
+  close (FILE);
+}