#include <unistd.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "pvm3.h"

#define EXEC "hello_combined_hosts"
#define BUFF 100

int main(int argc, char **argv){
  int cc=0, tid, mytid, ptid, ntask, i;
  char buf[BUFF];

  mytid = pvm_mytid();
  ptid = pvm_parent();

  if(ptid == PvmNoParent){
    if((argc != 2) || ((ntask = atoi(argv[1])) == 0)){
      printf("Usage: %s <ntask>\n", argv[0]);
      exit(0);
    }

    for(i=0;i<ntask;i++){
      char host[BUFF];
      sprintf(host, "b%d",i+1);
      cc += pvm_spawn(EXEC, (char**)0, PvmTaskHost, host, 1, &tid);
    }

    if(cc == ntask){
      for(i=0;i<ntask;i++){
	cc = pvm_recv(-1, -1);
	pvm_bufinfo(cc, (int*)0, (int*)0, &tid);
	pvm_upkstr(buf);
	printf("from t%x: %s\n", tid, buf);
      }
    } else
      printf("Only spawned %d children.\n", cc);
  }
  else{
    strcpy(buf, "hello, world from ");
    gethostname(buf + strlen(buf), 64);
    pvm_initsend(PvmDataDefault);
    pvm_pkstr(buf);
    pvm_send(ptid, 1);
  }

  pvm_exit();
  exit(0);
}