added dvm/tools/

dvm/tools/pppa/branches/dvm4.07/src/strall.h

@@ -0,0 +1,132 @@
+#if !defined( __STRALL_H )
+#define __STRALL_H
+#if defined (_STATFILE_)
+#include "sysstat.h"
+#endif
+#define SZSH sizeof(short)
+#define SZL sizeof(long)
+#define SZINT sizeof(int)
+#define SZD sizeof(double)
+#define SZV sizeof(void*)
+enum typecollect {INOUT=1,SINOUT,WINOUT,NINOUT,REDUC,SREDUC,WREDUC,NREDUC,
+SHAD,SSHAD,WSHAD,NSHAD,RACC,SRACC,WRACC,NRACC,REDISTR,SREDISTR,WREDISTR,
+NREDISTR}; /* new operation insert before REDISTR */
+#define QCOLLECT NREDISTR  /* 4 type for 5 collective operation */
+
+enum typefrag {PREFIX=QCOLLECT,SEQ,PAR,USER};
+#if !defined (_STATFILE_)
+struct vms_const {
+	unsigned char  reverse[2],szsh[2],szl[2],
+		szv[2],szd[2];
+};
+struct vms_short {
+	unsigned char  rank[SZSH],maxnlev[SZSH],
+			 smallbuff[SZSH],lvers[SZSH];
+};
+struct vms_long{
+	unsigned char proccount[SZL],mpstype[SZL],ioproc[SZL],
+			 qfrag[SZL],lbuf[SZL],linter[SZL],lsynchro[SZL];
+};
+struct vms_void{
+	unsigned char pbuffer[SZV];
+};
+struct vms_double{
+	unsigned char proctime[SZD];
+};
+/* if change here chahge statread.h */
+typedef struct tvms_ch {
+	struct vms_const shc;
+	struct vms_short sh;
+	struct vms_long l;
+	struct vms_void v;
+	struct vms_double d;
+} *pvms_ch;
+
+struct inter_short {
+	unsigned char nlev[SZSH],type[SZSH];
+};
+struct inter_long {
+	unsigned char nline[SZL],nline_end[SZL],valvar[SZL],qproc[SZL],
+		ninter[SZL],SendCallCount[SZL],RecvCallCount[SZL];
+};
+struct inter_void{
+	unsigned char up[SZV],next[SZV],down[SZV],
+        ptimes[SZV];
+};
+struct inter_double{
+	unsigned char nenter[SZD],SendCallTime[SZD],MinSendCallTime[SZD],
+	MaxSendCallTime[SZD],RecvCallTime[SZD],MinRecvCallTime[SZD],
+	MaxRecvCallTime[SZD],
+	times[3*StatGrpCount*StatGrpCount][SZD];
+};
+/* if change here change treeinter.h*/
+typedef struct tinter_ch {
+	struct inter_short sh;
+	struct inter_long l;
+	struct inter_void v;
+	struct inter_double d;		
+}*pinter_ch;
+struct syn_short{
+	unsigned char nitem[SZSH];
+};
+struct syn_long{
+	unsigned char ninter[SZL];
+};
+struct syn_void{
+	unsigned char pgrp[SZV];
+};
+struct syn_double{
+	unsigned char time[SZD];
+};
+/* if change here change potensyn.h*/
+typedef struct tsyn_ch {
+       struct syn_short sh;
+	   struct syn_long l;
+	   struct syn_void v;
+	   struct syn_double d;
+}*psyn_ch;
+#define CPYMEM(to,from)\
+ memcpy(&(to),&(from),sizeof(to));
+#define CPYMEMC(to,from)\
+	smfrom=0;\
+        stcond = sizeof(from)>sizeof(to);\
+	if (stcond && toright==1) smfrom=sizeof(from)-sizeof(to);\
+	memcpy(&(to),(unsigned char *)(&(from))+smfrom,sizeof(to));
+#else
+#define min(a,b) (((a) <(b)) ? (a):(b))
+#define MAKESHORT(p,nm,nmfirst)\
+	(&(p->sh.nm)-&(p->sh.nmfirst))*szsh
+#define MAKELONG(p,nm,nmfirst,q_short)\
+	q_short*szsh+(&(p->l.nm)-&(p->l.nmfirst))*szl
+#define MAKEVOID(p,nm,nmfirst,q_short,q_long)\
+	q_short*szsh+q_long*szl+(&(p->v.nm)-&(p->v.nmfirst))*szv
+#define MAKEDOUBLE(p,nm,nmfirst,q_short,q_long,q_void)\
+	q_short*szsh+q_long*szl+q_void*szv+(&(p->d.nm)-&(p->d.nmfirst))*szd
+#define MAKEDOUBLEA(p,nm,nmfirst,q_short,q_long,q_void,a)\
+	a=q_short*szsh+q_long*szl+q_void*szv+(&(p->d.nm)-&(p->d.nmfirst))*szd;
+	
+#define CPYMEM(to,pfrom,sz_var)\
+{\
+	int sz_to;\
+	int smfrom=0,smto=0,mmin;\
+	sz_to=sizeof(to);\
+	mmin=min(sz_to,sz_var);\
+	if (sz_to!=sz_var) {\
+		if (sz_to>sz_var) {\
+			if (torightto==1)	smto=sz_to-sz_var;\
+		} else {\
+			if (torightfrom==1) smfrom=sz_var-sz_to;\
+		}\
+	}\
+	if (reverse!=1) {\
+		memcpy((unsigned char *)(&(to))+smto,pfrom+smfrom,mmin);\
+	} else {\
+		int imcpy;\
+		for (imcpy=mmin-1;imcpy>=0;imcpy--) {\
+			*((unsigned char*)(&(to))+imcpy+smto)=\
+				*(pfrom+smfrom+mmin-1-imcpy);\
+		}\
+	}\
+}
+#endif
+#endif