chrislo-sourceclassifier 0.2.0 → 0.2.1

data/sources/gcc/message.gcc-3.gcc

@@ -1,64 +0,0 @@
-/* The Computer Language Benchmarks Game
- * http://shootout.alioth.debian.org/
- * contributed contributed by Ian Chiew
- */
-
-#include <pthread.h>
-#include <semaphore.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <assert.h>
-
-#define THREADS 500
-#define THREAD_STACK_SIZE (1024 * 100)
-
-struct inbox {
-    sem_t sem;
-    int n;
-};
-
-struct worker {
-    struct inbox inbox, *next_inbox;
-    pthread_t thread;
-};
-
-void *work(void *data) {
-    struct worker *worker = (struct worker *)data;
-
-    while (1) {
-        assert(sem_wait(&worker->inbox.sem) == 0);
-        worker->next_inbox->n = worker->inbox.n + 1;
-        assert(sem_post(&worker->next_inbox->sem) == 0);
-    }
-
-    return NULL;
-}
-
-int main(int argc, char **argv) {
-    struct worker workers[THREADS];
-    struct inbox main_inbox;
-    pthread_attr_t attr;
-    int n, i, j, sum = 0;
-
-    assert(argc == 2 && (n = atoi(argv[1])) != -1);
-    assert(sem_init(&main_inbox.sem, 0, 0) == 0);
-    assert(pthread_attr_init(&attr) == 0);
-    assert(pthread_attr_setstacksize(&attr, THREAD_STACK_SIZE) == 0);
-
-    for (i = 0; i < THREADS; i++) {
-        workers[i].next_inbox = i == 0 ? &main_inbox : &workers[i - 1].inbox;
-        sem_init(&workers[i].inbox.sem, 0, 0);
-        assert(pthread_create(&workers[i].thread, &attr, work, &workers[i]) == 0);
-    }
-
-    for (j = 0; j < n; j++)
-    {
-        workers[THREADS - 1].inbox.n = 0;
-        assert(sem_post(&workers[THREADS - 1].inbox.sem) == 0);
-        assert(sem_wait(&main_inbox.sem) == 0);
-        sum += main_inbox.n;
-    }
-
-    printf("%d\n", sum);
-    exit(0);
-}

data/sources/gcc/methcall.gcc

