FWD » Core Development » Base Language

package com.goldencode.testcases;

import com.goldencode.p2j.util.*;

import static com.goldencode.p2j.util.BlockManager.*;

import static com.goldencode.p2j.util.ArrayAssigner.*;

/**

 * Business logic (converted to Java from the 4GL source code

 * in fixing_output_param.p).

 */

public class FixingOutputParam

{

   integer[] i = new integer[2];

   /**

    * External procedure (converted to Java from the 4GL source code

    * in fixing_output_param.p).

    */

   public void execute()

   {

      externalProcedure(new Block()

      {

         public void init()

         {

            assignMulti(i, new integer(0));

            TransactionManager.registerUndo(i);

         }

         public void body()

         {

            foo(new ExtentExpr0());

         }

      });

   }

   public integer[] foo(final OutputExtentParameter<integer> extp)

   {

      return extentFunction(integer.class, new Block()

      {

         integer[] p = extp.getVariable();

         public void init()

         {

            extp.setParameter(p);

            assignMulti(p, new integer(0));

            ArrayAssigner.registerDynamicArray(p);

            TransactionManager.deregister(new Undoable[][]

            {

               p

            });

         }

         public void body()

         {

            p = ArrayAssigner.resize(p, 2);

            extp.setParameter(p);

         }

      });

   }

   private class ExtentExpr0

   extends OutputExtentParameter<integer>

   {

      public integer[] getVariable()

      {

         return i;

      }

      public void setVariable(final integer[] newRef)

      {

         i = newRef;

      }

   }

}