Annotation of freem/src/errmsg.h, revision 1.1.1.1

1.1       snw         1: /*
                      2:  *                            *
                      3:  *                           * *
                      4:  *                          *   *
                      5:  *                     ***************
                      6:  *                      * *       * *
                      7:  *                       *  MUMPS  *
                      8:  *                      * *       * *
                      9:  *                     ***************
                     10:  *                          *   *
                     11:  *                           * *
                     12:  *                            *
                     13:  *
                     14:  *   errmsg.h
                     15:  *    error message definitions
                     16:  *
                     17:  *  
                     18:  *   Author: Serena Willis <jpw@coherent-logic.com>
                     19:  *    Copyright (C) 1998 MUG Deutschland
                     20:  *    Copyright (C) 2020 Coherent Logic Development LLC
                     21:  *
                     22:  *
                     23:  *   This file is part of FreeM.
                     24:  *
                     25:  *   FreeM is free software: you can redistribute it and/or modify
                     26:  *   it under the terms of the GNU Affero Public License as published by
                     27:  *   the Free Software Foundation, either version 3 of the License, or
                     28:  *   (at your option) any later version.
                     29:  *
                     30:  *   FreeM is distributed in the hope that it will be useful,
                     31:  *   but WITHOUT ANY WARRANTY; without even the implied warranty of
                     32:  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     33:  *   GNU Affero Public License for more details.
                     34:  *
                     35:  *   You should have received a copy of the GNU Affero Public License
                     36:  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
                     37:  *
                     38:  **/
                     39: 
                     40: int     SIflag[MAXDEV + 1] = {1, 1, 1, 1, 1};           /* SI/SO flag */
                     41: 
                     42: char    errmes[MAXERR][ERRLEN] = {
                     43:     "\201",                         /* OK       */
                     44:     "interrupt\201",                /* INRPT    */
                     45:     "BREAK point\201",              /* BKERR    */
                     46:     "syntax illegal in current dialect mode\201",      /* NOSTAND  */
                     47:     "variable not found\201",       /* UNDEF    */
                     48:     "label not found\201",          /* LBLUNDEF */
                     49:     "missing operand\201",          /* MISSOPD  */
                     50:     "missing operator\201",         /* MISSOP   */
                     51:     "unrecognized operator\201",    /* ILLOP    */
                     52:     "unmatched quotes\201",         /* QUOTER   */
                     53:     "comma expected\201",           /* COMMAER  */
                     54:     "equals '=' expected\201",      /* ASSIGNER */
                     55:     "argument not permitted\201",   /* ARGER    */
                     56:     "blank ' ' expected\201",       /* SPACER   */
                     57:     "unmatched parentheses\201",    /* BRAER    */
                     58:     "level error\201",              /* LVLERR   */
                     59:     "divide by zero\201",           /* DIVER    */
                     60:     "function not found\201",       /* ILLFUN   */
                     61:     "wrong number of function arguments\201",   /* FUNARG   */
                     62:     "ZTRAP error\201",              /* ZTERR    */
                     63:     "$NEXT/$ORDER error\201",       /* NEXTER   */
                     64:     "$SELECT error\201",            /* SELER    */
                     65:     "illegal command\201",          /* CMMND    */
                     66:     "argument list incorrect\201",  /* ARGLIST  */
                     67:     "invalid expression\201",       /* INVEXPR  */
                     68:     "invalid reference\201",        /* INVREF   */
                     69:     "string too long\201",          /* MXSTR    */
                     70:     "too many parameters\201",      /* TOOPARA  */
                     71:     "unit not open\201",            /* NOPEN    */
                     72:     "unit does not exist\201",      /* NODEVICE */
                     73:     "file protection violation\201",/* PROTECT  */
                     74:     "global not permitted\201",     /* GLOBER   */
                     75:     "file not found\201",           /* FILERR   */
                     76:     "program overflow\201",         /* PGMOV    */
                     77:     "stack overflow\201",           /* STKOV    */
                     78:     "symbol table overflow\201",    /* STORE    */
                     79:     "file won't read\201",          /* NOREAD   */
                     80:     "file won't write\201",         /* NOWRITE  */
                     81:     "routine not found\201",        /* NOPGM    */
                     82:     "illegal naked reference\201",  /* NAKED    */
                     83:     "illegal subscript\201",        /* SBSCR    */
                     84:     "insert syntax\201",            /* ISYNTX   */
                     85:     "database degradation\201",     /* DBDGD    */
                     86:     "job kill signal\201",          /* KILLER   */
                     87:     "hangup signal\201",            /* HUPER    */
                     88:     "numeric overflow\201",         /* MXNUM    */
                     89:     "function returns no value\201",/* NOVAL    */
                     90:     "type mismatch\201",            /* TYPEMISMATCH */
                     91:     "out of memory\201",            /* MEMOV */
                     92:     "error in name resolution\201", /* NAMERES */
                     93:     "error creating socket\201",    /* SCKCREAT */
                     94:     "invalid address family (must be IPV4 or IPV6)\201",    /* SCKIFAM */
                     95:     "invalid connection type (must be TCP or UDP)\201",     /* SCKITYP */
                     96:     "invalid port number\201",                              /* SCKIPRT */
                     97:     "connection error\201",                                 /* SCKCERR */
                     98:     "USE action invalid for connection type (possibly CONNECT on UDP socket?)\201", /* SCKAERR */
                     99:     "attempted to CONNECT an already-connected socket\201", /* SCKACON */
                    100:     "attempted to READ from a disconnected TCP socket\201", /* SCKNCON */
                    101:     "error setting socket options\201",                     /* SCKEOPT */
                    102:     "error in READ from socket\201",                        /* SCKERCV */
                    103:     "error in WRITE to socket\201",                         /* SCKESND */
                    104:     "^$ZRPI only supported on Raspberry Pi hardware\201",   /* NORPI */                         
                    105:     "cannot redefine CONST\201",                            /* CREDEF */
                    106:     "cannot modify CONST\201",                              /* CMODIFY */
                    107:     "cannot open existing file for WRITE\201",              /* FILEXWR */
                    108:     "initializing NEW with multiple setarguments not supported\201", /* INEWMULT */
                    109:     "invalid $HOROLOG value\201", /* ZINVHORO */
                    110:     "type mismatch\201", /* TYPMISMATCH */
                    111:     "invalid type specification\201", /* INVTYPE */
                    112:     "invalid library option\201", /* INVLIBOPT */
                    113:     " \201",
                    114:     " \201",
                    115:     " \201",
                    116:     " \201",
                    117:     " \201",
                    118:     " \201",
                    119:     " \201",
                    120:     " \201",
                    121:     " \201",
                    122:     " \201",
                    123:     "invalid value for $ECODE\201",                         /* ECODEINV */
                    124:     "programmer assertion failed\201",                      /* ASSERT */
                    125:     "user-defined error\201",                               /* USERERR */
                    126:     "illegal access to private object field\201",               /* OBJFLDACCV */
                    127:     "cannot overwrite local variable with object instance\201", /* OBJCONFLICT */
                    128:     "exceeded maximum count of private object fields\201",      /* OBJPRIVOVFL */
                    129:     "invalid access class specifier\201",                       /* OBJACINVALID */
                    130:     " \201",
                    131:     " \201",
                    132:     " \201",
                    133:     " \201",
                    134:     " \201",
                    135:     " \201",
                    136:     " \201",
                    137:     " \201",
                    138:     " \201",
                    139:     " \201",
                    140:     " \201",
                    141:     " \201",
                    142:     " \201",
                    143:     " \201",
                    144:     " \201",
                    145:     " \201",
                    146:     " \201",
                    147:     " \201",
                    148:     " \201",
                    149:     " \201",
                    150:     " \201",
                    151:     " \201",
                    152:     " \201",
                    153:     " \201",
                    154:     " \201",
                    155:     " \201",
                    156:     " \201",
                    157:     " \201",
                    158:     " \201",
                    159:     " \201",
                    160:     " \201",
                    161:     " \201",
                    162:     " \201",
                    163:     " \201",
                    164:     " \201",
                    165:     " \201",
                    166:     " \201",
                    167:     " \201",
                    168:     " \201",
                    169:     " \201",
                    170:     " \201",
                    171:     "syntax error\201", /* 128 - ZSYNTERR */
                    172:     " \201", /* 129 */
                    173:     " \201",                         /* 130 */
                    174:     " \201", /* 131 */
                    175:     " \201",
                    176:     " \201",
                    177:     " \201",
                    178:     " \201",
                    179:     " \201",
                    180:     " \201",
                    181:     " \201",
                    182:     " \201",
                    183:     "naked indicator undefined\201",                        /* 140 - M1 */                    
                    184:     "invalid combination with $FNUMBER code atom\201",      /* M2 */
                    185:     "$RANDOM seed less than 1\201",                         /* M3 */
                    186:     "no true condition in $SELECT\201", /* M4 */
                    187:     "line reference less than zero\201", /* M5 */
                    188:     "undefined local variable\201", /* M6 */
                    189:     "undefined global variable\201", /* M7 */
                    190:     "undefined intrinsic special variable\201", /* M8 */
                    191:     "divide by zero\201", /* M9 */
                    192:     "invalid pattern match range\201", /* M10 */
                    193:     "no parameters passed\201", /* 150 - M11 */     
                    194:     "invalid line reference (negative offset)\201", /* M12 */
                    195:     "invalid line reference (line not found)\201", /* M13 */
                    196:     "line level not 1\201", /* M14 */
                    197:     "undefined index variable\201", /* M15 */
                    198:     "argumented QUIT not allowed\201", /* M16 */
                    199:     "argumented QUIT required\201", /* M17 */
                    200:     "fixed length READ not greater than zero\201", /* M18 */
                    201:     "cannot copy a tree or subtree into itself\201", /* M19 */
                    202:     "line must have a formal parameter list\201", /* M20 */
                    203:     "algorithm specification invalid\201", /* 160 - M21 */
                    204:     "SET or KILL to ^$GLOBAL when data in global\201", /* M22 */
                    205:     "SET or KILL to ^$JOB for non-existent job number\201", /* M23 */
                    206:     "change to collation algorithm while subscripted local variables defined\201", /* M24 */
                    207:     " \201", /* M25 */
                    208:     "non-existent namespace\201", /* M26 */
                    209:     "attempt to rollback a transaction that is not restartable\201", /* M27 */
                    210:     "mathematical function, parameter out of range\201", /* M28 */
                    211:     "SET or KILL on structured system variable not allowed by implementation\201", /* M29 */
                    212:     "reference to global variable with different collating sequence within a collating algorithm\201", /* M30 */
                    213:     "control mnemonic used for device without a mnemonic space selected\201", /* 170 - M31 */
                    214:     "control mnemonic used in user-defined mnemonic space which has no associated line\201", /* M32 */
                    215:     "SET or KILL to ^$ROUTINE when routine exists\201", /* M33 */
                    216:     " \201", /* M34 */
                    217:     "device does not support mnemonic space\201", /* M35 */
                    218:     "incompatible mnemonic spaces\201", /* M36 */
                    219:     "READ from device identified by the empty string\201", /* M37 */
                    220:     "invalid structured system variable subscript\201", /* M38 */ 
                    221:     "invalid $NAME argument\201", /* M39 */
                    222:     "call-by-reference in JOB actual parameter\201", /* M40 */
                    223:     "invalid LOCK argument within a transaction\201", /* 180 - M41 */
                    224:     "invalid QUIT within a transaction\201", /* M42 */
                    225:     "invalid range value ($X, $Y)\201", /* M43 */
                    226:     "invalid command outside of a transaction\201", /* M44 */
                    227:     "invalid GOTO reference\201", /* M45 */
                    228:     " \201", /* M46 */
                    229:     " \201", /* M47 */
                    230:     " \201", /* M48 */
                    231:     " \201", /* M49 */
                    232:     " \201", /* M50 */
                    233:     " \201", /* 190 - M51 */
                    234:     " \201", /* M52 */
                    235:     " \201", /* M53 */
                    236:     " \201", /* M54 */
                    237:     " \201", /* M55 */
                    238:     "identifier exceeds maximum length\201", /* M56 */
                    239:     "more than one defining occurrence of label in routine\201", /* M57 */
                    240:     "too few formal parameters\201", /* M58 */
                    241:     " \201", /* M59 */
                    242:     "illegal attempt to use an undefined SSVN\201",             /* M60 */
                    243:     " \201", /* 200 - M61 */
                    244:     " \201",
                    245:     " \201",
                    246:     " \201",
                    247:     " \201",
                    248:     " \201",
                    249:     " \201",
                    250:     " \201",
                    251:     " \201",
                    252:     " \201", /* M70 */
                    253:     " \201", /* 210 - M71 */
                    254:     " \201",
                    255:     " \201",
                    256:     " \201",
                    257:     "string length exceeds implementation limits\201", /* 214 - M75 */
                    258:     " \201",
                    259:     " \201",
                    260:     " \201",
                    261:     " \201",
                    262:     " \201", /* M80 */
                    263:     " \201", /* 220 - M81 */
                    264:     " \201",
                    265:     " \201",
                    266:     " \201",
                    267:     " \201",
                    268:     " \201",
                    269:     " \201",
                    270:     " \201",
                    271:     " \201",
                    272:     " \201", /* M90 */
                    273:     " \201", /* 230 - M91 */
                    274:     " \201", 
                    275:     " \201",
                    276:     " \201",
                    277:     " \201",
                    278:     " \201",
                    279:     " \201",
                    280:     " \201",
                    281:     " \201",
                    282:     " \201", /* M100 */
                    283:     "invalid value for $ECODE\201", /* 240 - M101 */
                    284:     "synchronous and asynchronous event processing cannot be simultaneously enabled for the same event class\201", /* 241 - M102 */
                    285:     "invalid event identifier\201", /* 242 - M103 */
                    286:     "ETRIGGER event identifier for IPC event class does not match job process identifier\201", /* 243 - M104 */
                    287:     " \201", /* 244 */
                    288:     " \201", /* 245 */
                    289:     " \201", /* 246 */
                    290:     " \201", /* 247 */
                    291:     " \201", /* 248 */
                    292:     " \201", /* 249 */
                    293:     " \201", /* 250 */
                    294:     " \201", /* 251 */
                    295:     " \201", /* 252 */
                    296:     " \201", /* 253 */
                    297:     "asynchronous interruption\201", /* 254 - ZASYNC (pseudo-error) */
                    298:     "break\201" /* CTRLB - 255 */
                    299: };

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>