home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Rexx / Errors.i < prev    next >
Text File  |  1990-08-28  |  4KB  |  74 lines
  1. { == errors.h =========================================================
  2.  *
  3.  * Copyright (c) 1987 by William S. Hawes.  All Rights Reserved.
  4.  * 
  5.  * =====================================================================
  6.  * Definitions for ARexx error codes
  7. }
  8.  
  9. Const
  10.  
  11.     ERRC_MSG    = 0;        {  error code offset           }
  12.     ERR10_001    = ERRC_MSG+1;    {  program not found           }
  13.     ERR10_002    = ERRC_MSG+2;    {  execution halted            }
  14.     ERR10_003    = ERRC_MSG+3;    {  no memory available         }
  15.     ERR10_004    = ERRC_MSG+4;    {  invalid character in program}
  16.     ERR10_005    = ERRC_MSG+5;    {  unmatched quote             }
  17.     ERR10_006    = ERRC_MSG+6;    {  unterminated comment        }
  18.     ERR10_007    = ERRC_MSG+7;    {  clause too long             }
  19.     ERR10_008    = ERRC_MSG+8;    {  unrecognized token          }
  20.     ERR10_009    = ERRC_MSG+9;    {  symbol or string too long   }
  21.  
  22.     ERR10_010    = ERRC_MSG+10;    {  invalid message packet      }
  23.     ERR10_011    = ERRC_MSG+11;    {  command string error        }
  24.     ERR10_012    = ERRC_MSG+12;    {  error return from function  }
  25.     ERR10_013    = ERRC_MSG+13;    {  host environment not found  }
  26.     ERR10_014    = ERRC_MSG+14;    {  required library not found  }
  27.     ERR10_015    = ERRC_MSG+15;    {  function not found          }
  28.     ERR10_016    = ERRC_MSG+16;    {  no return value             }
  29.     ERR10_017    = ERRC_MSG+17;    {  wrong number of arguments   }
  30.     ERR10_018    = ERRC_MSG+18;    {  invalid argument to function}
  31.     ERR10_019    = ERRC_MSG+19;    {  invalid PROCEDURE           }
  32.  
  33.     ERR10_020    = ERRC_MSG+20;    {  unexpected THEN/ELSE        }
  34.     ERR10_021    = ERRC_MSG+21;    {  unexpected WHEN/OTHERWISE   }
  35.     ERR10_022    = ERRC_MSG+22;    {  unexpected LEAVE or ITERATE }
  36.     ERR10_023    = ERRC_MSG+23;    {  invalid statement in SELECT }
  37.     ERR10_024    = ERRC_MSG+24;    {  missing THEN clauses        }
  38.     ERR10_025    = ERRC_MSG+25;    {  missing OTHERWISE           }
  39.     ERR10_026    = ERRC_MSG+26;    {  missing or unexpected END   }
  40.     ERR10_027    = ERRC_MSG+27;    {  symbol mismatch on END      }
  41.     ERR10_028    = ERRC_MSG+28;    {  invalid DO syntax           }
  42.     ERR10_029    = ERRC_MSG+29;    {  incomplete DO/IF/SELECT     }
  43.  
  44.     ERR10_030    = ERRC_MSG+30;    {  label not found             }
  45.     ERR10_031    = ERRC_MSG+31;    {  symbol expected             }
  46.     ERR10_032    = ERRC_MSG+32;    {  string or symbol expected   }
  47.     ERR10_033    = ERRC_MSG+33;    {  invalid sub-keyword         }
  48.     ERR10_034    = ERRC_MSG+34;    {  required keyword missing    }
  49.     ERR10_035    = ERRC_MSG+35;    {  extraneous characters       }
  50.     ERR10_036    = ERRC_MSG+36;    {  sub-keyword conflict        }
  51.     ERR10_037    = ERRC_MSG+37;    {  invalid template            }
  52.     ERR10_038    = ERRC_MSG+38;    {  invalid TRACE request       }
  53.     ERR10_039    = ERRC_MSG+39;    {  uninitialized variable      }
  54.  
  55.     ERR10_040    = ERRC_MSG+40;    {  invalid variable name       }
  56.     ERR10_041    = ERRC_MSG+41;    {  invalid expression          }
  57.     ERR10_042    = ERRC_MSG+42;    {  unbalanced parentheses      }
  58.     ERR10_043    = ERRC_MSG+43;    {  nesting level exceeded      }
  59.     ERR10_044    = ERRC_MSG+44;    {  invalid expression result   }
  60.     ERR10_045    = ERRC_MSG+45;    {  expression required         }
  61.     ERR10_046    = ERRC_MSG+46;    {  boolean value not 0 or 1    }
  62.     ERR10_047    = ERRC_MSG+47;    {  arithmetic conversion error }
  63.     ERR10_048    = ERRC_MSG+48;    {  invalid operand             }
  64.  
  65. {
  66.  * Return Codes for general use
  67. }
  68.  
  69.     RC_OK    = 0;        {  success                     }
  70.     RC_WARN    = 5;        {  warning only                }
  71.     RC_ERROR    = 10;        {  something's wrong           }
  72.     RC_FATAL    = 20;        {  complete or severe failure  }
  73.  
  74.