@@ -1,89 +0,0 @@
-/* -*- mode: c -*-
- * $Id: methcall.gcc,v 1.1.1.1 2004-05-19 18:10:40 bfulgham Exp $
- * http://www.bagley.org/~doug/shootout/
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-
-
-enum {false, true};
-
-#define TOGGLE \
-    char state; \
-    char (*value)(struct Toggle *); \
-    struct Toggle *(*activate)(struct Toggle *)
-
-#define DESTROY  free
-
-typedef struct Toggle {
-    TOGGLE;
-} Toggle;
-
-char toggle_value(Toggle *this) {
-    return(this->state);
-}
-Toggle *toggle_activate(Toggle *this) {
-    this->state = !this->state;
-    return(this);
-}
-Toggle *init_Toggle(Toggle *this, char start_state) {
-    this->state = start_state;
-    this->value = toggle_value;
-    this->activate = toggle_activate;
-    return(this);
-}
-Toggle *new_Toggle(char start_state) {
-    Toggle *this = (Toggle *)malloc(sizeof(Toggle));
-    return(init_Toggle(this, start_state));
-}
-
-
-typedef struct NthToggle {
-    TOGGLE;
-    int count_max;
-    int counter;
-} NthToggle;
-
-NthToggle *nth_toggle_activate(NthToggle *this) {
-    if (++this->counter >= this->count_max) {
-	this->state = !this->state;
-	this->counter = 0;
-    }
-    return(this);
-}
-NthToggle *init_NthToggle(NthToggle *this, int max_count) {
-    this->count_max = max_count;
-    this->counter = 0;
-    this->activate = (Toggle *(*)(Toggle *))nth_toggle_activate;
-    return(this);
-}
-NthToggle *new_NthToggle(char start_state, int max_count) {
-    NthToggle *this = (NthToggle *)malloc(sizeof(NthToggle));
-    this = (NthToggle *)init_Toggle((Toggle *)this, start_state);
-    return(init_NthToggle(this, max_count));
-}
-
-
-int main(int argc, char *argv[]) {
-    int i, n = ((argc == 2) ? atoi(argv[1]) : 1);
-    Toggle *tog;
-    NthToggle *ntog;
-    char val = true;
-
-    tog = new_Toggle(true);
-    for (i=0; i<n; i++) {
-	val = tog->activate(tog)->value(tog);
-    }
-    fputs(val ? "true\n" : "false\n", stdout);
-    DESTROY(tog);
-    
-    val = true;
-    ntog = new_NthToggle(val, 3);
-    for (i=0; i<n; i++) {
-	val = ntog->activate(ntog)->value(ntog);
-    }
-    fputs(val ? "true\n" : "false\n", stdout);
-    DESTROY(ntog);
-    return 0;
-}

data/sources/gcc/moments.gcc

@@ -1,120 +0,0 @@
-/* -*- mode: c -*-
- * $Id: moments.gcc,v 1.1.1.1 2004-05-19 18:10:47 bfulgham Exp $
- * http://www.bagley.org/~doug/shootout/
- * from Waldek Hebisch
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <math.h>
-
-#define MAXLINELEN 128
-
-/* kmedian permutes elements of a to get
-   a[i]<=a[k] for i<k
-   a[i]>=a[k] for i>k
-	See. N. Wirth, Algorithms+data structures = Programs
-*/
-
-void kmedian(double *a, int n, int k) 
-{
-	while (1){
-		int j=random()%n; 
-		double b = a[j];
-		int i=0;
-        	j = n-1;
-        	while(1) {
-        	    while( a[i]<b ) i++;
-        	    while( a[j]>b ) j--;
-        	    if(i<j) {
-                	double tmp=a[i];
-                	a[i]=a[j];
-                	a[j]=tmp;
-                	i++;
-                	j--;
-       		    } else {
-                	if(a[j]<b) j++;
-                	if(a[i]>b) i--;
-			break;
-        	    }
-        	}
-		if(i<k) {
-			k-=i+1;
-			n-=i+1;
-			a+=i+1;
-		} else if (j>k) { 
-			n=j;
-		} else return;
-	}
-}
-
-double max(double *a, int n)
-{
-	int j;
-	double temp=a[0];
-	for(j=1;j<n;j++) { 
-		if(a[j]>temp) {
-			temp=a[j];
-		}
-	}
-	return temp;
-}
-
-
-int
-main() {
-    char line[MAXLINELEN];
-    int i, n = 0, mid = 0;
-    double sum = 0.0;
-    double mean = 0.0;
-    double average_deviation = 0.0;
-    double standard_deviation = 0.0;
-    double variance = 0.0;
-    double skew = 0.0;
-    double kurtosis = 0.0;
-    double median = 0.0;
-    double deviation = 0.0;
-    int array_size = 4096;
-
-    double *nums = (double *)malloc(array_size * sizeof(double));
-
-    while (fgets(line, MAXLINELEN, stdin)) {
-	sum += (nums[n++] = atof(line));
-	if (n == array_size) {
-	    array_size *= 2;
-	    nums = (double *)realloc(nums, array_size * sizeof(double));
-	}
-    }
-    mean = sum/n;
-    for (i=0; i<n; i++) {
-	double dev = nums[i] - mean;
-	double dev2=dev*dev;
-	double dev3=dev2*dev;
-	double dev4=dev3*dev;
-	average_deviation += fabs(dev);
-	variance += dev2 /*pow(deviation,2)*/;
-	skew += dev3 /* pow(deviation,3) */;
-	kurtosis += dev4 /* pow(deviation,4) */;
-    }
-    average_deviation /= n;
-    variance /= (n - 1);
-    standard_deviation = sqrt(variance);
-    if (variance) {
-	skew /= (n * variance * standard_deviation);
-	kurtosis = (kurtosis/(n * variance * variance)) - 3.0;
-    }
-    mid = (n/2);
-    kmedian(nums, n, mid); 
-    median = n % 2 ? nums[mid] : (nums[mid] + max(nums,mid))/2;
-    free(nums);
-    printf("n:                  %d\n", n);
-    printf("median:             %f\n", median);
-    printf("mean:               %f\n", mean);
-    printf("average_deviation:  %f\n", average_deviation);
-    printf("standard_deviation: %f\n", standard_deviation);
-    printf("variance:           %f\n", variance);
-    printf("skew:               %f\n", skew);
-    printf("kurtosis:           %f\n", kurtosis);
-
-    return(0);
-}

data/sources/gcc/nbody.gcc

