chrislo-sourceclassifier 0.2.0 → 0.2.1

data/sources/gcc/reversefile.gcc-2.gcc

@@ -1,56 +0,0 @@
-/* -*- mode: c -*-
- * $Id: reversefile.gcc-2.gcc,v 1.1 2004-11-10 06:51:38 bfulgham Exp $
- * http://www.bagley.org/~doug/shootout/
- */
-
-/* this version attempts to read the file line by line instead of
-   all at once. */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <unistd.h>
-
-#define BLKSIZE 16 * 1024
-
-int main(int argc, char *argv[]) {
-    int nread, size, len;
-    char *cp, *offset, *buf = malloc(BLKSIZE + 1);
-
-    offset = buf;
-    size = len = BLKSIZE;
-    while (1) {
-	nread = read(0, offset, len);
-	if (0 == nread) break;
-	if (-1 == nread) {
-	    perror("read");
-	    exit(1);
-	}
-	offset += nread;
-	len -= nread;
-	if (0 == len) {
-	    len = size;
-	    size *= 2;
-	    if (0 == (cp = realloc(buf, size + 1))) {
-		fprintf(stderr, "realloc failed\n");
-		exit(1);
-	    }
-	    buf = cp;
-	    offset = buf + len;
-	}
-    }
-    *offset = 0;
-    for (cp = offset; cp > buf; --cp) {
-	if ('\n' == *cp) {
-	    *offset = 0;
-	    if (cp < offset)
-		printf(offset = cp+1);
-	}
-    }
-    if (cp < offset) {
-	*offset = 0;
-	printf(cp);
-    }
-    free(buf);
-    return(0);
-}

data/sources/gcc/sieve.gcc

@@ -1,34 +0,0 @@
-/* -*- mode: c -*-
- * $Id: sieve.gcc,v 1.1.1.1 2004-05-19 18:12:27 bfulgham Exp $
- * http://www.bagley.org/~doug/shootout/
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-
-int
-main(int argc, char *argv[]) {
-    int NUM = ((argc == 2) ? atoi(argv[1]) : 1);
-    static char flags[8192 + 1];
-    long i, k;
-    int count = 0;
-
-    while (NUM--) {
-	count = 0; 
-	for (i=2; i <= 8192; i++) {
-	    flags[i] = 1;
-	}
-	for (i=2; i <= 8192; i++) {
-	    if (flags[i]) {
-		// remove all multiples of prime: i
-		for (k=i+i; k <= 8192; k+=i) {
-		    flags[k] = 0;
-		}
-		count++;
-	    }
-	}
-    }
-    printf("Count: %d\n", count);
-    return(0);
-}
-

data/sources/gcc/spectralnorm.gcc

@@ -1,54 +0,0 @@
-/* -*- mode: c -*-
- * 
- * The Great Computer Language Shootout
- * http://shootout.alioth.debian.org/
- *
- * Contributed by Sebastien Loisel
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <math.h>
-
-double eval_A(int i, int j) { return 1.0/((i+j)*(i+j+1)/2+i+1); }
-
-void eval_A_times_u(int N, const double u[], double Au[])
-{
-  int i,j;
-  for(i=0;i<N;i++)
-    {
-      Au[i]=0;
-      for(j=0;j<N;j++) Au[i]+=eval_A(i,j)*u[j];
-    }
-}
-
-void eval_At_times_u(int N, const double u[], double Au[])
-{
-  int i,j;
-  for(i=0;i<N;i++)
-    {
-      Au[i]=0;
-      for(j=0;j<N;j++) Au[i]+=eval_A(j,i)*u[j];
-    }
-}
-
-void eval_AtA_times_u(int N, const double u[], double AtAu[])
-{ double v[N]; eval_A_times_u(N,u,v); eval_At_times_u(N,v,AtAu); }
-
-int main(int argc, char *argv[])
-{
-  int i;
-  int N = ((argc == 2) ? atoi(argv[1]) : 2000);
-  double u[N],v[N],vBv,vv;
-  for(i=0;i<N;i++) u[i]=1;
-  for(i=0;i<10;i++)
-    {
-      eval_AtA_times_u(N,u,v);
-      eval_AtA_times_u(N,v,u);
-    }
-  vBv=vv=0;
-  for(i=0;i<N;i++) { vBv+=u[i]*v[i]; vv+=v[i]*v[i]; }
-  printf("%0.9f\n",sqrt(vBv/vv));
-  return 0;
-}
-

data/sources/gcc/spellcheck.gcc

@@ -1,72 +0,0 @@
-/* -*- mode: c -*-
- * $Id: spellcheck.gcc,v 1.1.1.1 2004-05-19 18:13:26 bfulgham Exp $
- * http://www.bagley.org/~doug/shootout/
- * with help from Brad Knotwell
- */
-
-#include <ctype.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <unistd.h>
-#include "simple_hash.h"
-
-#define MAXLINELEN 128
-
-struct ht_ht *dict = NULL;
-
-int handleInput(FILE *input,void (*hashManipFn)(char *))
-{
-    int wordbufsize = 80,i = 0;
-    char *cp, *wordbuf = (char *)malloc(wordbufsize + 1);
-    char line[MAXLINELEN];
-    
-    if((wordbuf = malloc(wordbufsize+1)) == NULL) 
-        return(fprintf(stderr,"malloc\n"),0);
-
-    while (fgets(line, MAXLINELEN, input))
-	for (cp=line; *cp > 0; cp++) {
-	    if (isspace(*cp)) {
-		if (i) {
-		    wordbuf[i] = '\0';
-                    hashManipFn(wordbuf);
-		    i = 0;
-		}
-	    } else {
-		wordbuf[i++] = *cp;
-		if (i == wordbufsize) {
-		    wordbufsize *= 2;
-		    if((wordbuf = realloc(wordbuf, wordbufsize + 1)) == NULL)
-                        return(fprintf(stderr, "realloc\n"), 0);
-		}
-	    }
-        }
-
-    free(wordbuf);
-    return(1);
-}
-
-void spellCheck(char *key) { 
-    if (ht_find_new(dict,key)->val != 1) printf("%s\n",key);
-}
-
-void hashLoad(char *key) { ht_find_new(dict,key)->val = 1; }
- 
-int main(int argc, char *argv[]) {
-    FILE *fh;
-    int rc;
-
-    /*  
-        ht_create doesn't handle malloc and calloc failures 
-        so this is superfluous 
-    */
-    if((dict = ht_create(40000)) == NULL)
-        return(fprintf(stderr,"hash creation failed\n"),EXIT_FAILURE);
-    
-    if ((fh = fopen("Usr.Dict.Words", "r")) == NULL) 
-        return(fprintf(stderr,"couldn't open dictionary\n"),EXIT_FAILURE);
-
-    rc = ((handleInput(fh,hashLoad) && handleInput(stdin,spellCheck)) ? EXIT_SUCCESS : EXIT_FAILURE);
-
-    ht_destroy(dict);
-    return(rc);
-}

