Imported Upstream version 20120410upstream/20120410upstream

1 files changed, 145 insertions, 0 deletions

diff --git a/dwarfdump/tag_common.c b/dwarfdump/tag_common.c
new file mode 100644
index 0000000..28b2d2c
--- /dev/null
+++ b/dwarfdump/tag_common.c
@@ -0,0 +1,145 @@
+/* 
+  Copyright (C) 2000-2005 Silicon Graphics, Inc.  All Rights Reserved.
+  Portions Copyright (C) 2009-2010 SN Systems Ltd. All Rights Reserved.
+  Portions Copyright (C) 2009-2011 David Anderson. All Rights Reserved.
+
+  This program is free software; you can redistribute it and/or modify it
+  under the terms of version 2 of the GNU General Public License as
+  published by the Free Software Foundation.
+
+  This program is distributed in the hope that it would be useful, but
+  WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+  Further, this software is distributed without any warranty that it is
+  free of the rightful claim of any third person regarding infringement
+  or the like.  Any license provided herein, whether implied or
+  otherwise, applies only to this software file.  Patent licenses, if
+  any, provided herein do not apply to combinations of this program with
+  other software, or any other product whatsoever.
+
+  You should have received a copy of the GNU General Public License along
+  with this program; if not, write the Free Software Foundation, Inc., 51
+  Franklin Street - Fifth Floor, Boston MA 02110-1301, USA.
+
+  Contact information:  Silicon Graphics, Inc., 1500 Crittenden Lane,
+  Mountain View, CA 94043, or:
+
+  http://www.sgi.com
+
+  For further information regarding this notice, see:
+
+  http://oss.sgi.com/projects/GenInfo/NoticeExplan
+
+$Header: /plroot/cmplrs.src/v7.4.5m/.RCS/PL/dwarfdump/RCS/tag_common.c,v 1.8 2008/01/23 09:47:59 davea Exp $ */
+
+#include <dwarf.h>
+#include <stdio.h>
+#include <stdlib.h>/* For exit() declaration etc. */
+#include <errno.h>/* For errno declaration. */
+#include <ctype.h>    /*  For isspace() declaration */
+
+#include "globals.h"
+#include "naming.h"
+#include "tag_common.h" 
+
+static int linecount = 0;
+static char line_in[MAX_LINE_SIZE];
+
+void
+bad_line_input(char *msg)
+{
+    fprintf(stderr,
+        "tag_(tree,attr) table build failed %s, line %d: \"%s\"  \n",
+        msg, linecount, line_in);
+    exit(FAILED);
+}
+
+void
+trim_newline(char *line, int max)
+{
+    char *end = line + max - 1;
+
+    for (; *line && (line < end); ++line) {
+        if (*line == '\n') {
+            /* Found newline, drop it */
+            *line = 0;
+            return;
+        }
+   }
+   return;
+}
+
+/*  Detect empty lines (and other lines we do not want to read) */
+boolean
+is_skippable_line(char *pLine)
+{
+    boolean empty = TRUE;
+
+    if(pLine[0] == '#') {
+        /* Preprocessor lines are of no interest. */
+        return TRUE;
+    }
+    for (; *pLine && empty; ++pLine) {
+        empty = isspace(*pLine);
+    }
+    return empty;
+}
+
+/*  Reads a value from the text table. 
+    Exits  with non-zero status 
+    if the table is erroneous in some way. 
+*/
+int
+read_value(unsigned int *outval, FILE*file)
+{
+    char *res = 0;
+    unsigned long lval;
+    char *strout = 0;
+    boolean bBlankLine = TRUE; 
+
+    ++linecount;
+    *outval = 0;
+
+    while (bBlankLine) {
+        res = fgets(line_in, sizeof(line_in), file);
+        if (res == 0) {
+            if (ferror(file)) {
+                fprintf(stderr,
+                    "tag_attr: Error reading table, %d lines read\n",
+                    linecount);
+                exit(FAILED);
+            }
+
+            if (feof(file)) {
+                return IS_EOF;
+            }
+
+            /* Impossible */
+            fprintf(stderr, "tag_attr: Impossible error reading table, "
+                "%d lines read\n", linecount);
+            exit(FAILED);
+        }
+
+        bBlankLine = is_skippable_line(line_in);
+    }
+
+    trim_newline(line_in, sizeof(line_in));
+    errno = 0;
+    lval = strtoul(line_in, &strout, 0);
+
+    if (strout == line_in) {
+        bad_line_input("bad number input!");
+    }
+
+    if (errno != 0) {
+        int myerr = errno;
+
+        fprintf(stderr, "tag_attr errno %d\n", myerr);
+        bad_line_input("invalid number on line");
+    }
+
+    *outval = (int) lval;
+
+    return NOT_EOF;
+}