@@ -1,142 +0,0 @@
-/*
- * The Great Computer Language Shootout
- * http://shootout.alioth.debian.org/
- *
- * contributed by Christoph Bauer
- *  
- */
-
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#define pi 3.141592653589793
-#define solar_mass (4 * pi * pi)
-#define days_per_year 365.24
-
-struct planet {
-  double x, y, z;
-  double vx, vy, vz;
-  double mass;
-};
-
-void advance(int nbodies, struct planet * bodies, double dt)
-{
-  int i, j;
-
-  for (i = 0; i < nbodies; i++) {
-    struct planet * b = &(bodies[i]);
-    for (j = i + 1; j < nbodies; j++) {
-      struct planet * b2 = &(bodies[j]);
-      double dx = b->x - b2->x;
-      double dy = b->y - b2->y;
-      double dz = b->z - b2->z;
-      double distance = sqrt(dx * dx + dy * dy + dz * dz);
-      double mag = dt / (distance * distance * distance);
-      b->vx -= dx * b2->mass * mag;
-      b->vy -= dy * b2->mass * mag;
-      b->vz -= dz * b2->mass * mag;
-      b2->vx += dx * b->mass * mag;
-      b2->vy += dy * b->mass * mag;
-      b2->vz += dz * b->mass * mag;
-    }
-  }
-  for (i = 0; i < nbodies; i++) {
-    struct planet * b = &(bodies[i]);
-    b->x += dt * b->vx;
-    b->y += dt * b->vy;
-    b->z += dt * b->vz;
-  }
-}
-
-double energy(int nbodies, struct planet * bodies)
-{
-  double e;
-  int i, j;
-
-  e = 0.0;
-  for (i = 0; i < nbodies; i++) {
-    struct planet * b = &(bodies[i]);
-    e += 0.5 * b->mass * (b->vx * b->vx + b->vy * b->vy + b->vz * b->vz);
-    for (j = i + 1; j < nbodies; j++) {
-      struct planet * b2 = &(bodies[j]);
-      double dx = b->x - b2->x;
-      double dy = b->y - b2->y;
-      double dz = b->z - b2->z;
-      double distance = sqrt(dx * dx + dy * dy + dz * dz);
-      e -= (b->mass * b2->mass) / distance;
-    }
-  }
-  return e;
-}
-
-void offset_momentum(int nbodies, struct planet * bodies)
-{
-  double px = 0.0, py = 0.0, pz = 0.0;
-  int i;
-  for (i = 0; i < nbodies; i++) {
-    px += bodies[i].vx * bodies[i].mass;
-    py += bodies[i].vy * bodies[i].mass;
-    pz += bodies[i].vz * bodies[i].mass;
-  }
-  bodies[0].vx = - px / solar_mass;
-  bodies[0].vy = - py / solar_mass;
-  bodies[0].vz = - pz / solar_mass;
-}
-
-#define NBODIES 5
-struct planet bodies[NBODIES] = {
-  {                               /* sun */
-    0, 0, 0, 0, 0, 0, solar_mass
-  },
-  {                               /* jupiter */
-    4.84143144246472090e+00,
-    -1.16032004402742839e+00,
-    -1.03622044471123109e-01,
-    1.66007664274403694e-03 * days_per_year,
-    7.69901118419740425e-03 * days_per_year,
-    -6.90460016972063023e-05 * days_per_year,
-    9.54791938424326609e-04 * solar_mass
-  },
-  {                               /* saturn */
-    8.34336671824457987e+00,
-    4.12479856412430479e+00,
-    -4.03523417114321381e-01,
-    -2.76742510726862411e-03 * days_per_year,
-    4.99852801234917238e-03 * days_per_year,
-    2.30417297573763929e-05 * days_per_year,
-    2.85885980666130812e-04 * solar_mass
-  },
-  {                               /* uranus */
-    1.28943695621391310e+01,
-    -1.51111514016986312e+01,
-    -2.23307578892655734e-01,
-    2.96460137564761618e-03 * days_per_year,
-    2.37847173959480950e-03 * days_per_year,
-    -2.96589568540237556e-05 * days_per_year,
-    4.36624404335156298e-05 * solar_mass
-  },
-  {                               /* neptune */
-    1.53796971148509165e+01,
-    -2.59193146099879641e+01,
-    1.79258772950371181e-01,
-    2.68067772490389322e-03 * days_per_year,
-    1.62824170038242295e-03 * days_per_year,
-    -9.51592254519715870e-05 * days_per_year,
-    5.15138902046611451e-05 * solar_mass
-  }
-};
-
-int main(int argc, char ** argv)
-{
-  int n = atoi(argv[1]);
-  int i;
-
-  offset_momentum(NBODIES, bodies);
-  printf ("%.9f\n", energy(NBODIES, bodies));
-  for (i = 1; i <= n; i++)
-    advance(NBODIES, bodies, 0.01);
-  printf ("%.9f\n", energy(NBODIES, bodies));
-  return 0;
-}
-

data/sources/gcc/nbody.gcc-2.gcc

