|
Packit |
577717 |
#include <stdio.h>
|
|
Packit |
577717 |
#include <string.h>
|
|
Packit |
577717 |
#include <stdlib.h> /* exit() */
|
|
Packit |
577717 |
#include <errno.h> /* herror() */
|
|
Packit |
577717 |
#include <netdb.h> /* gethostbyname() */
|
|
Packit |
577717 |
#include <sys/types.h> /* bind() accept() */
|
|
Packit |
577717 |
#include <sys/socket.h> /* bind() accept() */
|
|
Packit |
577717 |
#include <unistd.h>
|
|
Packit |
577717 |
|
|
Packit |
577717 |
#include "papi.h"
|
|
Packit |
577717 |
#include "papi_test.h"
|
|
Packit |
577717 |
|
|
Packit |
577717 |
#define PORT 3490
|
|
Packit |
577717 |
#define NUM_EVENTS 6
|
|
Packit |
577717 |
|
|
Packit |
577717 |
main(int argc, char *argv[]) {
|
|
Packit |
577717 |
int Events[NUM_EVENTS];
|
|
Packit |
577717 |
const char* names[NUM_EVENTS] = {"RECV_CALLS", "RECV_BYTES", "RECV_USEC", "RECV_ERR", "RECV_INTERRUPTED", "RECV_WOULD_BLOCK"};
|
|
Packit |
577717 |
long long values[NUM_EVENTS];
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* Set TESTS_QUIET variable */
|
|
Packit |
577717 |
tests_quiet( argc, argv );
|
|
Packit |
577717 |
|
|
Packit |
577717 |
int version = PAPI_library_init (PAPI_VER_CURRENT);
|
|
Packit |
577717 |
if (version != PAPI_VER_CURRENT) {
|
|
Packit |
577717 |
fprintf(stderr, "PAPI_library_init version mismatch\n");
|
|
Packit |
577717 |
exit(1);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if (!TESTS_QUIET) printf("This program will listen on port 3490, and write data received to standard output\n");
|
|
Packit |
577717 |
int retval;
|
|
Packit |
577717 |
int e;
|
|
Packit |
577717 |
for (e=0; e
|
|
Packit |
577717 |
retval = PAPI_event_name_to_code((char*)names[e], &Events[e]);
|
|
Packit |
577717 |
if (retval != PAPI_OK) {
|
|
Packit |
577717 |
fprintf(stderr, "Error getting code for %s\n", names[e]);
|
|
Packit |
577717 |
exit(2);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
int bytes = 0;
|
|
Packit |
577717 |
char buf[1024];
|
|
Packit |
577717 |
|
|
Packit |
577717 |
int sockfd, n_sockfd, sin_size, len;
|
|
Packit |
577717 |
char *host_addr, *recv_msg;
|
|
Packit |
577717 |
struct sockaddr_in my_addr;
|
|
Packit |
577717 |
struct sockaddr_in their_addr;
|
|
Packit |
577717 |
my_addr.sin_family = AF_INET;
|
|
Packit |
577717 |
my_addr.sin_port = htons(PORT);
|
|
Packit |
577717 |
my_addr.sin_addr.s_addr = INADDR_ANY;
|
|
Packit |
577717 |
|
|
Packit |
577717 |
sockfd = socket(AF_INET, SOCK_STREAM, 0);
|
|
Packit |
577717 |
if (sockfd < 0) {
|
|
Packit |
577717 |
perror("socket");
|
|
Packit |
577717 |
exit(1);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
if ((bind(sockfd, (struct sockaddr *)&my_addr, sizeof(struct sockaddr))) == -1) {
|
|
Packit |
577717 |
perror("bind");
|
|
Packit |
577717 |
exit(1);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
listen(sockfd, 10);
|
|
Packit |
577717 |
if ((n_sockfd = accept(sockfd, (struct sockaddr *)&their_addr, &sin_size)) == -1) {
|
|
Packit |
577717 |
perror("accept");
|
|
Packit |
577717 |
exit(1);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
close(sockfd);
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* Start counting events */
|
|
Packit |
577717 |
if (PAPI_start_counters(Events, NUM_EVENTS) != PAPI_OK) {
|
|
Packit |
577717 |
fprintf(stderr, "Error in PAPI_start_counters\n");
|
|
Packit |
577717 |
exit(1);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
while ((bytes = recv(n_sockfd, buf, 1024, 0)) > 0) {
|
|
Packit |
577717 |
write(1, buf, bytes);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
close(n_sockfd);
|
|
Packit |
577717 |
|
|
Packit |
577717 |
/* Stop counting events */
|
|
Packit |
577717 |
if (PAPI_stop_counters(values, NUM_EVENTS) != PAPI_OK) {
|
|
Packit |
577717 |
fprintf(stderr, "Error in PAPI_stop_counters\n");
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
|
|
Packit |
577717 |
if (!TESTS_QUIET) {
|
|
Packit |
577717 |
printf("----\n");
|
|
Packit |
577717 |
for (e=0; e
|
|
Packit |
577717 |
printf("%s: %lld\n", names[e], values[e]);
|
|
Packit |
577717 |
}
|
|
Packit |
577717 |
test_pass( __FILE__ );
|
|
Packit |
577717 |
return 0;
|
|
Packit |
577717 |
}
|