a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
33 lines
1.2 KiB
Plaintext
33 lines
1.2 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
proc main()
|
|
? OS(), VERSION(), DATE(), TIME()
|
|
? HB_COMPILER()
|
|
__NONOALERT()
|
|
? "main", procfile("main"), procfile(@main())
|
|
? "alert", procfile("alert"), procfile(@alert()), alert()
|
|
? "p0", procfile("p0"), procfile(@p0()), (@p0()):exec(), p0(), t("p0",@p0(),p0(),"t0.prg")
|
|
? "p1", procfile("p1"), procfile(@p1()), (@p1()):exec(), p1(), t("p1",@p1(),p1(),"t0.prg")
|
|
? "p2", procfile("p2"), procfile(@p2()), (@p2()):exec(), p2(), t("p2",@p2(),p2(),"t1.prg")
|
|
? "p3", procfile("p3"), procfile(@p3()), (@p3()):exec(), p3(), t("p3",@p3(),p3(),"t0.prg")
|
|
? "p4", procfile("p4"), procfile(@p4()), (@p4()):exec(), p4(), t("p4",@p4(),p4(),"t1.prg")
|
|
? "p5", procfile("p5"), procfile(@p5()), (@p5()):exec(), p5(), t("p5",@p5(),p5(),"t2.prg")
|
|
? "p6", procfile("p6"), procfile(@p6()), (@p6()):exec(), p6(), t("p6",@p6(),p6(),"t0.prg")
|
|
? "p7", procfile("p7"), procfile(@p7()), (@p7()):exec(), p7(), t("p7",@p7(),p7(),"t1.prg")
|
|
? "==="
|
|
main2()
|
|
|
|
func t(cFunc,sFunc,cResult,cModule)
|
|
if &(cFunc+"()")==cResult .and. sFunc:exec()==cResult .and. ;
|
|
upper(cModule)==upper(right(cResult,len(cModule)))
|
|
return "OK"
|
|
endif
|
|
return "ERR"
|
|
|
|
func p0(); return "P0:t0.prg"
|
|
func p1(); return "P1:t0.prg"
|
|
func p3(); return "P3:t0.prg"
|
|
func p6(); return "P6:t0.prg"
|