/********************************************************************

* Description: interp_check.cc

*

*   Derived from a work by Thomas Kramer

*

* Author:

* License: GPL Version 2

* System: Linux

*

* Copyright (c) 2004 All rights reserved.

*

* Last change:

********************************************************************/

#include <unistd.h>

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

#include <string.h>

#include <ctype.h>

#include <sys/types.h>

#include <sys/stat.h>

#include "rs274ngc.hh"

#include "rs274ngc_return.hh"

#include "interp_internal.hh"

#include "rs274ngc_interp.hh"

/****************************************************************************/

/*! check_g_codes

Returned Value: int

   If any of the following errors occur, this returns the error shown.

   Otherwise, it returns INTERP_OK.

   1. NCE_DWELL_TIME_MISSING_WITH_G4

   2. NCE_MUST_USE_G0_OR_G1_WITH_G53

   3. NCE_CANNOT_USE_G53_INCREMENTAL

   4. NCE_LINE_WITH_G10_DOES_NOT_HAVE_L2

   5. NCE_P_VALUE_NOT_AN_INTEGER_WITH_G10_L2

   6. NCE_P_VALUE_OUT_OF_RANGE_WITH_G10_L2

   7. NCE_BUG_BAD_G_CODE_MODAL_GROUP_0

Side effects: none

Called by: check_items

This runs checks on g_codes from a block of RS274/NGC instructions.

Currently, all checks are on g_codes in modal group 0.

The read_g function checks for errors which would foul up the reading.

The enhance_block function checks for logical errors in the use of

axis values by g-codes in modal groups 0 and 1.

This function checks for additional logical errors in g_codes.

[Fanuc, page 45, note 4] says there is no maximum for how many g_codes

may be put on the same line, [NCMS] says nothing one way or the other,

so the test for that is not used.

We are suspending any implicit motion g_code when a g_code from our

group 0 is used.  The implicit motion g_code takes effect again

automatically after the line on which the group 0 g_code occurs.  It

is not clear what the intent of [Fanuc] is in this regard. The

alternative is to require that any implicit motion be explicitly

cancelled.

Not all checks on g_codes are included here. Those checks that are

sensitive to whether other g_codes on the same line have been executed

yet are made by the functions called by convert_g.

Our reference sources differ regarding what codes may be used for

dwell time.  [Fanuc, page 58] says use "p" or "x". [NCMS, page 23] says

use "p", "x", or "u". We are allowing "p" only, since it is consistent

with both sources and "x" would be confusing. However, "p" is also used

with G10, where it must be an integer, so reading "p" values is a bit

more trouble than would be nice.

*/

                         setup_pointer settings)        //!< pointer to machine settings

{

  int mode0, mode1;

  int p_int;

        NCE_MUST_USE_G0_OR_G1_WITH_G53);

         ((block->g_modes[3] != G_90) &&

          (settings->distance_mode == MODE_INCREMENTAL))),

        NCE_CANNOT_USE_G53_INCREMENTAL);

  } else

  return INTERP_OK;

}

/****************************************************************************/

/*! check_items

Returned Value: int

   If any one of check_g_codes, check_m_codes, and check_other_codes

   returns an error code, this returns that code.

   Otherwise, it returns INTERP_OK.

Side effects: none

Called by: parse_line

This runs checks on a block of RS274 code.

The functions named read_XXXX check for errors which would foul up the

reading. This function checks for additional logical errors.

A block has an array of g_codes, which are initialized to -1

(meaning no code). This calls check_g_codes to check the g_codes.

A block has an array of m_codes, which are initialized to -1

(meaning no code). This calls check_m_codes to check the m_codes.

Items in the block which are not m or g codes are checked by

check_other_codes.

*/

                       setup_pointer settings)  //!< pointer to machine settings

{

  return INTERP_OK;

}

/****************************************************************************/

/*! check_m_codes

Returned Value: int

   If any of the following errors occur, this returns the error code shown.

   Otherwise, it returns INTERP_OK.

   1. There are too many m codes in the block: NCE_TOO_MANY_M_CODES_ON_LINE

Side effects: none

Called by: check_items

This runs checks on m_codes from a block of RS274/NGC instructions.

The read_m function checks for errors which would foul up the

reading. This function checks for additional errors in m_codes.

*/

{

  return INTERP_OK;

}

/****************************************************************************/

