Topspeed_JPI/TS/INCLUDE/SEARCH.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  SEARCH.DEF - Modula-2 interface to SEARCH.H                             *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

(*# project("#set tsc='on'") *)
(*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
(*# module(implementation=>off, init_code=>off) *)
(*# name(prefix=>c) *)


DEFINITION MODULE search;

TYPE
  CompProc = PROCEDURE(ADDRESS, ADDRESS): INTEGER;

PROCEDURE bsearch(_key,_base: ADDRESS;
                 _num,_width: CARDINAL;
                 _compare: CompProc): ADDRESS;
PROCEDURE qsort(_base: ADDRESS;
                _num,_width: CARDINAL;
                _compare: CompProc);
PROCEDURE lfind(_key,_base: ADDRESS;
                _num,_width: CARDINAL;
                _compare: CompProc): ADDRESS;
PROCEDURE lsearch(_key,_base: ADDRESS;
                  _num,_width: CARDINAL;
                  _compare: CompProc): ADDRESS;

END search.