;;;;
;;;; FILE
;;;;	rules/linf/rstrings.l
;;;;
;;;; DESCRIPTION
;;;;	Routines to create the desired plan for processing a query
;;;;
(defvar *RCS-rstrings*
  "$Header: rstrings.l,v 1.2 89/02/21 01:24:06 hirohama Exp $")
;;;;
;;;; EXPORTS
;;;;	string-c-to-l
;;;;	Make-String

;;;
;;; XXX ???
;;;
(defun string-c-to-l (c-str)
  (prog (length res)
	(setq length (c_length c-str))
	(setq res (Make-String 1 length "x"))
	(c_copystring res c-str)
	(return res)))

(defun Make-String (current-length wanted-length string)
  (cond
   ((lessp wanted-length current-length) string)
   (t (Make-String (* 2 current-length) wanted-length
		   (strcat string string)))))