|
DataMuseum.dkPresents historical artifacts from the history of: Commodore CBM-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Commodore CBM-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1215 (0x4bf)
Notes: UNIX file
Names: »message.c«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
└─⟦f4b8d8c84⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »cmd/ld/message.c«
0x000…020 2f 2a 0a 20 2a 20 10 50 72 69 6e 74 20 6d 65 73 73 61 67 65 73 20 6f 66 20 76 61 72 69 6f 75 73 ┆/* * Print messages of various┆
0x020…040 20 6f 72 69 67 69 6e 73 0a 20 2a 2f 0a 0a 76 6f 69 64 0a 6d 65 73 73 61 67 65 28 61 72 67 73 29 ┆ origins */ void message(args)┆
0x040…060 0a 63 68 61 72 09 2a 61 72 67 73 3b 0a 7b 0a 09 70 72 69 6e 74 66 28 22 4c 64 3a 20 25 72 5c 6e ┆ char *args; { printf("Ld: %r\n┆
0x060…080 22 2c 20 26 61 72 67 73 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 46 61 74 61 6c 20 65 72 72 6f 72 3b ┆", &args); } /* * Fatal error;┆
0x080…0a0 20 70 72 69 6e 74 20 6d 65 73 73 61 67 65 20 61 6e 64 20 65 78 69 74 0a 20 2a 2f 0a 76 6f 69 64 ┆ print message and exit */ void┆
0x0a0…0c0 0a 66 61 74 61 6c 28 61 72 67 73 29 0a 63 68 61 72 09 2a 61 72 67 73 3b 0a 7b 0a 09 66 70 72 69 ┆ fatal(args) char *args; { fpri┆
0x0c0…0e0 6e 74 66 28 73 74 64 65 72 72 2c 20 22 4c 64 3a 20 25 72 5c 6e 22 2c 20 26 61 72 67 73 29 3b 0a ┆ntf(stderr, "Ld: %r\n", &args); ┆
0x0e0…100 09 65 78 69 74 28 31 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 6d 65 73 73 61 67 65 20 70 6c 75 73 20 ┆ exit(1); } /* * message plus ┆
0x100…120 63 6f 6d 6d 61 6e 64 20 70 72 6f 74 6f 74 79 70 65 0a 20 2a 2f 0a 76 6f 69 64 0a 75 73 61 67 65 ┆command prototype */ void usage┆
0x120…140 28 61 72 67 73 29 0a 63 68 61 72 09 2a 61 72 67 73 3b 0a 7b 0a 09 66 61 74 61 6c 28 22 25 72 5c ┆(args) char *args; { fatal("%r\┆
0x140…160 6e 5c 0a 55 73 61 67 65 3a 20 6c 64 20 5b 2d 64 5d 20 5b 2d 65 20 65 6e 74 72 79 5d 20 5b 2d 6b ┆n\ Usage: ld [-d] [-e entry] [-k┆
0x160…180 5b 73 79 73 6e 61 6d 5d 5d 20 5b 2d 69 5d 20 5b 2d 6c 3c 6e 61 6d 65 3e 5d 20 5b 2d 6d 5d 20 5b ┆[sysnam]] [-i] [-l<name>] [-m] [┆
0x180…1a0 2d 6e 5d 20 5b 2d 6f 20 66 69 6c 65 5d 5c 5c 5c 6e 5c 0a 5c 74 5b 2d 52 20 72 65 6c 6f 63 62 61 ┆-n] [-o file]\\\n\ \t[-R relocba┆
0x1a0…1c0 73 65 5d 20 5b 2d 4c 5d 20 5b 2d 72 5d 20 5b 2d 73 5d 20 5b 2d 75 20 73 79 6d 62 6f 6c 5d 20 5b ┆se] [-L] [-r] [-s] [-u symbol] [┆
0x1c0…1e0 2d 58 7c 78 5d 20 66 69 6c 65 20 2e 2e 2e 22 2c 0a 09 09 26 61 72 67 73 29 3b 0a 7d 0a 0a 2f 2a ┆-X|x] file ...", &args); } /*┆
0x1e0…200 0a 20 2a 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 66 69 6c 65 6e 61 6d 65 0a 20 2a 2f 0a 76 6f ┆ * message with filename */ vo┆
0x200…220 69 64 0a 66 69 6c 65 6d 73 67 28 66 6e 61 6d 65 2c 20 61 72 67 73 29 0a 63 68 61 72 09 2a 66 6e ┆id filemsg(fname, args) char *fn┆
0x220…240 61 6d 65 2c 20 2a 61 72 67 73 3b 0a 7b 0a 09 6d 65 73 73 61 67 65 28 22 66 69 6c 65 20 25 73 3a ┆ame, *args; { message("file %s:┆
0x240…260 20 25 72 22 2c 20 66 6e 61 6d 65 2c 20 26 61 72 67 73 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 4d 65 ┆ %r", fname, &args); } /* * Me┆
0x260…280 73 73 61 67 65 20 77 69 74 68 20 6d 6f 64 75 6c 65 20 61 6e 64 20 66 69 6c 65 20 6e 61 6d 65 0a ┆ssage with module and file name ┆
0x280…2a0 20 2a 2f 0a 76 6f 69 64 0a 6d 6f 64 6d 73 67 28 66 6e 61 6d 65 2c 20 6d 6e 61 6d 65 2c 20 61 72 ┆ */ void modmsg(fname, mname, ar┆
0x2a0…2c0 67 73 29 0a 63 68 61 72 09 2a 66 6e 61 6d 65 2c 20 6d 6e 61 6d 65 5b 44 49 52 53 49 5a 5d 2c 20 ┆gs) char *fname, mname[DIRSIZ], ┆
0x2c0…2e0 2a 61 72 67 73 3b 0a 7b 0a 09 69 66 20 28 6d 6e 61 6d 65 5b 30 5d 3d 3d 30 29 0a 09 09 66 69 6c ┆*args; { if (mname[0]==0) fil┆
0x2e0…300 65 6d 73 67 28 66 6e 61 6d 65 2c 20 22 25 72 22 2c 20 26 61 72 67 73 29 3b 0a 09 65 6c 73 65 0a ┆emsg(fname, "%r", &args); else ┆
0x300…320 09 09 66 69 6c 65 6d 73 67 28 66 6e 61 6d 65 2c 20 22 6d 6f 64 75 6c 65 20 25 2e 2a 73 3a 20 25 ┆ filemsg(fname, "module %.*s: %┆
0x320…340 72 22 2c 0a 09 09 09 44 49 52 53 49 5a 2c 20 6d 6e 61 6d 65 2c 20 26 61 72 67 73 29 3b 0a 7d 0a ┆r", DIRSIZ, mname, &args); } ┆
0x340…360 0a 2f 2a 0a 20 2a 20 4d 65 73 73 61 67 65 20 66 6f 72 20 6d 6f 64 75 6c 65 20 70 61 73 73 65 64 ┆ /* * Message for module passed┆
0x360…380 20 62 79 20 70 6f 69 6e 74 65 72 0a 20 2a 2f 0a 76 6f 69 64 0a 6d 70 6d 73 67 28 6d 70 2c 20 61 ┆ by pointer */ void mpmsg(mp, a┆
0x380…3a0 72 67 73 29 0a 6d 6f 64 5f 74 09 2a 6d 70 3b 0a 63 68 61 72 09 2a 61 72 67 73 3b 0a 7b 0a 09 6d ┆rgs) mod_t *mp; char *args; { m┆
0x3a0…3c0 6f 64 6d 73 67 28 6d 70 2d 3e 66 6e 61 6d 65 2c 20 6d 70 2d 3e 6d 6e 61 6d 65 2c 20 22 25 72 22 ┆odmsg(mp->fname, mp->mname, "%r"┆
0x3c0…3e0 2c 20 26 61 72 67 73 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 4d 65 73 73 61 67 65 20 66 6f 72 20 73 ┆, &args); } /* * Message for s┆
0x3e0…400 79 6d 62 6f 6c 20 70 61 73 73 65 64 20 62 79 20 70 6f 69 6e 74 65 72 0a 20 2a 2f 0a 76 6f 69 64 ┆ymbol passed by pointer */ void┆
0x400…420 0a 73 70 6d 73 67 28 73 70 2c 20 61 72 67 73 29 0a 73 79 6d 5f 74 09 2a 73 70 3b 0a 63 68 61 72 ┆ spmsg(sp, args) sym_t *sp; char┆
0x420…440 09 2a 61 72 67 73 3b 0a 7b 0a 09 69 66 20 28 73 70 2d 3e 6d 6f 64 3d 3d 4e 55 4c 4c 29 0a 09 09 ┆ *args; { if (sp->mod==NULL) ┆
0x440…460 6d 65 73 73 61 67 65 28 22 73 79 6d 62 6f 6c 20 25 2e 2a 73 3a 20 25 72 22 2c 20 4e 43 50 4c 4e ┆message("symbol %.*s: %r", NCPLN┆
0x460…480 2c 20 73 70 2d 3e 73 2e 6c 73 5f 69 64 2c 20 26 61 72 67 73 29 3b 0a 09 65 6c 73 65 0a 09 09 6d ┆, sp->s.ls_id, &args); else m┆
0x480…4a0 70 6d 73 67 28 73 70 2d 3e 6d 6f 64 2c 20 22 73 79 6d 62 6f 6c 20 25 2e 2a 73 3a 20 25 72 22 2c ┆pmsg(sp->mod, "symbol %.*s: %r",┆
0x4a0…4bf 20 4e 43 50 4c 4e 2c 20 73 70 2d 3e 73 2e 6c 73 5f 69 64 2c 20 26 61 72 67 73 29 3b 0a 7d 0a ┆ NCPLN, sp->s.ls_id, &args); } ┆