home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / rexx / errors.h next >
Encoding:
Text File  |  1994-07-25  |  3.3 KB  |  69 lines
  1. {$if not def REXX_ERRORS_H} CONST REXX_ERRORS_H=0;
  2.  
  3. { ***************************************************************
  4.   ** KickPascal-Include-Datei "rexx/errors.h" zu Kickstart 3.0 **
  5.   *************************************************************** }
  6.  
  7. CONST
  8.  ERRC_MSG  = 0;              { error code offset            }
  9.  ERR10_001 = (ERRC_MSG+1);   { program not found            }
  10.  ERR10_002 = (ERRC_MSG+2);   { execution halted              }
  11.  ERR10_003 = (ERRC_MSG+3);   { no memory available          }
  12.  ERR10_004 = (ERRC_MSG+4);   { invalid character in program }
  13.  ERR10_005 = (ERRC_MSG+5);   { unmatched quote              }
  14.  ERR10_006 = (ERRC_MSG+6);   { unterminated comment         }
  15.  ERR10_007 = (ERRC_MSG+7);   { clause too long              }
  16.  ERR10_008 = (ERRC_MSG+8);   { unrecognized token           }
  17.  ERR10_009 = (ERRC_MSG+9);   { symbol or string too long    }
  18.  
  19.  ERR10_010 = (ERRC_MSG+10);  { invalid message packet       }
  20.  ERR10_011 = (ERRC_MSG+11);  { command string error         }
  21.  ERR10_012 = (ERRC_MSG+12);  { error return from function   }
  22.  ERR10_013 = (ERRC_MSG+13);  { host environment not found   }
  23.  ERR10_014 = (ERRC_MSG+14);  { required library not found   }
  24.  ERR10_015 = (ERRC_MSG+15);  { function not found           }
  25.  ERR10_016 = (ERRC_MSG+16);  { no return value              }
  26.  ERR10_017 = (ERRC_MSG+17);  { wrong number of arguments    }
  27.  ERR10_018 = (ERRC_MSG+18);  { invalid argument to function }
  28.  ERR10_019 = (ERRC_MSG+19);  { invalid PROCEDURE            }
  29.  
  30.  ERR10_020 = (ERRC_MSG+20);  { unexpected THEN/ELSE         }
  31.  ERR10_021 = (ERRC_MSG+21);  { unexpected WHEN/OTHERWISE    }
  32.  ERR10_022 = (ERRC_MSG+22);  { unexpected LEAVE or ITERATE  }
  33.  ERR10_023 = (ERRC_MSG+23);  { invalid statement in SELECT  }
  34.  ERR10_024 = (ERRC_MSG+24);  { missing THEN clauses         }
  35.  ERR10_025 = (ERRC_MSG+25);  { missing OTHERWISE            }
  36.  ERR10_026 = (ERRC_MSG+26);  { missing or unexpected END    }
  37.  ERR10_027 = (ERRC_MSG+27);  { symbol mismatch on END       }
  38.  ERR10_028 = (ERRC_MSG+28);  { invalid DO syntax            }
  39.  ERR10_029 = (ERRC_MSG+29);  { incomplete DO/IF/SELECT      }
  40.  
  41.  ERR10_030 = (ERRC_MSG+30);  { label not found              }
  42.  ERR10_031 = (ERRC_MSG+31);  { symbol expected              }
  43.  ERR10_032 = (ERRC_MSG+32);  { string or symbol expected    }
  44.  ERR10_033 = (ERRC_MSG+33);  { invalid sub-keyword          }
  45.  ERR10_034 = (ERRC_MSG+34);  { required keyword missing     }
  46.  ERR10_035 = (ERRC_MSG+35);  { extraneous characters        }
  47.  ERR10_036 = (ERRC_MSG+36);  { sub-keyword conflict         }
  48.  ERR10_037 = (ERRC_MSG+37);  { invalid template             }
  49.  ERR10_038 = (ERRC_MSG+38);  { invalid TRACE request        }
  50.  ERR10_039 = (ERRC_MSG+39);  { uninitialized variable       }
  51.  
  52.  ERR10_040 = (ERRC_MSG+40);  { invalid variable name        }
  53.  ERR10_041 = (ERRC_MSG+41);  { invalid expression           }
  54.  ERR10_042 = (ERRC_MSG+42);  { unbalanced parentheses       }
  55.  ERR10_043 = (ERRC_MSG+43);  { nesting level exceeded       }
  56.  ERR10_044 = (ERRC_MSG+44);  { invalid expression result    }
  57.  ERR10_045 = (ERRC_MSG+45);  { expression required          }
  58.  ERR10_046 = (ERRC_MSG+46);  { boolean value not 0 or 1     }
  59.  ERR10_047 = (ERRC_MSG+47);  { arithmetic conversion error  }
  60.  ERR10_048 = (ERRC_MSG+48);  { invalid operand              }
  61.  
  62. CONST
  63.  RC_OK      = 0;
  64.  RC_WARN  = 5;
  65.  RC_ERROR = 10;
  66.  RC_FATAL = 20;
  67.  
  68. {$endif}
  69.