$PBExportHeader$uo_string.sru
forward
global type uo_string from cplusplus
end type
end forward

global type uo_string from cplusplus
string LibraryName="c:\xtest\xtest.dll"
event constructor pbm_constructor
event destructor pbm_destructor
end type
global uo_string uo_string

type prototypes
private function ulong uo_string_CPP_CONSTRUCTOR() library 'xtest.dll'
private subroutine uo_string_CPP_DESTRUCTOR( ulong th ) library 'xtest.dll'
public function long uo_stringcf_findstr2 ( ulong ThisHandle, string body, string search ) library 'xtest.dll'
public function long uo_stringcf_findstr ( ulong ThisHandle, string body, string search ) library 'xtest.dll'
end prototypes
forward prototypes
public function long cf_findstr ( string body, string search )
public function long cf_findstr2 ( string body, string search )
end prototypes

on uo_string.constructor;
ThisHandle = uo_string_CPP_CONSTRUCTOR()
end on

on uo_string.destructor;
uo_string_CPP_DESTRUCTOR( ThisHandle )
end on

public function long cf_findstr ( string body, string search )
return uo_stringcf_findstr ( ThisHandle, body, search )
end function

public function long cf_findstr2 ( string body, string search )
return uo_stringcf_findstr2 ( ThisHandle, body, search )
end function

on uo_string.create
TriggerEvent( this, "constructor" )
end on

on uo_string.destroy
TriggerEvent( this, "destructor" )
end on

/* WATCOM Interface Generator   Version 1.0 */
/* This file contains code generated by PowerBuilder.
 * Do not modify code delimited by comments of the form:
 * // $PB$ -- begin generated code for object <>.  Do not modify this code
 * // $PB$ -- end generated code for object <>.
 * This file contains the bodies the functions for your user object.
 */ 



#include <pbdll.h>

#include "uo_str1O.hpp"


// $PB$ -- begin generated code for object <uo_string>.  Do not modify this code
#if  1 
long uo_string::cf_findstr( char * body, char * search ) {
// $PB$ -- end generated code for object <uo_string>.
//==================================

  char * pch;
  pch = strstr (body,search);

  if (pch != NULL)
  {
		return (pch-body+ 1 );
  }
  return - 1 ; // failure
}
#endif // PowerBuilder code, do not remove 


// $PB$ -- begin generated code for object <uo_string>.  Do not modify this code
#if  1 
long uo_string::cf_findstr2( char * body, char * search ) {
// $PB$ -- end generated code for object <uo_string>.
//==================================

    /*
     * PUT YOUR CODE HERE
     */
	int len = strlen(body);
	int len2 = strlen(search); // search len

	for(int i =  0 ; i < len; i++)
	{
		if(body[i] == search[ 0 ])
		{
			bool ichk = true;

			for(int z =  0 ; z < len2; z++)
			{
				if(body[i+z] == search[z])
				{
				}
				else
				{
					ichk = false;
				}
			}

			if(ichk == true)
			{
				return i+ 1 ;
			}
		}
	}

	return - 1 ; // failure

}
#endif // PowerBuilder code, do not remove 

long i, ll_cycles =  100000 
long ll_i[ 3 ], ll_start[ 3 ], ll_stop[ 3 ]
string ls_body, ls_search
uo_string luo_string
luo_string = create uo_string

ls_body = "Hello"
ls_search = "ll"


ll_start[ 1 ] = CPU()
for i =  1  to ll_cycles
	ll_i[ 1 ] = pos ( ls_body, ls_search )
next
ll_stop[ 1 ] = CPU()

ll_start[ 2 ] = CPU()
for i =  1  to ll_cycles
	ll_i[ 2 ] = luo_string.cf_findstr ( ls_body, ls_search )
next 
ll_stop[ 2 ] = CPU()

ll_start[ 3 ] = CPU()
for i =  1  to ll_cycles
	ll_i[ 3 ] = luo_string.cf_findstr2 ( ls_body, ls_search )
next 
ll_stop[ 3 ] = CPU()

messageBox('Cycles =' + string(ll_cycles), &
           'Power++(pos) =' + string(ll_stop[ 1 ] - ll_start[ 1 ]) + ', string found='+string(ll_i[ 1 ]) + '~r~n' + &
           'C++ (strstr) =' + string(ll_stop[ 2 ] - ll_start[ 2 ]) + ', string found='+string(ll_i[ 2 ]) + '~r~n' + &
			  'C++ (custom) =' + string(ll_stop[ 3 ] - ll_start[ 3 ]) + ', string found='+string(ll_i[ 3 ]) )

long i, ll_cycles =  10000 
long ll_i[ 3 ], ll_start[ 3 ], ll_stop[ 3 ]
string ls_body, ls_search
uo_string luo_string
luo_string = create uo_string

for i =  1  to  10000 
	ls_body += "Hello"
	if i= 9000  then
		ls_body += "Привет"
	end if
next

ls_search = "вет"

ll_start[ 1 ] = CPU()
for i =  1  to ll_cycles
	ll_i[ 1 ] = pos ( ls_body, ls_search )
next
ll_stop[ 1 ] = CPU()

ll_start[ 2 ] = CPU()
for i =  1  to ll_cycles
	ll_i[ 2 ] = luo_string.cf_findstr ( ls_body, ls_search )
next 
ll_stop[ 2 ] = CPU()

ll_start[ 3 ] = CPU()
for i =  1  to ll_cycles
	ll_i[ 3 ] = luo_string.cf_findstr2 ( ls_body, ls_search )
next 
ll_stop[ 3 ] = CPU()

messageBox('Cycles =' + string(ll_cycles) + '; Lenght ls_body =' + string(len(ls_body)), &
           'Power++(pos) =' + string(ll_stop[ 1 ] - ll_start[ 1 ]) + ', string found='+string(ll_i[ 1 ]) + '~r~n' + &
           'C++ (strstr) =' + string(ll_stop[ 2 ] - ll_start[ 2 ]) + ', string found='+string(ll_i[ 2 ]) + '~r~n' + &
			  'C++ (custom) =' + string(ll_stop[ 3 ] - ll_start[ 3 ]) + ', string found='+string(ll_i[ 3 ]) )

#include <string.h>

#ifdef __NT__
    #pragma aux __fortran "*" parm [] modify [ eax ecx edx ];
    #define PB_EXPORT      __export __fortran
#else
    #define PB_EXPORT      __pascal __export
#endif

extern "C" { 
    int PB_EXPORT pos(char *str, char *pat);
    int PB_EXPORT posn(char *str, char *pat, int n);
}

//
int PB_EXPORT pos(char *str, char *pat)  {
        char *p = strstr(str, pat);
        return p ? p - str +  1  :  0 ;
 }

// 
int PB_EXPORT posn(char *str, char *pat, int n)  {
        int r =  0 ;
        for (int i =  0 ; i < n; i ++)
                r = pos(str, pat);  
        return r;
 }

public function long u_cppfuncf_get_equal ( ulong ThisHandle, ref string input, &
long position, ref long edge, ref long lenth ) library 'my_cppfun.dll'