rs274ngc_pre.cc

数控系统中的解释器源代码

    {}
  else if (mode0 IS G_53)
    {
      CHK(((block->motion_to_be ISNT G_0) AND (block->motion_to_be ISNT G_1)),
          NCE_MUST_USE_G0_OR_G1_WITH_G53);
      CHK(((block->g_modes[3] IS G_91) OR
				(block->block_distance_mode IS MODE_INCREMENTAL) OR
           ((block->g_modes[3] ISNT G_90) AND
            (settings->distance_mode IS MODE_INCREMENTAL))),
          NCE_CANNOT_USE_G53_INCREMENTAL);
    }
  else if (mode0 IS G_92)
    {}
  else if ((mode0 IS G_92_1) OR (mode0 IS G_92_2) OR (mode0 IS G_92_3))
    {}
  //added by wpin
 
  #ifdef LATHE_FLAG
  else if (mode0 IS G_23)
  	{
  	
		CHK((block->l_number IS -1), NCE_NO_L_WORD_WITH_G23);
   	
  	}
  else if(mode0 IS G_26)
  	{
		//settings->sequence_number=settings->SpeCycle.RetNumber;
  	}
#endif
  //added end
  else
    ERM(NCE_BUG_BAD_G_CODE_MODAL_GROUP_0);

  
  return RS274NGC_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 RS274NGC_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.

*/

static int check_items(   /* ARGUMENTS                        */
 block_pointer block,     /* pointer to a block to be checked */
 setup_pointer settings)  /* pointer to machine settings      */
{
  static char name[] SET_TO "check_items";
  int status;

  CHP(check_g_codes(block, settings));
  CHP(check_m_codes(block));
  CHP(check_other_codes(block));
  return RS274NGC_OK;
}

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

/* check_m_codes

Returned Value: int
   If any of the following errors occur, this returns the error code shown.
   Otherwise, it returns RS274NGC_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.

*/

static int check_m_codes( /* ARGUMENTS                        */
 block_pointer block)     /* pointer to a block to be checked */
{
  static char name[] SET_TO "check_m_codes";

  CHK((block->m_count > MAX_EMS), NCE_TOO_MANY_M_CODES_ON_LINE);
  return RS274NGC_OK;
}

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

/* check_other_codes

Returned Value: int
   If any of the following errors occur, this returns the error code shown.
   Otherwise, it returns RS274NGC_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_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
  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

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.

*/

