From 5fc236accc43bd1ca5f5b08fb5a78d5b07a948ec Mon Sep 17 00:00:00 2001
From: Cary R <cygcary@yahoo.com>
Date: Mon, 25 May 2009 10:35:55 -0700
Subject: [PATCH] Use strchr() instead of index().

strchr() is more portable and index() is not available under
MinGW so replace index() with strchr().
---
 lexor.lex | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lexor.lex b/lexor.lex
index ad0df6906..0b53eb5fd 100644
--- a/lexor.lex
+++ b/lexor.lex
@@ -481,6 +481,7 @@ S [afpnumkKMGT]
       NetNet::Type net_type;
       size_t wordlen = strcspn(yytext, " \t\f\r\n");
       yytext[wordlen] = 0;
+  /* Add support for other wire types and better error detection. */
       if (strcmp(yytext,"wire") == 0) {
 	    net_type = NetNet::WIRE;
 
@@ -994,6 +995,7 @@ static void process_timescale(const char*txt)
       char*tmp;
       const char*ctmp;
 
+// Add beetter error detection. Look at `line
       int unit = 0;
       int prec = 0;
 
@@ -1101,7 +1103,7 @@ static void line_directive()
 {
       char *cpr;
 	/* Skip any leading space. */
-      char *cp = index(yytext, '#');
+      char *cp = strchr(yytext, '#');
 	/* Skip the #line directive. */
       assert(strncmp(cp, "#line", 5) == 0);
       cp += 5;
@@ -1170,7 +1172,7 @@ static void line_directive2()
 {
       char *cpr;
 	/* Skip any leading space. */
-      char *cp = index(yytext, '`');
+      char *cp = strchr(yytext, '`');
 	/* Skip the `line directive. */
       assert(strncmp(cp, "`line", 5) == 0);
       cp += 5;