hsgetopt.c

来自「语音处理平台 可以分析语音能量 第一振峰频率等数据」· C语言 代码 · 共 108 行

/*
 * Copyright (c) 1987, 1989 University of Maryland
 * Department of Computer Science.  All rights reserved.
 * Permission to copy for any purpose is hereby granted
 * so long as this copyright notice remains intact.
 */

/*
 * getopt - get option letter from argv
 * (From Henry Spencer @ U of Toronto Zoology, slightly edited)
 */

/* 
 * modiifed by Tony Robinson on 27 March 1993 to remove the call to
 * index() and declare strcmp(); and strlen().
 * 08 Aug 94: these mods deleted and shorten.h included instead.
*/

/*
 * modified by Jon Fiscus on 18 August 1993: renamed to hs_getopt
 * to avoid conflicts with system provided calls.
*/

#include <stdio.h>
#include <string.h>
#include "shorten.h"

/* mrhmod - ensure init of static variables */
char	*hs_optarg = NULL;	/* Global argument pointer. */
int	 hs_optind = 0;		/* Global argv index. */

static char *scan = NULL;	/* Private scan pointer. */

void hs_resetopt() {
        scan = (char *)0;
        hs_optind = 0;
} 

int
hs_getopt(argc, argv, optstring)
	register int argc;
	register char **argv;
	char *optstring;
{
	register int c;
	register char *place;

	hs_optarg = NULL;
	if (scan == NULL || *scan == 0) {
		if (hs_optind == 0)
			hs_optind++;
		if (hs_optind >= argc || argv[hs_optind][0] != '-' ||
		    argv[hs_optind][1] == 0)
			return (EOF);
		if (strcmp(argv[hs_optind], "--") == 0) {
			hs_optind++;
			return (EOF);
		}
		scan = argv[hs_optind] + 1;
		hs_optind++;
	}
	c = *scan++;

	/* BEGIN AJR MOD
	   this used to read:
	   place = index(optstring, c);
	   this code modified from code by Steve Lowe ([e-mail])
	*/
	{ char *str = optstring;
	  if(str == NULL) place = NULL;
	  while((*str != '\0') && (*str != c)) str++;
	  if(*str == c) place = str;
	  else place = NULL;
	}
	/* END AJR MOD */

	if (place == NULL || c == ':') {
#ifdef _WINDOWS	/* mrhmod - avoid attempt to use stderr */
	  error_exit("%s: unknown option -%c\n", argv[0], c);
#else
	  fprintf(stderr, "%s: unknown option -%c\n", argv[0], c);
#endif
	  return ('?');
	}
	place++;
	if (*place == ':') {
		if (*scan != '\0') {
			hs_optarg = scan;
			scan = NULL;
		} else {
			if (hs_optind >= argc) {
#ifdef _WINDOWS	/* mrhmod - avoid attempt to use stderr */
			        error_exit("%s: missing argument after -%c\n",
				        argv[0], c);
#else
				fprintf(stderr,
					"%s: missing argument after -%c\n",
					argv[0], c);
#endif
				return ('?');
			}
			hs_optarg = argv[hs_optind];
			hs_optind++;
		}
	}
	return (c);
}