Workplace Forms API Toolkit 技術概説

Java版：samples\java\form\demo\calculate_age
C版：samples\msc32\form\demo\calculate_age
COM版：samples\msc32\COM\demo\calculate_age

                
private static void initialize() throws UWIException
{
　　DTK.initialize("CalculateAge", "1.0.0", "7.0.0");
}

                
r_short initialize()
{
　　r_error　　error;

　　error = IFSInitialize("calculateAge", "1.0.0", "7.0.0");

　　if (error != OK)
　　{
　　　　reportError("IFSInitialize error %hd.\n", (r_short)error);
　　　　return(NOTOK);
　　}

　　return(OK);
}

                
Sub Initialize()

Dim DTK As DTK

Set DTK = CreateObject("PureEdge.DTK")

DTK.IFSInitialize "CalculateAge", "1.0.0", "7.0.0"

End Sub

                
private static void loadForm() throws Exception
{
XFDL　　theXFDL;

　　if ((theXFDL = IFSSingleton.getXFDL()) == null)
　　　　throw new Exception("Could not find interface");

　　if ((theForm = theXFDL.readForm("calculateAge.xfd", 0)) == null)
　　　　throw new Exception("Could not load form.");
}

                
r_short loadForm(formNodeP *form)
{
　　if ((*form = UFLReadForm("calculateAge.xfd", 0)) == NULL)
　　{
　　　　reportError("Could not load form.\n", 0);
　　　　return(NOTOK);
　　}

　　return(OK);
}

                
Function LoadForm() As IFormNodeP
Dim XFDL As XFDL

Set XFDL = CreateObject("PureEdge.xfdl_XFDL")

Set LoadForm = XFDL.ReadForm("calculateage.xfd", 0)
End Function

                
<?xml version="1.0" encoding="UTF-8"?>
<XFDL xmlns:custom="http://www.ibm.com/xmlns/prod/XFDL/Custom" xmlns:designer
="http://www.ibm.com/xmlns/prod/workplace/forms/designer/2.6" xmlns:xfdl
="http://www.ibm.com/xmlns/prod/XFDL/7.0" xmlns="http://www.ibm.com/xmlns/prod/XFDL/7.0">
...
<page sid="PAGE1">
<field sid="BIRTHMONTH">
<label>Month</label>
<value>9</value>
<format>
<datatype>month</datatype>
<constraints>
</constraints>
<presentation>
<style>short</style>
</presentation>
</format>
<size>
<width>4</width>
<height>1</height>
</size>
<itemlocation>
<x>210</x>
<y>206</y>
</itemlocation>
</field>
...
</page>
</XFDL>

                
private static int getBirthDay() throws Exception
{
String　　temp;

　　temp = theForm.getLiteralByRefEx(null, "PAGE1.BIRTHDAY.value", 0, null, null);

　　if (temp.length() > 0)
　　{
　　　　return Integer.parseInt(temp);
　　}
　　else
　　{
　　　　throw new Exception("The birth day was not entered.");
　　}
}

                
r_short getBirthDate(formNodeP form, int *birYear, int *birMonth, int *birDay)
{
r_charP temp=NULL;
r_short error;
　　...
　　error = UFLGetLiteralByRefEx(form, NULL, "PAGE1.BIRTHDAY.value",
　　　　0, NULL, NULL, &temp);
　　if (error != OK)
　　{
　　　　reportError("UFLGetLiteralByRefEx error %hd.\n", error);
　　　　return(NOTOK);
　　}

　　if (temp != NULL)
　　　　*birDay = atoi((char *)temp);
　　else
　　{
　　　　reportError("The birth day was not entered.\n", 0);
　　　　return(NOTOK);
　　}

　　return(OK);
}

                
Function GetBirthDay(TheForm) As Integer
Dim BDay As String

BDay = TheForm.GetLiteralByRefEx(vbNullString, 
　　　　　　　　"PAGE1.BIRTHDAY.value", 0, vbNullString, Nothing)

