52 lines
989 B
C
52 lines
989 B
C
/*
|
|
RUNSORT.C
|
|
*/
|
|
|
|
#include <plib.h>
|
|
#include <sort.g>
|
|
|
|
GLREF_D VOID *DatCommandPtr;
|
|
|
|
GLDEF_D P_RECT _DefScreenRect;
|
|
|
|
LOCAL_D INT array[] = {10,1,5,7,9,3,6,8,4,2};
|
|
|
|
#pragma save,ENTER_CALL
|
|
|
|
LOCAL_C INT RunSort(HANDLE dyl)
|
|
{
|
|
VOID *sort;
|
|
|
|
sort=f_newlibh(dyl,C_ISORT);
|
|
p_send4(sort,O_SORT,&array[0],10);
|
|
p_send2(sort,O_DESTROY);
|
|
return(0);
|
|
}
|
|
|
|
#pragma restore
|
|
|
|
GLDEF_C INT main(VOID)
|
|
{
|
|
INT err,i;
|
|
HANDLE dyl;
|
|
TEXT buf[P_FNAMESIZE];
|
|
|
|
p_fparse("sort.dyl",DatCommandPtr,&buf[0],NULL);
|
|
err=p_loadlib(&buf[0],&dyl,TRUE);
|
|
if (!err)
|
|
{
|
|
_DefScreenRect.tl.x=0;
|
|
_DefScreenRect.tl.y=0;
|
|
_DefScreenRect.br.x=40;
|
|
_DefScreenRect.br.y=8;
|
|
|
|
p_printf("Sorting...");
|
|
err=p_enter2(RunSort,dyl);
|
|
p_unloadlib(dyl);
|
|
for (i=0;i<10;i+=2)
|
|
p_printf("%4d %4d",array[i],array[i+1]);
|
|
p_getch();
|
|
}
|
|
return(err);
|
|
}
|