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
