www.pudn.com > 医学算法.rar > pdsname.c

#include 

/*
	name - extract pds name information

	carl crawford
	purdue university
	w. lafayette, in 47907

	april 29, 1981
*/

main(argc,argv)
	int	argc;
	char	**argv;
{
	int i = 0;

	if (argv[1][0] == '-'){
		if (argv[1][1] == 'f' && argc ==3){	/* Just return file */
			char	*Start, *p;
			Start = 0;
			for (p = argv[2];*p && *p != ','; p++){
				if (*p == '=' && Start == 0)
					Start = p+1;
			}
			if (Start == 0)
				Start = argv[2];
			*p = 0;
			puts(Start);
			exit(0);
		}
		if (argv[1][1] == 'p' && argc == 3) {	/* Just return prefix */
			char	*p;
			p = argv[2];
			while (*p  &&  *p != '=')
				p++;
			if (*p == '=')
				p++;
			*p = 0;
			puts(argv[2]);
			exit(0);
		}
		if (argv[1][1] == 't' && argc == 3) {	/* Just return prefix */
			char	*p;
			p = argv[2];
			while (*p  &&  *p != ',')
				p++;
			puts(p);
			exit(0);
		}
	}

	if(argc != 2){
		fprintf(stderr,"syntax: pdsname file\n");
		exit(1);
	}
	while(argv[1][i]){
		if(argv[1][i] == ','){
			argv[1][i] = 0;
			break;
		}else{
			i++;
		}
	}
	puts(argv[1]);
}