Return to symln.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / bin / cdb

Annotation of cci/usr/src/bin/cdb/symln.c, revision 1.1.1.1

1.1       root        1: static char sccsid[] = "@(#)symln.c    2.4";
                      2: 
                      3: #include <stdio.h>
                      4: #include "basic.h"
                      5: 
                      6: main()
                      7: {
                      8:        short   cchStrCret0, cchStrData, cchStrText;
                      9:        short   cchStrLine, lnLast, ln;
                     10:        FLAGT   fText;
                     11:        char    *dotptr, *strLine, str2[200], str[200];
                     12:        char    *strCret0, *strText, *strData;
                     13: 
                     14:        char    *strrchr();
                     15: 
                     16:        strLine = "//   line ";
                     17:        cchStrLine = strlen(strLine);
                     18:        strText = "     .text";
                     19:        cchStrText = strlen(strText);
                     20:        strData = "     .data";
                     21:        cchStrData = strlen(strData);
                     22:        strCret0 = "    jpr     cret0";
                     23:        cchStrCret0 = strlen(strCret0);
                     24:        ln = -1;
                     25:        lnLast = -2;
                     26: 
                     27:        fText = true;  /* this is the state the assembler starts in */
                     28:        while (gets(str) != NULL) {
                     29:                if (!fText) {
                     30:                        if (strncmp(str, strText, cchStrText) == 0) {
                     31:                                fText = true;   /* we are back in text mode */
                     32:                        } /* if */
                     33:                        puts(str);
                     34:                } 
                     35:                else if (strncmp(str, strLine, cchStrLine) == 0) {
                     36:                        dotptr = strrchr(str, '.');
                     37:                        if (dotptr == 0 OR dotptr[1] != 'h') {
                     38:                                ln = atoi(&str[cchStrLine]);
                     39:                                if (ln != lnLast) {
                     40:                                        sprintf(str, "~_lN%d:",ln);
                     41:                                        lnLast = ln;
                     42:                                        puts(str);
                     43:                                } /* if */
                     44:                        } /* if */
                     45:                } 
                     46:                else if (strncmp(str, strCret0, cchStrCret0) == 0) {
                     47:                        ln = lnLast + 1;
                     48:                        sprintf(str2, "~_lN%d:\n~_lE%d:", ln, ln);
                     49:                        lnLast = ln;
                     50:                        puts(str2);
                     51:                        puts(str);
                     52:                } 
                     53:                else if (strncmp(str, strData, cchStrData) == 0) {
                     54:                        fText = false;
                     55:                        puts(str);
                     56:                } 
                     57:                else {
                     58:                        puts(str);
                     59:                } /* if */
                     60:        } /* while */
                     61:        exit(0);
                     62: } /* main */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.