我有一个用clipper编写的系统程序的旧点。我已经成功反编译了RESCUE5中的程序。反编译器已将源文件写入 .udf。我已经对 .udf 文件进行了必要的更改,现在我想重新编译程序。做这个的最好方式是什么。
.udf 文件的示例
/* ------ Rescue5 1.11 (c) APTware 1993,94 ------
Name: ACC_CN
Params: None.
Return: Logical
Example: ACC_CN()
..........................................................................
*/
FUNCTION ACC_CN()
LOCAL cStr := SPACE(1)
LOCAL cStr1 := SPACE(5)
LOCAL nNum, nNum1, nNum2, nNum3, nNum4, nNum5, nNum6, _Def, nNum7 := ;
0, nNum8 := 1
LOCAL nNum9 := 0, nNum10 := 0, nNum11 := 0
IF MEMVAR->T_CODE[1] = " "
SCROLL(21, 3, 21, 36)
SETPOS(21, 3)
DEVPOS(21, 3)
DEVOUT(PADC("No details entered ... Hit a key", 35))
SET(17, "OFF")
__WAIT("")
SET(17, "ON")
RETURN .F.
ENDIF
GET_REM()
SCROLL(21, 3, 21, 36)
SETPOS(21, 3)
DEVPOS(21, 5)
DEVOUT("Accept details and print ?")
SETPOSBS()
AADD(GETLIST, __GET({|_bDef|IF(_bDef == NIL, cStr, cStr := _bDef)}, ;
"conf", NIL, NIL, NIL))
READMODAL(GETLIST)
MEMVAR->GETLIST := {}