CCF_100/ncsa-mosaic
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
d2b7395120
ncsa-mosaic/libdtm/dtmmisc.c
Alan Dipert 29c82be0c2 init
2010-03-08 05:55:21 -05:00

359 lines
6.8 KiB
C
Raw Blame History

/*****************************************************************************
*
* NCSA DTM version 2.3
* May 1, 1992
*
* NCSA DTM Version 2.3 source code and documentation are in the public
* domain. Specifically, we give to the public domain all rights for future
* licensing of the source code, all resale rights, and all publishing rights.
*
* We ask, but do not require, that the following message be included in all
* derived works:
*
* Portions developed at the National Center for Supercomputing Applications at
* the University of Illinois at Urbana-Champaign.
*
* THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
* SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
* WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
*
*****************************************************************************/
/*********************************************************************
**
** $Header: /X11/mosaic/cvsroot/xmosaic3/libdtm/dtmmisc.c,v 1.2 1995/10/13 06:33:11 spowers Exp $
**
**********************************************************************/
/*
#ifdef RCSLOG
$Log: dtmmisc.c,v $
Revision 1.2 1995/10/13 06:33:11 spowers
Solaris support added.
Revision 1.1.1.1 1995/01/11 00:02:59 alanb
New CVS source tree, Mosaic 2.5 beta 4
* Revision 2.5 1994/12/29 23:39:48 alanb
* I'm committing with a new symbolic revision number.
*
* Revision 1.1.1.1 1994/12/28 21:37:31 alanb
*
* Revision 1.1.1.1 1993/07/04 00:03:11 marca
* Mosaic for X version 2 distribution
*
* Revision 1.1 1993/01/18 21:50:20 marca
* I think I got it now.
*
* Revision 1.8 92/04/30 20:25:27 jplevyak
* Changed Version to 2.3.
*
* Revision 1.7 1992/03/10 22:07:10 jplevyak
* Added changed for PC/MAC from Quincey Koziol (koziol@ncsa.uiuc.edu)
* with modification.
*
* Revision 1.6 1991/10/10 14:29:30 jplevyak
* Included "string.h" instead of declaring externs atoi atof().
*
* Revision 1.5 91/09/26 20:24:21 jplevyak
* Added debug.h as include file.
*
* Revision 1.4 1991/06/11 15:19:36 sreedhar
* disclaimer added
*
* Revision 1.3 1991/05/14 14:13:48 jefft
* modified dtm_set_char to delimit string with "'"
*
* Revision 1.2 1991/04/29 16:44:56 jefft
* increased length of num array in dtm_set_float
*
* Revision 1.1 90/11/08 16:32:18 jefft
* Initial revision
*
#endif
*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <sys/types.h>
#ifdef _ARCH_MSDOS
#include <nmpcip.h>
#else
#include <netdb.h>
#include <netinet/in.h>
#endif
#include "dtmint.h"
#include "debug.h"
#ifndef min
#define min(a, b) (((a) <= (b)) ? (a) : (b))
#endif
/*************************************************************************
**
** Header Utilitiy Functions
**
**************************************************************************/
#ifdef DTM_PROTOTYPES
void dtm_set_char(char *h,char *tag,char *s)
#else
void dtm_set_char(h, tag, s)
char *h, *tag, *s;
#endif
{
strcat(h, tag); strcat(h, " '");
strcat(h, s); strcat(h, "' ");
}
#ifdef DTM_PROTOTYPES
void dtm_set_int(char *h,char *tag,int x)
#else
void dtm_set_int(h, tag, x)
char *h, *tag;
int x;
#endif
{
char num[8];
strcat(h, tag); strcat(h, " ");
sprintf(num, "%d ", x);
strcat(h, num);
}
#ifdef DTM_PROTOTYPES
void dtm_set_float( char * h, char * tag, float x)
#else
void dtm_set_float(h, tag, x)
char *h, *tag;
float x;
#endif
{
char num[20];
strcat(h, tag); strcat(h, " ");
sprintf(num, "%f ", x);
strcat(h, num);
}
#ifdef DTM_PROTOTYPES
char *dtm_find_tag(char *h,char *tag)
#else
char *dtm_find_tag(h, tag)
char *h, *tag;
#endif
{
int len;
len = strlen(tag);
while ((h = strchr(h, ' ')) != NULL) {
h++;
if (!strncmp(h, tag, len) && *(h+len) == ' ')
return h;
}
return NULL;
}
#ifdef DTM_PROTOTYPES
int dtm_get_char(char *h,char *tag,char *s,int l)
#else
int dtm_get_char(h, tag, s, l)
char *h, *tag, *s;
int l;
#endif
{
/* set NULL string incase tag does not exist */
*s = '\0';
/* decrement length to save space for final NUL */
l -= 1;
/* no tag return error */
if ((h = dtm_find_tag(h, tag)) == NULL)
return DTMERROR;
/* no field available, return error */
if ((h = strchr(h, '\'')) == NULL)
return DTMERROR;
else
h += 1;
if ((tag = strchr(h, '\'')) == NULL) {
strncpy(s, h, min(strlen(h)+1, l));
*(s+min(strlen(h)+1, l)) = '\0';
}
else {
strncpy(s, h, min(tag-h, l));
*(s+min(tag-h, l)) = '\0';
}
return 0;
}
#ifdef DTM_PROTOTYPES
int dtm_get_int(char *h,char *tag,int *x)
#else
int dtm_get_int(h, tag, x)
char *h, *tag;
int *x;
#endif
{
/* no tag return error */
if ((h = dtm_find_tag(h, tag)) == NULL)
return DTMERROR;
/* no field available, return error */
if ((h = strchr(h, ' ')) == NULL)
return DTMERROR;
else
h += 1;
*x = atoi(h);
return 0;
}
#ifdef DTM_PROTOTYPES
int dtm_get_float(char *h,char *tag,float *x)
#else
int dtm_get_float(h, tag, x)
char *h, *tag;
float *x;
#endif
{
/* no tag return error */
if ((h = dtm_find_tag(h, tag)) == NULL)
return DTMERROR;
/* no field available, return error */
if ((h = strchr(h, ' ')) == NULL)
return DTMERROR;
else
h += 1;
*x = atof(h);
return 0;
}
#ifdef NONO
#ifdef DTM_PROTOTYPES
void DTMsetType(char *h,DTMTYPE type)
#else
void DTMsetType(h, type)
char *h;
DTMTYPE type;
#endif
{
char num[8];
strcat(h, DTMtype); strcat(h, " ");
sprintf(num, "%d ", type);
strcat(h, num);
}
#ifdef DTM_PROTOTYPES
DTMTYPE DTMgetType(char *h)
#else
DTMTYPE DTMgetType(h)
char *h;
#endif
{
char *f;
if ((f = dtm_find_tag(h, DTMtype)) != NULL)
return (DTMTYPE)atoi(f);
else
return DTM_FLOAT;
}
#ifdef DTM_PROTOTYPES
void DTMsetGroup(char *h,DTMCMD cmd,char *parent,char *self)
#else
void DTMsetGroup(h, cmd, parent, self)
char *h, *parent, *self;
DTMCMD cmd;
#endif
{
char num[12];
strcat(h, "GRP ");
sprintf(num, "%d ", (int)cmd);
strcat(h, num);
if (parent != NULL)
strcat(h, parent);
strcat(h, " ");
if (self != NULL)
strcat(h, self);
strcat(h, " ");
}
#ifdef DTM_PROTOTYPES
int DTMgetGroup(char *h,DTMCMD cmd,char *parent,char *self)
#else
int DTMgetGroup(h, cmd, parent, self)
char *h, *parent, *self;
DTMCMD *cmd;
#endif
{
int len;
*self = *parent = '\0';
if ((h = dtm_find_tag(h, "GRP")) == NULL)
return DTMERROR;
h = strchr(h, ' ')+1;
/* get DTM command */
*cmd = (DTMCMD)atoi(h);
h = strchr(h, ' ')+1;
/* get parent name */
if (*h != ' ') {
len = strchr(h, ' ')-h;
strncpy(parent, h, len);
*(parent+len) = '\0';
}
else
*parent = '\0';
h = strchr(h, ' ')+1;
/* get self name */
if (*h != ' ') {
len = strchr(h, ' ')-h;
strncpy(self, h, len);
*(self+len) = '\0';
}
else
*self = '\0';
return 1;
}
#endif
Reference in New Issue View Git Blame Copy Permalink