/* Copyright (C) 1993, 1998 by Thomas Glen Smith. All Rights Reserved. */
/* aplmsg APL2 V1.0.1 **************************************************
* Called by funcsusp. Given an APL error message number, aplmsg will *
* return a pointer to the error message. *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
char *aplmsg(no)
int no;
{
switch (no) {
case 1: return(
"1 - non empty variables of dissimilar type are invalid to dyadic.");
case 2: return(
"2 - arguments to catenate aren't conformable.");
case 3: return(
"3 - invalid axis.");
case 4: return(
"4 - invalid left argument to compress/expand derived function.");
case 5: return(
"5 - arguments to mdivide must have ranks <= 2.");
case 6: return(
"6 - # rows m/b >= # columns in right argument to mdivide and matinv.");
case 7: return(
"7 - row dimension must match in the two arguments to mdivide.");
case 8: return(
"8 - right argument to mdivide or matinv isn't invertible.");
case 9: return(
"9 - invalid axis value");
case 10: return(
"10 - left argument to reshape must be of rank 0 or 1.");
case 11: return(
"11 - can't reshape something from nothing.");
case 12: return(
"12 - invalid constant.");
case 13: return(
"13 - an empty vector and undefined identity in reduce.");
case 14: return(
"14 - the arguments to format must be numeric.");
case 15: return(
"15 - the left argument to take or drop can't have rank > 1.");
case 16: return(
"16 - in take or drop, the left's count must equal right's rank.");
case 17: return(
"17 - dyadic function arguments are not conformable.");
case 18: return(
"18 - character-to-real conversion isn't supported.");
case 19: return(
"19 - character-to-integer conversion isn't supported.");
case 20: return(
"20 - an arithmetic (+-/) or math (sin, cos) function failed.");
case 21: return(
"21 - conversion from numeric to character is not supported.");
case 22: return(
"22 - ivalue has been passed an empty variable.");
case 23: return(
"23 - value has been passed an empty variable.");
case 24: return(
"24 - Dimensions must conform in inner product and decode.");
case 25: return(
"25 - the left argument to dyadic format has the wrong rank.");
case 26: return(
"26 - the left argument to format has incorrect length.");
case 27: return(
"27 - out of main storage.");
case 28: return(
"28 - a width is too large in format.");
case 29: return(
"29 - a width is too small in format.");
case 30: return(
"30 - no match, count of nonzero left items and right's axis in expand.");
case 31: return(
"31 - no match, left count and right's axis in expand.");
case 32: return(
"32 - no match, left count and right's rank in transpose.");
case 33: return(
"33 - left is missing a positive integer from 0 to n in transpose.");
case 34: return(
"34 - index out of range.");
case 35: return(
"35 - bad number of replacements in indexv.");
case 36: return(
"36 - invalid argument to factorial.");
case 37: return(
"37 - argument to iroll is less than 0.");
case 38: return(
"38 - integer division by 0.");
case 39: return(
"39 - real division by 0.");
case 40: return(
"40 - unsupported values to binom function.");
case 41: return(
"41 - arguments to deal must be 1 item long.");
case 42: return(
"42 - arguments to deal must be positive integers.");
case 43: return(
"43 - left must be <= right in deal.");
case 44: return(
"44 - null argument to quadout or execdyam.");
case 45: return(
"45 - argument to indexgen must be a positive integer.");
case 46: return(
"46 - Error.");
case 47: return(
"47 - argument to grade can't be character");
case 48: return(
"48 - right argument to rotate has bad shape.");
case 49: return(
"49 - shapes of left and right excluding axis must match in rotate.");
case 50: return(
"50 - shapes of left and right must match in laminate.");
case 51: return(
"51 - axis must be positive in laminate.");
case 52: return(
"52 - axis too large in laminate.");
case 53: return(
"53 - wrong number of indices to indexm");
case 54: return(
"54 - index out of range in indexm.");
case 55: return(
"55 - error in assign.");
case 56: return(
"56 - argument to execute has rank greater than one.");
case 57: return(
"57 - argument to execute must be character.");
case 58: return(
"58 - syntax error.");
case 59: return(
"59 - argument not found where expected during execute.");
case 60: return(
"60 - missing result during execute.");
case 61: return(
"61 - stack not empty at end of expression in execute.");
case 62: return(
"62 - invalid result from execute.");
case 63: return(
"63 - missing operator/function during execute processing.");
case 64: return(
"64 - unexpected bracketed value.");
case 65: return(
"65 - unknown function found during dyadic execute processing.");
case 66: return(
"66 - left argument to assignment must be a variable name.");
case 67: return(
"67 - missing monadic argument during execute processing.");
case 68: return(
"68 - scalar can't be indexed.");
case 69: return(
"69 - unknown argument type during execute.");
case 70: return(
"70 - missing right argument during execute.");
case 71: return(
"71 - null argument during monadic processing in module execmonb.");
case 72: return(
"72 - invalid scalar function used with reduce or scan.");
case 73: return(
"73 - unknown monadic function.");
case 74: return(
"74 - unexpected function operand to dot product.");
case 75: return(
"75 - only equal/not equal can be applied to character data.");
case 76: return(
"76 - Scan does not accept a left argument.");
case 77: return(
"77 - Apl null (jot) must be succeeded by a period.");
case 78: return(
"78 - null output from dot product.");
case 79: return(
"79 - missing scalar function to the left of reduce/scan operator.");
case 80: return(
"80 - left bracket not found when expected in execute.");
case 81: return(
"81 - semicolon not found when expected in execute.");
case 82: return(
"82 - token expected to the left of left bracket.");
case 83: return(
"83 - axis must be a one-element vector or scalar.");
case 84: return(
"84 - artanh argument > 1.");
case 85: return(
"85 - left value to circular function must be integer -12 thru 12.");
case 86: return(
"86 - denominator of exponent must be odd if left negative to power.");
case 87: return(
"87 - exponent must approximate rational number if left negative to power.");
case 88: return(
"88 - system variable not yet implemented.");
case 89: return(
"89 - axis indicated where it's not accepted.");
case 90: return(
"90 - input to quad fx m/b character matrix, or nested vector.");
case 91: return(
"91 - can't assign to a label.");
case 92: return(
"92 - variable size is too big for this implementation.");
case 93: return(
"93 - invalid syntax in function header.");
case 94: return(
"94 - user function without result must stand alone.");
case 95: return(
"95 - invalid syntax = right arrow then cap_null in function.");
case 96: return(
"96 - a local name can't be repeated in a function header.");
case 97: return(
"97 - local variable names and labels can't be synonyms in a function.");
case 98: return(
"98 - no returned value from user function when exected.");
case 99: return(
"99 - unknown command.");
case 100: return(
"100 - file doesn't exist.");
case 101: return(
"101 - file can't be created.");
case 102: return(
"102 - file can't be opened.");
case 103: return(
"103 - file can't be written to.");
case 104: return(
"104 - file can't be closed.");
case 105: return(
"105 - file can't be read from.");
case 106: return(
"106 - workspace version not supported.");
case 107: return(
"107 - )save specifies an existing workspace which is not the current.");
case 108: return(
"108 - )save where?.");
case 109: return(
"109 - input to quadcr m/b a non-empty character vector.");
case 110: return(
"110 - input to quadcx or quadnc m/b character vector or matrix.");
case 111: return(
"111 - left argument to quadnl m/b character vector.");
case 112: return(
"112 - bad number of replacement values in indexm.");
case 113: return(
"113 - left argument to reshape must be zero or positive.");
case 114: return(
"114 - del editor expected a function name.");
case 115: return(
"115 - del editor found function name already in use.");
case 116: return(
"116 - del editor didn't find named function to edit.");
case 117: return(
"117 - quad nl accepts only values 1, 2, and 3 in the right argument.");
case 118: return(
"118 - not grouped, name in use..");
case 119: return(
"119 - group name is undefined.");
case 120: return(
"120 - no function is currently suspended to branch in.");
case 121: return(
"121 - left argument to replicate may contain only positive values.");
case 122: return(
"122 - Ranks differ in disclose.");
case 123: return(
"123 - Invalid axes.");
case 124: return(
"124 - Arguments inconsistent in pick.");
case 125: return(
"125 - Nested variable is argument to integer().");
case 126: return(
"126 - bad left argument to n-wise.");
case 127: return(
"127 - item out of place.");
case 128: return(
"128 - length error.");
case 129: return(
"129 - rank error.");
case 130: return(
"130 - argument of complex gamma function too close to a pole.");
case 131: return(
"131 - Invalid data type for format by example.");
case 132: return(
"132 - Invalid model for format by example.");
case 133: return(
"133 - Domain error.");
case 134: return(
"134 - Items of right to form m/b simple numeric scalar or character vector.");
case 135: return(
"135 - Partition needs left to be simple vector of nonnegative integers.");
case 136: return(
"136 - Real argument to acosh must not be less than 1.");
case 995: return(
"995 - Matrix divide of complex numbers not yet supported.");
case 996: return(
"996 - Non-integer powers of complex numbers not yet supported.");
case 997: return(
"997 - clearing state indicator to last suspended function.");
case 998: return(
"998 - end of apl processing.");
default: return(
"999 - internal error");
}
}
