strbalp.c

mips架构的bootloader,99左右的版本 但源代码现在没人更新了

/*************************************************************
 * File: lib/strbalp.c
 * Purpose: Part of C runtime library
 * Author: Phil Bunce ([e-mail])
 * Revision History:
 *	970304	Start of revision history
 */

#include "string.h"

/*************************************************************
*  char *strbalp(p) 
*	return a ptr to balancing paren 
*/
char *strbalp(p)
char *p;
{
char b,e;
char *ol = "({[<";
char *cl = ")}]>";
int i,n;

b = *p;
for (i=0;ol[i] != 0;i++) {
	if (ol[i] == b) break;
	}
if (ol[i] == 0) return(0);
e = cl[i];

n = 0;
for (;*p;p++) {
	if (*p == b) n++;
	else if (*p == e) {
		n--;
		if (n == 0) return(p);
		}
	}
return(0);
}