zOPER_EXPORT zSHORT OPERATION IncludeAttributeMapping( zVIEW vSubtask, zVIEW OrigW, zVIEW OrigWC ) { #if 0 zVIEW vLOD; zVIEW LOD_List; zVIEW vDomain; zVIEW DomainList; zSHORT nZRetCode; zSHORT RESULT; zCHAR szTempString_0[ 33 ]; RetrieveViewForMetaList( vSubtask, &LOD_List, zREFER_LOD_META ); GetStringFromAttribute( szTempString_0, OrigW, "LOD", "Name" ); SetCursorFirstEntityByString( LOD_List, "W_MetaDef", "Name", szTempString_0, "" ); ActivateMetaOI( vSubtask, &vLOD, LOD_List, zREFER_LOD_META, zSINGLE ); GetStringFromAttribute( szTempString_0, OrigWC, "CtrlMap", "X_EntityName" ); RESULT = SetCursorFirstEntityByString( vLOD, "LOD_Entity", "Name", szTempString_0, "" ); if ( RESULT >= 0 ) { nZRetCode = GetStringFromAttribute( szTempString_0, OrigWC, "CtrlMap", "X_AttributeName" ); RESULT = SetCursorFirstEntityByString( vLOD, "ER_Attribute", "Name", szTempString_0, "LOD_Entity" ); if ( RESULT >= 0 ) { nZRetCode = IncludeSubobjectFromSubobject( OrigWC, "CtrlMapLOD_Attribute", vLOD, "LOD_Attribute", zPOS_AFTER ); if ( CompareAttributeToString ( OrigWC, "CtrlMap", "X_Context", "" ) != 0 ) { nZRetCode = RetrieveViewForMetaList( vSubtask, &DomainList, zREFER_DOMAIN_META ); nZRetCode = GetStringFromAttribute( szTempString_0, vLOD, "Domain", "Name" ); RESULT = SetCursorFirstEntityByString( DomainList, "W_MetaDef", "Name", szTempString_0, "" ); nZRetCode = ActivateMetaOI( vSubtask, &vDomain, DomainList, zREFER_DOMAIN_META, zSINGLE ); nZRetCode = GetStringFromAttribute( szTempString_0, OrigWC, "CtrlMap", "X_Context" ); RESULT = SetCursorFirstEntityByString( vDomain, "Context", "Name", szTempString_0, "" ); if ( RESULT >= 0 ) { nZRetCode = IncludeSubobjectFromSubobject( OrigWC, "CtrlMapContext", vDomain, "Context", zPOS_AFTER ); } nZRetCode = DropMetaOI( vSubtask, vDomain ); nZRetCode = DropView( DomainList ); } } } nZRetCode = DropMetaOI( vSubtask, vLOD ); nZRetCode = DropView( LOD_List ); #endif return( 0 ); }
///////////////////////////////////////////////////////////////////////////// // // OPERATION: oTZEREMDO_GetRefViewForER // // PURPOSE: Get access to ER View for Reference. Activate if not loaded // and get at application level if loaded. // ///////////////////////////////////////////////////////////////////////////// zOPER_EXPORT zSHORT OPERATION oTZEREMDO_GetRefViewForER( zVIEW vSubtask, zPVIEW pvTZEREMDO, zSHORT nCurrentOrReload ) { zVIEW vTZERMFLO; zSHORT nRC; // Get Access to ERD File List Object nRC = RetrieveViewForMetaList( vSubtask, &vTZERMFLO, zREFER_ERD_META ); if ( nRC < 0 ) { *pvTZEREMDO = 0; return( -2 ); } if ( SetCursorFirstEntity( vTZERMFLO, "W_MetaDef", "" ) < zCURSOR_SET ) { return( -2 ); } nRC = ActivateMetaOI( vSubtask, pvTZEREMDO, vTZERMFLO, zREFER_ERD_META, zSINGLE | zLEVEL_APPLICATION ); return( nRC ); }
zOPER_EXPORT zLONG OPERATION LoadSourceForMetaList( zVIEW vSubtask, zPVIEW pvSource, zVIEW vMetaListView, zLONG lMetaType ) { zVIEW vMeta; zVIEW vTempList; zLONG lRC; lRC = CheckExistenceOfEntity( vMetaListView, "W_MetaDef" ); if ( lRC == zCURSOR_UNCHANGED ) { return( 1 ); } // activate it from configuration management. // Use vTempList instead of vMetaListView for the Activate because ActivateMetaOI // modifies the position on the CM list for global operations. CreateViewFromViewForTask( &vTempList, vMetaListView, 0 ); lRC = ActivateMetaOI( vSubtask, &vMeta, vTempList, (zSHORT) lMetaType, zSINGLE ); DropView( vTempList ); // lRC = LoadSourceForMeta( pvSource, vMeta ); // DropMetaOI( vSubtask, vMeta ); *pvSource = vMeta; if ( lRC != 0 ) return( 1 ); return( 0 ); }
/* The user selected a LOD in the Object list. Load the LOD meta and copy all object operations to the editor work object. */ zOPER_EXPORT zSHORT OPERATION ObjList_AddObjOpersToWorkList( zVIEW vSubtask ) { zVIEW vObjList; zVIEW vLOD; zVIEW vEdWrk; zSHORT nRC; zSHORT nLth; zCHAR szOpName[ 255 ]; GetWorkView( &vEdWrk ); GetViewByName( &vObjList, "TZEDCWZD_TZCMLPLO_List", vSubtask, zLEVEL_TASK ); ActivateMetaOI( vSubtask, &vLOD, vObjList, zREFER_LOD_META, 0 ); GetStringFromAttribute( szOpName, vObjList, "W_MetaDef", "Name" ); zstrcat( szOpName, "." ); nLth = zstrlen( szOpName ); for ( nRC = SetCursorFirstEntity( vLOD, "OperationList", 0 ); nRC == zCURSOR_SET; nRC = SetCursorNextEntity( vLOD, "OperationList", 0 ) ) { GetStringFromAttribute( &szOpName[ nLth ], vLOD, "OperationList", "Name" ); CreateEntity( vEdWrk, "Oper", zPOS_LAST ); SetAttributeFromString( vEdWrk, "Oper", "Name", szOpName ); } DropMetaOI( vSubtask, vLOD ); DropView( vObjList ); return( 0 ); } // ObjList_AddObjOpersToWorkList
zOPER_EXPORT zSHORT OPERATION UpgradeDialog1( zVIEW vSubtask, zVIEW OrigW ) { #if 0 zVIEW OrigWC; zVIEW vPE; zVIEW vType; zVIEW LOD_List; zSHORT nZRetCode; zLONG lTempInteger_0; zSHORT RESULT; nZRetCode = RetrieveViewForMetaList( vSubtask, &LOD_List, 2013 ); nZRetCode = ActivateMetaOI( vSubtask, &vPE, LOD_List, 2013, zSINGLE ); nZRetCode = ActivateOI_FromFile( &vType, "TZPACTLO", vSubtask, "c:\\10c\\W\\BIN\\SYS\\TZPACTLI.POR", zSINGLE ); lTempInteger_0 = CheckExistenceOfEntity( OrigW, "SourceFile" ); if ( lTempInteger_0 < 0 ) { nZRetCode = CreateMetaEntity( vSubtask, OrigW, "SourceFile", zPOS_AFTER ); SetAttributeFromAttribute( OrigW, "SourceFile", "Name", OrigW, "Dialog", "Tag" ); } SetNameForView( vType, "vType", vSubtask, zLEVEL_TASK ); SetNameForView( vPE, "vPE", vSubtask, zLEVEL_TASK ); RESULT = SetCursorFirstEntity( OrigW, "Window", "" ); while ( RESULT > zCURSOR_UNCHANGED ) { nZRetCode = CreateViewFromViewForTask( &OrigWC, OrigW, 0 ); nZRetCode = SetNameForView( OrigWC, "OrigWC", vSubtask, zLEVEL_TASK ); RESULT = SetCursorFirstEntity( OrigW, "Action", "" ); // while ( RESULT > zLEVEL_TASK ) while ( RESULT >= 0 ) { nZRetCode = UpgradeAction( vSubtask, OrigW ); RESULT = SetCursorNextEntity( OrigW, "Action", "" ); } RESULT = SetCursorFirstEntity( OrigWC, "Control", "" ); while ( RESULT >= 0 ) { nZRetCode = UpgradeControl( vSubtask, OrigW, OrigWC, vType, vPE ); RESULT = SetCursorNextEntity( OrigWC, "Control", "" ); } nZRetCode = DropView( OrigWC ); RESULT = SetCursorNextEntity( OrigW, "Window", "" ); } #endif return( 0 ); }
zOPER_EXPORT zSHORT OPERATION zwTZHKEYAD_IncludeOperation( zVIEW vSubtask ) { zVIEW vHotKeys; zVIEW vOperationList; zVIEW vOperation; GetViewByName( &vHotKeys, "KZHKEYSO", vSubtask, zLEVEL_TASK ); GetViewByName( &vOperationList, "CM_List", vSubtask, zLEVEL_TASK ); if ( ActivateMetaOI( vSubtask, &vOperation, vOperationList, zREFER_GO_META, 0 ) >= 0 ) { if ( SetCursorFirstEntity( vHotKeys, "Operation", 0 ) >= zCURSOR_SET ) ExcludeEntity( vHotKeys, "Operation", zREPOS_NONE ); IncludeSubobjectFromSubobject( vHotKeys, "Operation", vOperation, "Operation", zPOS_FIRST ); DropView( vOperation ); } return( 0 ); }
static void ProcessXwds( HWND hWnd, zVIEW vSubtask, zCHAR *cLogFile, zCHAR cRemReadOnly) { FILE *fLog=NULL; zVIEW vLPLR; zVIEW vDialog; zSHORT nRC; RECT rect; zCHAR szDialogName[32]; zCHAR szMsg[256]; zPCHAR pszPath; zCHAR szOrder[512]; zCHAR szTargetPath[128]; zCHAR szSourcePath[128]; if ( cLogFile && cLogFile[0] ) fLog = fopen( cLogFile, "w"); if (cRemReadOnly == 'Y') { /* The program was called with parameter -r to remove the ** readonly attribute for all PWD-files. First we build a ** TMP-directory to save the original files. Then we remove ** the readonly attribute. */ pszPath = getenv ("KZD"); strcpy (szTargetPath, pszPath); strcat (szTargetPath, ":\\"); pszPath = getenv ("KZV"); strcat (szTargetPath, pszPath); strcpy (szSourcePath, szTargetPath); strcat (szTargetPath, "\\savexwd"); strcat (szSourcePath, "\\a\\bin\\sys"); strcpy (szOrder, "mkdir "); strcat (szOrder, szTargetPath); if (RunSystem (szOrder, hWnd, fLog) == -1) { if (fLog) fclose (fLog); return; } strcpy (szOrder, "xcopy "); strcat (szOrder, szSourcePath); strcat (szOrder, "\\*.pwd "); strcat (szOrder, szTargetPath); strcat (szOrder, " /K /Q"); if (RunSystem (szOrder, hWnd, fLog) == -1) { if (fLog) fclose (fLog); return; } strcpy (szOrder, "attrib -r "); strcat (szOrder, szSourcePath); strcat (szOrder, "\\*.pwd"); if (RunSystem (szOrder, hWnd, fLog) == -1) { if (fLog) fclose (fLog); return; } } RetrieveViewForMetaList( vSubtask, vSubtask, &vLPLR, zSOURCE_DIALOG_META ); nRC = SetCursorFirstEntity( vLPLR, "W_MetaDef", "" ); while ( nRC >= zCURSOR_SET ) { GetStringFromAttribute( szDialogName, vLPLR, "W_MetaDef", "Name" ); nRC = ActivateMetaOI( &vDialog, vLPLR, zSOURCE_DIALOG_META, zSINGLE ); if ( nRC < 0 ) { zstrcpy( szMsg, "Could not Activate Dialog: " ); zstrcat( szMsg, szDialogName ); zstrcat( szMsg, ".\nAborting Build" ); MessageBox( hWnd, szMsg, "Error Running xwdgen", MB_OK | MB_ICONSTOP | MB_APPLMODAL ); zstrcat( szMsg, "\n" ); if ( fLog ) { fputs( szMsg,fLog ); fclose (fLog); } return ; } else { /* The dialog ACCOUNT.PWD isn't ok. Therefore we get an error message ** while saving the dialog and the releasebuilding system isn't running. ** We don't save the dialog ACCOUNT.PWD until the bug is fixed. This dialog ** is an example and not needed for a release. RG, 17.12.1999 */ if ( strncmp (szDialogName, "TZ", 2) == 0 || strncmp (szDialogName, "tz", 2) == 0 ) { // Send message that we are saving the XWD. strcpy( szMsg, "Saving Dialog: " ); strcat( szMsg, szDialogName ); strcpy( szOutLine, szMsg ); GetClientRect( hWnd, &rect ); InvalidateRect( hWnd, &rect, TRUE ); UpdateWindow( hWnd ); TraceLineS( "xwdgen: ", szMsg ); if ( fLog ) { zstrcat( szMsg, "\n" ); fputs( szMsg,fLog ); } else TraceLineS( szMsg, "" ); SetCursorFirstEntity( vDialog, "Window", "" ); CommitMetaOI( vDialog, zSOURCE_DIALOG_META ); DropView( vDialog ); } nRC = SetCursorNextEntity( vLPLR, "W_MetaDef", "" ); } } if (cRemReadOnly == 'Y') { /* After saving the PWD and XWD files we have to get ** back the original files with readonly attribute */ strcpy (szOrder, "xcopy "); strcat (szOrder, szTargetPath); strcat (szOrder, "\\*.pwd "); strcat (szOrder, szSourcePath); strcat (szOrder, " /K /Q"); if (RunSystem (szOrder, hWnd, fLog) == -1) { if (fLog) fclose (fLog); return; } strcpy (szOrder, "rmdir /S /Q "); strcat (szOrder, szTargetPath); RunSystem (szOrder, hWnd, fLog); } if (fLog) fclose (fLog); else TraceLineS( "Completed XWD build", "" ); return; }
///////////////////////////////////////////////////////////////////////////// // // ENTRY: // // PURPOSE: Create a HK if one doesn't exist for current LPLR. // ///////////////////////////////////////////////////////////////////////////// zOPER_EXPORT zSHORT OPERATION zwTZHKEYAD_InitHK_ForLPLR( zVIEW vSubtask ) { zVIEW vCM_List; zVIEW vKZHKEYSO; zVIEW vTaskLPLR; zCHAR szFileSpec[ zMAX_FILESPEC_LTH + 1 ]; // zSHORT nRC; RetrieveViewForMetaList( vSubtask, &vCM_List, zREFER_GO_META ); SetNameForView( vCM_List, "CM_List", vSubtask, zLEVEL_TASK ); #if 0 // Get File list of Presentation Environments (only one). nRC = RetrieveViewForMetaList( vSubtask, &vCM_List, zREFER_HKEY_META ); // Always have a Named List of PPE's (even though there can only be One)! // This is done to be consistent with other dialogs. The only time the // that the named List will not exist is during a SwithLPLR. // This fact is used a "flag" to the ReturnFromSubWnd logic. nRC = SetNameForView( vCM_List, "CM_HK_List", vSubtask, zLEVEL_TASK ); // See if one exists. nRC = SetCursorFirstEntity( vCM_List, "W_MetaDef", "" ); // If not, create one, else open it. if ( nRC == zCURSOR_NULL ) { // oTZPESRCO_GrayOptions( vSubtask ); } else { nRC = ActivateMetaOI( vSubtask, &vKZHKEYSO, vCM_List, zREFER_HKEY_META, zSINGLE ); SetNameForView( vKZHKEYSO, "TZPESRCV", vSubtask, zLEVEL_TASK ); CreateViewFromViewForTask( &vCtrlList, vKZHKEYSO, 0 ); SetNameForView( vCtrlList, "TZPECTRL", vSubtask, zLEVEL_TASK ); SetAttributeFromInteger( vKZHKEYSO, "ApplHKyDef", "CtrlFontDel", 0 ); } #endif // Get the directory. GetViewByName( &vTaskLPLR, "TaskLPLR", vSubtask, zLEVEL_TASK ); if ( vTaskLPLR == 0 ) { MessageSend( vSubtask, "HK00101", "Hot Keys", "Can't locate LPLR?", zMSGQ_OBJECT_CONSTRAINT_ERROR, zBEEP ); return( 0 ); } GetStringFromAttribute( szFileSpec, vTaskLPLR, "LPLR", "MetaSrcDir" ); zstrcat( szFileSpec, "\\ZEIDON.PHK" ); TraceLineS( "Hotkey Dialog opening file: ", szFileSpec ); // Load the HKEY object. if ( ActivateOI_FromFile( &vKZHKEYSO, "KZHKEYSO", vSubtask, szFileSpec, zIGNORE_ERRORS | zSINGLE | zLEVEL_APPLICATION | zNOI_OKAY ) < 0 ) { CreateEntity( vKZHKEYSO, "Application", zPOS_AFTER ); CommitOI_ToFile( vKZHKEYSO, szFileSpec, zASCII ); } SetNameForView( vKZHKEYSO, "KZHKEYSO", vSubtask, zLEVEL_TASK ); return( 0 ); }
zOPER_EXPORT zSHORT OPERATION BuildXODsOnLPLR( zVIEW vSubtask ) { // This routine does not actually save LODs, but only builds the XODs // on the LPLR. zVIEW vDTE; zVIEW vLPLR; zVIEW vLOD_List; zVIEW vLOD; zVIEW vXOD; zSHORT nRC; zCHAR szMsg[ zSHORT_MESSAGE_LTH + 1 ]; zCHAR szLOD_Name[ 33 ]; zCHAR szFileName[ zMAX_FILESPEC_LTH + 1 ]; GetViewByName( &vDTE, "TE_DB_Environ", vSubtask, zLEVEL_TASK ); GetViewByName( &vLOD_List, "TZZOLFLO", vSubtask, zLEVEL_TASK ); GetViewByName( &vLPLR, "TaskLPLR", vSubtask, zLEVEL_TASK ); // Save Subtask for use by XOD build routine. SetNameForView( vSubtask, "TE_Window", vSubtask, zLEVEL_TASK ); // For each selected LOD, build the XOD using the current DBMS and // commit as file to LPLR, unless the LOD does not have a POD. // Note that we are not looking to see if the DBMS identified // in the POD.TE_SourceZKey matches the current DBMS. We will save // selected LODs with the current DBMS no matter how they were saved // last time. for ( nRC = SetCursorFirstSelectedEntity( vLOD_List, "W_MetaDef", "" ); nRC >= zCURSOR_SET; nRC = SetCursorNextSelectedEntity( vLOD_List, "W_MetaDef", "" ) ) { GetStringFromAttribute( szLOD_Name, vLOD_List, "W_MetaDef", "Name" ); nRC = ActivateMetaOI( vSubtask, &vLOD, vLOD_List, zREFER_LOD_META, zCURRENT_OI ); if ( nRC < 0 ) { zstrcpy( szMsg, "Could not Activate LOD: " ); zstrcat( szMsg, szLOD_Name ); zstrcat( szMsg, ".\nAborting Build" ); MessageSend( vSubtask, "TE00426", "Physical Data Model", szMsg, zMSGQ_OBJECT_CONSTRAINT_ERROR, zBEEP ); return( 0 ); } else { // Send message that we are building the LOD. zstrcpy( szMsg, "Building executable for LOD: " ); zstrcat( szMsg, szLOD_Name ); zstrcat( szMsg, "." ); MB_SetMessage( vSubtask, 1, szMsg ); // Make sure the TE_SourceZKey attribute is set because it determines // what DBMS_Source is used in building the XOD. if ( CheckExistenceOfEntity( vLOD, "POD" ) >= zCURSOR_SET ) SetAttributeFromAttribute( vLOD, "POD", "TE_SourceZKey", vDTE, "TE_DBMS_Source", "ZKey" ); // Build the XOD in memory. oTZZOXODO_SaveXOD( vSubtask, vLOD ); SetNameForView( vLOD, "TZZOLODO", vSubtask, zLEVEL_TASK ); GetViewByName( &vXOD, "TZZOXODO", vSubtask, zLEVEL_TASK ); DropMetaOI( vSubtask, vLOD ); // Commit the XOD to LPLR file. GetStringFromAttribute( szFileName, vLPLR, "LPLR", "ExecDir" ); ofnTZCMWKSO_AppendSlash( szFileName ); zstrcat( szFileName, szLOD_Name ); zstrcat( szFileName, ".XOD" ); TraceLineS( "*** Committing workstation file: ", szFileName ); CommitOI_ToFile( vXOD, szFileName, zSINGLE ); } } MB_SetMessage( vSubtask, 1, "Build of XODs complete." ); return( 0 ); }
static void ProcessXods( HWND hWnd, zVIEW vSubtask, zCHAR *cTE_Name, zCHAR *cLogFile, zCHAR cNet ) { FILE *fLog=NULL; zVIEW vTaskLPLR = NULL; zCHAR szMsg[ 256 ]; zVIEW vTZTEDBLO, vDTE, vCM_List; zVIEW vLOD, vLOD_List, vXOD; zVIEW vTemp = NULL; zVIEW vT=NULL; zSHORT nRC; RECT rect; LPLIBRARY hLib = NULL; zCHAR szLODName[ 32 ]; zCHAR szFileName[ 256 ]; zCHAR szNetwork[ 256 ]; if ( cLogFile && cLogFile[0] ) fLog = fopen( cLogFile, "w"); memset (szNetwork, 0, 256); SysReadZeidonIni( -1, "[Zeidon]", "DefaultNetWork", szNetwork ); if (*szNetwork == 0) { strcpy( szMsg, "No default Network set" ); MessageBox( hWnd, szMsg, "Error Running xodgen", MB_OK | MB_ICONSTOP | MB_APPLMODAL ); zstrcat( szMsg, "\n" ); if ( fLog ) { fputs( szMsg,fLog ); fclose (fLog); } return; } ActivateOI_FromFile( &vTZTEDBLO, "tztedblo", vSubtask, "tztedblo.xdl", zMULTIPLE ); SetNameForView( vTZTEDBLO, "TZTEDBLO", 0, zLEVEL_TASK ); //oTZTENVRO_GetUpdViewForDTE_P nRC = RetrieveViewForMetaList( vSubtask, vSubtask, &vCM_List, zSOURCE_DTE_META ); nRC = ActivateMetaOI( &vDTE, vCM_List, zSOURCE_DTE_META, zSINGLE | zACTIVATE_ROOTONLY ); if ( nRC < 0 ) { strcpy( szMsg, "Internal error activating TE" ); MessageBox( hWnd, szMsg, "Error Running xodgen", MB_OK | MB_ICONSTOP | MB_APPLMODAL ); zstrcat( szMsg, "\n" ); if ( fLog ) { fputs( szMsg,fLog ); fclose (fLog); } return; } SetNameForView( vDTE, "TE_DB_Environ", vSubtask, zLEVEL_TASK ); // Position on given DBMS Source nRC = SetCursorFirstEntityByString( vDTE, "TE_DBMS_Source", "Name", cTE_Name, 0 ); if ( nRC < zCURSOR_SET ) { strcpy( szMsg, "Invalid TE Name :"); strcat( szMsg, cTE_Name ); MessageBox( hWnd, szMsg, "Error Running xodgen", MB_OK | MB_ICONSTOP | MB_APPLMODAL ); zstrcat( szMsg, "\n" ); if ( fLog ) { fputs( szMsg,fLog ); fclose (fLog); } return; } nRC = GetViewByName( &vTaskLPLR, "TaskLPLR", 0, zLEVEL_TASK ); assert(nRC >= 0 ) ; // Check for network build if ( cNet ) { // Use default network for Ton Beller (DBMS = "Network Server") SetCursorFirstEntityByString( vTZTEDBLO, "TE_DBMS_Source", "Network", szNetwork, 0 ); SetAttributeFromAttribute( vDTE, "TE_DBMS_Source", "DBMS", vTZTEDBLO, "TE_DBMS_Source", "DBMS" ); SetAttributeFromAttribute( vDTE, "TE_DBMS_Source", "Network", vTZTEDBLO, "TE_DBMS_Source", "Network" ); } else { // Position on corresponding DBMS entry in DB Handler object. SetCursorFirstEntityByAttr( vTZTEDBLO, "TE_DBMS_Source", "DBMS", vDTE, "TE_DBMS_Source", "DBMS", 0 ); } //zwTZTEUPDD_BuildXODsOnLPLR( zVIEW vSubtask ) // Create a view that lists all LODs. RetrieveViewForMetaList( vSubtask, vSubtask, &vLOD_List, zREFER_LOD_META ); OrderEntityForView( vLOD_List, "W_MetaDef", "Name A" ); SetNameForView( vLOD_List, "TZZOLFLO", vSubtask, zLEVEL_TASK ); // Loop through each of the LOD's // WMetaType.Type= zREFER_LOD_META // for ( nRC = SetCursorFirstEntity( vLOD_List, "W_MetaDef", "" ); nRC >= zCURSOR_SET; nRC = SetCursorNextEntity( vLOD_List, "W_MetaDef", "" ) ) { GetStringFromAttribute( szLODName, vLOD_List, "W_MetaDef", "Name" ); nRC = ActivateMetaOI( &vLOD, vLOD_List, zREFER_LOD_META, zCURRENT_OI ); if ( nRC < 0 ) { zstrcpy( szMsg, "Could not Activate LOD: " ); zstrcat( szMsg, szLODName ); zstrcat( szMsg, ".\nAborting Build" ); MessageBox( hWnd, szMsg, "Error Running xodgen", MB_OK | MB_ICONSTOP | MB_APPLMODAL ); zstrcat( szMsg, "\n" ); if ( fLog ) { fputs( szMsg,fLog ); fclose (fLog); } return ; } else { // Send message that we are building the LOD. strcpy( szMsg, "Building executable for LOD: " ); strcat( szMsg, szLODName ); strcat( szMsg, "." ); strcpy( szOutLine, szMsg ); GetClientRect( hWnd, &rect ); InvalidateRect( hWnd, &rect, TRUE ); UpdateWindow( hWnd ); if ( fLog ) { zstrcat( szMsg, "\n" ); fputs( szMsg,fLog ); } else TraceLineS( szMsg, "" ); // Make sure the TE_SourceZKey attribute is set because it determines // what DBMS_Source is used in building the XOD. if ( CheckExistenceOfEntity( vLOD, "POD" ) >= zCURSOR_SET ) SetAttributeFromAttribute ( vLOD, "POD", "TE_SourceZKey", vDTE, "TE_DBMS_Source", "ZKey" ); // Build the XOD in memory oTZZOXODO_SaveXOD( vLOD ); SetNameForView( vLOD, "TZZOLODO", 0, zLEVEL_TASK ); DropMetaOI( vSubtask, vLOD ); // Commit the XOD to LPLR file. GetViewByName( &vXOD, "TZZOXODO", 0, zLEVEL_TASK ); GetStringFromAttribute( szFileName, vTaskLPLR, "LPLR", "ExecDir" ); ofnTZCMWKSO_AppendSlash( szFileName ); zstrcat( szFileName, szLODName ); zstrcat( szFileName, ".XOD" ); CommitOI_ToFile( vXOD, szFileName, zSINGLE ); } } if (fLog) fclose (fLog); else TraceLineS( "Completed XOD build", "" ); return; }
zOPER_EXPORT zSHORT OPERATION AEQ_SelectView( zVIEW vSubtask ) { zSHORT nRC; zVIEW vList; zVIEW vLOD; zVIEW vEdWrk; zPCHAR szLOD_Name; zPCHAR szName; GetWorkView( &vEdWrk ); if ( vEdWrk == 0 ) { zCHAR sz[ 200 ]; zstrcpy( sz, "TZEDWRKO not Available at ObjSelAQ_ObjSelView." ); OperatorPrompt( 0, "ED - Error", sz, 0, zBUTTONS_OK, 0, zICON_STOP ); return( zCALL_ERROR ); } // If Entity entity exists, then the LOD has already been loaded for // for this view. Exit because nothing else needs to be done. if ( CheckExistenceOfEntity( vEdWrk, "Entity" ) == zCURSOR_SET ) { AEQ_RefreshAEQ( vSubtask ); return( 0 ); } // Activate the LOD specified by vEdWrk.View.ObjectName GetAddrForAttribute( &szLOD_Name, vEdWrk, "View", "ObjectName" ); nRC = RetrieveViewForMetaList( vSubtask, &vList, zREFER_LOD_META ); nRC = SetCursorFirstEntity( vList, "W_MetaDef", "" ); while ( nRC == zCURSOR_SET ) { GetAddrForAttribute( &szName, vList, "W_MetaDef", "Name" ); if ( zstrcmpi( szName, szLOD_Name ) == 0 ) break; nRC = SetCursorNextEntity( vList, "W_MetaDef", "" ); } if ( nRC != zCURSOR_SET ) { zCHAR sz[ 200 ]; DropView( vList ); zstrcpy( sz, "LOD " ); zstrcat( sz, szLOD_Name ); zstrcat( sz, " not found. Possibly wrong LPLR?" ); OperatorPrompt( vSubtask, "ZeidonEditor", sz, 0, 0, 1, zICON_STOP ); return( zCALL_ERROR ); } nRC = ActivateMetaOI( vSubtask, &vLOD, vList, zREFER_LOD_META, zSINGLE | zLEVEL_APPLICATION ); DropView( vList ); // Copy Entity and Attribute names from LOD to vEdWrk. nRC = SetCursorFirstEntity( vLOD, "LOD_Entity", "" ); while ( nRC == zCURSOR_SET ) { CreateEntity( vEdWrk, "Entity", zPOS_LAST ); SetAttributeFromAttribute( vEdWrk, "Entity", "EntityName", vLOD, "LOD_Entity", "IndentName" ); nRC = SetCursorFirstEntity( vLOD, "LOD_Attribute", "" ); while ( nRC == zCURSOR_SET ) { CreateEntity( vEdWrk, "Attribute", zPOS_LAST ); SetAttributeFromAttribute( vEdWrk, "Attribute", "AttributeName", vLOD, "ER_Attribute", "Name" ); nRC = SetCursorNextEntity( vLOD, "LOD_Attribute", "" ); } nRC = SetCursorNextEntity( vLOD, "LOD_Entity", "" ); } DropMetaOI( vSubtask, vLOD ); nRC = SetCursorFirstEntity( vEdWrk, "Entity", "" ); SetSelectStateOfEntity( vEdWrk, "Entity", 1 ); if ( CheckExistenceOfEntity( vEdWrk, "Attribute" ) >= zCURSOR_SET ) SetSelectStateOfEntity( vEdWrk, "Attribute", 1 ); AEQ_RefreshAEQ( vSubtask ); return( 0 ); } // AEQ_SelectView