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

* Description: interp_internal.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"	// interpreter private definitions

#include "rs274ngc_interp.hh"

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

/*! close_and_downcase

Returned Value: int

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

   Otherwise, it returns INTERP_OK.

   1. A left parenthesis is found inside a comment:

      NCE_NESTED_COMMENT_FOUND

   2. The line ends before an open 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 comment.

Comments are left unchanged in place. Comments are anything

enclosed in parentheses. Nested comments, indicated by a left

parenthesis inside a comment, are illegal.

The line must have a null character at the end when it comes in.

The line may have one newline character just before the end. If

there is a newline, it will be removed.

Although this software system detects and rejects all illegal characters

and illegal syntax, this particular function does not detect problems

with anything but comments.

We are treating RS274 code here as case-insensitive and spaces and

tabs as if they have no meaning. [RS274D, page 6] says spaces and tabs

are to be ignored by control.

The KT and NGC manuals say nothing about case or spaces and tabs.

*/

{

    int m;

    int n;

    int comment, semicomment;

    char item;

	}

		comment = 0;

	/* don't copy blank or tab or CR */

	} else {

	}

    }

}

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

/*! enhance_block

Returned Value:

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

   Otherwise, it returns INTERP_OK.

   1. A g80 is in the block, no modal group 0 code that uses axes

      is in the block, and one or more axis values is given:

      NCE_CANNOT_USE_AXIS_VALUES_WITH_G80

   2. A g52 g92 is in the block and no axis value is given:

      NCE_ALL_AXES_MISSING_WITH_G52_OR_G92

   3. One g-code from group 1 and one from group 0, both of which can use

      axis values, are in the block:

      NCE_CANNOT_USE_TWO_G_CODES_THAT_BOTH_USE_AXIS_VALUES

   4. A g-code (other than 0 or 1, for which we are allowing all axes

      missing) from group 1 which can use axis values is in the block,

      but no axis value is given: NCE_ALL_AXES_MISSING_WITH_MOTION_CODE

   5. Axis values are given, but there is neither a g-code in the block

      nor an active previously given modal g-code that uses axis values:

      NCE_CANNOT_USE_AXIS_VALUES_WITHOUT_A_G_CODE_THAT_USES_THEM

Side effects:

   The value of motion_to_be in the block is set.

Called by: parse_line

If there is a g-code for motion in the block (in g_modes[1]),

set motion_to_be to that. Otherwise, if there is an axis value in the

block and no g-code to use it (any such would be from group 0 in

g_modes[0]), set motion_to_be to be the last motion saved (in

settings->motion mode).

This also make the checks described above.

*/

                         setup_pointer settings)        //!< pointer to machine settings

{

  int axis_flag;

  int ijk_flag;

  int polar_flag;

  int mode_zero_covets_axes;

  int mode0;

  int mode1;

      // someday, tediously add polar support for other planes here:

  }

  mode_zero_covets_axes =

          NCE_CANNOT_USE_AXIS_VALUES_WITH_G80);

	   NCE_ALL_AXES_MISSING_WITH_G52_OR_G92);

    } else {

          NCE_CANNOT_USE_TWO_G_CODES_THAT_BOTH_USE_AXIS_VALUES);

            mode1 != G_0 && mode1 != G_1 &&

            mode1 != G_2 && mode1 != G_3 && mode1 != G_5_2 &&

	    ! IS_USER_GCODE(mode1)),

          NCE_ALL_AXES_MISSING_WITH_MOTION_CODE);

    }

	  (block->g_modes[0] == G_52 || block->g_modes[0] == G_92)),

	 NCE_ALL_AXES_MISSING_WITH_G52_OR_G92);

         || (settings->motion_mode == G_80)) && (block->g_modes[8] != G_43_1),

        NCE_CANNOT_USE_AXIS_VALUES_WITHOUT_A_G_CODE_THAT_USES_THEM);

    }

    // this is a block like simply "i1" which should be accepted if we're in arc mode

  }

  return INTERP_OK;

}

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

/*! init_block

Returned Value: int (INTERP_OK)

Side effects:

   Values in the block are reset as described below.

Called by: parse_line

This system reuses the same block over and over, rather than building

a new one for each line of NC code. The block is re-initialized before

each new line of NC code is read.

The block contains many slots for values which may or may not be present

on a line of NC code. For some of these slots, there is a flag which

is turned on (at the time time value of the slot is read) if the item

is present.  For slots whose values are to be read which do not have a

flag, there is always some excluded range of values. Setting the

initial value of these slot to some number in the excluded range

serves to show that a value for that slot has not been read.

The rules for the indicators for slots whose values may be read are:

1. If the value may be an arbitrary real number (which is always stored

   internally as a double), a flag is needed to indicate if a value has

   been read. All such flags are initialized to false.

   Note that the value itself is not initialized; there is no point in it.

2. If the value must be a non-negative real number (which is always stored

   internally as a double), a value of -1.0 indicates the item is not present.

3. If the value must be an unsigned integer (which is always stored

   internally as an int), a value of -1 indicates the item is not present.

   (RS274/NGC does not use any negative integers.)

4. If the value is a character string (only the comment slot is one), the

   first character is set to 0 (NULL).

*/

{

  int n;

  }

  }

}

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

/*! parse_line

Returned Value: int

   If any of the following functions returns an error code,

   this returns that code.

     init_block

     read_items

     enhance_block

     check_items

   Otherwise, it returns INTERP_OK.

Side effects:

   One RS274 line is read into a block and the block is checked for

   errors. System parameters may be reset.

Called by:  Interp::read

*/

                      block_pointer block,      //!< pointer to a block to be filled

                      setup_pointer settings)   //!< pointer to machine settings

{

  {

  }

  return INTERP_OK;

}

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

/*! precedence

Returned Value: int

  This returns an integer representing the precedence level of an_operator

Side Effects: None

Called by: read_real_expression

To add additional levels of operator precedence, edit this function.

*/

{

  switch(an_operator)

    {

      case RIGHT_BRACKET:

	return 1;

      case AND2:

      case EXCLUSIVE_OR:

      case NON_EXCLUSIVE_OR:

	return 2;

      case LT:

      case EQ:

      case NE:

      case LE:

      case GE:

      case GT:

	return 3;

      case MINUS:

      case PLUS:

	return 4;

      case NO_OPERATION:

      case DIVIDED_BY:

      case MODULO:

      case TIMES:

	return 5;

      case POWER:

	return 6;

    }

  // should never happen

  return 0;

}

{

}

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

/*! set_probe_data

Returned Value: int (INTERP_OK)

Side effects:

  The current position is set.

  System parameters for probe position are set.

Called by:  Interp::read

*/

{

  double a, b, c;

  }

  }

  }

  // was an undocumented feature?: settings->parameters[5067] = GET_EXTERNAL_PROBE_VALUE();

}