static int check_other_codes( /* ARGUMENTS                               */
 block_pointer block)    /* pointer to a block of RS274/NGC instructions */
{
  static char name[] SET_TO "check_other_codes";
  int motion;

  motion SET_TO block->motion_to_be;
#ifdef AA
  if (block->a_flag ISNT OFF)
    {
      CHK(((block->g_modes[1] > G_80) AND (block->g_modes[1] < G_90)),
          NCE_CANNOT_PUT_AN_A_IN_CANNED_CYCLE);
    }
#endif
#ifdef BB
  if (block->b_flag ISNT OFF)
    {
      CHK(((block->g_modes[1] > G_80) AND (block->g_modes[1] < G_90)),
          NCE_CANNOT_PUT_A_B_IN_CANNED_CYCLE);
    }
#endif
#ifdef CC
  if (block->c_flag ISNT OFF)
    {
      CHK(((block->g_modes[1] > G_80) AND (block->g_modes[1] < G_90)),
          NCE_CANNOT_PUT_A_C_IN_CANNED_CYCLE);
    }
#endif


	if (block->d_number ISNT -1)
    {
      CHK(((block->g_modes[7] ISNT G_41) AND (block->g_modes[7] ISNT G_42) 
	  	),//added by wpin
          NCE_D_WORD_WITH_NO_G41_OR_G42);
    }

  
  if (block->h_number ISNT -1)
    {
      CHK((block->g_modes[8] ISNT G_43), NCE_H_WORD_WITH_NO_G43);
    }
#ifdef LATHE_FLAG
  if (block->i_flag IS ON) /* could still be useless if yz_plane arc */
    {
      CHK(((motion ISNT G_2) AND (motion ISNT G_3) AND (motion ISNT G_87)

      AND (motion ISNT G_71 ) AND (motion ISNT G_72 ) AND (motion ISNT G_73 ) AND (block->g_modes[11] ISNT G_51)

     ),
          NCE_I_WORD_WITH_NO_G2_OR_G3_OR_G87_TO_USE_IT);
    }
#else
	if (block->i_flag IS ON) /* could still be useless if yz_plane arc */
    {
      CHK(((motion ISNT G_2) AND (motion ISNT G_3) AND (motion ISNT G_87) AND (block->g_modes[11] ISNT G_51)),
          NCE_I_WORD_WITH_NO_G2_OR_G3_OR_G87_TO_USE_IT);
    }
#endif 
  if (block->j_flag IS ON) /* could still be useless if xz_plane arc */
    {
      CHK(((motion ISNT G_2) AND (motion ISNT G_3) AND (motion ISNT G_87) AND (block->g_modes[11] ISNT G_51)),
          NCE_J_WORD_WITH_NO_G2_OR_G3_OR_G87_TO_USE_IT);
    }
#ifdef LATHE_FLAG
  if (block->k_flag IS ON) /* could still be useless if xy_plane arc */
    {
      CHK(((motion ISNT G_2) AND (motion ISNT G_3) AND (motion ISNT G_87)

			AND (motion ISNT G_71 ) AND (motion ISNT G_72 ) AND (motion ISNT G_73 )AND (motion ISNT G_33) AND (block->g_modes[11] ISNT G_51)
     
      ),
          NCE_K_WORD_WITH_NO_G2_OR_G3_OR_G87_TO_USE_IT);
    }
#else
  if (block->k_flag IS ON) /* could still be useless if xy_plane arc */
    {
      CHK(((motion ISNT G_2) AND (motion ISNT G_3) AND (motion ISNT G_87) AND (block->g_modes[11] ISNT G_51)),
          NCE_K_WORD_WITH_NO_G2_OR_G3_OR_G87_TO_USE_IT);
    }
#endif 
  if (block->l_number ISNT -1)
    {
    #ifdef LATHE_FLAG
	CHK((((motion < G_81) OR (motion > G_89)) AND
           (block->g_modes[0] ISNT G_10) AND 
		   (motion ISNT G_2) AND (motion ISNT G_3) AND (motion ISNT G_71 ) AND 
		   (motion ISNT G_72 ) AND (motion ISNT G_73 )  AND (motion ISNT G_70 ) 
		   AND (block->g_modes[0] ISNT G_23) ),
          NCE_L_WORD_WITH_NO_CANNED_CYCLE_OR_G10);
	
   #else
   CHK((((motion < G_81) OR (motion > G_89)) AND
           (block->g_modes[0] ISNT G_10) AND 
		   (motion ISNT G_2) AND (motion ISNT G_3) ),//added by wpin,for helix L number
          NCE_L_WORD_WITH_NO_CANNED_CYCLE_OR_G10);
   #endif
     
    }

  if (block->p_number ISNT -1.0)
    {
      CHK(((block->g_modes[0] ISNT G_10) AND
           (block->g_modes[0] ISNT G_4) AND
           (motion ISNT G_82) AND (motion ISNT G_86) AND
           (motion ISNT G_88) AND (motion ISNT G_89)  AND (block->g_modes[11] ISNT G_51)),
          NCE_P_WORD_WITH_NO_G4_G10_G82_G86_G88_G89);
	   if (block->g_modes[11] ISNT G_51)
	  	CHK((block->p_number < 0.0), NCE_NEGATIVE_P_WORD_USED);
    }

  if (block->q_number ISNT -1.0)
    {
      CHK((motion ISNT G_83), NCE_Q_WORD_WITH_NO_G83);
    }

  if (block->r_flag IS ON)
    {
      CHK((((motion ISNT G_2) AND (motion ISNT G_3)) AND (motion ISNT G_71) AND (motion ISNT G_72) AND (motion ISNT G_73)  AND (block->g_modes[16] ISNT G_68) AND
           ((motion < G_81) OR (motion > G_89))),
          NCE_R_WORD_WITH_NO_G_CODE_THAT_USES_IT);
    }
  #ifdef LATHE_FLAG
  //add by wp for threading
  if (motion == G_33) {
     //printf("\nG33 f=%f\n", block->f_number);
    CHK((block->k_flag == OFF),	NCE_K_WORD_MISSING_WITH_G33);
    CHK((block->f_number != -1), NCE_F_WORD_USED_WITH_G33);
  }

  if (motion IS G_71 OR motion IS G_72 OR motion IS G_73 ) {
  	
	CHK(isMDI, NCE_PROF_MOTION_USED_IN_MDI);
	CHK((block->l_number IS -1),NCE_NO_L_WORD_WITH_PROF);

  	}
  if (motion IS G_70  ) {
	CHK(isMDI, NCE_PROF_MOTION_USED_IN_MDI);
  	}
  #endif
  return RS274NGC_OK;
}



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

/* close_and_downcase

Returned Value: int
   If any of the following errors occur, this returns the error code shown.
   Otherwise, it returns RS274NGC_OK.
   1. A left parenthesis is found inside a parentheses comment:
      NCE_NESTED_COMMENT_FOUND
   2. The line ends before an open parentheses comment is closed:
      NCE_UNCLOSED_COMMENT_FOUND
   3. A newline character is found that is not followed by null:
      NCE_NULL_MISSING_AFTER_NEWLINE

Side effects: See below

Called by:  read_text

To simplify handling upper case letters, spaces, and tabs, this
function removes spaces and and tabs and downcases everything on a
line which is not part of a parentheses delimited comment. If the
RS274NGC_FILE_DELIMITERS is OFF, the '%' sign is deleted here. 

There are two methods of handling comments. The first method is to read the
comment into a string, the second is to skip reading the comments. 

The default method is to read the comments. For the second method, 
change the READ_FULL_COMMENT #define in rs275ngc.hh to OFF

Parentheses delimited comments are left unchanged in place. Parentheses 
comments are anything enclosed in parentheses. Nested parentheses comments,
indicated by a left parenthesis inside a comment, are illegal

Semi-colon ';' comments are anything following a semi-colon ';'. There are
no restricti