data/sources/gcc/spellcheck.gcc-2.gcc

@@ -1,61 +0,0 @@
-/* -*- mode: c -*-
- * $Id: spellcheck.gcc-2.gcc,v 1.1 2004-11-10 06:47:52 bfulgham Exp $
- * http://www.bagley.org/~doug/shootout/
- */
-
-#include <ctype.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <unistd.h>
-#include "../../Include/simple_hash.h"
-
-int main(int argc, char *argv[]) {
-    int i, wordbufsize = 80;
-    char c, *wordbuf = (char *)malloc(wordbufsize + 1);
-    struct ht_ht *dict = ht_create(40000);
-    FILE *fh;
-    
-    if ((fh = fopen("Usr.Dict.Words", "r")) == NULL) {
-	perror("fopen");
-	exit(1);
-    }
-    i = 0;
-    while ((c = getc(fh)) > 0) {
-        if (isspace(c)) {
-	    if (i > 0) {
-		wordbuf[i] = '\0';
-		ht_find_new(dict, wordbuf)->val = 1;
-		i = 0;
-	    }
-        } else {
-            wordbuf[i++] = c;
-	    if (i == wordbufsize) {
-		wordbufsize *= 2;
-		wordbuf = realloc(wordbuf, wordbufsize + 1);
-	    } 
-        }
-    }
-    fclose(fh);
-
-    i = 0;
-    while ((c = getchar()) > 0) {
-        if (isspace(c)) {
-	    if (i > 0) {
-		wordbuf[i] = '\0';
-		if (ht_find(dict, wordbuf) == NULL) {
-		    printf("%s\n", wordbuf);
-		}
-		i = 0;
-	    }
-        } else {
-            wordbuf[i++] = c;
-	    if (i == wordbufsize) {
-		wordbufsize *= 2;
-		wordbuf = realloc(wordbuf, wordbufsize + 1);
-	    } 
-        }
-    }
-    free(wordbuf);
-    ht_destroy(dict);
-    return(0);
-}

data/sources/gcc/strcat.gcc

