1

クリッパーで書かれたシステムプログラムの古いポイントがあります。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 := {}
4

1 に答える 1