//: SHORT nRC
zOPER_EXPORT zSHORT OPERATION
oKZXMLPGO_InitWebSessionObject( zPVIEW vKZXMLPGO,
zVIEW AnyView,
zPCHAR UserID )
{
zSHORT nRC = 0;
zSHORT RESULT;
//:nRC = SfActivateSysEmptyOI( vKZXMLPGO, "KZXMLPGO", AnyView, zSINGLE )
nRC = SfActivateSysEmptyOI( vKZXMLPGO, "KZXMLPGO", AnyView, zSINGLE );
//:IF nRC >= 0
if ( nRC >= 0 )
{
//:CREATE ENTITY vKZXMLPGO.Session
RESULT = CreateEntity( *vKZXMLPGO, "Session", zPOS_AFTER );
//:vKZXMLPGO.Session.UserID = UserID
SetAttributeFromString( *vKZXMLPGO, "Session", "UserID", UserID );
}
//:END
//:RETURN nRC
return( nRC );
// END
}
/////////////////////////////////////////////////////////////////////////////
//
// FUNCTION: fnBuildQualForEnqueueDelete
//
/////////////////////////////////////////////////////////////////////////////
zSHORT
fnBuildQualForEnqueueDelete( zVIEW vEnqueue,
zPVIEW pvQual )
{
SfActivateSysEmptyOI( pvQual, "KZDBHQUA", vEnqueue, zMULTIPLE );
CreateEntity( *pvQual, szlEntitySpec, zPOS_AFTER );
SetAttributeFromString( *pvQual, szlEntitySpec, szlEntityName,
szlEnqueue );
CreateEntity( *pvQual, szlQualAttrib, zPOS_AFTER );
SetAttributeFromString( *pvQual, szlQualAttrib, szlEntityName,
szlEnqueue );
SetAttributeFromString( *pvQual, szlQualAttrib, szlAttributeName,
szlUser );
SetAttributeFromAttribute( *pvQual, szlQualAttrib, szlValue,
vEnqueue, szlEnqueue, szlUser );
SetAttributeFromString( *pvQual, szlQualAttrib, szlOper, "=" );
CreateEntity( *pvQual, szlQualAttrib, zPOS_AFTER );
SetAttributeFromString( *pvQual, szlQualAttrib, szlOper, "AND" );
CreateEntity( *pvQual, szlQualAttrib, zPOS_AFTER );
SetAttributeFromString( *pvQual, szlQualAttrib, szlEntityName,
szlEnqueue );
SetAttributeFromString( *pvQual, szlQualAttrib, szlAttributeName,
szlTimestamp );
SetAttributeFromAttribute( *pvQual, szlQualAttrib, szlValue,
vEnqueue, szlEnqueue, szlTimestamp );
SetAttributeFromString( *pvQual, szlQualAttrib, szlOper, "=" );
}
/////////////////////////////////////////////////////////////////////////////
//
// ENTRY:
//
// PURPOSE: Save the HK object(both Source & Executable???)
//
/////////////////////////////////////////////////////////////////////////////
zOPER_EXPORT zSHORT OPERATION
zwTZHKEYAD_SaveHK_ForLPLR( zVIEW vSubtask )
{
zPCHAR lpGlobalHotkey;
zUSHORT usGlobalHotkeyLth;
LPACCEL_TABLE lpAT;
LPACCEL_TABLE lpAT_Start;
zCHAR szFileSpec[ zMAX_FILESPEC_LTH + 1 ];
zVIEW vKZHKEYSO;
zVIEW vKZHKEYXO;
zVIEW vTaskLPLR;
zULONG ulMaxLth;
zSHORT nRC;
GetViewByName( &vKZHKEYSO, "KZHKEYSO", vSubtask, zLEVEL_ANY );
// Get the directory.
GetViewByName( &vTaskLPLR, "TaskLPLR", vSubtask, zLEVEL_TASK );
if ( vTaskLPLR == 0 )
{
MessageSend( vSubtask, "HK00102", "Hot Keys",
"Can't locate LPLR?",
zMSGQ_OBJECT_CONSTRAINT_ERROR, zBEEP );
return( 0 );
}
GetStringFromAttribute( szFileSpec, vTaskLPLR, "LPLR", "MetaSrcDir" );
zstrcat( szFileSpec, "\\ZEIDON.PHK" );
MiSetOI_ReleaseForView( vKZHKEYSO, szlReleaseCurrent );
CommitOI_ToFile( vKZHKEYSO, szFileSpec, zASCII | zENCODE_BLOBS | zNO_NULL_STRING_TERM );
SfAllocTaskMemory( vSubtask, (zCOREMEM) &lpGlobalHotkey, 65000 );
lpAT = (LPACCEL_TABLE) SfLockTaskMemory( lpGlobalHotkey );
lpAT_Start = lpAT;
usGlobalHotkeyLth = 0;
SfActivateSysEmptyOI( &vKZHKEYXO, "KZHKEYXO", vSubtask,
zSINGLE | zLEVEL_APPLICATION );
CreateEntity( vKZHKEYXO, "App", zPOS_AFTER );
nRC = SetEntityCursor( vKZHKEYSO, "Hotkey", 0, zPOS_FIRST,
0, 0, 0, 0, 0, 0 );
while ( nRC >= 0 )
{
CreateEntity( vKZHKEYXO, "Hotkey", zPOS_AFTER );
SetMatchingAttributesByName( vKZHKEYXO, "Hotkey",
vKZHKEYSO, "Hotkey", zSET_ALL );
SetAttributeFromAttribute( vKZHKEYXO, "Hotkey", "COP",
vKZHKEYSO, "Operation", "Name" );
SetAttributeFromAttribute( vKZHKEYXO, "Hotkey", "DLL",
vKZHKEYSO, "Hotkey", "DLL_Name" );
lpAT->chType = zACCEL_HOTKEY;
ulMaxLth = sizeof( zACCEL_DEF );
GetBlobFromAttribute( &(lpAT->ac), &ulMaxLth,
vKZHKEYSO, "Hotkey", "KeyCombo" );
lpAT->nID = (zSHORT) GetRelativeEntityNumber( vKZHKEYSO,
"Hotkey", 0, 0L );
usGlobalHotkeyLth += sizeof( zACCEL_TABLE );
lpAT++;
nRC = SetCursorNextEntity( vKZHKEYSO, "Hotkey", 0 );
}
zmemset( lpAT, 0xFF, sizeof( zACCEL_TABLE ) ); // terminator
usGlobalHotkeyLth += sizeof( zACCEL_TABLE );
lpAT = lpAT_Start;
SetAttributeFromBlob( vKZHKEYXO, "App", "Hotkey",
lpAT, usGlobalHotkeyLth );
SfUnlockTaskMemory( lpAT );
SfFreeTaskMemory( lpGlobalHotkey );
GetStringFromAttribute( szFileSpec, vTaskLPLR, "LPLR", "ExecDir" );
zstrcat( szFileSpec, "\\ZEIDON.XKY" );
CommitOI_ToFile( vKZHKEYXO, szFileSpec, zASCII );
return( 0 );
}
