chrislo-sourceclassifier 0.2.0 → 0.2.1

data/sources/gcc/sumcol.gcc-4.gcc

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

data/sources/gcc/sumcol.gcc-5.gcc

@@ -1,32 +0,0 @@
-/* The Computer Language Benchmarks Game
-   http://shootout.alioth.debian.org/
-   modified by … James Antill - 2007-06-14
-   modified by Arek Bochinski - 2008-05-04
- */
-
-#define _GNU_SOURCE 1
-#include <stdio.h>
-#include <stdlib.h>
-
-#define MAXLINELEN 128
-
-int matoi(char *c) {
-      int res = 0,n=1;
-      if(*c=='-'){n=-1;*c++;}
-      while (*c >= '0' && *c <= '9')
-      	 res = res * 10 + *c++ - '0';
-      return res*n;
-    }
-
-int
-main() {
-    int sum = 0;
-    char line[MAXLINELEN];
-
-    while (fgets_unlocked(line, MAXLINELEN, stdin)) {
-	sum += matoi(line);
-    }
-    printf("%d\n", sum);
-    return(0);
-}
-

data/sources/gcc/takfp.gcc

@@ -1,23 +0,0 @@
-/* $Id: takfp.gcc,v 1.3 2004-12-10 08:09:21 bfulgham Exp $
- * http://shootout.alioth.debian.org/ 
- * Contributed by Brent Fulgham 
- */
-#include <stdio.h>
-#include <stdlib.h>
-
-float Tak (float x, float y, float z)
-{
-    if (y >= x) return z;
-    return Tak(Tak(x-1,y,z), Tak(y-1,z,x), Tak(z-1,x,y));
-}
-
-int main(int argc, char* argv[])
-{
-    int n = ((argc == 2) ? atoi(argv[1]) : 1);
-    printf("%.1f\n", Tak(n*3.0, n*2.0, n*1.0));
-    return 0;
-}
-
-/* Make Brent's life easier...
- * vim: ts=4 ft=c
- */

data/sources/gcc/tcp-stream.gcc

