topxload.opl

来自「在手机操作系统symbina上使用的一个脚本扩展语言的代码实现,可以参考用于自己」· OPL 代码 · 共 57 行

proc main:

	print "Testing the same OPX can be loaded and unloaded many times in one module"
	print
	
	loadm "topxcbp"

	loadm "testopx"
	TAddFLtToInt:
	unloadm "testopx"


	loadm "testopx"
	TAddFLtToInt:
	unloadm "testopx"

	loadm "testopx"
	TAdd4:
	unloadm "testopx"

	loadm "testopx"
	TStrToFlt:
	unloadm "testopx"

	loadm "testopx"
	TFltToStr:
	unloadm "testopx"

	loadm "testopx"
	TMult316:
	unloadm "testopx"

	loadm "testopx"
	TMult332:
	unloadm "testopx"

	loadm "t_util"
	loadm "testopx"
	TCallProc:
	unloadm "testopx"
	
	loadm "testopx"
	onerr load2
	loadm "testopx"
	onerr off
	raise 1
load2::
	onerr off 
	if err<>-104 : raise 2 : endif
	
	unloadm "topxcbp"
	unloadm "t_util"
	
	print
	print "Finished OK"

endp