If (Len(BDay) > 0) Then
GetBirthDay = CInt(BDay)
Else
MsgBox "The birth day was not entered.", vbCritical
Stop
End If
End Function

                
private static int getBirthDay() throws Exception
{
String　　temp;

　　temp = theForm.getLiteralByRefEx(null, "PAGE1.BIRTHDAY.value", 0, null, null);

　　if (temp.length() > 0)
　　{
　　　　return Integer.parseInt(temp);
　　}
　　else
　　{
　　　　throw new Exception("The birth day was not entered.");
　　}
}

                
r_short setBirthDate(formNodeP form, int birYear, int birMonth, int birDay)
{
r_short error;
char temp[100];
　　...
　　sprintf(temp, "%d", birDay);
　　error = UFLSetLiteralByRefEx(form, NULL, "PAGE1.HIDDENDAY.value",
　　　　0, NULL, NULL, (r_charP)temp);
　　if (error != OK)
　　{
　　　　reportError("UFLSetLiteralByRefEx error %hd.\n", error);
　　　　return(NOTOK);
　　}

　　return(OK);
}

                
Sub SetBirthDay(BDay As Integer, TheForm As IFormNodeP)
Dim Day As String

Day = CStr(BDay)

TheForm.SetLiteralByRefEx vbNullString,
"PAGE1.HIDDENDAY.value", 0, vbNullString, Nothing, Day
End Sub

                
private static void setBirthDay(int birDay) throws Exception
{
Integer day = new Integer(birDay);

　　theForm.setLiteralByRefEx(null, "PAGE1.HIDDENDAY.value", 
　　0, null, null, day.toString());
}

                
r_short saveForm(formNodeP form)
{
r_short error;

　　error = UFLWriteForm(form, "output.xfd", NULL, 0);
　　if (error != OK)
　　{
　　　　reportError("UFLWriteForm error %hd.\n", error);
　　　　return(NOTOK);
　　}
　　return(OK);
}

                
Sub SaveForm(TheForm)
TheForm.WriteForm "output.xfd", Nothing, 0
End Sub

<APIインストールディレクトリ>\lib\java

<APIインストールディレクトリ>\samples\msc32\form\template

[API]
7.0.* = F:\Workplace Forms\Server\2.6\API\redist\msc32\PureEdge\70

<APIパッケージのインストールディレクトリ>\redist\msc32\PureEdge\70

Java版：samples\java\fci\demo\convert_date