@@ -1,122 +0,0 @@
-/* 
- The Great Computer Language Shootout
-  http://shootout.alioth.debian.org/
-
-  contributed by John O'Hare 05 August 2005.
-*/
-
-
-#include <stdio.h>
-#include <sys/socket.h>
-#include <arpa/inet.h>
-#include <stdlib.h>
-#include <string.h>
-#include <unistd.h>
-
-#define PORT_NUMBER 12342
-#define M 1
-#define REPLY_SIZE 409600
-#define REQUEST_SIZE 64
-#define BUFFER_SIZE 1024
-
-void server()
-{
-	int sock;
-	int conn;
-	struct sockaddr_in servaddr;
-	struct sockaddr_in cliaddr;
-	unsigned int cliaddr_len;
-	char* reply = malloc(REPLY_SIZE);
-	char* buf = malloc(BUFFER_SIZE);
-
-	memset(reply, '<', REPLY_SIZE);
-
-	if ((sock = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0)
-		exit(10);
-
-	memset(&servaddr, 0, sizeof(servaddr));
-	servaddr.sin_family = AF_INET;
-	servaddr.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
-	servaddr.sin_port = htons(PORT_NUMBER);
-
-	if (bind(sock, (struct sockaddr *) &servaddr, sizeof(servaddr)) < 0)
-		exit(11);
-
-	if (listen(sock, 1) < 0)
-		exit(12);
-
-	if ((conn = accept(sock, (struct sockaddr *) &cliaddr, &cliaddr_len)) < 0)
-		exit(13);
-
-	while (recv(conn, buf, BUFFER_SIZE, 0) > 0) {
-		if (send(conn, reply, REPLY_SIZE, 0) != REPLY_SIZE)
-			exit(14);
-	}
-
-	close(conn);
-	close(sock);
-
-	free(buf);
-}
-
-void client(int n)
-{
-	int sock;
-	struct sockaddr_in servaddr;
-	char* request = malloc(REQUEST_SIZE);
-	char* buf = malloc(BUFFER_SIZE);
-	int tmpbytes;
-	int bytes = 0;
-	int replies = 0;
-
-	memset(request, '>', REQUEST_SIZE);
-
-	sleep(2); //wait for server to start
-
-	if ((sock = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0) 
-		exit(2);
-
-	memset(&servaddr, 0, sizeof(servaddr));
-	servaddr.sin_family = AF_INET;
-	servaddr.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
-	servaddr.sin_port = htons(PORT_NUMBER);
-
-	if (connect(sock, (struct sockaddr *) &servaddr, sizeof(servaddr)) < 0)
-		exit(3);
-
-	while (n-- > 0) {
-		tmpbytes = 0;
-
-		if (send(sock, request, REQUEST_SIZE, 0) != REQUEST_SIZE)
-			exit(4);
-
-		while (tmpbytes < REPLY_SIZE)
-			tmpbytes += recv(sock, buf, BUFFER_SIZE - 1, 0);
-		bytes += tmpbytes;
-		replies++;
-	}
-	close(sock);
-
-	printf("replies: %d\tbytes: %d\n", replies, bytes);
-
-	free(request);
-	free(buf);
-}
-
-int main (int argc, char** argv)
-{	
-	int pid;
-	int n;
-
-	n = (argc == 2 ? atoi(argv[1]) : 1);
-
-	if ((pid = fork()) < 0) {
-		return 1;
-	}
-	if (pid == 0) {
-		client(M * n);
-	} else {
-		server();
-	}
-	return 0;
-}

data/sources/gcc/tcpecho.gcc

@@ -1,122 +0,0 @@
-/* 
- The Great Computer Language Shootout
-  http://shootout.alioth.debian.org/
-
-  contributed by John O'Hare 05 August 2005.
-*/
-
-
-#include <stdio.h>
-#include <sys/socket.h>
-#include <arpa/inet.h>
-#include <stdlib.h>
-#include <string.h>
-#include <unistd.h>
-
-#define PORT_NUMBER 12340
-#define M 6400
-#define REPLY_SIZE 64
-#define REQUEST_SIZE 64
-#define BUFFER_SIZE 1024
-
-void server()
-{
-	int sock;
-	int conn;
-	struct sockaddr_in servaddr;
-	struct sockaddr_in cliaddr;
-	unsigned int cliaddr_len;
-	char* reply = malloc(REPLY_SIZE);
-	char* buf = malloc(BUFFER_SIZE);
-
-	memset(reply, '<', REPLY_SIZE);
-
-	if ((sock = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0)
-		exit(10);
-
-	memset(&servaddr, 0, sizeof(servaddr));
-	servaddr.sin_family = AF_INET;
-	servaddr.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
-	servaddr.sin_port = htons(PORT_NUMBER);
-
-	if (bind(sock, (struct sockaddr *) &servaddr, sizeof(servaddr)) < 0)
-		exit(11);
-
-	if (listen(sock, 1) < 0)
-		exit(12);
-
-	if ((conn = accept(sock, (struct sockaddr *) &cliaddr, &cliaddr_len)) < 0)
-		exit(13);
-
-	while (recv(conn, buf, BUFFER_SIZE, 0) > 0) {
-		if (send(conn, reply, REPLY_SIZE, 0) != REPLY_SIZE)
-			exit(14);
-	}
-
-	close(conn);
-	close(sock);
-
-	free(buf);
-}
-
-void client(int n)
-{
-	int sock;
-	struct sockaddr_in servaddr;
-	char* request = malloc(REQUEST_SIZE);
-	char* buf = malloc(BUFFER_SIZE);
-	int tmpbytes;
-	int bytes = 0;
-	int replies = 0;
-
-	memset(request, '>', REQUEST_SIZE);
-
-	sleep(2); //wait for server to start
-
-	if ((sock = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0) 
-		exit(2);
-
-	memset(&servaddr, 0, sizeof(servaddr));
-	servaddr.sin_family = AF_INET;
-	servaddr.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
-	servaddr.sin_port = htons(PORT_NUMBER);
-
-	if (connect(sock, (struct sockaddr *) &servaddr, sizeof(servaddr)) < 0)
-		exit(3);
-
-	while (n-- > 0) {
-		tmpbytes = 0;
-
-		if (send(sock, request, REQUEST_SIZE, 0) != REQUEST_SIZE)
-			exit(4);
-
-		while (tmpbytes < REPLY_SIZE)
-			tmpbytes += recv(sock, buf, BUFFER_SIZE - 1, 0);
-		bytes += tmpbytes;
-		replies++;
-	}
-	close(sock);
-
-	printf("replies: %d\tbytes: %d\n", replies, bytes);
-
-	free(request);
-	free(buf);
-}
-
-int main (int argc, char** argv)
-{	
-	int pid;
-	int n;
-
-	n = (argc == 2 ? atoi(argv[1]) : 1);
-
-	if ((pid = fork()) < 0) {
-		return 1;
-	}
-	if (pid == 0) {
-		client(M * n);
-	} else {
-		server();
-	}
-	return 0;
-}

data/sources/gcc/tcpecho.gcc-2.gcc

@@ -1,136 +0,0 @@
-/* The Great Computer Language Shootout
-   http://shootout.alioth.debian.org/
-
-   contributed by Rodrigo Queiro
-*/
-
-#include <stdlib.h>
-#include <stdio.h>
-#include <unistd.h>
-#include <string.h>
-#include <assert.h>
-
-#include <sys/types.h>
-#include <sys/wait.h>
-
-#include <sys/socket.h>
-#include <netinet/in.h>
-#include <arpa/inet.h>
-#include <netdb.h>
-
-#define M 6400
-#define REPLY_SIZE 64
-#define REQUEST_SIZE 64
-#define MAX_SIZE 64 // max(REPLY_SIZE, REQUEST_SIZE)
-#define PORT 11000
-#define BUFSIZE 512
-
-int main(int argc, char **argv)
-{
-    int i;
-
-    int n;
-    char buf[BUFSIZE], text[MAX_SIZE];
-
-    pid_t child_pid;
-
-    /* server variables */
-
-    int sockfd, newfd;
-    struct sockaddr_in my_addr, new_addr;
-    int sin_size;
-    int yes=1;
-
-    /* client variables */
-
-    int theirfd, nreplies = 0, nbytes = 0;
-    struct hostent *he;
-    struct sockaddr_in their_addr;
-
-    assert(argc > 1);
-    n = atoi(argv[1]);
-
-    child_pid = fork();
-
-    if(child_pid)
-    {
-        /* server code */
-
-        if ((sockfd = socket(AF_INET, SOCK_STREAM, 0)) == -1) {
-            perror("socket");
-            exit(1);
-        }
-
-        if (setsockopt(sockfd,SOL_SOCKET,SO_REUSEADDR,&yes,sizeof(int)) == -1) {
-            perror("setsockopt");
-            exit(1);
-        }
-
-        my_addr.sin_family = AF_INET;         // host byte order
-        my_addr.sin_port = htons(PORT);     // short, network byte order
-        my_addr.sin_addr.s_addr = INADDR_ANY; // automatically fill with my IP
-        memset(&(my_addr.sin_zero), '\0', 8); // zero the rest of the struct
-
-        if (bind(sockfd, (struct sockaddr *)&my_addr, sizeof(struct sockaddr))
-                == -1) {
-            perror("bind");
-            exit(1);
-        }
-
-        if (listen(sockfd, 2) == -1) {
-            perror("listen");
-            exit(1);
-        }
-        sin_size = sizeof(struct sockaddr_in);
-        if ((newfd = accept(sockfd, (struct sockaddr *)&new_addr,
-                        &sin_size)) == -1) {
-            perror("accept");
-            exit(1);
-        }
-
-        for (i = 0; i < REPLY_SIZE; i++)
-            text[i] = ' ';
-
-        for (i = 0; i < n * M; i++)
-        {
-            recv(newfd, buf, BUFSIZE-1, 0);
-            send(newfd, text, REPLY_SIZE, 0);
-        }
-
-        wait(NULL);
-    }
-    else
-    {
-        if ((he=gethostbyname("localhost")) == NULL) {  // get the host info 
-            perror("gethostbyname");
-            exit(1);
-        }
-
-        if ((theirfd = socket(AF_INET, SOCK_STREAM, 0)) == -1) {
-            perror("socket");
-            exit(1);
-        }
-
-        their_addr.sin_family = AF_INET;    // host byte order 
-        their_addr.sin_port = htons(PORT);  // short, network byte order 
-        their_addr.sin_addr = *((struct in_addr *)he->h_addr);
-        memset(&(their_addr.sin_zero), '\0', 8);  // zero the rest of the struct 
-
-        while (connect(theirfd, (struct sockaddr *)&their_addr,
-                    sizeof(struct sockaddr)) == -1);
-
-        for (i = 0; i < REQUEST_SIZE; i++)
-            text[i] = ' ';
-
-        for (i = 0; i < n * M; i++)
-        {
-            send(theirfd, text, REQUEST_SIZE, 0);
-            nbytes += recv(theirfd, buf, BUFSIZE-1, 0);
-            nreplies++;
-        }
-
-        printf("replies: %d\tbytes: %d\n", nreplies, nbytes);
-    }
-
-    return 0;
-}