//: 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 ); }