C版：samples\msc32\fci\multiply

                
public class FCIExtension extends ExtensionImplBase implements Extension
{
　　public void extensionInit(IFX ifxMan) throws UWIException
　　{
　　　　FunctionCall　　theFunctionObject;
　　　　theFunctionObject = new FCIFunctionCall(ifxMan);
　　}
}

                
public class FCIFunctionCall extends FunctionCallImplBase implements FunctionCall
{
　　public static final int　　　　CONVERTDATE = 1;

　　public FCIFunctionCall(IFX ifxMan) throws UWIException
　　{
　　FunctionCallManager　　theFCM;
　　java.io.FileWriter 　　theWriter;

　　　　if ((theFCM = IFSSingleton.getFunctionCallManager()) == null)
　　　　　　throw new UWIException("Needed Function Call Manager");

　　　　ifxMan.registerInterface(this,
　　　　　　FunctionCall.FUNCTIONCALL_INTERFACE_NAME,
　　　　　　FunctionCall.FUNCTIONCALL_CURRENT_VERSION,
　　　　　　FunctionCall.FUNCTIONCALL_MIN_VERSION_SUPPORTED,
　　　　　　0x01000300, 0, null, theFCM.getDefaultListener( ));

　　　　theFCM.registerFunctionCall(this, "sample_package",
　　　　　　"convertDate", FCIFunctionCall.CONVERTDATE,
　　　　　　FunctionCall.FCI_FOLLOWS_STRICT_CALLING_PARAMETERS,
　　　　　　"S,S", 0x01000300, "Converts a date to a different locale");
　　}
　　…

                
PRE_FUNCTION_DECL r_short POST_FUNCTION_DECL C_ExtensionInit(
　　Extension *theExtension, IFX *theIFXManager)
{
FunctionCall　　　　　　*theFunctionCall;
r_short　　　　　　　　theError;
IFXCriteriaMatchingHandler　　*returnPtr;

　　if ((theFunctionCall = (FunctionCall*)IFSObject_AllocateObject(
　　　　FUNCTIONCALL_INTERFACE_NAME,
　　　　FUNCTIONCALL_CURRENT_VERSION, NOTOK, 0)) == NULL)
　　　　return(NOTOK);

　　if ((theError = FunctionCall_SetObjectProc(
　　　　theFunctionCall, (r_voidP)FCISimpleFunctions,
　　　　FUNCTIONCALLEVALUATE)) != OK)
　　　　return(theError);

　　if ((theError = FunctionCall_SetObjectProc(
　　　　theFunctionCall, (r_voidP)FCISimpleHelp,
　　　　FUNCTIONCALLHELP)) != OK)
　　　　return(theError);

　　if ((returnPtr = FCMGetDefaultListener()) == NULL)
　　　　return(NOTOK);

　　if ((theError = IFXRegisterInterface(
　　　　theIFXManager,
　　　　(GenericInterface*)theFunctionCall,
　　　　FUNCTIONCALL_INTERFACE_NAME,
　　　　FUNCTIONCALL_CURRENT_VERSION,
　　　　FUNCTIONCALL_MIN_VERSION_SUPPORTED,
　　　　0X01000300L, 0, NULL, 0,
　　　　returnPtr)) != OK)
　　　　return(theError);

　　if ((theError = FCMRegisterFunctionCall(
　　　　theFunctionCall,
　　　　PACKAGE_NAME,
　　　　"multiply",
　　　　FCI_MULTIPLY_ID,
　　　　FCI_FOLLOWS_STRICT_CALLING_PARAMETERS,
　　　　"S,S",
　　　　FCI_MULTIPLY_VERSION,
　　　　FCI_MULTIPLY_DESCRIPTION)) != OK)
　　　　return(theError);

　　return(OK);
}

                
public void evaluate(String thePackageName,
　　String theFunctionName, int theFunctionID,
　　int theFunctionInstance, short theCommand,
　　com.PureEdge.xfdl.FormNodeP theForm,
　　com.PureEdge.xfdl.FormNodeP theComputeNode,
　　com.PureEdge.IFSUserDataHolder theFunctionData,
　　com.PureEdge.IFSUserDataHolder theFunctionInstanceData,
　　com.PureEdge.xfdl.FormNodeP [] theArgList,
　　com.PureEdge.xfdl.FormNodeP theResult) throws UWIException
{
String　　　　theDateString;
String　　　　theLocaleString;
String　　　　theAnswerString = null;
Date　　　　theDate = null;
Locale　　　　theLocale;
DateFormat　　theDateFormat;

　　if (theCommand == FunctionCall.FCICOMMAND_RUN)
　　{
　　　　if (theFunctionID == FCIFunctionCall.CONVERTDATE)
　　　　{

　　　　　　theDateString = theArgList[0].getLiteralEx(null);
　　　　　　theLocaleString = theArgList[1].getLiteralEx(null);
　　　　　　...
　　　　　　theResult.setLiteralEx(null, theAnswerString);
　　　　}
　　}
}

                
PRE_FUNCTION_DECL r_short POST_FUNCTION_DECL FCISimpleFunctions(
　　FunctionCall *theObject, r_charP thePackageName,
　　r_charP theFunctionName, r_u_long theFunctionID, r_long theFunctionInstance,
　　r_short theCommand, formNodeP theForm, formNodeP theComputeNode,
　　IFSUserData **theFunctionDataPtr, IFSUserData **theFunctionInstanceDataPtr,
　　formNodeP *theArgList, r_long theArgListSize, formNodeP theResult)
{
r_charP　　　　　　theFirstParam;
double　　　　　　firstNum;
r_charP　　　　　　theSecondParam;
double　　　　　　secondNum;
r_short　　　　　　theError;
double　　　　　　theMultiplyResult;
char　　　　　　theLiteralBuffer[50];

　　if ((thePackageName == NULL) || (theFunctionName == NULL))
　　{
　　　　reportError("Invalid parameters", 0);
　　　　return(NOTOK);
　　}

　　if (cp_strcmp(thePackageName, PACKAGE_NAME) != OK)
　　{
　　　　reportError("This function was called with the wrong package name", 0);
　　　　return(NOTOK);
　　}

　　switch (theCommand)
　　{
　　case FCICOMMAND_RUN:
　　　　switch (theFunctionID)
　　　　{
　　　　case FCI_MULTIPLY_ID:
　　　　　　if ((theError = UFLGetLiteralEx(theArgList[0], NULL, &theFirstParam)) != OK)
　　　　　　{
　　　　　　　　reportError("Unable to get the first parameter.", 0);
　　　　　　　　return(theError);
　　　　　　}

　　　　　　if ((theError = UFLGetLiteralEx(theArgList[1], NULL, &theSecondParam)) != OK)
　　　　　　{
　　　　　　　　reportError("Unable to get the first parameter.", 0);
　　　　　　　　return(theError);
　　　　　　}

　　　　　　if (theFirstParam == NULL)
　　　　　　　　theFirstParam = "";

　　　　　　if (theSecondParam == NULL)
　　　　　　　　theSecondParam = "";

　　　　　　firstNum = atof(theFirstParam);
　　　　　　secondNum = atof(theSecondParam);

　　　　　　theMultiplyResult = firstNum * secondNum;
　　　　　　sprintf(theLiteralBuffer, "%f", theMultiplyResult);

　　　　　　UFLSetLiteralEx(theResult, NULL, theLiteralBuffer);

　　　　　　break;

　　　　default:
　　　　　　reportError("The function was called with an unrecognized function", 0);
　　　　　　return(NOTOK);
　　　　}
　　　　break;

　　case FCICOMMAND_INSTANCEREGISTER:
　　　　break;

　　case FCICOMMAND_INSTANCEDEREGISTER:
　　　　break;

　　case FCICOMMAND_REGISTER:
　　　　break;

　　case FCICOMMAND_DEREGISTER:
　　　　break;

　　default:
　　　　break;
　　}
　　return(OK);
}

                
Manifest-Version: 1.0
Name: com/yourcompany/samples/FCIExtension.class
IFS-Extension: True

<Viewerインストールディレクトリ>\2.6\extensions

                
public class FormViewServlet extends IBMWorkplaceFormsServerServlet
{

　　public void init() throws ServletException
　　{
　　　　super.init();
　　　　...
　　　　try
　　　　{
　　　　　　DTK.initializeWithLocale("Webform Server", "1.0.0", "7.0.0", null);
　　　　}
　　　　catch (UWIException e)
　　　　{　　　　　　
　　　　　　Object[] tokens = {(e.getStackTraceString())};
　　　　　　String pattern = SampleResources.
　　　　　　getString(SampleResources.ERROR_FAILED_TO_INITIALIZE_API, serverLocale);
　　　　   　　String message = MessageFormat.format(pattern, tokens);
　　　　　　throw new ServletException(message);
　　　　}
　　}

                
public void doGet(HttpServletRequest request, HttpServletResponse response)
throws ServletException, IOException
{
　　Locale serverLocale = SampleResources.getServerLocale();
　　FormNodeP theForm = null;
　　String mode = request.getParameter("mode");
　　if (mode != null)
　　{
　　　　if (mode.equalsIgnoreCase("xfdl"))
　　　　{
　　　　　　this.useXFDL(response, true);
　　　　}
　　　　else if (mode.equalsIgnoreCase("html"))
　　　　{
　　　　　　this.useHTML(response, true);
　　　　}
　　　　...
　　　　　　File file = SampleUtilities.getFile(serverLocale, dirname, filename, 
　　　　　　this.startingDirectory);
　　　　　　theForm = prepopForm(serverLocale, file, request, dirname, filename);
　　　　　　// must set the filename so that if the user hits the save button, 
　　　　　　it knows what to call it by default.
　　　　　　this.setFilename(response, filename);
　　　　　　response.setContentType("application/vnd.xfdl");
　　　　　　theForm.writeForm(response.getOutputStream(), null, 0);
　　　　    }
　　...
}

                
public void doPost(HttpServletRequest request, 
HttpServletResponse response) throws ServletException, IOException
{
　　Locale serverLocale = SampleResources.getServerLocale();
　　Locale browserLocale = SampleResources.getBrowserLocale(request);
　　...
　　FormNodeP theForm = null;
　　String dirname = request.getParameter("dirname");
　　if (dirname == null) dirname= "";
　　String filename = request.getParameter("filename");
　　//if a filename was not provided, then use the currently known filename
　　if (filename == null) filename= this.getFilename(request);
try
{
XFDL theXFDL = IFSSingleton.getXFDL();
theForm = theXFDL.readForm(request.getInputStream(), 
XFDL.UFL_SERVER_SPEED_FLAGS);
　　 ...
}