@@ -1,143 +0,0 @@
-/*
- * The Computer Language Benchmarks Game
- * http://shootout.alioth.debian.org/
- *
- * contributed by Christoph Bauer
- * modified by bearophile
- */
-
-
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#define pi 3.141592653589793
-#define solar_mass (4 * pi * pi)
-#define days_per_year 365.24
-
-struct planet {
-  double x, y, z;
-  double vx, vy, vz;
-  double mass;
-};
-
-void advance(int nbodies, struct planet * bodies, double dt)
-{
-  int i, j;
-
-  for (i = 0; i < nbodies; i++) {
-    struct planet * b = &(bodies[i]);
-    for (j = i + 1; j < nbodies; j++) {
-      struct planet * b2 = &(bodies[j]);
-      double dx = b->x - b2->x;
-      double dy = b->y - b2->y;
-      double dz = b->z - b2->z;
-      double distance_squared = dx * dx + dy * dy + dz * dz;
-      double distance = sqrt(distance_squared);
-      double mag = dt / (distance * distance_squared);
-      b->vx -= dx * b2->mass * mag;
-      b->vy -= dy * b2->mass * mag;
-      b->vz -= dz * b2->mass * mag;
-      b2->vx += dx * b->mass * mag;
-      b2->vy += dy * b->mass * mag;
-      b2->vz += dz * b->mass * mag;
-    }
-  }
-  for (i = 0; i < nbodies; i++) {
-    struct planet * b = &(bodies[i]);
-    b->x += dt * b->vx;
-    b->y += dt * b->vy;
-    b->z += dt * b->vz;
-  }
-}
-
-double energy(int nbodies, struct planet * bodies)
-{
-  double e;
-  int i, j;
-
-  e = 0.0;
-  for (i = 0; i < nbodies; i++) {
-    struct planet * b = &(bodies[i]);
-    e += 0.5 * b->mass * (b->vx * b->vx + b->vy * b->vy + b->vz * b->vz);
-    for (j = i + 1; j < nbodies; j++) {
-      struct planet * b2 = &(bodies[j]);
-      double dx = b->x - b2->x;
-      double dy = b->y - b2->y;
-      double dz = b->z - b2->z;
-      double distance = sqrt(dx * dx + dy * dy + dz * dz);
-      e -= (b->mass * b2->mass) / distance;
-    }
-  }
-  return e;
-}
-
-void offset_momentum(int nbodies, struct planet * bodies)
-{
-  double px = 0.0, py = 0.0, pz = 0.0;
-  int i;
-  for (i = 0; i < nbodies; i++) {
-    px += bodies[i].vx * bodies[i].mass;
-    py += bodies[i].vy * bodies[i].mass;
-    pz += bodies[i].vz * bodies[i].mass;
-  }
-  bodies[0].vx = - px / solar_mass;
-  bodies[0].vy = - py / solar_mass;
-  bodies[0].vz = - pz / solar_mass;
-}
-
-#define NBODIES 5
-struct planet bodies[NBODIES] = {
-  {                               /* sun */
-    0, 0, 0, 0, 0, 0, solar_mass
-  },
-  {                               /* jupiter */
-    4.84143144246472090e+00,
-    -1.16032004402742839e+00,
-    -1.03622044471123109e-01,
-    1.66007664274403694e-03 * days_per_year,
-    7.69901118419740425e-03 * days_per_year,
-    -6.90460016972063023e-05 * days_per_year,
-    9.54791938424326609e-04 * solar_mass
-  },
-  {                               /* saturn */
-    8.34336671824457987e+00,
-    4.12479856412430479e+00,
-    -4.03523417114321381e-01,
-    -2.76742510726862411e-03 * days_per_year,
-    4.99852801234917238e-03 * days_per_year,
-    2.30417297573763929e-05 * days_per_year,
-    2.85885980666130812e-04 * solar_mass
-  },
-  {                               /* uranus */
-    1.28943695621391310e+01,
-    -1.51111514016986312e+01,
-    -2.23307578892655734e-01,
-    2.96460137564761618e-03 * days_per_year,
-    2.37847173959480950e-03 * days_per_year,
-    -2.96589568540237556e-05 * days_per_year,
-    4.36624404335156298e-05 * solar_mass
-  },
-  {                               /* neptune */
-    1.53796971148509165e+01,
-    -2.59193146099879641e+01,
-    1.79258772950371181e-01,
-    2.68067772490389322e-03 * days_per_year,
-    1.62824170038242295e-03 * days_per_year,
-    -9.51592254519715870e-05 * days_per_year,
-    5.15138902046611451e-05 * solar_mass
-  }
-};
-
-int main(int argc, char ** argv)
-{
-  int n = atoi(argv[1]);
-  int i;
-
-  offset_momentum(NBODIES, bodies);
-  printf ("%.9f\n", energy(NBODIES, bodies));
-  for (i = 1; i <= n; i++)
-    advance(NBODIES, bodies, 0.01);
-  printf ("%.9f\n", energy(NBODIES, bodies));
-  return 0;
-}