-- $Source: /commtar/monoBANK/SQL_MC/bd_boolf.sub,v $ -- $Revision: 1.1 $ $Date: 88/07/07 02:01:26 $ $Author: rac $ separate (Actions_Package) function Build_Boolean_Factor( --Create a new search condition node for the boolean expression --and fill in the search condition expression fields. Bool_Op : Parse_Stack_Element; Exp : Parse_Stack_Element ) return Parse_Stack_Element is Element : Parse_Stack_Element := new Node_Type(Factor_Search_Kind); begin Element.Source_Pos := Bool_Op.Source_Pos; Element.Factor_Operator := Bool_Op; Element.Search_Exp := Exp; return Element; end Build_Boolean_Factor; -- $Cprt start$ -- -- Copyright (C) 1988 by Intermetrics, Inc. -- -- This material may be used duplicated or disclosed by or for the -- U.S. Government pursuant to the copyright license under DAR clause -- 7-104.9(a) (May 1981). -- -- This project was sponsored by the STARS Foundation -- Naval Research Laboratory, Washington DC -- -- $Cprt end$