comparison src/ccl.c @ 23280:b4656367043f

(CCL_WRITE_CHAR): Don't use bcopy. (ccl_driver): If BUFFER-MAGNIFICATION of the CCL program is 0, cause error if the program is going to output some bytes. When outputing a string to notify an error, check the case that DST_BYTES is zero.

23279:ca159e828a68

      {							\
	unsigned char work[4], *str;			\
	int len = CHAR_STRING (ch, work, str);		\
	if (dst + len <= (dst_bytes ? dst_end : src))	\
	  {						\
	    bcopy (str, dst, len);			\
	    dst += len;					\
	  }						\
	else						\
	  CCL_SUSPEND (CCL_STAT_SUSPEND_BY_DST);	\
      }							\
  } while (0)

  /* For the moment, we only support depth 256 of stack.  */ 
  struct ccl_prog_stack ccl_prog_stack_struct[256];

  if (ic >= ccl->eof_ic)
    ic = CCL_HEADER_MAIN;

#ifdef CCL_DEBUG
  ccl_backtrace_idx = 0;
#endif

         specified and we still have a room to store the message
         there.  */
      char msg[256];
      int msglen;

      switch (ccl->status)
	{
	case CCL_STAT_INVALID_CMD:
	  sprintf(msg, "\nCCL: Invalid command %x (ccl_code = %x) at %d.",
		  code & 0x1F, code, ic);

	  {
	    int i = ccl_backtrace_idx - 1;
	    int j;

	    msglen = strlen (msg);
	    if (dst + msglen <= dst_end)
	      {
		bcopy (msg, dst, msglen);
		dst += msglen;
	      }

		if (i < 0) i = CCL_DEBUG_BACKTRACE_LEN - 1;
		if (ccl_backtrace_table[i] == 0)
		  break;
		sprintf(msg, " %d", ccl_backtrace_table[i]);
		msglen = strlen (msg);
		if (dst + msglen > dst_end)
		  break;
		bcopy (msg, dst, msglen);
		dst += msglen;
	      }
	  }
#endif
	  goto ccl_finish;

	case CCL_STAT_QUIT:
	  sprintf(msg, "\nCCL: Quited.");
	  break;

	default:
	  sprintf(msg, "\nCCL: Unknown error type (%d).", ccl->status);
	}

      msglen = strlen (msg);
      if (dst + msglen <= dst_end)
	{
	  bcopy (msg, dst, msglen);
	  dst += msglen;
	}
    }

 ccl_finish:
  ccl->ic = ic;
  if (consumed) *consumed = src - source;
  return dst - destination;
}

/* Setup fields of the structure pointed by CCL appropriately for the
   execution of compiled CCL code in VEC (vector of integer).  */
void

23280:b4656367043f

      {							\
	unsigned char work[4], *str;			\
	int len = CHAR_STRING (ch, work, str);		\
	if (dst + len <= (dst_bytes ? dst_end : src))	\
	  {						\
	    while (len--) *dst++ = *str++;		\
	  }						\
	else						\
	  CCL_SUSPEND (CCL_STAT_SUSPEND_BY_DST);	\
      }							\
  } while (0)

  /* For the moment, we only support depth 256 of stack.  */ 
  struct ccl_prog_stack ccl_prog_stack_struct[256];

  if (ic >= ccl->eof_ic)
    ic = CCL_HEADER_MAIN;

  if (ccl->buf_magnification ==0) /* We can't produce any bytes.  */
    dst = NULL;

#ifdef CCL_DEBUG
  ccl_backtrace_idx = 0;
#endif

         specified and we still have a room to store the message
         there.  */
      char msg[256];
      int msglen;

      if (!dst)
	dst = destination;

      switch (ccl->status)
	{
	case CCL_STAT_INVALID_CMD:
	  sprintf(msg, "\nCCL: Invalid command %x (ccl_code = %x) at %d.",
		  code & 0x1F, code, ic);

	  {
	    int i = ccl_backtrace_idx - 1;
	    int j;

	    msglen = strlen (msg);
	    if (dst + msglen <= (dst_bytes ? dst_end : src))
	      {
		bcopy (msg, dst, msglen);
		dst += msglen;
	      }

		if (i < 0) i = CCL_DEBUG_BACKTRACE_LEN - 1;
		if (ccl_backtrace_table[i] == 0)
		  break;
		sprintf(msg, " %d", ccl_backtrace_table[i]);
		msglen = strlen (msg);
		if (dst + msglen > (dst_bytes ? dst_end : src))
		  break;
		bcopy (msg, dst, msglen);
		dst += msglen;
	      }
	    goto ccl_finish;
	  }
#endif
	  break;

	case CCL_STAT_QUIT:
	  sprintf(msg, "\nCCL: Quited.");
	  break;

	default:
	  sprintf(msg, "\nCCL: Unknown error type (%d).", ccl->status);
	}

      msglen = strlen (msg);
      if (dst + msglen <= (dst_bytes ? dst_end : src))
	{
	  bcopy (msg, dst, msglen);
	  dst += msglen;
	}
    }

 ccl_finish:
  ccl->ic = ic;
  if (consumed) *consumed = src - source;
  return (dst ? dst - destination : 0);
}

/* Setup fields of the structure pointed by CCL appropriately for the
   execution of compiled CCL code in VEC (vector of integer).  */
void