objective-ci 0.0.1

data/externals/sloccount/haskell_count

@@ -0,0 +1,122 @@
+#!/usr/bin/perl -w
+# haskell_count - count physical lines of code
+# Strips out {- .. -} and -- comments and counts the rest.
+# Pragmas, {-#...}, are counted as SLOC.
+# BUG: Doesn't handle strings with embedded block comment markers gracefully.
+#      In practice, that shouldn't be a problem.
+# Usage: haskell_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 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 determine_lit_type {
+  my ($file) = @_;
+
+  open (FILE, $file);
+  while (<FILE>) {
+    if (m/^\\begin{code}/) { close FILE; return 2; }
+    if (m/^>\s/) { close FILE; return 1; }
+  }
+
+  return 0;
+}
+
+sub count_file {
+  my ($file) = @_;
+  my $sloc = 0;
+  my $incomment = 0;
+  my ($literate, $inlitblock) = (0,0);
+
+  $literate = 1 if $file =~ /\.lhs$/;
+  if($literate) { $literate = determine_lit_type($file) }
+
+  open (FILE, $file);
+  while (<FILE>) {
+    if ($literate == 1) {
+      if (!s/^>//) { s/.*//; }
+    } elsif ($literate == 2) {
+      if ($inlitblock) {
+        if (m/^\\end{code}/) { s/.*//; $inlitblock = 0; }
+      } elsif (!$inlitblock) {
+        if (m/^\\begin{code}/) { s/.*//; $inlitblock = 1; }
+        else { s/.*//; }
+      }
+    }
+
+    if ($incomment) {
+      if (m/\-\}/) { s/^.*?\-\}//;  $incomment = 0;}
+      else { s/.*//; }
+    }
+    if (!$incomment) {
+      s/--.*//;
+      s!{-[^#].*?-}!!g;
+      if (m/{-/ && (!m/{-#/)) {
+        s/{-.*//;
+	$incomment = 1;
+      }
+    }
+    if (m/\S/) {$sloc++;}
+  }
+  print "$sloc $file\n";
+  if ($incomment) {print "ERROR: ended in comment in $ARGV\n";}
+  $total_sloc += $sloc;
+  $sloc = 0;
+  $incomment = 0;
+  close (FILE);
+}

data/externals/sloccount/lex_count

@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+# lex_count
+# Usage: lex_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 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;
+
+  $sloc = `lexcount1 < "$file"`;
+  chomp($sloc);
+  print "$sloc $file\n";
+  $total_sloc += $sloc;
+}
+

data/externals/sloccount/lisp_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/make_filelists

@@ -0,0 +1,193 @@
+#!/bin/sh
+
+# On the command line, list the source code directories, e.g.:
+#    /usr/src/redhat/BUILD/*
+# This command creates a set of directories paralleling the source code
+# directories, with a file named "filelist" listing all the files.
+
+# This script goes through some trouble to turn all relative references
+# into absolute pathnames, to make sure that the intended files
+# are always referenced. Conceivably the current directory isn't the
+# data directory and the parameters given use relative addressing,
+# and we need to fix all that here.
+
+# 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."
+  exit 1
+fi
+
+
+follow=""
+skip=""
+prefix=""
+startingdir=`pwd`
+datadir=`pwd`
+
+while [ "$#" -gt 0 ]
+do
+ case "$1"
+ in
+  --follow) follow="-follow"
+            shift;;
+  --datadir) shift
+             if [ ! -d "$1" ]
+             then
+               echo "Error: $1 is not a directory"
+               exit 1
+             fi
+             cd "$1"
+             datadir=`pwd`
+             cd "$startingdir"
+             shift;;
+  --skip) shift
+          skip="$1"
+          shift;;
+  --prefix) shift
+          prefix="$1"
+          shift;;
+  --) shift; break;;
+  --*) echo "Error: unrecognized option $1"
+       exit 1
+       shift ;;
+  *) break;;
+ esac
+done
+
+# Non-directories will be placed into the "top_dir" data directory:
+toplevel_name="${prefix}top_dir"
+
+for possible_dir
+do
+ # Reset to starting directory each time, so that relative directory
+ # requests will be processed correctly.
+ cd "$startingdir"
+
+ # Translate "." into the name of current directory.
+ # We have to handle "." and ".." specially, because we can't place
+ # files with these names into the data directory.
+ if [ "$possible_dir" = "." ]
+ then
+   possible_dir=`pwd`
+ fi
+ if [ "$possible_dir" = ".." ]
+ then
+   cd ..
+   possible_dir=`pwd`
+   # Reset current directory.
+   cd "$startingdir"
+ fi
+
+ base=`basename "$possible_dir"`
+ if [ "$base" = "$skip" ]
+ then
+  continue
+ fi
+
+ if [  -d "$possible_dir" ]
+ then
+  # Set "dir" to real name (if possible_dir is a symlink to another
+  # directory, then "dir" and "possible_dir" may have very different values)
+  # depending on how "cd" is implemented on your shell.
+  cd "$possible_dir"
+  dir=`pwd`
+
+  # The child directory's name is derived from possible_dir, not dir --
+  # that way, directories we create will have names based on the supplied
+  # name (potentially a link), not the linked-to directory's name.
+  # Thus, symlinks can be used to disambiguate names where necessary.
+  childname="${prefix}${base}"
+
+  cd "$datadir"
+  if [ -d "$childname" ]
+  then
+    echo "WARNING! Directory $childname pre-existed when adding $possible_dir"
+  else
+    mkdir "$childname"
+  fi
+
+  echo "Creating filelist for $childname"
+  find "$dir" $follow -type f -print > "${childname}/filelist"
+
+  # If it exists, copy the PROGRAM_LICENSE.
+  if [ -s "${dir}/PROGRAM_LICENSE" ]
+  then
+    cp "${dir}/PROGRAM_LICENSE" "${childname}/PROGRAM_LICENSE"
+  fi
+  # If it exists, copy the ORIGINAL_SPEC_FILE
+  if [ -s "${dir}/ORIGINAL_SPEC_FILE" ]
+  then
+    cp "${dir}/ORIGINAL_SPEC_FILE" "${childname}/ORIGINAL_SPEC_FILE"
+  fi
+
+  # Do some error-checking.
+  if [ ! -s "${childname}/filelist" ]
+  then
+   # This is inefficient, but it doesn't matter - it's only used
+   # when we have an empty filelist (which is often an error condition)
+   saw_a_file=n
+   for x in ls "$dir"
+   do
+    saw_a_file=y
+    break
+   done
+   case $saw_a_file
+   in
+    n)
+    echo "Warning: directory ${childname} got no files."
+    echo "You may need to use the --follow option.";;
+   esac
+  fi
+
+ elif [  -f "$possible_dir" ]
+ then
+  # We have a non-directory (regular file, symlink to a file, etc.).
+  # We'll just add an absolute path to it into the toplevel_name directory.
+
+  # First, convert possible_dir into an absolute pathname if necessary:
+  pathname="$possible_dir"
+  case "$pathname"
+  in
+    /*) ;;   # Already absolute pathname - do nothing.
+    *)  pathname="${startingdir}/${possible_dir}" ;;
+  esac
+
+  # Add it to the toplevel_name directory (creating the directory if needed)
+  cd "$datadir"
+  if [ ! -d "$toplevel_name" ]
+  then
+    echo "Have a non-directory at the top, so creating directory $toplevel_name"
+    mkdir "$toplevel_name"
+  fi
+  echo "Adding $pathname to $toplevel_name"
+  echo "$pathname" >> "${toplevel_name}/filelist"
+ else
+  echo "WARNING!!! Not a file nor a directory (so ignored): $possible_dir"
+ fi
+done
+exit 0
+

data/externals/sloccount/makefile_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/modula3_count

@@ -0,0 +1,65 @@
+#!/usr/bin/perl -w
+# modula3_count - count physical lines of code
+# Strips out (* .. *) and counts the rest.
+# Usage: modula3_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
+
+$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;
+  my $incomment = 0;
+
+  open (FILE, $file);
+  while (<FILE>) {
+    if ($incomment) {
+      if (m/\*\)/) { s/^.*?\*\)//;  $incomment = 0;}
+      else { s/.*//; }
+    }
+    if (!$incomment) {
+      s!\(\*.*?\*\)!!g;
+      if (m/\(\*/) {
+        s/\(\*.*//;
+        $incomment = 1;
+      }
+    }
+    if (m/\S/) {$sloc++;}
+  }
+  print "$sloc $file\n";
+  if ($incomment) {print "ERROR: ended in comment in $file\n";}
+  $total_sloc += $sloc;
+  $sloc = 0;
+  $incomment = 0;
+  close (FILE);
+}

data/externals/sloccount/objc_count

@@ -0,0 +1,89 @@
+#!/usr/bin/perl -w
+# objc_count - count physical lines of code
+# Strips out /* .. */ and counts the rest.
+# Usage: objc_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 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;
+  my $incomment = 0;
+
+  open (FILE, $file);
+  while (<FILE>) {
+    if ($incomment) {
+      if (m/\*\//) { s/^.*?\*\///;  $incomment = 0;}
+   else { s/.*//; }
+    }
+    if (!$incomment) {
+      # s/\/\*.*?\*\//g;
+      s!\/\*.*?\*\/!!g;
+      if (m/\/\*/) {
+        s/\/\*.*//;
+        $incomment = 1;
+      }
+    }
+    if (m/\S/) {$sloc++;}
+  }
+  print "$sloc $file\n";
+  if ($incomment) {print "ERROR: ended in comment in $file\n";}
+  $total_sloc += $sloc;
+  $sloc = 0;
+  $incomment = 0;
+  close (FILE);
+}