Return to error.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / sam

Annotation of researchv9/jtools/src/sam/error.c, revision 1.1

1.1     ! root        1: #include "sam.h"
        !             2: 
        !             3: static char *emsg[]={
        !             4:        /* error_s */
        !             5:        "can't open",
        !             6:        "can't create",
        !             7:        "not in menu:",
        !             8:        "changes to",
        !             9:        "I/O error:",
        !            10:        /* error_c */
        !            11:        "unknown command",
        !            12:        "no operand for",
        !            13:        "bad delimiter",
        !            14:        /* error */
        !            15:        "can't fork",
        !            16:        "out of memory",
        !            17:        "interrupt",
        !            18:        "address",
        !            19:        "search",
        !            20:        "pattern",
        !            21:        "newline expected",
        !            22:        "blank expected",
        !            23:        "pattern expected",
        !            24:        "can't nest X or Y",
        !            25:        "unmatched `}'",
        !            26:        "command takes no address",
        !            27:        "addresses overlap",
        !            28:        "substitution",
        !            29:        "substitution too long",
        !            30:        "& match too long",
        !            31:        "bad \\ in rhs",
        !            32:        "address range",
        !            33:        "changes not in sequence",
        !            34:        "file name too long",
        !            35:        "addresses out of order",
        !            36:        "no file name",
        !            37:        "unmatched `('",
        !            38:        "unmatched `)'",
        !            39:        "too many char classes",
        !            40:        "malformed `[]'",
        !            41:        "reg. exp. list overflow",
        !            42:        "unix command",
        !            43:        "can't pipe",
        !            44:        "no current file",
        !            45:        "string too long",
        !            46:        "changed files",
        !            47:        "empty string",
        !            48:        "file search",
        !            49:        "non-unique match for \"\"",
        !            50: };
        !            51: static char *wmsg[]={
        !            52:        /* warn_s */
        !            53:        "duplicate file name",
        !            54:        "no such file",
        !            55:        "write might change good version of",
        !            56:        /* warn */
        !            57:        "non-ascii chars elided",
        !            58:        "can't run pwd",
        !            59:        "last char not newline",
        !            60:        "exit status not 0",
        !            61: };
        !            62: error(s)
        !            63:        Error s;
        !            64: {
        !            65:        char buf[512];
        !            66:        sprint(buf, "?%s", emsg[s]);
        !            67:        hiccough(buf);
        !            68: }
        !            69: error_s(s, a)
        !            70:        Error s;
        !            71:        char *a;
        !            72: {
        !            73:        char buf[512];
        !            74:        sprint(buf, "?%s \"%s\"", emsg[s], a);
        !            75:        hiccough(buf);
        !            76: }
        !            77: error_c(s, c)
        !            78:        Error s;
        !            79: {
        !            80:        char buf[512];
        !            81:        sprint(buf, "?%s `%c'", emsg[s], c);
        !            82:        hiccough(buf);
        !            83: }
        !            84: warn(s)
        !            85:        Warning s;
        !            86: {
        !            87:        dprint("?warning: %s\n", wmsg[s]);
        !            88: }
        !            89: warn_s(s, a)
        !            90:        Warning s;
        !            91:        char *a;
        !            92: {
        !            93:        dprint("?warning: %s `%s'\n", wmsg[s], a);
        !            94: }
        !            95: dprint(z, a, b, c, d, e)
        !            96:        char *z;
        !            97: {
        !            98:        uchar buf[BLOCKSIZE];
        !            99:        sprint((char *)buf, z, a, b, c, d, e);
        !           100:        termwrite(buf, strlen(buf));
        !           101: }
        !           102: termwrite(s, n)
        !           103:        uchar *s;
        !           104: {
        !           105:        static String p;        /* avoid tempstr: we might be using it now */
        !           106:        if(downloaded){
        !           107:                p.n=p.size=n;
        !           108:                p.s=s;
        !           109:                if(cmd)
        !           110:                        Finsert(cmd, &p, cmdpt);
        !           111:                else
        !           112:                        strinsert(&cmdstr, &p, (long)cmdstr.n);
        !           113:                cmdptadv+=n;
        !           114:        }else
        !           115:                Write(2, s, n);
        !           116: }

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