Return to slinkdata.c CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / runtime

Annotation of researchv10no/cmd/sml/src/runtime/slinkdata.c, revision 1.1

1.1     ! root        1: /* Copyright 1989 by AT&T Bell Laboratories */
        !             2: /* slinkdata.c -- group files into text segment of a .s file */
        !             3: 
        !             4: #ifndef MIPS
        !             5: #define DATALIST           "_datalist"
        !             6: #define END_SYMBOL  "_endmo"
        !             7: #define WORD        ".long"
        !             8: #else
        !             9: #define DATALIST           "datalist"
        !            10: #define END_SYMBOL  "endmo"
        !            11: #define WORD        ".word"
        !            12: #endif
        !            13: 
        !            14: #include "tags.h"
        !            15: #include <sys/types.h>
        !            16: #include <sys/stat.h>
        !            17: #include <stdio.h>
        !            18: 
        !            19: void die(s)
        !            20:     char *s;
        !            21: {
        !            22:     perror(s);
        !            23:     exit(1);
        !            24: }
        !            25: 
        !            26:   
        !            27: #define WORDS_PER_LINE 6
        !            28: main(argc, argv)
        !            29:     int argc;
        !            30:     char *argv[];
        !            31: {
        !            32:     int i, sz, n;
        !            33:     struct stat st;
        !            34:     FILE *in;
        !            35:     int buf[WORDS_PER_LINE];
        !            36: 
        !            37:     if (argc <= 1) die("Not enough arguments");
        !            38: 
        !            39:     printf(".text\n.globl %s\n", DATALIST);
        !            40: 
        !            41: 
        !            42:     for (i=1; i<argc; i++) {
        !            43:        printf(".align 2\n");
        !            44:        printf("1: %s 0x31\n",WORD); /* descriptor */
        !            45:        if (i==1) printf("%s: ",DATALIST);
        !            46:        printf("%s 2f+4\n",WORD); /* filename */
        !            47:        printf("%s 3f+4\n",WORD); /* contents */
        !            48:        printf("%s %s\n",WORD,i==argc-1 ? "1" : "1f+4"); /* next entry */
        !            49:        printf("2: %s %d\n",WORD,mak_desc(strlen(argv[i]),tag_string));
        !            50:        printf(".ascii \"%s\"\n",argv[i]);
        !            51:        printf(".align 2\n");
        !            52:        if (stat(argv[i], &st) == -1)
        !            53:          die("stat");
        !            54:        sz = st.st_size;
        !            55:        if (sz % 4 != 0) die ("file size not a multiple of 4");
        !            56:        printf("3:%s %d\n",WORD,mak_desc(sz,tag_string));
        !            57:         if ((in=fopen(argv[i],"r"))==NULL) die ("open");
        !            58:        while(n=fread(buf,sizeof(int),WORDS_PER_LINE,in)) {
        !            59:            int j=0;
        !            60:            printf("%s 0x%x",WORD,buf[0]);
        !            61:            for(j=1;j<n;j++) printf(", 0x%x",buf[j]);
        !            62:            printf("\n");
        !            63:        }
        !            64:        fclose(in);
        !            65:     }
        !            66: }
        !            67: 

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