clang-format
This commit is contained in:
@@ -46,43 +46,23 @@
|
||||
#include <unistd.h>
|
||||
#include <err.h>
|
||||
|
||||
#define NJOBS 24
|
||||
#define NJOBS 24
|
||||
|
||||
#define DIM 35
|
||||
#define NMATS 11
|
||||
#define JOBSIZE ((NMATS+1)*DIM*DIM*sizeof(int))
|
||||
#define DIM 35
|
||||
#define NMATS 11
|
||||
#define JOBSIZE ((NMATS + 1) * DIM * DIM * sizeof(int))
|
||||
|
||||
static const int right_answers[NJOBS] = {
|
||||
-1337312809,
|
||||
356204544,
|
||||
-537881911,
|
||||
-65406976,
|
||||
1952063315,
|
||||
-843894784,
|
||||
1597000869,
|
||||
-993925120,
|
||||
838840559,
|
||||
-1616928768,
|
||||
-182386335,
|
||||
-364554240,
|
||||
251084843,
|
||||
-61403136,
|
||||
295326333,
|
||||
1488013312,
|
||||
1901440647,
|
||||
0,
|
||||
-1901440647,
|
||||
-1488013312,
|
||||
-295326333,
|
||||
61403136,
|
||||
-251084843,
|
||||
364554240,
|
||||
-1337312809, 356204544, -537881911, -65406976, 1952063315, -843894784,
|
||||
1597000869, -993925120, 838840559, -1616928768, -182386335, -364554240,
|
||||
251084843, -61403136, 295326333, 1488013312, 1901440647, 0,
|
||||
-1901440647, -1488013312, -295326333, 61403136, -251084843, 364554240,
|
||||
};
|
||||
|
||||
////////////////////////////////////////////////////////////
|
||||
|
||||
struct matrix {
|
||||
int m_data[DIM][DIM];
|
||||
int m_data[DIM][DIM];
|
||||
};
|
||||
|
||||
////////////////////////////////////////////////////////////
|
||||
@@ -91,129 +71,100 @@ struct matrix {
|
||||
* Use this instead of just calling printf so we know each printout
|
||||
* is atomic; this prevents the lines from getting intermingled.
|
||||
*/
|
||||
static
|
||||
void
|
||||
say(const char *fmt, ...)
|
||||
{
|
||||
char buf[256];
|
||||
va_list ap;
|
||||
va_start(ap, fmt);
|
||||
vsnprintf(buf, sizeof(buf), fmt, ap);
|
||||
va_end(ap);
|
||||
write(STDOUT_FILENO, buf, strlen(buf));
|
||||
static void say(const char *fmt, ...) {
|
||||
char buf[256];
|
||||
va_list ap;
|
||||
va_start(ap, fmt);
|
||||
vsnprintf(buf, sizeof(buf), fmt, ap);
|
||||
va_end(ap);
|
||||
write(STDOUT_FILENO, buf, strlen(buf));
|
||||
}
|
||||
|
||||
////////////////////////////////////////////////////////////
|
||||
|
||||
static
|
||||
void
|
||||
multiply(struct matrix *res, const struct matrix *m1, const struct matrix *m2)
|
||||
{
|
||||
int i, j, k;
|
||||
static void multiply(struct matrix *res, const struct matrix *m1,
|
||||
const struct matrix *m2) {
|
||||
int i, j, k;
|
||||
|
||||
for (i=0; i<DIM; i++) {
|
||||
for (j=0; j<DIM; j++) {
|
||||
int val=0;
|
||||
for (k=0; k<DIM; k++) {
|
||||
val += m1->m_data[i][k]*m2->m_data[k][j];
|
||||
}
|
||||
res->m_data[i][j] = val;
|
||||
}
|
||||
}
|
||||
for (i = 0; i < DIM; i++) {
|
||||
for (j = 0; j < DIM; j++) {
|
||||
int val = 0;
|
||||
for (k = 0; k < DIM; k++) {
|
||||
val += m1->m_data[i][k] * m2->m_data[k][j];
|
||||
}
|
||||
res->m_data[i][j] = val;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
static
|
||||
void
|
||||
addeq(struct matrix *m1, const struct matrix *m2)
|
||||
{
|
||||
int i, j;
|
||||
for (i=0; i<DIM; i++) {
|
||||
for (j=0; j<DIM; j++) {
|
||||
m1->m_data[i][j] += m2->m_data[i][j];
|
||||
}
|
||||
}
|
||||
static void addeq(struct matrix *m1, const struct matrix *m2) {
|
||||
int i, j;
|
||||
for (i = 0; i < DIM; i++) {
|
||||
for (j = 0; j < DIM; j++) {
|
||||
m1->m_data[i][j] += m2->m_data[i][j];
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
static
|
||||
int
|
||||
trace(const struct matrix *m1)
|
||||
{
|
||||
int i, t=0;
|
||||
for (i=0; i<DIM; i++) {
|
||||
t += m1->m_data[i][i];
|
||||
}
|
||||
return t;
|
||||
static int trace(const struct matrix *m1) {
|
||||
int i, t = 0;
|
||||
for (i = 0; i < DIM; i++) {
|
||||
t += m1->m_data[i][i];
|
||||
}
|
||||
return t;
|
||||
}
|
||||
|
||||
////////////////////////////////////////////////////////////
|
||||
|
||||
static struct matrix mats[NMATS];
|
||||
|
||||
static
|
||||
void
|
||||
populate_initial_matrixes(int mynum)
|
||||
{
|
||||
int i,j;
|
||||
struct matrix *m = &mats[0];
|
||||
for (i=0; i<DIM; i++) {
|
||||
for (j=0; j<DIM; j++) {
|
||||
m->m_data[i][j] = mynum+i-2*j;
|
||||
}
|
||||
}
|
||||
static void populate_initial_matrixes(int mynum) {
|
||||
int i, j;
|
||||
struct matrix *m = &mats[0];
|
||||
for (i = 0; i < DIM; i++) {
|
||||
for (j = 0; j < DIM; j++) {
|
||||
m->m_data[i][j] = mynum + i - 2 * j;
|
||||
}
|
||||
}
|
||||
|
||||
multiply(&mats[1], &mats[0], &mats[0]);
|
||||
multiply(&mats[1], &mats[0], &mats[0]);
|
||||
}
|
||||
|
||||
static
|
||||
void
|
||||
compute(int n)
|
||||
{
|
||||
struct matrix tmp;
|
||||
int i, j;
|
||||
static void compute(int n) {
|
||||
struct matrix tmp;
|
||||
int i, j;
|
||||
|
||||
for (i=0,j=n-1; i<j; i++,j--) {
|
||||
multiply(&tmp, &mats[i], &mats[j]);
|
||||
addeq(&mats[n], &tmp);
|
||||
}
|
||||
for (i = 0, j = n - 1; i < j; i++, j--) {
|
||||
multiply(&tmp, &mats[i], &mats[j]);
|
||||
addeq(&mats[n], &tmp);
|
||||
}
|
||||
}
|
||||
|
||||
static
|
||||
void
|
||||
computeall(int mynum)
|
||||
{
|
||||
int i;
|
||||
populate_initial_matrixes(mynum);
|
||||
for (i=2; i<NMATS; i++) {
|
||||
compute(i);
|
||||
}
|
||||
static void computeall(int mynum) {
|
||||
int i;
|
||||
populate_initial_matrixes(mynum);
|
||||
for (i = 2; i < NMATS; i++) {
|
||||
compute(i);
|
||||
}
|
||||
}
|
||||
|
||||
static
|
||||
int
|
||||
answer(void)
|
||||
{
|
||||
return trace(&mats[NMATS-1]);
|
||||
}
|
||||
static int answer(void) { return trace(&mats[NMATS - 1]); }
|
||||
|
||||
static
|
||||
void
|
||||
go(int mynum)
|
||||
{
|
||||
int r;
|
||||
static void go(int mynum) {
|
||||
int r;
|
||||
|
||||
say("Process %d (pid %d) starting computation...\n", mynum,
|
||||
(int) getpid());
|
||||
say("Process %d (pid %d) starting computation...\n", mynum, (int)getpid());
|
||||
|
||||
computeall(mynum);
|
||||
r = answer();
|
||||
computeall(mynum);
|
||||
r = answer();
|
||||
|
||||
if (r != right_answers[mynum]) {
|
||||
say("Process %d answer %d: FAILED, should be %d\n",
|
||||
mynum, r, right_answers[mynum]);
|
||||
exit(1);
|
||||
}
|
||||
say("Process %d answer %d: passed\n", mynum, r);
|
||||
exit(0);
|
||||
if (r != right_answers[mynum]) {
|
||||
say("Process %d answer %d: FAILED, should be %d\n", mynum, r,
|
||||
right_answers[mynum]);
|
||||
exit(1);
|
||||
}
|
||||
say("Process %d answer %d: passed\n", mynum, r);
|
||||
exit(0);
|
||||
}
|
||||
|
||||
////////////////////////////////////////////////////////////
|
||||
@@ -235,191 +186,157 @@ go(int mynum)
|
||||
*/
|
||||
|
||||
struct usem {
|
||||
char name[32];
|
||||
int fd;
|
||||
char name[32];
|
||||
int fd;
|
||||
};
|
||||
|
||||
static
|
||||
void
|
||||
semcreate(const char *tag, struct usem *sem)
|
||||
{
|
||||
int fd;
|
||||
static void semcreate(const char *tag, struct usem *sem) {
|
||||
int fd;
|
||||
|
||||
snprintf(sem->name, sizeof(sem->name), "sem:parallelvm.%s.%d",
|
||||
tag, (int)getpid());
|
||||
snprintf(sem->name, sizeof(sem->name), "sem:parallelvm.%s.%d", tag,
|
||||
(int)getpid());
|
||||
|
||||
fd = open(sem->name, O_WRONLY|O_CREAT|O_TRUNC, 0664);
|
||||
if (fd < 0) {
|
||||
err(1, "%s: create", sem->name);
|
||||
}
|
||||
close(fd);
|
||||
fd = open(sem->name, O_WRONLY | O_CREAT | O_TRUNC, 0664);
|
||||
if (fd < 0) {
|
||||
err(1, "%s: create", sem->name);
|
||||
}
|
||||
close(fd);
|
||||
}
|
||||
|
||||
static
|
||||
void
|
||||
semopen(struct usem *sem)
|
||||
{
|
||||
sem->fd = open(sem->name, O_RDWR, 0664);
|
||||
if (sem->fd < 0) {
|
||||
err(1, "%s: open", sem->name);
|
||||
}
|
||||
static void semopen(struct usem *sem) {
|
||||
sem->fd = open(sem->name, O_RDWR, 0664);
|
||||
if (sem->fd < 0) {
|
||||
err(1, "%s: open", sem->name);
|
||||
}
|
||||
}
|
||||
|
||||
static
|
||||
void
|
||||
semclose(struct usem *sem)
|
||||
{
|
||||
close(sem->fd);
|
||||
static void semclose(struct usem *sem) { close(sem->fd); }
|
||||
|
||||
static void semdestroy(struct usem *sem) { remove(sem->name); }
|
||||
|
||||
static void semP(struct usem *sem, size_t num) {
|
||||
char c[num];
|
||||
|
||||
if (read(sem->fd, c, num) < 0) {
|
||||
err(1, "%s: read", sem->name);
|
||||
}
|
||||
(void)c;
|
||||
}
|
||||
|
||||
static
|
||||
void
|
||||
semdestroy(struct usem *sem)
|
||||
{
|
||||
remove(sem->name);
|
||||
}
|
||||
static void semV(struct usem *sem, size_t num) {
|
||||
char c[num];
|
||||
|
||||
static
|
||||
void
|
||||
semP(struct usem *sem, size_t num)
|
||||
{
|
||||
char c[num];
|
||||
/* semfs does not use these values, but be conservative */
|
||||
memset(c, 0, num);
|
||||
|
||||
if (read(sem->fd, c, num) < 0) {
|
||||
err(1, "%s: read", sem->name);
|
||||
}
|
||||
(void)c;
|
||||
}
|
||||
|
||||
static
|
||||
void
|
||||
semV(struct usem *sem, size_t num)
|
||||
{
|
||||
char c[num];
|
||||
|
||||
/* semfs does not use these values, but be conservative */
|
||||
memset(c, 0, num);
|
||||
|
||||
if (write(sem->fd, c, num) < 0) {
|
||||
err(1, "%s: write", sem->name);
|
||||
}
|
||||
if (write(sem->fd, c, num) < 0) {
|
||||
err(1, "%s: write", sem->name);
|
||||
}
|
||||
}
|
||||
|
||||
////////////////////////////////////////////////////////////
|
||||
// driver
|
||||
|
||||
static
|
||||
int
|
||||
status_is_failure(int status)
|
||||
{
|
||||
/* Proper interpretation of Unix exit status */
|
||||
if (WIFSIGNALED(status)) {
|
||||
return 1;
|
||||
}
|
||||
if (!WIFEXITED(status)) {
|
||||
/* ? */
|
||||
return 1;
|
||||
}
|
||||
status = WEXITSTATUS(status);
|
||||
return status != 0;
|
||||
static int status_is_failure(int status) {
|
||||
/* Proper interpretation of Unix exit status */
|
||||
if (WIFSIGNALED(status)) {
|
||||
return 1;
|
||||
}
|
||||
if (!WIFEXITED(status)) {
|
||||
/* ? */
|
||||
return 1;
|
||||
}
|
||||
status = WEXITSTATUS(status);
|
||||
return status != 0;
|
||||
}
|
||||
|
||||
static
|
||||
void
|
||||
makeprocs(bool dowait)
|
||||
{
|
||||
int i, status, failcount;
|
||||
struct usem s1, s2;
|
||||
pid_t pids[NJOBS];
|
||||
static void makeprocs(bool dowait) {
|
||||
int i, status, failcount;
|
||||
struct usem s1, s2;
|
||||
pid_t pids[NJOBS];
|
||||
|
||||
if (dowait) {
|
||||
semcreate("1", &s1);
|
||||
semcreate("2", &s2);
|
||||
}
|
||||
if (dowait) {
|
||||
semcreate("1", &s1);
|
||||
semcreate("2", &s2);
|
||||
}
|
||||
|
||||
printf("Job size approximately %lu bytes\n", (unsigned long) JOBSIZE);
|
||||
printf("Forking %d jobs; total load %luk\n", NJOBS,
|
||||
(unsigned long) (NJOBS * JOBSIZE)/1024);
|
||||
printf("Job size approximately %lu bytes\n", (unsigned long)JOBSIZE);
|
||||
printf("Forking %d jobs; total load %luk\n", NJOBS,
|
||||
(unsigned long)(NJOBS * JOBSIZE) / 1024);
|
||||
|
||||
for (i=0; i<NJOBS; i++) {
|
||||
pids[i] = fork();
|
||||
if (pids[i]<0) {
|
||||
warn("fork (process %d)", i);
|
||||
if (dowait) {
|
||||
semopen(&s1);
|
||||
semV(&s1, 1);
|
||||
semclose(&s1);
|
||||
}
|
||||
}
|
||||
if (pids[i]==0) {
|
||||
/* child */
|
||||
if (dowait) {
|
||||
say("Process %d forked\n", i);
|
||||
semopen(&s1);
|
||||
semopen(&s2);
|
||||
semV(&s1, 1);
|
||||
semP(&s2, 1);
|
||||
semclose(&s1);
|
||||
semclose(&s2);
|
||||
}
|
||||
go(i);
|
||||
}
|
||||
}
|
||||
for (i = 0; i < NJOBS; i++) {
|
||||
pids[i] = fork();
|
||||
if (pids[i] < 0) {
|
||||
warn("fork (process %d)", i);
|
||||
if (dowait) {
|
||||
semopen(&s1);
|
||||
semV(&s1, 1);
|
||||
semclose(&s1);
|
||||
}
|
||||
}
|
||||
if (pids[i] == 0) {
|
||||
/* child */
|
||||
if (dowait) {
|
||||
say("Process %d forked\n", i);
|
||||
semopen(&s1);
|
||||
semopen(&s2);
|
||||
semV(&s1, 1);
|
||||
semP(&s2, 1);
|
||||
semclose(&s1);
|
||||
semclose(&s2);
|
||||
}
|
||||
go(i);
|
||||
}
|
||||
}
|
||||
|
||||
if (dowait) {
|
||||
semopen(&s1);
|
||||
semopen(&s2);
|
||||
say("Waiting for fork...\n");
|
||||
semP(&s1, NJOBS);
|
||||
say("Starting computation.\n");
|
||||
semV(&s2, NJOBS);
|
||||
}
|
||||
if (dowait) {
|
||||
semopen(&s1);
|
||||
semopen(&s2);
|
||||
say("Waiting for fork...\n");
|
||||
semP(&s1, NJOBS);
|
||||
say("Starting computation.\n");
|
||||
semV(&s2, NJOBS);
|
||||
}
|
||||
|
||||
failcount=0;
|
||||
for (i=0; i<NJOBS; i++) {
|
||||
if (pids[i]<0) {
|
||||
failcount++;
|
||||
}
|
||||
else {
|
||||
if (waitpid(pids[i], &status, 0)<0) {
|
||||
err(1, "waitpid");
|
||||
}
|
||||
if (status_is_failure(status)) {
|
||||
failcount++;
|
||||
}
|
||||
}
|
||||
}
|
||||
failcount = 0;
|
||||
for (i = 0; i < NJOBS; i++) {
|
||||
if (pids[i] < 0) {
|
||||
failcount++;
|
||||
} else {
|
||||
if (waitpid(pids[i], &status, 0) < 0) {
|
||||
err(1, "waitpid");
|
||||
}
|
||||
if (status_is_failure(status)) {
|
||||
failcount++;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (failcount>0) {
|
||||
printf("%d subprocesses failed\n", failcount);
|
||||
exit(1);
|
||||
}
|
||||
printf("Test complete\n");
|
||||
if (failcount > 0) {
|
||||
printf("%d subprocesses failed\n", failcount);
|
||||
exit(1);
|
||||
}
|
||||
printf("Test complete\n");
|
||||
|
||||
semclose(&s1);
|
||||
semclose(&s2);
|
||||
semdestroy(&s1);
|
||||
semdestroy(&s2);
|
||||
semclose(&s1);
|
||||
semclose(&s2);
|
||||
semdestroy(&s1);
|
||||
semdestroy(&s2);
|
||||
}
|
||||
|
||||
int
|
||||
main(int argc, char *argv[])
|
||||
{
|
||||
bool dowait = false;
|
||||
int main(int argc, char *argv[]) {
|
||||
bool dowait = false;
|
||||
|
||||
if (argc == 0) {
|
||||
/* broken/unimplemented argv handling; do nothing */
|
||||
}
|
||||
else if (argc == 1) {
|
||||
/* nothing */
|
||||
}
|
||||
else if (argc == 2 && !strcmp(argv[1], "-w")) {
|
||||
dowait = true;
|
||||
}
|
||||
else {
|
||||
printf("Usage: parallelvm [-w]\n");
|
||||
return 1;
|
||||
}
|
||||
makeprocs(dowait);
|
||||
return 0;
|
||||
if (argc == 0) {
|
||||
/* broken/unimplemented argv handling; do nothing */
|
||||
} else if (argc == 1) {
|
||||
/* nothing */
|
||||
} else if (argc == 2 && !strcmp(argv[1], "-w")) {
|
||||
dowait = true;
|
||||
} else {
|
||||
printf("Usage: parallelvm [-w]\n");
|
||||
return 1;
|
||||
}
|
||||
makeprocs(dowait);
|
||||
return 0;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user