/*! check_other_codes

Returned Value: int

   If any of the following errors occur, this returns the error code shown.

   Otherwise, it returns INTERP_OK.

   1. An A-axis value is given with a canned cycle (g80 to g89):

      NCE_CANNOT_PUT_AN_A_IN_CANNED_CYCLE

   2. A B-axis value is given with a canned cycle (g80 to g89):

      NCE_CANNOT_PUT_A_B_IN_CANNED_CYCLE

   3. A C-axis value is given with a canned cycle (g80 to g89):

      NCE_CANNOT_PUT_A_C_IN_CANNED_CYCLE

   4. A d word is in a block with no cutter_radius_compensation_on command:

      NCE_D_WORD_WITH_NO_G41_OR_G42

   5. An h_number is in a block with no tool length offset setting:

      NCE_H_WORD_WITH_NO_G43

   6. An i_number is in a block with no G code that uses it:

      NCE_I_WORD_WITH_NO_G2_OR_G3_OR_G87_TO_USE_IT

   7. A j_number is in a block with no G code that uses it:

      NCE_J_WORD_WITH_NO_G2_OR_G3_OR_G87_TO_USE_IT

   8. A k_number is in a block with no G code that uses it:

      NCE_K_WORD_WITH_NO_G2_OR_G3_OR_G87_TO_USE_IT

   9. A l_number is in a block with no G code that uses it:

      NCE_L_WORD_WITH_NO_CANNED_CYCLE_OR_G10

  10. A p_number is in a block with no G code that uses it:

      NCE_P_WORD_WITH_NO_G4_G10_G64_G82_G86_G88_G89

  11. A q_number is in a block with no G code that uses it:

      NCE_Q_WORD_WITH_NO_G83_OR_M66

  12. An r_number is in a block with no G code that uses it:

      NCE_R_WORD_WITH_NO_G_CODE_THAT_USES_IT

  13. A k word is missing from a G33 block:

      NCE_K_WORD_MISSING_WITH_G33

  14. An e word is in a block with no G76 or M66 to use it:

      NCE_E_WORD_WITH_NO_G76_OR_M66_TO_USE_IT

Side effects: none

Called by: check_items

This runs checks on codes from a block of RS274/NGC code which are

not m or g codes.

The functions named read_XXXX check for errors which would foul up the

reading. This function checks for additional logical errors in codes.

*/

{

  int motion;

  // bypass ALL checks, argspec takes care of that

      return INTERP_OK;

  }

  // bypass ALL checks, argspec takes care of that

      return INTERP_OK;

    }

  }

  }

  }

        (block->g_modes[7] != G_41_1) && (block->g_modes[7] != G_42_1) &&

	(block->g_modes[14] != G_96)),

        _("D word with no G41, G41.1, G42, G42.1, or G96 to use it"));

  }

      (block->m_modes[5] != 67) && (block->m_modes[5] != 68)),

       _("E word with no G76, M66, M67 or M68 to use it"));

  }

      _("H word with no G43 or G76 to use it"));

  }

          (motion != G_76) && (motion != G_87) && (block->g_modes[0] != G_10)),

        _("I word with no G2, G3, G5, G5.1, G10, G76, or G87 to use it"));

  }

          (motion != G_76) && (motion != G_87) && (block->g_modes[0] != G_10)),

        _("J word with no G2, G3, G5, G5.1, G10, G76 or G87 to use it"));

  }

        (motion != G_33_1) && (motion != G_76) && (motion != G_87)),

        _("K word with no G2, G3, G33, G33.1, G76, or G87 to use it"));

  }

         (motion != G_5_2) && (motion != G_73) &&

         (block->g_modes[0] != G_10) &&

         (block->g_modes[7] != G_41) && (block->g_modes[7] != G_41_1) &&

         (block->g_modes[7] != G_42) && (block->g_modes[7] != G_42_1) &&

	 (block->m_modes[5] != 66)),

         _("L word with no G10, cutter compensation, canned cycle, digital/analog input, or NURBS code"));

  }

          (motion != G_76) && (motion != G_82) && (motion != G_86) && (motion != G_88) &&

          (motion != G_89) && (motion != G_5) && (motion != G_5_2) &&

          (motion != G_2) && (motion != G_3) &&

          (block->m_modes[9] != 50) && (block->m_modes[9] != 51) && (block->m_modes[9] != 52) &&

          (block->m_modes[9] != 53) && (block->m_modes[5] != 62) && (block->m_modes[5] != 63) &&

          (block->m_modes[5] != 64) && (block->m_modes[5] != 65) && (block->m_modes[5] != 66) &&

          (block->m_modes[7] != 19) && (block->user_m != 1)),

          _("P word with no G2 G3 G4 G10 G64 G5 G5.2 G76 G82 G86 G88 G89"

            " or M50 M51 M52 M53 M62 M63 M64 M65 M66 or user M code to use it"));

	    fabs(p_value - block->p_number) > 0.001),

	   _("P value not an integer with M19 G2 or G3"));

	   _("P value must be 0,1,or 2 with M19"));

          _("P value should be 1 or greater with G2 or G3"));

  }

	   (block->m_modes[5] != 66) && (block->m_modes[5] != 67) && (block->m_modes[5] != 68) &&

	   (block->g_modes[0] != G_10) && (block->m_modes[6] != 61) && (block->g_modes[13] != G_64) &&

	   (block->m_modes[7] != 19),

	   _("Q word with no G5, G10, G64, G73, G76, G83, M19, M66, M67, M68 or user M code that uses it"));

  }

         ((motion < G_81) || (motion > G_89)) && (motion != G_73) &&

         (block->g_modes[7] != G_41_1) && (block->g_modes[7] != G_42_1) &&

         (block->g_modes[0] != G_10) && (block->m_modes[7] != 19) ),

        NCE_R_WORD_WITH_NO_G_CODE_THAT_USES_IT);

	   _("R value must be within 0..360 with M19"));

  }

  }

  }

    // pitch

            NCE_I_J_OR_K_WORDS_MISSING_WITH_G76);

  }

  return INTERP_OK;

}