@@ -1,38 +0,0 @@
-/* -*- mode: c -*-
- * $Id: strcat.gcc,v 1.1.1.1 2004-05-19 18:13:34 bfulgham Exp $
- * http://www.bagley.org/~doug/shootout/
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <unistd.h>
-
-#define STUFF "hello\n"
-
-int
-main(int argc, char *argv[]) {
-    int n = ((argc == 2) ? atoi(argv[1]) : 1);
-    int i, buflen = 32;
-    char *strbuf = calloc(sizeof(char), buflen);
-    char *strend = strbuf;
-    int stufflen = strlen(STUFF);
-
-    if (!strbuf) { perror("calloc strbuf"); exit(1); }
-    for (i=0; i<n; i++) {
-	if (((strbuf+buflen)-strend) < (stufflen+1)) {
-	    buflen = 2*buflen;
-	    strbuf = realloc(strbuf, buflen);
-	    if (!strbuf) { perror("realloc strbuf"); exit(1); }
-	    strend = strbuf + strlen(strbuf);
-	}
-	/* much faster to strcat to strend than to strbuf */
-	strcat(strend, STUFF);
-	strend += stufflen;
-    }
-    fprintf(stdout, "%d\n", strlen(strbuf));
-    free(strbuf);
-
-    sleep(1);
-    return(0);
-}

data/sources/gcc/sumcol.gcc-2.gcc

@@ -1,98 +0,0 @@
-/* The Computer Language Shootout
- * http://shootout.alioth.debian.org/
- *
- * contributed by CTips (ctips@bestweb.net)
- * modified by 
- */
-#include <stdio.h>
-#include <stdlib.h>
-#include <ctype.h>
-#include <limits.h>
-
-#define MAXLINELEN	128
-
-/* the progam sums each digit position separately; the formula below gives
- * a coservative estimate of the number of digits required
- */
-#define MAXDIGITS 	((int)(1+((sizeof(int)*CHAR_BIT)/3)))
-
-/* stdin is may be unbuffered by default in the operating system. 
- * Provide a buffer as shown below to make sure that it is buffered
- */
-#ifndef IOBUFSIZE
-#define IOBUFSIZE	(16*1024)
-#endif
-
-/* according to the benchmark requiremnents, we need to use "line-oriented"
- * I/O functions. I'm going to assume that requires line-buffering as well,
- * but we can override the behavior here
- */
-#define IOBUFMODE	_IOLBF
-
-/* gets or fgets */
-#ifndef USE_GETS
-#define USE_GETS	1
-#endif
-
-#if USE_GETS
-#define IOGET(_line)	gets(_line)
-#else
-#define IOGET(_line)	fgets(_line, sizeof(_line), stdin)
-#endif
-
-int
-main(void)
-{
-  char		line[MAXLINELEN];
-  int		digitsum[MAXDIGITS];
-  char		iobuf[IOBUFSIZE];
-  int 		sum;
-  int		i;
-
-  setvbuf(stdin, iobuf, IOBUFMODE, sizeof(iobuf));
-
-  for( i = 0; i < MAXDIGITS; i++ ) {
-    digitsum[i] = 0;
-  }
-
-  while( IOGET(line) ) {
-    char *	p = line;
-    char	digits[15];
-    int		ndigits;
-    int		isneg;
-
-    while( isspace(*p) ) {
-      p++;
-    }
-
-    isneg = 0;
-    if( *p == '-' ) {
-      p++;
-      isneg = 1;
-    }
-
-    ndigits = 0;
-    while( isdigit(*p) ) {
-      digits[ndigits] = *p;
-      ndigits++;
-      p++;
-    }
-    if( isneg ) {
-      for( i = 0; i < ndigits; i++ ) {
-	digitsum[i] -= digits[ndigits-1-i] - '0';
-      }
-    }
-    else {
-      for( i = 0; i < ndigits; i++ ) {
-	digitsum[i] += digits[ndigits-1-i] - '0';
-      }
-    }
-  }
-
-  sum = 0;
-  for( i = MAXDIGITS-1; i >= 0; i-- ) {
-    sum = sum*10 + digitsum[i];
-  }
-  printf("%d\n", sum);
-  return(0);
-}

data/sources/gcc/sumcol.gcc-3.gcc

@@ -1,22 +0,0 @@
-/* The Computer Language Benchmarks Game
-   http://shootout.alioth.debian.org/
-   modified by … James Antill - 2007-06-14
- */
-
-#define _GNU_SOURCE 1
-#include <stdio.h>
-#include <stdlib.h>
-
-#define MAXLINELEN 128
-
-int
-main() {
-    int sum = 0;
-    char line[MAXLINELEN];
-
-    while (fgets_unlocked(line, MAXLINELEN, stdin)) {
-	sum += atoi(line);
-    }
-    printf("%d\n", sum);
-    return(0);
-}