PGPLOT display is system dependent

This commit is contained in:
cvs
2000-11-06 13:26:51 +00:00
parent a27159f350
commit eeec534ba5

View File

@ -1,4 +1,4 @@
#define IDENT "1C05" #define IDENT "1C06"
/*---------------------------------------------------------------------------*/ /*---------------------------------------------------------------------------*/
#ifdef __DECC #ifdef __DECC
#pragma module SinqHM_Client IDENT #pragma module SinqHM_Client IDENT
@ -373,7 +373,7 @@
if (Rw_skt == 0) { if (Rw_skt == 0) {
Rw_skt = openConnectionGbl (Rmt_host, &Rmt_port, &Pkt_size, dbg_mode, Rw_skt = openConnectionGbl (Rmt_host, &Rmt_port, &Pkt_size, dbg_mode,
&Rply_buff, Verbose); &Rply_buff, Verbose);
if (Rw_skt == 0) FailInet ("\ndo_project/openConnectionGbl error."); if (Rw_skt == 0) FailInet ("\ndo_load/openConnectionGbl error.");
} }
split_args (args, &p_p1, NULL); split_args (args, &p_p1, NULL);
@ -483,7 +483,11 @@
*/ */
int i; int i;
char total_txt[21]; char total_txt[21];
#ifdef LINUX
char dev[] = "/XSERV"; char dev[] = "/XSERV";
#else
char dev[] = "/XW";
#endif
char xlab[] = "Bins"; char xlab[] = "Bins";
char ylab[] = "Counts"; char ylab[] = "Counts";
float xlo, xhi, yhi; float xlo, xhi, yhi;
@ -575,7 +579,7 @@
** Number of bins ** Number of bins
** Axis ('X' = x-axis, 'Y' = y-axis) ** Axis ('X' = x-axis, 'Y' = y-axis)
** x-dim ** x-dim
** Default is to project everything. ** Default is to project everything onto x-axis
*/ */
char *p_p1, *p_p2, *p_p3, *p_p4, *p_p5, *p_p6, *p_p7; char *p_p1, *p_p2, *p_p3, *p_p4, *p_p5, *p_p6, *p_p7;
int i, status, axis; int i, status, axis;
@ -1205,7 +1209,11 @@
int nx = 1; int nx = 1;
int ny = 1; int ny = 1;
char total_txt[21]; char total_txt[21];
#ifdef LINUX
char dev[] = "/XSERV";
#else
char dev[] = "/XW"; char dev[] = "/XW";
#endif
char xlab[] = "Bins"; char xlab[] = "Bins";
char ylab[] = "Counts"; char ylab[] = "Counts";
float xlo, xhi, yhi, bias; float xlo, xhi, yhi, bias;
@ -2719,7 +2727,7 @@
Req_buff.u.write.first_bin = htonl (f_bin); Req_buff.u.write.first_bin = htonl (f_bin);
Req_buff.u.write.bytes_per_bin = htonl (bpb); Req_buff.u.write.bytes_per_bin = htonl (bpb);
status = send (Rw_skt, (char *) &Req_buff, sizeof (Req_buff), 0); status = send (Rw_skt, (char *) &Req_buff, sizeof (Req_buff), 0);
if (status == -1) FailInet ("SinqHM_Client -- R/W-Socket send error\n"); if (status == -1) FailInet ("write_hm -- R/W-Socket send error\n");
if (status != sizeof (Req_buff)) { if (status != sizeof (Req_buff)) {
printf ("SinqHM_Client -- wrong number of bytes sent: %d", status); printf ("SinqHM_Client -- wrong number of bytes sent: %d", status);
exit (EXIT_FAILURE); exit (EXIT_FAILURE);
@ -2733,7 +2741,7 @@
i = (bytes_to_go > Pkt_size) ? Pkt_size : bytes_to_go; i = (bytes_to_go > Pkt_size) ? Pkt_size : bytes_to_go;
status = send (Rw_skt, (char *) p_byte, i, 0); status = send (Rw_skt, (char *) p_byte, i, 0);
if (status <= 0) { if (status <= 0) {
FailInet ("SinqHM_Client -- R/W-Socket send error\n"); FailInet ("write_hm -- R/W-Socket send error\n");
exit (EXIT_FAILURE); exit (EXIT_FAILURE);
} }
bytes_to_go -= status; bytes_to_go -= status;
@ -2744,7 +2752,7 @@
*/ */
status = recv (Rw_skt, (char *) &Rply_buff, sizeof (Rply_buff), 0); status = recv (Rw_skt, (char *) &Rply_buff, sizeof (Rply_buff), 0);
if (status == -1) { if (status == -1) {
FailInet ("SinqHM_Client -- R/W-Socket recv error\n"); FailInet ("write_hm -- R/W-Socket recv error\n");
exit (EXIT_FAILURE); exit (EXIT_FAILURE);
}else if (status != sizeof (Rply_buff)) { }else if (status != sizeof (Rply_buff)) {
printf ("SinqHM_Client -- Cnct-Socket recv error - "); printf ("SinqHM_Client -- Cnct-Socket recv error - ");
@ -2977,7 +2985,7 @@
Req_buff.cmnd = htonl (SQHM_DAQ); Req_buff.cmnd = htonl (SQHM_DAQ);
Req_buff.u.daq.sub_cmnd = htonl (DAQ__STOP); Req_buff.u.daq.sub_cmnd = htonl (DAQ__STOP);
status = send (Rw_skt, (char *) &Req_buff, sizeof (Req_buff), 0); status = send (Rw_skt, (char *) &Req_buff, sizeof (Req_buff), 0);
if (status == -1) FailInet ("SinqHM_Client -- R/W-Socket send error\n"); if (status == -1) FailInet ("\nmain/send -- R/W-Socket send error\n");
if (status != sizeof (Req_buff)) { if (status != sizeof (Req_buff)) {
printf ("\n" printf ("\n"
"SinqHM_Client -- wrong number of bytes sent: %d", status); "SinqHM_Client -- wrong number of bytes sent: %d", status);
@ -2988,7 +2996,7 @@
*/ */
status = recv (Rw_skt, (char *) &Rply_buff, sizeof (Rply_buff), 0); status = recv (Rw_skt, (char *) &Rply_buff, sizeof (Rply_buff), 0);
if (status == -1) { if (status == -1) {
FailInet ("\nSinqHM_Client -- R/W-Socket recv error\n"); FailInet ("\nmain/recv -- R/W-Socket recv error\n");
exit (EXIT_FAILURE); exit (EXIT_FAILURE);
}else if (status != sizeof (Rply_buff)) { }else if (status != sizeof (Rply_buff)) {
printf ("\n" printf ("\n"
@ -3051,7 +3059,7 @@
Req_buff.u.zero.first_bin = htonl (f_bin); Req_buff.u.zero.first_bin = htonl (f_bin);
Req_buff.u.zero.n_bins = htonl (n_bins); Req_buff.u.zero.n_bins = htonl (n_bins);
status = send (Rw_skt, (char *) &Req_buff, sizeof (Req_buff), 0); status = send (Rw_skt, (char *) &Req_buff, sizeof (Req_buff), 0);
if (status == -1) FailInet ("SinqHM_Client -- R/W-Socket send error\n"); if (status == -1) FailInet ("\nmain/send -- R/W-Socket send error\n");
if (status != sizeof (Req_buff)) { if (status != sizeof (Req_buff)) {
printf ("SinqHM_Client -- wrong number of bytes sent: %d", status); printf ("SinqHM_Client -- wrong number of bytes sent: %d", status);
exit (EXIT_FAILURE); exit (EXIT_FAILURE);
@ -3061,7 +3069,7 @@
*/ */
status = recv (Rw_skt, (char *) &Rply_buff, sizeof (Rply_buff), 0); status = recv (Rw_skt, (char *) &Rply_buff, sizeof (Rply_buff), 0);
if (status == -1) { if (status == -1) {
FailInet ("SinqHM_Client -- R/W-Socket recv error\n"); FailInet ("\nmain/recv -- R/W-Socket recv error\n");
exit (EXIT_FAILURE); exit (EXIT_FAILURE);
}else if (status != sizeof (Rply_buff)) { }else if (status != sizeof (Rply_buff)) {
printf ("SinqHM_Client -- Cnct-Socket recv error - "); printf ("SinqHM_Client -- Cnct-Socket recv error - ");