home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / pxsc.arj / O_MSG1.H < prev    next >
Text File  |  1991-02-18  |  11KB  |  204 lines
  1. /*------------------------------------------------------*/
  2. /* Notes:                                               */
  3. /*                                                      */
  4. /* -Data initialization is used by "b_glbl.c".          */
  5. /*                                                      */
  6. /* -Data structure e_mtyp is defined in "o_type.h".     */
  7. /*                                                      */
  8. /* -All msgid numbers (1.component) must be different.  */
  9. /*  1 <= msgid < E_TRES                                 */
  10. /*                                                      */
  11. /* -Data initializations may be ordered arbitrarily.    */
  12. /*                                                      */
  13. /* -There must be a final comma.                        */
  14. /*                                                      */
  15. /* -"\" is only allowed in conjunction with "r" or "n". */
  16. /*                                                      */
  17. /* - "\r" advances to the next line if '\r' is not the  */
  18. /*   first character and displays e_hlen Blanks if      */
  19. /*   '\r' is not the first or last character.           */
  20. /*   If '\r' is the first character, the current line   */
  21. /*   is continued and no indentation is done.           */
  22. /*                                                      */
  23. /* - "\n" advances to the next line and displays        */
  24. /*   e_head if '\n' is not the last character.          */
  25. /*                                                      */
  26. /*      Date            : 1991-01-23                    */
  27. /*      1991-01-23 : new 62-63 / e_mtyp changed         */
  28. /*      1990-12-03 : new 59-61                          */
  29. /*      1990-10-16 : new 58                             */
  30. /*      1990-10-15 : new 55-57                          */
  31. /*      1990-10-09 : new 54                             */
  32. /*      1990-09-10 : new 51-53                          */
  33. /*      1990-09-06 : new 47-50                          */
  34. /*      1990-08-09 : new 46                             */
  35. /*      1990-08-08 : new 44-45                          */
  36. /*      1990-07-18 : new 43                             */
  37. /*      1990-07-09 : new 38-42                          */
  38. /*------------------------------------------------------*/
  39.  
  40. /* e_xdbz                                               */
  41. {    1,  "Division by zero\n" },
  42. /* r_divn, r_divu, r_divd                               */
  43. {    2,  "\r0/0\n" },
  44. /* e_xio1, e_xio3, e_xio4                               */
  45. {    3,  "Invalid operation : " },
  46. /* divtrap.h                                            */
  47. {    4,  "\rinfinity/infinity\n" },
  48. /* divtrap.h,addbody.h,subbody.h,mulbody.h,d_radd.c     */
  49. /* d_rsub.c                                             */
  50. {    5,  "\rSignaling NaN as operand\n" },
  51. /* e_xofl                                               */
  52. {    6,  "Overflow occurred\n" },
  53. /* e_xufl                                               */
  54. {    7,  "Underflow occurred\n" },
  55. /* e_xine                                               */
  56. {    8,  "Inexact\n" },
  57. /* addbody.h,d_radd.c,d_rsub.c                          */
  58. {    9,  "\rinfinity-infinity\n" },
  59. /* mulbody.h,d_dot.c,d_padd.c,d_psub.c                  */
  60. {   10,  "\r0*infinity\n" },
  61. /* e_xall.c                                             */
  62. {   11,  "Allocation failed : " },
  63. /* e_xarg.c                                             */
  64. {   12,  "Invalid argument to standard function.\n" },
  65. /* d_dot.c,d_padd.c,d_psub.c,d_radd.c,d_rsub.c,d_sum.c  */
  66. {   13,  "\rInfinity occurred in dotprecision operation.\n" },
  67. /* d_dot.c,d_padd.c,d_psub.c,d_radd.c,d_rsub.c,d_sum.c  */
  68. {   14,  "\rQuiet NaN occurred in dotprecision operation.\n" },
  69. /* a_abs_.c,f_rint.c                                    */
  70. {   15,  "Range of integer data type exceeded.\n" },
  71. /* e_xios.c                                             */
  72. {   16,  "Error in I/O operation : " },
  73. /* f_rdln.c,f_rdi1.c,f_get_.c                           */
  74. {   17,  "\rNo device assigned.\n" },
  75. /* f_rdln.c,f_rdi1.c,f_get_.c                           */
  76. {   18,  "\rDevice not opened for reading.\n" },
  77. /* f_rdln.c,f_rdi1.c                                    */
  78. {   19,  "\rDevice not a TEXT device.\n" },
  79. /* f_rdln.c,f_rdi1.c,f_rint.c,f_rhex.c                  */
  80. {   20,  "\rUnexpected End-Of-File.\n" },
  81. /* f_rint.c                                             */
  82. {   21,  "\rInvalid syntax of integer value.\n" },
  83. /* a_mod_.c                                             */
  84. {   22,  "Non-positive modulo value.\n" },
  85. /* a_ixch.c,e_xset,s_slen                               */
  86. {   23,  "Index out of range.\n" },
  87. /* a_nilc.c                                             */
  88. {   24,  "Unexpected NULL pointer.\n" },
  89. /* e_xnor.c                                             */
  90. {   25,  "\r\r------ Processing aborted ------\n" },
  91. /* r_scpy.c, c_scpy.c, i_scpy.c, z_scpy.c               */
  92. {   26,  "One-dimensional dynamic array expected.\n" },
  93. /* r_scpy.c, c_scpy.c, i_scpy.c, z_scpy.c               */
  94. {   27,  "Equal length of dynamic vectors expected.\n" },
  95. /* s_subs.c                                             */
  96. {   28,  "Substring destination array shorter than required.\n" },
  97. /* e_xiob.c                                             */
  98. {   29,  "Internal buffer too small : " },
  99. /* f_assg.c                                             */
  100. {   30,  "\rFilename too long\n" },
  101. /* f_assg.c,f_rset.c,f_rstn.c                           */
  102. {   31,  "\rUnable to open file for reading\n" },
  103. /* f_assg.c,f_rwri.c,f_rwrn.c                           */
  104. {   32,  "\rUnable to open file for writing\n" },
  105. /* f_rset.c,f_rstn.c                                    */
  106. {   33,  "\rStandard I/O must not be used for binary I/O.\n" },
  107. /* f_put_.c                                             */
  108. {   34,  "\rDevice not opened for writing.\n" },
  109. /* f_put_.c                                             */
  110. {   35,  "\rError writing data to file.\n" },
  111. /* f_writ.c,f_read.c                                    */
  112. {   36,  "\rDevice not a binary device.\n" },
  113. /* f_assg.c                                             */
  114. {   37,  "\rMissing command line argument.\n" },
  115. /* f_rset.c                                             */
  116. {   38,  "\rNo filename has previously been assigned.\n" },
  117. /* b_outm.c                                             */
  118. {   39,  "\rMultiprecision mantissa too long.\n" },
  119. /* d_init.c                                             */
  120. {   40,  "\rDotprecision variable not allocated.\n" },
  121. /* e_actn.c                                             */
  122. {   41,  "\rTrap handler not stacked.\n" },
  123. /* y_asgn.c                                             */
  124. {   42,  "\rDynamic array not allocated.\n" },
  125. /* f_rstn.c                                             */
  126. {   43,  "Undefined device specification.\n" },
  127. /* f_wrc1.c                                             */
  128. {   44,  "Invalid width of output field.\n" },
  129. /* f_exst.c                                             */
  130. {   45,  "\rInvalid filename.\n" },
  131. /* d_vlcp.c                                             */
  132. {   46,  "\rDotprecision variable not allocated.\n" },
  133. /* r_comp.c                                             */
  134. {   47,  "Mantissa out of range (1.0<=|mantissa|<2.0).\n" },
  135. /* r_comp.c                                             */
  136. {   48,  "Exponent too large (infinity returned).\n" },
  137. /* r_comp.c                                             */
  138. {   49,  "Mantissa bits lost on generating denormalized number.\n" },
  139. /* r_comp.c                                             */
  140. {   50,  "Exponent too small (zero returned).\n" },
  141. /* f_rhex.c                                             */
  142. {   51,  "\rInvalid read/write mode.\n" },
  143. /* f_rhex.c                                             */
  144. {   52,  "\rInvalid syntax of hexadecimal value.\n" },
  145. /* f_rhex.c                                             */
  146. {   53,  "\rUnexpected End-Of-Line.\n" },
  147. /* s_init.c,s_genv.v                                    */
  148. {   54,  "\rDynamic string not allocated.\n" },
  149. /* f_rds1.c                                             */
  150. {   55,  "\rReading a dynamic string.\n" },
  151. /* r_aval.c,r_sval.c,r_read.c                           */
  152. {   56,  "\rConverting string to real.\n" },
  153. /* s_aimg.c,s_simg.c                                    */
  154. {   57,  "\rConverting real to string.\n" },
  155. /* r_conv.c,r_read.c                                    */
  156. {   58,  "\rInvalid syntax of real value.\n" },
  157. /* r_cnst.c                                             */
  158. {   59,  "Inexact conversion of decimal constant.\n" },
  159. /* r_rdr1.c                                             */
  160. {   60,  "Inexact conversion of decimal input data.\n" },
  161. /* s_genv.c                                             */
  162. {   61,  "\rMissing variable name.\n" },
  163. /* a_ival.c                                             */
  164. {   62,  "\rEmpty string.\n" },
  165. /* a_ival.c                                             */
  166. {   63,  "\rNo digits in string.\n" },
  167.  
  168. /*------------------------------------------------------*/
  169. /* These codes are explicitly generated by PASCAL-XSC.  */
  170. /*------------------------------------------------------*/
  171. {  400,  "Summation of vectors with different lengths.\n" },
  172. /*                                                      */
  173. {  401,  "Scalar product of vectors with different lengths.\n" },
  174. /*                                                      */
  175. {  402,  "Function call with vectors of different lengths.\n" },
  176. /*                                                      */
  177. {  403,  "Mismatching inner lengths in a matrix-vector product.\n" },
  178. /*                                                      */
  179. {  404,  "Summation of matrices with different row lengths.\n" },
  180. /*                                                      */
  181. {  405,  "Summation of matrices with different column lengths.\n" },
  182. /*                                                      */
  183. {  406,  "Function call with matrices of different row lengths.\n" },
  184. /*                                                      */
  185. {  407,  "Function call with matrices of different column lengths.\n" },
  186. /*                                                      */
  187. {  408,  "Mismatching inner lengths of arguments in a function call.\n" },
  188. /*                                                      */
  189. {  409,  "Mismatching inner lengths in a matrix-matrix product.\n" },
  190.  
  191. /*------------------------------------------------------*/
  192. /* These codes must be even multiples of E_TRES=256     */
  193. /* within the range                                     */
  194. /*           (2*256=) 512<=msgid<=32256 (=126*256).     */
  195. /*------------------------------------------------------*/
  196.  
  197. {  512,  "\r left operand : " }                   /* E_TEXT(1)    */
  198. { 1024,  "\rright operand : " }                   /* E_TEXT(2)    */
  199. { 1536,  "\r       result : " }                   /* E_TEXT(3)    */
  200. { 2048,  "\r        index : " }                   /* E_TEXT(4)    */
  201. { 2560,  "\r  lower bound : " }                   /* E_TEXT(5)    */
  202. { 3072,  "\r  upper bound : " }                   /* E_TEXT(6)    */
  203. { 3584,  "\r     argument : " }                   /* E_TEXT(7)    */
  204.