Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-07 12:15:51 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
b605bf26fe
gecko-dev/cmd/winfe/fegrid.cpp
spider 5d5d533e2c Normandy Merge ....
1998-06-22 21:19:46 +00:00

2813 lines
79 KiB
C++
Raw Blame History

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
*
* The contents of this file are subject to the Netscape Public License
* Version 1.0 (the "NPL"); you may not use this file except in
* compliance with the NPL. You may obtain a copy of the NPL at
* http://www.mozilla.org/NPL/
*
* Software distributed under the NPL is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
* for the specific language governing rights and limitations under the
* NPL.
*
* The Initial Developer of this code under the NPL is Netscape
* Communications Corporation. Portions created by Netscape are
* Copyright (C) 1998 Netscape Communications Corporation. All Rights
* Reserved.
*/
#include "stdafx.h"
#include "rosetta.h"
#include "gridedge.h"
#include "netsvw.h"
#include "template.h"
#define VIEW_SOURCE_TARGET_WINDOW_NAME "%ViewSourceWindow" /* from ns/lib/libnet/cvcolor.c */
#ifndef MOZ_NGLAYOUT
MWContext *FE_MakeGridWindow(MWContext *pOldContext, void *hist_list, void *pHistory,
int32 lX, int32 lY,
int32 lWidth, int32 lHeight, char *pUrlStr, char *pWindowName, int8 iScrollType,
NET_ReloadMethod eReloadThis, Bool no_edge) {
// First, ensure that the context we're going into is of an appropriate type.
if(pOldContext == NULL || ABSTRACTCX(pOldContext)->IsFrameContext() == FALSE) {
// Only let this happen to window contexts for now.
return(NULL);
}
else {
// The goal here is to create a new, fabulous, grid that is a child of the
// other window context's frame.
CWinCX *pParentCX = VOID2CX(pOldContext->fe.cx, CWinCX);
// Safety dance.
if(pParentCX->GetPane() == NULL) {
return(NULL);
}
HWND hParentWnd = pParentCX->GetPane();
// Bring up a create context, so that the Create call won't complain on
// 16 bit windows.
// Since we create the context here, and the document, along with the view,
// the view takes care of destroying the docuemnt on close, so we don't
// need to worry about it.
CCreateContext cccGrid;
cccGrid.m_pNewViewClass = RUNTIME_CLASS(CNetscapeView);
cccGrid.m_pCurrentDoc = new CGenericDoc();
// Create the view.
DWORD dwGridStyle = WS_HSCROLL | WS_VSCROLL;
CNetscapeView *pNewView = new CNetscapeView();
pNewView->Create(NULL,
pWindowName,
dwGridStyle,
CRect(0, 0, 1, 1),
CWnd::FromHandle(hParentWnd),
0,
&cccGrid);
CWinCX *pWinCX = new CWinCX((CGenericDoc *)cccGrid.m_pCurrentDoc, pParentCX->GetFrame(), pNewView);
// Set the context's name.
// Set its parent.
pWinCX->SetContextName(pWindowName);
pWinCX->SetParentContext(pOldContext);
RECT rect;
rect.left = CASTINT(pParentCX->Twips2PixX(lX));
rect.top = CASTINT(pParentCX->Twips2PixY(lY));
rect.right = CASTINT(pParentCX->Twips2PixX(lX) + pParentCX->Twips2PixX(lWidth));
rect.bottom = CASTINT(pParentCX->Twips2PixY(lY) + pParentCX->Twips2PixY(lHeight));
// Initialize the context.
pWinCX->Initialize(pWinCX->CDCCX::IsOwnDC(), &rect);
// Tell it wether or not it will have an edge (border in the
// non client area).
pWinCX->SetBorder(!no_edge);
// Size the window to final coords.
// This causes the non client calc to happen which is needed
// now that it knows it's a grid cell.
pNewView->MoveWindow(
CRect(CASTINT(pParentCX->Twips2PixX(lX)),
CASTINT(pParentCX->Twips2PixY(lY)),
CASTINT(pParentCX->Twips2PixX(lX) + pParentCX->Twips2PixX(lWidth)),
CASTINT(pParentCX->Twips2PixY(lY) + pParentCX->Twips2PixY(lHeight))),
FALSE);
// Decide what we're doing about scroll bars.
switch(iScrollType) {
case LO_SCROLL_NO:
// Shouldn't ever have scrollbars.
// Get rid of them.
pWinCX->SetDynamicScrollBars(FALSE);
pWinCX->ShowScrollBars(SB_BOTH, FALSE);
pWinCX->SetAlwaysShowScrollBars(FALSE);
break;
case LO_SCROLL_AUTO:
// Aha, the hard case.
// Set a flag so that when the load is complete in the context, such
// that we will hide the scroll bars if there is already enough room.
// This means that the entire document fits on the screen (not much data),
// and that doing a load from resize at that point will be minimal
// overhead.
pWinCX->SetDynamicScrollBars(TRUE);
pWinCX->SetAlwaysShowScrollBars(FALSE);
break;
case LO_SCROLL_YES:
// Have the scroll bars show.
pWinCX->SetDynamicScrollBars(FALSE);
pWinCX->SetAlwaysShowScrollBars(TRUE);
pWinCX->ShowScrollBars(SB_BOTH, TRUE);
break;
default:
ASSERT(0); // user mush pass in invalid value.
}
// If we have a history list, we need to stick it in the context.
History_entry *pHistEnt = (History_entry *)pHistory;
XP_List *pHistList = (XP_List *)hist_list;
if(pHistList != NULL) {
pWinCX->GetContext()->hist.list_ptr = pHistList;
}
else {
// If we have a history entry, we need to add it to the session.
if(pHistEnt != NULL) {
SHIST_AddDocument(pWinCX->GetContext(), pHistEnt);
}
}
// Have it load the url in question.
// This could be from the history entry.
if(pHistEnt == NULL) {
URL_Struct *pUrl = NET_CreateURLStruct(pUrlStr, NET_DONT_RELOAD);
pUrl->force_reload = eReloadThis;
// Be sure to add the referrer field of the top level context.
MWContext *mwRefer = pOldContext;
while(mwRefer->grid_parent) {
mwRefer = mwRefer->grid_parent;
}
History_entry *he = SHIST_GetCurrent (&mwRefer->hist);
if(he && he->referer) {
pUrl->referer = XP_STRDUP(he->referer);
}
pWinCX->GetUrl(pUrl, FO_CACHE_AND_PRESENT);
}
else {
URL_Struct *pUrl = SHIST_CreateURLStructFromHistoryEntry(pWinCX->GetContext(), pHistEnt);
pUrl->force_reload = eReloadThis;
pWinCX->GetUrl(pUrl, FO_CACHE_AND_PRESENT);
}
// Grid parents have WS_CLIPCHILDREN turned on. This allows them
// to draw (backgrounds for example) into their windows without
// worrying about their children.
CFrameGlue *pGlue = pWinCX->GetFrame();
if(pGlue) {
pGlue->ClipChildren(pNewView, TRUE);
}
// Show the window, but don't activate it.
pNewView->ShowWindow(SW_SHOWNA);
return(pWinCX->GetContext());
}
}
void FE_LoadGridCellFromHistory(MWContext *pContext, void *hist, NET_ReloadMethod netReloadMethod) {
History_entry *pHist = (History_entry *)hist;
if (pHist != NULL) {
URL_Struct *pUrl = SHIST_CreateURLStructFromHistoryEntry(pContext, pHist);
if(pUrl) {
pUrl->force_reload = netReloadMethod;
ABSTRACTCX(pContext)->GetUrl(pUrl, FO_CACHE_AND_PRESENT, TRUE);
}
}
}
void *FE_FreeGridWindow(MWContext *pContext, XP_Bool bSaveHistory) {
ASSERT(ABSTRACTCX(pContext)->IsWindowContext());
void *pRetval = NULL;
// Destroy the view then the doc/it in turn destroys the context.
// We have to clean up the doc, since we passed it in....
CWinCX *pWinCX = VOID2CX(pContext->fe.cx, CWinCX);
CWinCX *pParentCX = WINCX(pWinCX->GetParentContext());
// We may want to return the history entry.
if(bSaveHistory == TRUE) {
// Reset to top of document
SHIST_SetPositionOfCurrentDoc(&(pWinCX->GetContext()->hist), 0);
if(pWinCX->GetOriginX() || pWinCX->GetOriginY()) {
#ifdef LAYERS
LO_Any *pAny = (LO_Any *)LO_XYToNearestElement(pWinCX->GetContext(), pWinCX->GetOriginX(), pWinCX->GetOriginY(), NULL);
#else
LO_Any *pAny = (LO_Any *)LO_XYToNearestElement(pWinCX->GetContext(), pWinCX->GetOriginX(), pWinCX->GetOriginY());
#endif
// Save the location of the current document.
if(pAny != NULL) {
SHIST_SetPositionOfCurrentDoc(&(pWinCX->GetContext()->hist), pAny->ele_id);
}
}
#ifdef MOZ_NGLAYOUT
ASSERT(0);
#else
LO_DiscardDocument(pWinCX->GetContext());
#endif
XP_List *hist_list = pWinCX->GetContext()->hist.list_ptr;
pWinCX->GetContext()->hist.list_ptr = NULL;
pRetval = (void *)hist_list;
}
CFrameGlue *frame = pWinCX->GetFrame();
// Make sure child grid cell going away doesn't hold onto frame
// which may also be going down.
pWinCX->ClearFrame();
ASSERT(pWinCX->GetPane());
if(pWinCX->GetPane()) {
CGenericView *pView = pWinCX->GetView();
ASSERT(pView);
if(pView) {
// Tell our parent(s) that they don't need to clip children
// anymore just for our sake.
if(frame) {
frame->ClipChildren(pView, FALSE);
}
pView->FrameClosing();
pView->SendMessage(WM_CLOSE);
}
}
return(pRetval);
}
#endif /* MOZ_NGLAYOUT */
void FE_GetFullWindowSize(MWContext *pContext, int32 *plWidth, int32 *plHeight) {
// Only do this on windows.
if(ABSTRACTCX(pContext)->IsWindowContext() == TRUE && ABSTRACTCX(pContext)->IsDestroyed() == FALSE) {
CPaneCX *pWindow = PANECX(pContext);
RECT crDimensions;
// Get the full size of the window.
::GetClientRect(pWindow->GetPane(), &crDimensions);
// Convert the dimensions to twips.
HDC hDC = pWindow->GetContextDC();
::DPtoLP(hDC, (POINT *)&crDimensions, 2);
pWindow->ReleaseContextDC(hDC);
*plWidth = crDimensions.right - crDimensions.left;
*plHeight = crDimensions.bottom - crDimensions.top;
// Adjust to not include scroll bars.
if(pWindow->IsVScrollBarOn()) {
*plWidth += sysInfo.m_iScrollWidth;
}
if(pWindow->IsHScrollBarOn()) {
*plHeight += sysInfo.m_iScrollHeight;
}
}
else {
// No window here....
// Set to 1 to avoid divide by zero errors in Back end.
*plHeight = *plWidth = 1;
}
}
#ifndef MOZ_NGLAYOUT
void FE_RestructureGridWindow(MWContext *pContext, int32 lX, int32 lY, int32 lWidth, int32 lHeight) {
TRACE("FE_RestructureGridWindow(%p, %ld, %ld, %ld, %ld)\n", pContext, lX, lY, lWidth, lHeight);
// Safety dance.
if(pContext == NULL) {
return;
}
// We're under the immediate assumption that the context is a window.
ASSERT(ABSTRACTCX(pContext)->IsWindowContext());
CWinCX *pWinCX = WINCX(pContext);
// We need to move the window.
// It will automagically redraw itself.
::MoveWindow(pWinCX->GetPane(), CASTINT(pWinCX->Twips2PixX(lX)),
CASTINT(pWinCX->Twips2PixY(lY)),
CASTINT(pWinCX->Twips2PixX(lWidth)),
CASTINT(pWinCX->Twips2PixY(lHeight)),
TRUE);
// Dynamic scroll bars are handled internally, as is resize.
}
#endif /* MOZ_NGLAYOUT */
void FE_SetWindowLoading(MWContext *pContext, URL_Struct *pUrl, Net_GetUrlExitFunc **ppExitRoutine) {
// A url load is changing context.
// Telling the exit routine that we'd like to be called.
*ppExitRoutine = CFE_GetUrlExitRoutine;
// Now, call the GetUrl routine, but don't really load.
// This bootstraps the normal loading procedure.
// DON'T REALLY CARE WHAT WE PASS IN AS THE PRESENTATION TYPE, yet.
ABSTRACTCX(pContext)->GetUrl(pUrl, FO_CACHE_AND_PRESENT, FALSE);
}
#ifndef MOZ_NGLAYOUT
void FE_GetEdgeMinSize(MWContext *pContext, int32 *pSize, Bool no_edge) {
TRACE("FE_GetEdgeMinSize(%p, %p)\n", pContext, pSize);
// Don't care anymore.
*pSize = 5;
if(!no_edge) {
*pSize = 5;
}
}
#endif /* MOZ_NGLAYOUT */
MWContext *FE_MakeBlankWindow(MWContext *pOldContext, URL_Struct *pUrl, char *pContextName) {
// TRACE("FE_MakeBlankWindow(%p, %p, %s)\n", pOldContext, pUrl, pContextName);
// Create a new top level blank window.
// Only don't load anything. Leave it blank.
// HACK ALERT:
// In order to better do this, we need to have the CreateNewDocWindow
// function not load what's in the history. It only does this with
// other browser windows. Anyhow, switch our context type temporarily
// in order to get the effect.
MWContextType OldType = pOldContext->type;
pOldContext->type = (MWContextType)-1;
MWContext *pRetval = pOldContext->funcs->CreateNewDocWindow(pOldContext, NULL);
pOldContext->type = OldType;
if(pRetval != NULL) {
ABSTRACTCX(pRetval)->SetContextName(pContextName);
}
return(pRetval);
}
// Create a new window.
// If pChrome is NULL, do a FE_MakeBlankWindow....
// pChrome specifies the attributes of a window.
// If you use this call, Toolbar information will not be saved in the preferences.
MWContext *FE_MakeNewWindow(MWContext *pOldContext, URL_Struct *pUrl, char *pContextName, Chrome *pChrome)
{
BOOL bNetHelpWnd = FALSE;
// Decide which type of context this will be (we use this to possible access some templates).
MWContextType cxType = MWContextAny;
if(pChrome != NULL) {
switch(pChrome->type) {
case MWContextHTMLHelp:
pChrome->type = MWContextBrowser;
#ifndef _WIN32
pChrome->allow_resize = FALSE;
#endif
bNetHelpWnd = TRUE;
// Fall through...
case MWContextBrowser:
cxType = MWContextBrowser;
break;
case MWContextDialog:
cxType = MWContextDialog;
break;
}
}
else {
// Default to MWContextBrowser;
cxType = MWContextBrowser;
}
// A type came in that we're not ready to handle.
// Seems more code needs to be written....
ASSERT(cxType != MWContextAny);
if(cxType == MWContextAny) {
return(NULL);
}
// Decide now wether or not to make the window initially visible.
// We decide by detecting wether or not we'll be enforcing a resize.
// We'll make the window visible after we're done sizing.
// Only works with 32 bits right now.
BOOL bMakeVisible = TRUE;
if(pChrome && ((pChrome->outw_hint && pChrome->outh_hint) ||
(pChrome->w_hint && pChrome->h_hint) ||
pChrome->location_is_chrome ||
pChrome->topmost || pChrome->bottommost)) {
bMakeVisible = FALSE;
}
// Must check if user wants a titlebar now since it affects the type of
// window used during window creation. If no titlebar, use popup type.
BOOL bHideTitlebar = FALSE;
BOOL bBorder = TRUE;
if (pChrome && pChrome->hide_title_bar){
bHideTitlebar = TRUE;
}
BOOL bDependent = FALSE;
if (pOldContext && pChrome && pChrome->dependent) {
bDependent = TRUE;
}
// Take the template of the appropriate window type, and pull it up.
CAbstractCX *pCX = NULL;
// If there is a parent, get its hwnd
CWinCX *pOldWinCX = NULL;
if(pOldContext)
pOldWinCX = WINCX(pOldContext);
HWND hParentHwnd = NULL;
if(pOldWinCX && pOldWinCX->GetFrame() && pOldWinCX->GetFrame()->GetFrameWnd())
hParentHwnd = pOldWinCX->GetFrame()->GetFrameWnd()->GetSafeHwnd();
switch(cxType) {
case MWContextBrowser:
case MWContextDialog: {
BOOL bPopup = FALSE;
HWND hPopupParent = NULL;
// if we are creating a modal window then we need to become a child of
// the calling frame and of type WS_POPUP. The values below are set to
// tell the frame to create itself this way.
if(hParentHwnd && pChrome && pChrome->is_modal)
{
bPopup = TRUE;
hPopupParent = ::GetLastActivePopup(hParentHwnd);
}
CGenericDoc *pDoc =
(CGenericDoc *)theApp.m_ViewTmplate->OpenDocumentFile(NULL, bMakeVisible,
bHideTitlebar, bDependent, bPopup, hPopupParent);
if(pDoc != NULL) {
pCX = pDoc->GetContext();
}
}
break;
default:
// Please add your case statement.
ASSERT(0);
break;
}
// If the context wasn't created, we can not continue.
if(pCX == NULL) {
return(NULL);
}
// Hack to identify a NetHelp window
pCX->m_bNetHelpWnd = bNetHelpWnd;
// JavaScript can create windows which are lifetime-linked to their parent.
// This is set here instead of in JS to avoid threading problems.
if (bDependent) {
if (pOldContext->js_dependent_list == NULL)
pOldContext->js_dependent_list = XP_ListNew();
if (pOldContext->js_dependent_list == NULL)
return(NULL);
XP_ListAddObject(pOldContext->js_dependent_list, pCX->GetContext());
pCX->GetContext()->js_parent = pOldContext;
}
// Get the context, and manually assign its type.
// The XP context that is.
pCX->GetContext()->type = cxType;
// Assign the context name, if provided.
if(pContextName != NULL) {
pCX->SetContextName(pContextName);
}
// Copy over the same char set ID as the old context if we're a window.
if(pCX->IsFrameContext() == TRUE && pOldContext != NULL) {
CWinCX *pWinCX = VOID2CX(pCX, CWinCX);
if(cxType != MWContextDialog && !bNetHelpWnd) {
pWinCX->GetFrame()->m_iCSID = INTL_DefaultDocCharSetID(pOldContext);
} else {
// use the client's default encoding for HTML dialogs (fix for #78838)
pWinCX->GetFrame()->m_iCSID = INTL_CharSetNameToID(INTL_ResourceCharSet());
if (pContextName != NULL) {
if(strncmp(pContextName, VIEW_SOURCE_TARGET_WINDOW_NAME,
strlen(VIEW_SOURCE_TARGET_WINDOW_NAME)) == 0) {
// but not for View Source which gets the old context char set ID
// (fix for #79072)
pWinCX->GetFrame()->m_iCSID = INTL_DefaultDocCharSetID(pOldContext);
}
if(strncmp(pContextName, "%DocInfoWindow", 14) == 0) {
// %DocInfoWindow is from ns/lib/libnet/mkgeturl.c net_output_about_url()
// Document Info gets the user-selectable default encoding
pWinCX->GetFrame()->m_iCSID = INTL_DefaultWinCharSetID(NULL);
}
}
}
}
#ifdef _WIN32
if(sysInfo.m_bWin4 && bNetHelpWnd && pCX->IsFrameContext()) {
CWinCX *pWinCX = VOID2CX(pCX, CWinCX);
CFrameWnd *pFrame = pWinCX->GetFrame()->GetFrameWnd();
if( pFrame ) {
HICON hIcon = theApp.LoadIcon( "IDR_NETHELP_ICON" );
pFrame->SetIcon( hIcon, TRUE );
hIcon = (HICON)::LoadImage( AfxFindResourceHandle( "IDR_NETHELP_ICON", RT_GROUP_ICON ), "IDR_NETHELP_ICON", IMAGE_ICON,
GetSystemMetrics( SM_CXSMICON ), GetSystemMetrics( SM_CYSMICON ), LR_SHARED );
pFrame->SetIcon( hIcon, FALSE );
}
}
#endif // _WIN32
// Pay special attention to the chrome attributes specified, if specified.
// If they aren't, attempt to use attributes from the old context passed in.
if(pChrome != NULL && pCX->IsFrameContext() == TRUE) {
CWinCX *pWinCX = VOID2CX(pCX, CWinCX);
LPCHROME pIChrome = pWinCX->GetFrame()->GetChrome();
if(pIChrome) {
// Url bar and directory buttons.
// make it so that we don't save toolbar information
pIChrome->SetSaveToolbarInfo(FALSE);
pIChrome->ShowToolbar(ID_LOCATION_TOOLBAR, pChrome->show_url_bar);
pIChrome->ShowToolbar(ID_PERSONAL_TOOLBAR, pChrome->show_directory_buttons);
pIChrome->ShowToolbar(ID_NAVIGATION_TOOLBAR, pChrome->show_button_bar);
// Status bar!
LPNSSTATUSBAR pIStatusBar = NULL;
pIChrome->QueryInterface( IID_INSStatusBar, (LPVOID *) &pIStatusBar );
if ( pIStatusBar ) {
pIStatusBar->Show( pChrome->show_bottom_status_bar );
pIStatusBar->Release();
}
}
// Show the menu?
if(pChrome->show_menu == FALSE) {
CMenu *pMenu = pWinCX->GetFrame()->GetFrameWnd()->GetMenu();
HMENU hMenu = pMenu ? pMenu->m_hMenu : NULL;
pWinCX->GetFrame()->GetFrameWnd()->SetMenu(NULL);
if( hMenu && (theApp.m_ViewTmplate->m_hMenuShared != hMenu) )
{
pMenu->DestroyMenu();
}
}
// Need to recalc.
pWinCX->GetFrame()->GetFrameWnd()->RecalcLayout();
// Size, of all things, of the viewing area only....
// Doesn't account for menu wrap or unwrap when getting smaller/bigger.
if((pChrome->outw_hint && pChrome->outh_hint) ||
(pChrome->w_hint &&pChrome->h_hint) ||
pChrome->location_is_chrome ||
pChrome->topmost || pChrome->bottommost) {
int32 lLeft=0;
int32 lTop=0;
int32 lWidth=0;
int32 lHeight=0;
CRect crFrame;
pWinCX->GetFrame()->GetFrameWnd()->GetWindowRect(crFrame);
CRect crView;
::GetWindowRect(pWinCX->GetPane(), crView);
// Acount for the view border style.
crView.InflateRect(-1 * sysInfo.m_iBorderWidth, -1 * sysInfo.m_iBorderHeight);
int32 lWAdjust = pChrome->w_hint - (int32)crView.Width();
int32 lHAdjust = pChrome->h_hint - (int32)crView.Height();
if (pChrome->outw_hint>0 && pChrome->outh_hint>0) {
lWidth = pChrome->outw_hint;
lHeight = pChrome->outh_hint;
}
else if (pChrome->w_hint>0 && pChrome->h_hint>0) {
lWidth = (int32)crFrame.Width() + lWAdjust;
lHeight = (int32)crFrame.Height() + lHAdjust;
}
else {
lWidth = (int32)crFrame.Width();
lHeight = (int32)crFrame.Height();
}
if (pChrome->location_is_chrome) {
lLeft = pChrome->l_hint;
lTop = pChrome->t_hint;
}
else {
lLeft = (int32)crFrame.left;
lTop = (int32)crFrame.top;
}
//There is a security problem where the window size buffer can be
//overridden on Win95. Using arbitrary max window size of 10000
lWidth = lWidth > 10000 ? 10000 : lWidth;
lHeight = lHeight > 10000 ? 10000 : lHeight;
if (pChrome->topmost)
pWinCX->GetFrame()->GetFrameWnd()->SetWindowPos(&CWnd::wndTopMost, CASTINT(lLeft), CASTINT(lTop), CASTINT(lWidth), CASTINT(lHeight), NULL);
else if (pChrome->bottommost)
pWinCX->GetFrame()->GetFrameWnd()->SetWindowPos(&CWnd::wndBottom, CASTINT(lLeft), CASTINT(lTop), CASTINT(lWidth), CASTINT(lHeight), NULL);
else
pWinCX->GetFrame()->GetFrameWnd()->MoveWindow(CASTINT(lLeft), CASTINT(lTop), CASTINT(lWidth), CASTINT(lHeight));
// Specific width and height information means that we should not save the sizes when closing down, regardless of context type.
pWinCX->m_bSizeIsChrome = TRUE;
}
// Set windows always on bottom.
pWinCX->SetZOrder(pChrome->z_lock, pChrome->bottommost);
// Modality.
if(pChrome->is_modal) {
// Inform the context of its special status.
pWinCX->GoModal(pOldContext);
}
// Scroll bars.
if(pChrome->show_scrollbar == FALSE) {
// Turn them off.
pWinCX->SetDynamicScrollBars(FALSE);
pWinCX->ShowScrollBars(SB_BOTH, FALSE);
pWinCX->SetAlwaysShowScrollBars(FALSE);
}
// Resize.
if(pChrome->allow_resize == FALSE) {
// Disable resize....
// This is a truly gross and unholy option.
pWinCX->EnableResize(FALSE);
}
// Hotkeys
if (pChrome->disable_commands) {
// Disable hotkeys
pWinCX->DisableHotkeys(TRUE);
}
// Close.
if(pChrome->allow_close == FALSE) {
// Disable closing....
// This is a truly gross and unholy option.
// This is reenabled in FE_DestroyContext regardless (i.e.
// can't be closed unless someone calls that API).
pWinCX->EnableClose(FALSE);
}
// Don't allow restricted target windows to be targeted
// by mail links and other functions which just grab
// the nearest Browser context.
if(pChrome->restricted_target)
pCX->GetContext()->restricted_target = TRUE;
// Close callback.
// Callback when the context is destroyed.
pWinCX->CloseCallback(pChrome->close_callback, pChrome->close_arg);
// History copy.
if(pChrome->copy_history && pOldContext != NULL) {
// Copy the old context's history.
SHIST_CopySession(pWinCX->GetContext(), pOldContext);
}
}
else if(cxType == MWContextBrowser && pCX->IsFrameContext() == TRUE) {
CWinCX *pWinCX = VOID2CX(pCX, CWinCX);
// See if the calling context is a window context, and if so, emulate its
// settings.
// Otherwise, just take what we have up....
if(pOldContext != NULL && pOldContext->type == MWContextBrowser) {
CWinCX *pOldCX = WINCX(pOldContext);
LPCHROME pIChrome = pWinCX->GetFrame()->GetChrome();
if(pIChrome) {
// Directory buttons, location box and all
// make it so that we don't save toolbar information
pIChrome->SetSaveToolbarInfo(FALSE);
pIChrome->SetToolbarStyle( theApp.m_pToolbarStyle );
pIChrome->ShowToolbar( ID_LOCATION_TOOLBAR, pOldCX->GetFrame()->m_bLocationBar );
pIChrome->ShowToolbar(ID_PERSONAL_TOOLBAR, pOldCX->GetFrame()->m_bStarter);
pIChrome->ShowToolbar(ID_NAVIGATION_TOOLBAR, pOldCX->GetFrame()->m_bShowToolbar);
}
}
}
// If a URL struct was passed in, load it as the last thing to do.
if(pUrl != NULL) {
int iFormatOut = FO_CACHE_AND_PRESENT;
switch(cxType) {
case MWContextBrowser:
case MWContextDialog:
iFormatOut = FO_CACHE_AND_PRESENT;
break;
default:
// May be a different format out depending on context type.
// Please set as appropriate!
ASSERT(0);
break;
}
pCX->GetUrl(pUrl, iFormatOut);
}
// If we hid the window earlier due to sizing information, time to make it come back.
if(pCX->IsFrameContext() == TRUE && !bMakeVisible) {
VOID2CX(pCX, CWinCX)->GetFrame()->GetFrameWnd()->ShowWindow(SW_SHOW);
}
// Return the XP context.
return(pCX->GetContext());
}
// Update current chrome in a context.
void FE_UpdateChrome(MWContext *pContext, Chrome *pChrome)
{
TRACE("FE_UpdateChrome(%p, %p)\n", pContext, pChrome);
// API fulfillments.
if(!pContext || !pChrome || !ABSTRACTCX(pContext) || !ABSTRACTCX(pContext)->IsFrameContext()) {
return;
}
CWinCX *pWinCX = WINCX(pContext);
if(!pWinCX->GetPane() || !pWinCX->GetFrame() || !pWinCX->GetFrame()->GetFrameWnd()) {
// Context isn't anatomically correct.
return;
}
LPCHROME pIChrome = pWinCX->GetFrame()->GetChrome();
if(pIChrome) {
// Url bar and directory buttons.
pIChrome->SetSaveToolbarInfo(FALSE);
pIChrome->ShowToolbar(ID_LOCATION_TOOLBAR, pChrome->show_url_bar );
pIChrome->ShowToolbar(ID_PERSONAL_TOOLBAR, pChrome->show_directory_buttons );
pIChrome->ShowToolbar(ID_NAVIGATION_TOOLBAR, pChrome->show_button_bar);
// Status bar!
LPNSSTATUSBAR pIStatusBar = NULL;
pIChrome->QueryInterface( IID_INSStatusBar, (LPVOID *) &pIStatusBar );
if ( pIStatusBar ) {
pIStatusBar->Show( pChrome->show_bottom_status_bar );
pIStatusBar->Release();
}
}
// Show the menu?
if(pChrome->show_menu == FALSE) {
CMenu *pMenu = pWinCX->GetFrame()->GetFrameWnd()->GetMenu();
HMENU hMenu = pMenu ? pMenu->m_hMenu : NULL;
pWinCX->GetFrame()->GetFrameWnd()->SetMenu(NULL);
if( hMenu && (theApp.m_ViewTmplate->m_hMenuShared != hMenu) )
{
pMenu->DestroyMenu();
}
}
else {
// Get the menu back out of the template.
CMenu *pMenu = pWinCX->GetFrame()->GetFrameWnd()->GetMenu();
HMENU hMenu = pMenu ? pMenu->m_hMenu : NULL;
::SetMenu(pWinCX->GetFrame()->GetFrameWnd()->GetSafeHwnd(), theApp.m_ViewTmplate->m_hMenuShared);
if( hMenu && (theApp.m_ViewTmplate->m_hMenuShared != hMenu) )
{
pMenu->DestroyMenu();
}
}
// Need to recalc.
pWinCX->GetFrame()->GetFrameWnd()->RecalcLayout();
// Size, of all things, of the viewing area only....
// Doesn't account for menu wrap or unwrap when getting smaller/bigger.
if((pChrome->outw_hint && pChrome->outh_hint) ||
(pChrome->w_hint &&pChrome->h_hint) ||
pChrome->location_is_chrome ||
pChrome->topmost || pChrome->bottommost) {
int32 lLeft=0;
int32 lTop=0;
int32 lWidth=0;
int32 lHeight=0;
CRect crFrame;
pWinCX->GetFrame()->GetFrameWnd()->GetWindowRect(crFrame);
CRect crView;
::GetWindowRect(pWinCX->GetPane(), crView);
// Acount for the view border style.
crView.InflateRect(-1 * sysInfo.m_iBorderWidth, -1 * sysInfo.m_iBorderHeight);
int32 lWAdjust = pChrome->w_hint - (int32)crView.Width();
int32 lHAdjust = pChrome->h_hint - (int32)crView.Height();
if (pChrome->outw_hint>0 && pChrome->outh_hint>0) {
lWidth = pChrome->outw_hint;
lHeight = pChrome->outh_hint;
}
else if (pChrome->w_hint>0 && pChrome->h_hint>0) {
lWidth = (int32)crFrame.Width() + lWAdjust;
lHeight = (int32)crFrame.Height() + lHAdjust;
}
else {
lWidth = (int32)crFrame.Width();
lHeight = (int32)crFrame.Height();
}
if (pChrome->location_is_chrome) {
lLeft = pChrome->l_hint;
lTop = pChrome->t_hint;
}
else {
lLeft = (int32)crFrame.left;
lTop = (int32)crFrame.top;
}
//There is a security problem where the window size buffer can be
//overridden on Win95. Using arbitrary max window size of 10000
lWidth = lWidth > 10000 ? 10000 : lWidth;
lHeight = lHeight > 10000 ? 10000 : lHeight;
if (pChrome->topmost)
pWinCX->GetFrame()->GetFrameWnd()->SetWindowPos(&CWnd::wndTopMost, CASTINT(lLeft), CASTINT(lTop), CASTINT(lWidth), CASTINT(lHeight), NULL);
else if (pChrome->bottommost)
pWinCX->GetFrame()->GetFrameWnd()->SetWindowPos(&CWnd::wndBottom, CASTINT(lLeft), CASTINT(lTop), CASTINT(lWidth), CASTINT(lHeight), NULL);
else
pWinCX->GetFrame()->GetFrameWnd()->MoveWindow(CASTINT(lLeft), CASTINT(lTop), CASTINT(lWidth), CASTINT(lHeight));
// Specific width and height information means that we should not save the sizes when closing down, regardless of context type.
pWinCX->m_bSizeIsChrome = TRUE;
}
// Set windows always on bottom.
pWinCX->SetZOrder(pChrome->z_lock, pChrome->bottommost);
// Hotkeys
pWinCX->DisableHotkeys(pChrome->disable_commands);
// Scroll bars.
if(pChrome->show_scrollbar == FALSE) {
// Turn them off.
pWinCX->SetDynamicScrollBars(FALSE);
pWinCX->ShowScrollBars(SB_BOTH, FALSE);
pWinCX->SetAlwaysShowScrollBars(FALSE);
}
else {
pWinCX->SetDynamicScrollBars(TRUE);
pWinCX->RealizeScrollBars();
}
// Resize.
// This is a truly gross and unholy option.
pWinCX->EnableResize(pChrome->allow_resize);
// Close.
// This is a truly gross and unholy option.
// This is reenabled in FE_DestroyContext regardless (i.e.
// can't be closed unless someone calls that API).
// This also sets the closing attributes of all child contexts.
pWinCX->EnableClose(pChrome->allow_close);
// Close callback.
// Callback when the context is destroyed.
pWinCX->CloseCallback(pChrome->close_callback, pChrome->close_arg);
// We don't handle modality, as there is no parent context passed in.
}
// Query current chrome in a context.
void FE_QueryChrome(MWContext *pContext, Chrome *pChrome)
{
TRACE("FE_QueryChrome(%p, %p)\n", pContext, pChrome);
// API fulfillments.
if(!pContext || !pChrome || !ABSTRACTCX(pContext) || !ABSTRACTCX(pContext)->IsFrameContext()) {
return;
}
CWinCX *pWinCX = WINCX(pContext);
if(!pWinCX->GetPane() || !pWinCX->GetDocument() || !pWinCX->GetFrame() || !pWinCX->GetFrame()->GetFrameWnd()) {
// Context isn't anatomically correct.
return;
}
// Clear the chrome struct, we'll refill in the relevant parts.
memset((void *)pChrome, 0, sizeof(Chrome));
LPCHROME pIChrome = pWinCX->GetFrame()->GetChrome();
if(pIChrome) {
// Toolbar on or off?
pChrome->show_button_bar = pIChrome->GetToolbarVisible(ID_NAVIGATION_TOOLBAR);
// Url bar and directory buttons.
pChrome->show_url_bar = pIChrome->GetToolbarVisible(ID_LOCATION_TOOLBAR);
pChrome->show_directory_buttons = pIChrome->GetToolbarVisible(ID_PERSONAL_TOOLBAR);
HG28762
// Status bar!
LPNSSTATUSBAR pIStatusBar = NULL;
pIChrome->QueryInterface( IID_INSStatusBar, (LPVOID *) &pIStatusBar );
if ( pIStatusBar ) {
HWND hWnd = pIStatusBar->GetHWnd();
pIStatusBar->Release();
pChrome->show_bottom_status_bar = IsWindowVisible( hWnd );
}
}
// Show the menu?
pChrome->show_menu = pWinCX->GetFrame()->GetFrameWnd()->GetMenu() == NULL ? FALSE : TRUE;
// Size, of all things, of the viewing area only....
// Acount for the view border style, too.
CRect crView;
::GetWindowRect(pWinCX->GetPane(), crView);
CRect crFrame;
pWinCX->GetFrame()->GetFrameWnd()->GetWindowRect(crFrame);
crView.InflateRect(-1 * sysInfo.m_iBorderWidth, -1 * sysInfo.m_iBorderHeight);
pChrome->outw_hint = (int32)crFrame.Width();
pChrome->outh_hint = (int32)crFrame.Height();
pChrome->w_hint = (int32)crView.Width();
pChrome->h_hint = (int32)crView.Height();
pChrome->l_hint = (int32)crFrame.left;
pChrome->t_hint = (int32)crFrame.top;
//Set to make sure the coords given are used.
pChrome->location_is_chrome= TRUE;
// Scroll bars.
pChrome->show_scrollbar = pWinCX->DynamicScrollBars();
// Resize.
// This is a truly gross and unholy option.
pChrome->allow_resize = ((CGenericFrame *)pWinCX->GetFrame()->GetFrameWnd())->CanResize();
// Hotkeys.
pChrome->disable_commands = ((CGenericFrame *)pWinCX->GetFrame()->GetFrameWnd())->HotkeysDisabled();
// ZLocked.
pChrome->z_lock = ((CGenericFrame *)pWinCX->GetFrame()->GetFrameWnd())->IsZOrderLocked();
// Bottommost.
pChrome->bottommost = ((CGenericFrame *)pWinCX->GetFrame()->GetFrameWnd())->IsBottommost();
// Close.
// This is a truly gross and unholy option.
// This will only report if the current context and its children can close, not if
// the actual frame can close if this context has a parent.
pChrome->allow_close = pWinCX->GetDocument()->CanClose();
// Close callback is not handled correctly, as there may be multiples.
// We don't handle modality, as there is no parent context passed in to check against.
}
// Destroy a window/context.
void FE_DestroyWindow(MWContext *pContext)
{
TRACE("FE_DestroyWindow(%p)\n", pContext);
ASSERT(pContext);
if(pContext != NULL) {
// Make sure that this is a CWinCX.
ASSERT(ABSTRACTCX(pContext)->IsFrameContext());
if(ABSTRACTCX(pContext)->IsWindowContext()) {
CWinCX *pCX = WINCX(pContext);
// Make sure there's a frame to close.
if(pCX->GetFrame()->GetFrameWnd()) {
// Reenable closing.
pCX->EnableClose(TRUE);
// Send it a close message.
pCX->GetFrame()->GetFrameWnd()->SendMessage(WM_CLOSE);
}
}
}
}
// Fill in left top position of frame.
// Breaks down on the minimized maximized scenario.
void FE_GetWindowPosition(MWContext *pContext, int32 *pX, int32 *pY)
{
TRACE("FE_GetWindowPosition(%p, %p, %p)\n", pContext, pX, pY);
// Initialize.
if(pX) {
*pX = 0;
}
if(pY) {
*pY = 0;
}
if(pContext && ABSTRACTCX(pContext) && ABSTRACTCX(pContext)->IsFrameContext() && (pX || pY)) {
// Make sure there's a frame.
CWinCX *pCX = WINCX(pContext);
if(pCX->GetFrame() && pCX->GetFrame()->GetFrameWnd()) {
CRect cr;
pCX->GetFrame()->GetFrameWnd()->GetWindowRect(cr);
if(pX) {
*pX = cr.left;
}
if(pY) {
*pY = cr.top;
}
}
}
}
// Set left top position of frame.
// Breaks down on the minimized maximized scenario.
void FE_SetWindowPosition(MWContext *pContext, int32 lX, int32 lY)
{
TRACE("FE_SetWindowPosition(%p, %ld, %ld)\n", pContext, lX, lY);
if(pContext && ABSTRACTCX(pContext) &&
ABSTRACTCX(pContext)->IsFrameContext()) {
// Make sure there's a frame.
CWinCX *pCX = WINCX(pContext);
if(pCX->GetFrame() && pCX->GetFrame()->GetFrameWnd()) {
pCX->GetFrame()->GetFrameWnd()->SetWindowPos(NULL, CASTINT(lX),
CASTINT(lY), 0, 0, SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER);
}
}
}
// Return screen dimensions.
void FE_GetScreenSize(MWContext *pContext, int32 *pX, int32 *pY)
{
// Initialize
if(pX) {
*pX = sysInfo.m_iScreenWidth;
}
if(pY) {
*pY = sysInfo.m_iScreenHeight;
}
}
// Return available screen rectangle.
void FE_GetAvailScreenRect(MWContext *pContext, int32 *pX, int32 *pY,
int32 *pLeft, int32 *pTop)
{
RECT *pRect = NULL;
#ifdef WIN32
APPBARDATA abd;
UINT state;
XP_BZERO(&abd, sizeof abd);
abd.cbSize = sizeof(abd);
abd.hWnd = NULL;
state = SHAppBarMessage(ABM_GETSTATE, &abd);
if ((state & ABS_ALWAYSONTOP) && !(state & ABS_AUTOHIDE))
if (!SHAppBarMessage(ABM_GETTASKBARPOS, &abd))
ASSERT(0);
pRect = &abd.rc;
#endif
// Initialize
if(pX) {
*pX = sysInfo.m_iScreenWidth;
if (pRect != NULL) {
if (pRect->top < 0 && pRect->bottom > sysInfo.m_iScreenHeight) {
//Docked left
if (pRect->left < 0)
*pX -= pRect->right;
//Docked right
if (pRect->right > sysInfo.m_iScreenWidth)
*pX = pRect->left;
}
}
}
if(pY) {
*pY = sysInfo.m_iScreenHeight;
if (pRect != NULL) {
if (pRect->left < 0 && pRect->right > sysInfo.m_iScreenWidth) {
//Docked top
if (pRect->top < 0);
*pY -= pRect->bottom;
//Docked bottom
if (pRect->bottom > sysInfo.m_iScreenHeight)
*pY = pRect->top;
}
}
}
if(pLeft) {
*pLeft = 0;
if (pRect != NULL) {
if (pRect->top < 0 && pRect->left < 0) {
//Docked left
if (pRect->bottom > sysInfo.m_iScreenHeight)
*pLeft = pRect->right;
}
}
}
if(pTop) {
*pTop = 0;
if (pRect != NULL) {
if (pRect->top < 0 && pRect->left < 0) {
//Docked top
if (pRect->right > sysInfo.m_iScreenWidth)
*pTop = pRect->bottom;
}
}
}
}
// Return color depth.
void FE_GetPixelAndColorDepth(MWContext *pContext, int32 *pixel, int32 *pallette)
{
TRACE("FE_GetPixelAndColorDepth(%p, %p)\n", pixel, pallette);
*pixel = *pallette = 0;
if(ABSTRACTCX(pContext)->IsDestroyed() == FALSE) {
CWinCX *pWinCX = WINCX(pContext);
HDC pDC = pWinCX->GetContextDC();
// Figure out the depth of the CDC.
*pixel = ::GetDeviceCaps(pDC, BITSPIXEL);
// Check for pallette existence
if ((::GetDeviceCaps(pDC, RASTERCAPS) & RC_PALETTE) != 0)
*pallette = ::GetDeviceCaps(pDC, COLORRES);
else
*pallette = *pixel;
pWinCX->ReleaseContextDC(pDC);
}
}
BOOL GetIntelCPUSpeed(int32 &processorSpeed );
BOOL GetIntelCPUInfoViaCPUID(char *systemArchitecture,
int32 &processorType, int32 &processorFamily,
int32 &processorModel, int32 &processorStepping, int32 &processorFeatures,
CString &vendor);
#ifndef _WIN32
unsigned short GetBaseMemC();
unsigned short GetExpMemC();
#endif
CString csUNKNOWN = "Unknown";
CString csINTEL = "Intel";
CString csMIPS = "Mips";
CString csALPHA = "Alpha";
CString csPPC = "PowerPC";
CString csARCHITECTURE = "ARCHITECTURE";
CString csFAMILY = "FAMILY";
CString csMODEL = "MODEL";
CString csSTEPPING = "STEPPING";
CString csTYPE = "TYPE";
CString csFEATURES = "FEATURES";
CString csPASS = "PASS";
CString csREVISION = "REVISION";
CString csVERSION = "VERSION";
CString csVENDOR = "VENDOR";
// VARIABLE STRUCTURE DEFINITIONS //////////////////////////////
struct FREQ_INFO
{
unsigned long in_cycles; // Internal clock cycles during
// test
unsigned long ex_ticks; // Microseconds elapsed during
// test
unsigned long raw_freq; // Raw frequency of CPU in MHz
unsigned long norm_freq; // Normalized frequency of CPU
// in MHz.
};
struct FREQ_INFO cpuspeed(int clocks);
// Function Prototypes /////////////////////////////////////////
/***************************************************************
* WORD wincpuidsupport()
* =================================
* Wincpuidsupport() tells the caller whether the host processor
* supports the CPUID opcode or not.
*
* Inputs: none
*
* Returns:
* 1 = CPUID opcode is supported
* 0 = CPUID opcode is not supported
***************************************************************/
WORD wincpuidsupport();
/***************************************************************
* WORD wincpuid()
* ===============
* This routine uses the standard Intel assembly code to
* determine what type of processor is in the computer, as
* described in application note AP-485 (Intel Order #241618).
* Wincpuid() returns the CPU type as an integer (that is,
* 2 bytes, a WORD) in the AX register.
*
* Returns:
* 0 = 8086/88
* 2 = 80286
* 3 = 80386
* 4 = 80486
* 5 = Pentium(R) Processor
* 6 = PentiumPro(R) Processor
* 7 or higher = Processor beyond the PentiumPro6(R) Processor
*
* Note: This function also sets the global variable clone_flag
***************************************************************/
WORD wincpuid();
/***************************************************************
* WORD wincpuidext()
* ==================
* Similar to wincpuid(), but returns more data, in the order
* reflecting the actual output of a CPUID instruction execution:
*
* Returns:
* AX(15:14) = Reserved (mask these off in the calling code
* before using)
* AX(13:12) = Processor type (00=Standard OEM CPU, 01=OverDrive,
* 10=Dual CPU, 11=Reserved)
* AX(11:8) = CPU Family (the same 4-bit quantity as wincpuid())
* AX(7:4) = CPU Model, if the processor supports the CPUID
* opcode; zero otherwise
* AX(3:0) = Stepping #, if the processor supports the CPUID
* opcode; zero otherwise
*
* Note: This function also sets the global variable clone_flag
***************************************************************/
WORD wincpuidext(CString &vendorName);
/***************************************************************
* DWORD wincpufeatures()
* ======================
* Wincpufeatures() returns the CPU features flags as a DWORD
* (that is, 32 bits).
*
* Inputs: none
*
* Returns:
* 0 = Processor which does not execute the CPUID instruction.
* This includes 8086, 8088, 80286, 80386, and some
* older 80486 processors.
*
* Else
* Feature Flags (refer to App Note AP-485 for description).
* This DWORD was put into EDX by the CPUID instruction.
*
* Current flag assignment is as follows:
*
* bit31..10 reserved (=0)
* bit9=1 CPU contains a local APIC (iPentium-3V)
* bit8=1 CMPXCHG8B instruction supported
* bit7=1 machine check exception supported
* bit6=0 reserved (36bit-addressing & 2MB-paging)
* bit5=1 iPentium-style MSRs supported
* bit4=1 time stamp counter TSC supported
* bit3=1 page size extensions supported
* bit2=1 I/O breakpoints supported
* bit1=1 enhanced virtual 8086 mode supported
* bit0=1 CPU contains a floating-point unit (FPU)
*
* Note: New bits will be assigned on future processors... see
* processor data books for updated information
*
* Note: This function also sets the global variable clone_flag
***************************************************************/
DWORD wincpufeatures(CString &vendorName);
#ifndef _WIN32
unsigned short GetBaseMemC()
{
// get memory below 1-MB boundary
// using run-time library functions
unsigned short base;
outp( 0x70, 0x15 );
base = inp( 0x71 ); //retrieve low byte
outp( 0x70, 0x16 );
base += inp(0x71) << 8; //retieve high byte,
//shift and add to base
return base; // return K's of base memory
}
unsigned short GetExpMemC()
{
// get memory above 1-MB boundary
// using run-time library functions
unsigned short extend;
outp( 0x70, 0x17 );
base = inp( 0x71 ); //retrieve low byte
outp( 0x70, 0x18 );
base += inp(0x71) << 8; //retieve high byte,
//shift and add to extend
return extend; // return K's of expansion memory
}
#endif
int32 FE_SystemRAM( void )
{
int32 systemRAM = -1;
#ifdef _WIN32
MEMORYSTATUS MemoryStatus;
memset( &MemoryStatus, 0, sizeof(MEMORYSTATUS));
MemoryStatus.dwLength = sizeof(MEMORYSTATUS);
GlobalMemoryStatus( &MemoryStatus );
//return physical memory size in K
systemRAM = MemoryStatus.dwTotalPhys / 1024 ;
#else
//return physical memory size in K
int32 expansionMem = GetExpMemC();
int32 baseMem = GetBaseMemC();
systemRAM = expansionMem + baseMem;
#endif
return systemRAM;
}
int32 FE_SystemClockSpeed( void )
{
int32 clockSpeed = -1;
#ifdef _WIN32
OSVERSIONINFO OSVersionInfo;
memset( &OSVersionInfo, 0, sizeof(OSVERSIONINFO));
OSVersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
if(GetVersionEx( &OSVersionInfo ))
{
if(OSVersionInfo.dwPlatformId == VER_PLATFORM_WIN32_NT ||
OSVersionInfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS) //Windows 9x
{
SYSTEM_INFO SystemInfo;
GetSystemInfo( &SystemInfo );
if( SystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_INTEL )
{
if(!GetIntelCPUSpeed(clockSpeed))
clockSpeed = -1;
}
else
if( SystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_ALPHA )
{
return -1;
}
else
if( SystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_MIPS )
{
return -1;
}
else
if( SystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_PPC )
{
return -1;
}
else
if( SystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_UNKNOWN )
return -1;
else
{
ASSERT(FALSE);
return -1;
}
}
else //if Win32s we must be running on Win3.x so Intel architecture
if( OSVersionInfo.dwPlatformId == VER_PLATFORM_WIN32s )
{
if(!GetIntelCPUSpeed(clockSpeed))
clockSpeed = -1;
}
else
{
ASSERT(FALSE);
return -1;
}
}
#else
if(!GetIntelCPUSpeed(clockSpeed))
clockSpeed = -1;
#endif
return clockSpeed;
}
BOOL GetIntelCPUSpeed(int32 &processorSpeed )
{
BOOL bRet = FALSE;
// VARIABLE STRUCTURE DEFINITIONS //////////////////////////////
struct FREQ_INFO cpu_speed; // Return variable
// structure for
// cpuspeed
// routine
cpu_speed = cpuspeed(0);
if ( cpu_speed.in_cycles == 0 && cpu_speed.ex_ticks == 0 )
{
/*
sprintf(buf,
"This processor cannot be accurately "
"timed with this program.\n The "
"processor could be"
"below 80386 level.");
MessageBox(NULL,buf,"error", MB_ICONINFORMATION );
*/
bRet = FALSE;
}
else
{
/*
sprintf(buf,
"Clock Cycles: %lu cycles\n"
"Elapsed Time: %luus\n"
"Raw Clock Frequency: %luMHz\n"
"Normalized Frequency: %luMHz",
cpu_speed.in_cycles,
cpu_speed.ex_ticks,
cpu_speed.raw_freq,
cpu_speed.norm_freq);
MessageBox(NULL,buf,"32-bit cpuspeed",
MB_ICONINFORMATION );
*/
processorSpeed = cpu_speed.norm_freq;
bRet = TRUE;
}
return bRet;
}
BOOL GetIntelCPUInfoViaCPUID(CString &systemArchitecture,
int32 &processorType, int32 &processorFamily,
int32 &processorModel, int32 &processorStepping, int32 &processorFeatures,
CString &vendor)
{
//Intel Only!!!
systemArchitecture = csINTEL;
int32 processorExtensions = 0;
processorExtensions = wincpuidext(vendor);
processorStepping = processorExtensions & 0x0f;
processorModel = (processorExtensions & 0x0f0) >> 4;
processorFamily = (processorExtensions & 0x0f00) >> 8;
processorType = (processorExtensions & 0x03000) >> 12;
processorFeatures = wincpufeatures(vendor);
return TRUE;
}
char *CreateNonIntelCPUInfoString(CString &systemArchitecture,
int32 &processorModel, int32 &processorStepping)
{
CString tmpStr;
CString CPUInfoString;
ASSERT( !systemArchitecture.IsEmpty() );
if( !systemArchitecture.IsEmpty() )
{
CPUInfoString = csARCHITECTURE + "=";
CPUInfoString += systemArchitecture;
}
if( systemArchitecture == csALPHA )
{
if( processorModel > -1 )
{
if( !CPUInfoString.IsEmpty() )
CPUInfoString += ";";
CPUInfoString += csMODEL + "=A";
tmpStr.Format("%.2X", processorModel );
CPUInfoString += tmpStr;
}
if( processorStepping > -1 )
{
if( !CPUInfoString.IsEmpty() )
CPUInfoString += ";";
CPUInfoString += csPASS + "=";
tmpStr.Format("%.2X", processorStepping);
CPUInfoString += tmpStr;
}
}
else
if( systemArchitecture == csMIPS )
{
if( processorModel > -1 )
{
if( !CPUInfoString.IsEmpty() )
CPUInfoString += ";";
CPUInfoString += csREVISION + "=";
tmpStr.Format("%.2X", processorModel);
CPUInfoString += tmpStr;
}
}
else
if( systemArchitecture == csPPC )
{
if( processorModel > -1 )
{
if( !CPUInfoString.IsEmpty() )
CPUInfoString += ";";
CPUInfoString += csVERSION + "=";
tmpStr.Format("%.2X", processorModel);
CPUInfoString += tmpStr;
}
if( processorStepping > -1 )
{
CPUInfoString += ".";
tmpStr.Format("%.2X", processorStepping);
CPUInfoString += tmpStr;
}
}
char * pstr = NULL;
int len = CPUInfoString.GetLength();
if(len > 0 )
{
pstr = new char[ len + 1];
if( pstr != NULL )
strcpy( pstr, CPUInfoString );
}
return pstr;
}
char *CreateIntelCPUInfoString(CString &systemArchitecture,
int32 processorType, int32 processorFamily,
int32 processorModel, int32 processorStepping, int32 processorFeatures,
CString &vendor)
{
CString tmpStr;
CString CPUInfoString;
ASSERT( !systemArchitecture.IsEmpty() );
if( !systemArchitecture.IsEmpty() )
{
CPUInfoString = csARCHITECTURE + "=";
CPUInfoString += systemArchitecture;
}
if( processorType > -1 )
{
if( !CPUInfoString.IsEmpty() )
CPUInfoString += ";";
CPUInfoString += csTYPE + "=";
tmpStr.Format("%d", processorType);
CPUInfoString += tmpStr;
}
if( processorFamily > -1 )
{
if( !CPUInfoString.IsEmpty() )
CPUInfoString += ";";
CPUInfoString += csFAMILY + "=";
tmpStr.Format("%d", processorFamily);
CPUInfoString += tmpStr;
}
if( processorModel > -1 )
{
if( !CPUInfoString.IsEmpty() )
CPUInfoString += ";";
CPUInfoString += csMODEL + "=";
tmpStr.Format("%d", processorModel);
CPUInfoString += tmpStr;
}
if( processorStepping > -1 )
{
if( !CPUInfoString.IsEmpty() )
CPUInfoString += ";";
CPUInfoString += csSTEPPING + "=";
tmpStr.Format("%d", processorStepping);
CPUInfoString += tmpStr;
}
if( processorFeatures > -1 )
{
if( !CPUInfoString.IsEmpty() )
CPUInfoString += ";";
CPUInfoString += csFEATURES + "=";
tmpStr.Format("0x%x", processorFeatures);
CPUInfoString += tmpStr;
}
if( !CPUInfoString.IsEmpty() )
CPUInfoString += ";";
CPUInfoString += csVENDOR + "=";
if( !vendor.IsEmpty() )
CPUInfoString += vendor;
else
CPUInfoString += csUNKNOWN;
char * pstr = NULL;
int len = CPUInfoString.GetLength();
if(len > 0 )
{
pstr = new char[ len + 1];
if( pstr != NULL )
strcpy( pstr, CPUInfoString );
}
return pstr;
}
char *FE_SystemCPUInfo(void)
{
CString systemArchitecture;
int32 processorType = -1;
int32 processorFamily = -1;
int32 processorModel = -1;
int32 processorStepping = -1;
int32 processorFeatures = -1;
CString vendor;
#ifdef _WIN32
OSVERSIONINFO OSVersionInfo;
memset( &OSVersionInfo, 0, sizeof(OSVERSIONINFO));
OSVersionInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
if(GetVersionEx( &OSVersionInfo ))
{
//if Win32s is the platform
if( OSVersionInfo.dwPlatformId == VER_PLATFORM_WIN32s )
{
if(GetIntelCPUInfoViaCPUID(systemArchitecture,
processorType, processorFamily, processorModel,
processorStepping, processorFeatures, vendor ))
return CreateIntelCPUInfoString(systemArchitecture,
processorType, processorFamily, processorModel,
processorStepping, processorFeatures, vendor );
else
return NULL;
}
else
if(OSVersionInfo.dwPlatformId == VER_PLATFORM_WIN32_NT ||
OSVersionInfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS) //Windows 9x
{
SYSTEM_INFO SystemInfo;
GetSystemInfo( &SystemInfo );
processorFamily = SystemInfo.wProcessorLevel;
if( SystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_INTEL )
{
if(OSVersionInfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS )
{ //Windows 9x
if(GetIntelCPUInfoViaCPUID(systemArchitecture,
processorType, processorFamily, processorModel,
processorStepping, processorFeatures, vendor ))
return CreateIntelCPUInfoString(systemArchitecture,
processorType, processorFamily, processorModel,
processorStepping, processorFeatures, vendor );
else
return NULL;
}
else //Windows NT on Intel
{
//Might as well use CPUID; it provides a little more information
if(GetIntelCPUInfoViaCPUID(systemArchitecture,
processorType, processorFamily, processorModel,
processorStepping, processorFeatures, vendor ))
return CreateIntelCPUInfoString(systemArchitecture,
processorType, processorFamily, processorModel,
processorStepping, processorFeatures, vendor );
else
return NULL;
// strcpy(systemArchitecture, INTEL);
// if( SystemInfo.dwProcessorType == PROCESSOR_INTEL_386 ||
// SystemInfo.dwProcessorType == PROCESSOR_INTEL_486 )
// {
// //wProcessor type of form xxyz; if xx != 0xFF
// if( ((SystemInfo.wProcessorRevision >> 8) & 0xff ) != 0xff )
// {
// //then xx + 'A' is the stepping letter
// processorStepping = ((SystemInfo.wProcessorRevision >> 8) & 0xff) + 'A';
// //this is actually the minor stepping
// processorModel = (SystemInfo.wProcessorRevision & 0x0ff);
// }
// else
// if( ((SystemInfo.wProcessorRevision >> 8) & 0xff ) == 0xff )
// {
// processorModel = (SystemInfo.wProcessorRevision & 0x0f0) >> 4;
// processorStepping = (SystemInfo.wProcessorRevision & 0x0f);
// }
// }
// else //processor must be > x486
// {
// processorModel = (SystemInfo.wProcessorRevision & 0x0ff00) >> 8;
// processorStepping = (SystemInfo.wProcessorRevision & 0x0ff);
// }
}
}
else
if( SystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_ALPHA )
{
systemArchitecture = csALPHA;
processorModel = (SystemInfo.wProcessorRevision & 0x0ff00) >> 8;
//"Pass" on Alpha; display as "Model 'A'+xx, Pass yy"
processorStepping = (SystemInfo.wProcessorRevision & 0x0ff);
return CreateNonIntelCPUInfoString(systemArchitecture,
processorModel, processorStepping);
}
else
if( SystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_MIPS )
{
systemArchitecture = csMIPS;
//"Revision Number" on MIPS
processorModel = (SystemInfo.wProcessorRevision & 0x0ff);
return CreateNonIntelCPUInfoString(systemArchitecture,
processorModel, processorStepping);
}
else
if( SystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_PPC )
{
systemArchitecture = csPPC;
//display as xx.yy on PPC
processorModel = (SystemInfo.wProcessorRevision & 0x0ff00) >> 8;
processorStepping = (SystemInfo.wProcessorRevision & 0x0ff);
return CreateNonIntelCPUInfoString(systemArchitecture,
processorModel, processorStepping);
}
else
if( SystemInfo.wProcessorArchitecture == PROCESSOR_ARCHITECTURE_UNKNOWN )
{
systemArchitecture = csUNKNOWN;
return CreateNonIntelCPUInfoString(systemArchitecture,
processorModel, processorStepping);
}
else
{
ASSERT(FALSE);
systemArchitecture = csUNKNOWN;
return CreateNonIntelCPUInfoString(systemArchitecture,
processorModel, processorStepping);
}
}
ASSERT(FALSE); //Unknown operating system
}
return NULL;
#else //WIN16
if(GetIntelCPUInfoViaCPUID(systemArchitecture, processorType,
processorFamily, processorModel, processorStepping,
processorFeatures, vendor ))
return CreateIntelCPUInfoString(systemArchitecture,
processorType, processorFamily, processorModel,
processorStepping, processorFeatures, vendor );
else
return NULL;
#endif
}
// CONSTANT DEFINITIONS ////////////////////////////////////////
#define CLONE_MASK 0x8000 // Mask to be 'OR'ed with proc-
#define MAXCLOCKS 150 // Maximum number of cycles per
// BSF instruction
// ACCURACY AFFECTING CONSTANTS ////////////////////////////
#define ITERATIONS 4000 // Number of times to repeat BSF
// instruction in samplings.
// Initially set to 4000.
#define MAX_TRIES 20 // Maximum number of samplings
// to allow before giving up
// and returning current
// average. Initially set to
// 20.
#define TOLERANCE 1 // Number of MHz to allow
// samplings to deviate from
// average of samplings.
// Initially set to 2.
#define SAMPLINGS 10 // Number of BSF sequence
// samplings to make.
// Initially set to 10.
typedef unsigned short ushort;
typedef unsigned long ulong;
// Global Variable /////////////////////////////////////////////
int clone_flag; // Flag to show whether processor
// is non-Intel
// OPCODE DEFINITIONS //////////////////////////////////////////
#define CPU_ID _asm _emit 0x0f _asm _emit 0xa2
// CPUID instruction
#define RDTSC _asm _emit 0x0f _asm _emit 0x31
// RDTSC instruction
// Private Function Declarations ///////////////////////////////
/***************************************************************
* static WORD check_clone()
*
* Inputs: none
*
* Returns:
* 1 if processor is clone (limited detection ability)
* 0 otherwise
***************************************************************/
static WORD check_clone();
/***************************************************************
* static WORD check_8086()
*
* Inputs: none
*
* Returns:
* 0 if processor 8086
* 0xffff otherwise
***************************************************************/
static WORD check_8086();
/***************************************************************
* static WORD check_80286()
*
* Inputs: none
*
* Returns:
* 2 if processor 80286
* 0xffff otherwise
***************************************************************/
static WORD check_80286();
/***************************************************************
* static WORD check_80386()
*
* Inputs: none
*
* Returns:
* 3 if processor 80386
* 0xffff otherwise
***************************************************************/
static WORD check_80386();
/***************************************************************
* static WORD check_IDProc()
* ==========================
* Check_IDProc() uses the CPUID opcode to find the family type
* of the host processor.
*
* Inputs: none
*
* Returns:
* CPU Family (i.e. 4 if Intel 486, 5 if Pentium(R) Processor)
*
* Note: This function also sets the global variable clone_flag
***************************************************************/
static WORD check_IDProc();
//end of prototypes //////////////////////////////////////////////
#define ROUND_THRESHOLD 6
// Tabs set at 4
static struct FREQ_INFO GetRDTSCCpuSpeed();
static struct FREQ_INFO GetBSFCpuSpeed(ulong cycles);
// Number of cycles needed to execute a single BSF instruction.
// Note that processors below i386(tm) are not supported.
static ulong processor_cycles[] = {
00, 00, 00, 115, 47, 43,
38, 38, 38, 38, 38, 38,
};
/***************************************************************
* wincpuidsupport()
*
* Inputs: none
*
* Returns:
* 1 = CPUID opcode is supported
* 0 = CPUID opcode is not supported
***************************************************************/
WORD wincpuidsupport() {
int cpuid_support = 1;
_asm {
pushfd // Get original EFLAGS
pop eax
mov ecx, eax
xor eax, 200000h // Flip ID bit in EFLAGS
push eax // Save new EFLAGS value on
// stack
popfd // Replace current EFLAGS value
pushfd // Get new EFLAGS
pop eax // Store new EFLAGS in EAX
xor eax, ecx // Can not toggle ID bit,
jnz support // Processor=80486
mov cpuid_support,0 // Clear support flag
support:
}
return cpuid_support;
} // wincpuidsupport()
/***************************************************************
* wincpuid()
*
* Inputs: none
*
* Returns:
* 0 = 8086/88
* 2 = 80286
* 3 = 80386
* 4 = 80486
* 5 = Pentium(R) Processor
* 6 = PentiumPro(R) Processor
* 7 or higher = Processor beyond the PentiumPro6(R) Processor
*
* Note: This function also sets the global variable clone_flag
***************************************************************/
WORD wincpuid() {
WORD cpuid;
if ( wincpuidsupport() ) // Determine whether CPUID
// opcode is supported
cpuid=check_IDProc();
else {
clone_flag=check_clone();
cpuid=check_8086(); // Will return FFFFh or 0
if (cpuid == 0) goto end;
cpuid=check_80286(); // Will return FFFFh or 2
if (cpuid == 2) goto end;
cpuid=check_80386(); // Will return FFFFh or 3
if (cpuid == 3) goto end; // temporarily commented out.
cpuid=4; // If the processor does not support CPUID,
// is not an 8086, 80286, or 80386, assign
// processor to be an 80486
}
end:
if (clone_flag)
cpuid = cpuid | CLONE_MASK; // Signify that a clone has been
// detected by setting MSB high
return cpuid;
} // wincpuid ()
/***************************************************************
* wincpufeatures()
*
* Inputs: none
*
* Returns:
* 0 = Processor which does not execute the CPUID instruction.
* This includes 8086, 8088, 80286, 80386, and some
* older 80486 processors.
*
* Else
* Feature Flags (refer to App Note AP-485 for description).
* This DWORD was put into EDX by the CPUID instruction.
*
* Current flag assignment is as follows:
*
* bit31..10 reserved (=0)
* bit9=1 CPU contains a local APIC (iPentium-3V)
* bit8=1 CMPXCHG8B instruction supported
* bit7=1 machine check exception supported
* bit6=0 reserved (36bit-addressing & 2MB-paging)
* bit5=1 iPentium-style MSRs supported
* bit4=1 time stamp counter TSC supported
* bit3=1 page size extensions supported
* bit2=1 I/O breakpoints supported
* bit1=1 enhanced virtual 8086 mode supported
* bit0=1 CPU contains a floating-point unit (FPU)
*
* Note: New bits will be assigned on future processors... see
* processor data books for updated information
*
* Note: This function also sets the global variable clone_flag
***************************************************************/
DWORD wincpufeatures(CString &vendorName) {
int i=0;
DWORD cpuff=0x00000000;
BYTE vendor_id[]="------------";
BYTE intel_id[]="GenuineIntel";
if ( wincpuidsupport() ) {
_asm {
xor eax, eax // Set up for CPUID instruction
CPU_ID // Get and save vendor ID
mov dword ptr vendor_id, ebx
mov dword ptr vendor_id[+4], edx
mov dword ptr vendor_id[+8], ecx
}
vendorName = vendor_id;
for (i=0;i<12;i++)
{
if (!(vendor_id[i]==intel_id[i]))
clone_flag = 1;
}
_asm {
cmp eax, 1 // Make sure 1 is valid input
// for CPUID
jl end_cpuff // If not, jump to end
xor eax, eax
inc eax
CPU_ID // Get family/model/stepping/
// features
mov cpuff, edx
end_cpuff:
mov eax, cpuff
}
}
return cpuff;
} // wincpufeatures()
/***************************************************************
* wincpuidext()
*
* Inputs: none
*
* Returns:
* AX(15:14) = Reserved (mask these off in the calling code
* before using)
* AX(13:12) = Processor type (00=Standard OEM CPU, 01=OverDrive,
* 10=Dual CPU, 11=Reserved)
* AX(11:8) = CPU Family (the same 4-bit quantity as wincpuid())
* AX(7:4) = CPU Model, if the processor supports the CPUID
* opcode; zero otherwise
* AX(3:0) = Stepping #, if the processor supports the CPUID
* opcode; zero otherwise
*
* Note: This function also sets the global variable clone_flag
***************************************************************/
WORD wincpuidext(CString &vendorName) {
int i=0;
WORD cpu_type=0x0000;
WORD cpuidext=0x0000;
BYTE vendor_id[]="------------";
BYTE intel_id[]="GenuineIntel";
if ( wincpuidsupport() ) {
_asm {
xor eax, eax // Set up for CPUID instruction
CPU_ID // Get and save vendor ID
mov dword ptr vendor_id, ebx
mov dword ptr vendor_id[+4], edx
mov dword ptr vendor_id[+8], ecx
}
vendorName = vendor_id;
for (i=0;i<12;i++)
{
if (!(vendor_id[i]==intel_id[i]))
clone_flag = 1;
}
_asm {
cmp eax, 1 // Make sure 1 is valid input
// for CPUID
jl end_cpuidext // If not, jump to end
xor eax, eax
inc eax
CPU_ID // Get family/model/stepping/
// features
mov cpuidext, ax
end_cpuidext:
mov ax, cpuidext
}
}
else {
cpu_type = wincpuid(); // If CPUID opcode is not
cpuidext = cpu_type << 8; // supported, put family
// value in extensions and
} // return
return cpuidext;
} // wincpuidext()
static struct FREQ_INFO GetBSFCpuSpeed(ulong cycles)
{
// If processor does not support time
// stamp reading, but is at least a
// 386 or above, utilize method of
// timing a loop of BSF instructions
// which take a known number of cycles
// to run on i386(tm), i486(tm), and
// Pentium(R) processors.
LARGE_INTEGER t0,t1; // Variables for High-
// Resolution Performance
// Counter reads
ulong freq =0; // Most current frequ. calculation
ulong ticks; // Microseconds elapsed
// during test
LARGE_INTEGER count_freq; // High Resolution
// Performance Counter
// frequency
int i; // Temporary Variable
ulong current = 0; // Variable to store time
// elapsed during loop of
// of BSF instructions
ulong lowest = ULONG_MAX; // Since algorithm finds
// the lowest value out of
// a set of samplings,
// this variable is set
// intially to the max
// unsigned long value).
// This guarantees that
// the initialized value
// is not later used as
// the least time through
// the loop.
struct FREQ_INFO cpu_speed;
memset(&cpu_speed, 0x00, sizeof(cpu_speed));
if ( !QueryPerformanceFrequency ( &count_freq ) )
return cpu_speed;
for ( i = 0; i < SAMPLINGS; i++ ) { // Sample Ten times. Can
// be increased or
// decreased depending
// on accuracy vs. time
// requirements
QueryPerformanceCounter(&t0); // Get start time
_asm
{
mov eax, 80000000h
mov bx, ITERATIONS
// Number of consecutive BSF
// instructions to execute.
// Set identical to
// nIterations constant in
// speed.h
loop1: bsf ecx,eax
dec bx
jnz loop1
}
QueryPerformanceCounter(&t1); // Get end time
current = (ulong) t1.LowPart - (ulong) t0.LowPart;
// Number of external ticks is
// difference between two
// hi-res counter reads.
if ( current < lowest ) // Take lowest elapsed
lowest = current; // time to account
} // for some samplings
// being interrupted
// by other operations
ticks = lowest;
// Note that some seemingly arbitrary mulitplies and
// divides are done below. This is to maintain a
// high level of precision without truncating the
// most significant data. According to what value
// ITERATIIONS is set to, these multiplies and
// divides might need to be shifted for optimal
// precision.
ticks = ticks * 100000;
// Convert ticks to hundred
// thousandths of a tick
ticks = ticks / ( count_freq.LowPart/10 );
// Hundred Thousandths of a
// Ticks / ( 10 ticks/second )
// = microseconds (us)
if ( ticks%count_freq.LowPart > count_freq.LowPart/2 )
ticks++; // Round up if necessary
freq = cycles/ticks; // Cycles / us = MHz
cpu_speed.raw_freq = freq;
if ( cycles%ticks > ticks/2 )
freq++; // Round up if necessary
cpu_speed.in_cycles = cycles; // Return variable structure
cpu_speed.ex_ticks = ticks; // determined by one of
cpu_speed.norm_freq = freq;
return cpu_speed;
}
static struct FREQ_INFO GetRDTSCCpuSpeed()
{
struct FREQ_INFO cpu_speed;
LARGE_INTEGER t0,t1; // Variables for High-
// Resolution Performance
// Counter reads
ulong freq =0; // Most current frequ. calculation
ulong freq2 =0; // 2nd most current frequ. calc.
ulong freq3 =0; // 3rd most current frequ. calc.
ulong total; // Sum of previous three frequency
// calculations
int tries=0; // Number of times a calculation has
// been made on this call to
// cpuspeed
ulong total_cycles=0, cycles; // Clock cycles elapsed
// during test
ulong stamp0, stamp1; // Time Stamp Variable
// for beginning and end
// of test
ulong total_ticks=0, ticks; // Microseconds elapsed
// during test
LARGE_INTEGER count_freq; // High Resolution
// Performance Counter
// frequency
#ifdef WIN32
int iPriority;
HANDLE hThread = GetCurrentThread();
#endif // WIN32;
memset(&cpu_speed, 0x00, sizeof(cpu_speed));
if ( !QueryPerformanceFrequency ( &count_freq ) )
return cpu_speed;
// On processors supporting the Read
// Time Stamp opcode, compare elapsed
// time on the High-Resolution Counter
// with elapsed cycles on the Time
// Stamp Register.
do { // This do loop runs up to 20 times or
// until the average of the previous
// three calculated frequencies is
// within 1 MHz of each of the
// individual calculated frequencies.
// This resampling increases the
// accuracy of the results since
// outside factors could affect this
// calculation
tries++; // Increment number of times sampled
// on this call to cpuspeed
freq3 = freq2; // Shift frequencies back to make
freq2 = freq; // room for new frequency
// measurement
QueryPerformanceCounter(&t0);
// Get high-resolution performance
// counter time
t1.LowPart = t0.LowPart; // Set Initial time
t1.HighPart = t0.HighPart;
#ifdef WIN32
iPriority = GetThreadPriority(hThread);
if ( iPriority != THREAD_PRIORITY_ERROR_RETURN )
{
SetThreadPriority(hThread, THREAD_PRIORITY_TIME_CRITICAL);
}
#endif // WIN32
while ( (ulong)t1.LowPart - (ulong)t0.LowPart<50) {
// Loop until 50 ticks have
// passed since last read of hi-
// res counter. This accounts for
// overhead later.
QueryPerformanceCounter(&t1);
RDTSC; // Read Time Stamp
_asm {
MOV stamp0, EAX
}
}
t0.LowPart = t1.LowPart; // Reset Initial
t0.HighPart = t1.HighPart; // Time
while ((ulong)t1.LowPart-(ulong)t0.LowPart<1000 ) {
// Loop until 1000 ticks have
// passed since last read of hi-
// res counter. This allows for
// elapsed time for sampling.
QueryPerformanceCounter(&t1);
RDTSC; // Read Time Stamp
__asm {
MOV stamp1, EAX
}
}
#ifdef WIN32
// Reset priority
if ( iPriority != THREAD_PRIORITY_ERROR_RETURN )
{
SetThreadPriority(hThread, iPriority);
}
#endif // WIN32
cycles = stamp1 - stamp0; // Number of internal
// clock cycles is
// difference between
// two time stamp
// readings.
ticks = (ulong) t1.LowPart - (ulong) t0.LowPart;
// Number of external ticks is
// difference between two
// hi-res counter reads.
// Note that some seemingly arbitrary multiplies and
// divides are done below. This is to maintain a
// high level of precision without truncating the
// most significant data. According to what value
// ITERATIONS is set to, these multiplies and
// divides might need to be shifted for optimal
// precision.
ticks = ticks * 100000;
// Convert ticks to hundred
// thousandths of a tick
ticks = ticks / ( count_freq.LowPart/10 );
// Hundred Thousandths of a
// Ticks / ( 10 ticks/second )
// = microseconds (us)
total_ticks += ticks;
total_cycles += cycles;
if ( ticks%count_freq.LowPart > count_freq.LowPart/2 )
ticks++; // Round up if necessary
freq = cycles/ticks; // Cycles / us = MHz
if ( cycles%ticks > ticks/2 )
freq++; // Round up if necessary
total = ( freq + freq2 + freq3 );
// Total last three frequency
// calculations
} while ( (tries < 3 ) ||
(tries < 20)&&
((abs(int(3 * freq -total)) > 3*TOLERANCE )||
(abs(int(3 * freq2-total)) > 3*TOLERANCE )||
(abs(int(3 * freq3-total)) > 3*TOLERANCE )));
// Compare last three calculations to
// average of last three calculations.
// Try one more significant digit.
freq3 = ( total_cycles * 10 ) / total_ticks;
freq2 = ( total_cycles * 100 ) / total_ticks;
if ( freq2 - (freq3 * 10) >= ROUND_THRESHOLD )
freq3++;
cpu_speed.raw_freq = total_cycles / total_ticks;
cpu_speed.norm_freq = cpu_speed.raw_freq;
freq = cpu_speed.raw_freq * 10;
if( (freq3 - freq) >= ROUND_THRESHOLD )
cpu_speed.norm_freq++;
cpu_speed.ex_ticks = total_ticks;
cpu_speed.in_cycles = total_cycles;
return cpu_speed;
}
//CPU Speed functions
/***************************************************************
* CpuSpeed() -- Return the raw clock rate of the host CPU.
*
* Inputs:
* clocks: 0: Use default value for number of cycles
* per BSF instruction.
* -1: Use CMos timer to get cpu speed.
* Positive Integer: Use clocks value for number
* of cycles per BSF instruction.
*
* Returns:
* If error then return all zeroes in FREQ_INFO structure
* Else return FREQ_INFO structure containing calculated
* clock frequency, normalized clock frequency, number of
* clock cycles during test sampling, and the number of
* microseconds elapsed during the sampling.
***************************************************************/
struct FREQ_INFO cpuspeed(int clocks)
{
ulong cycles; // Clock cycles elapsed
// during test
ushort processor = wincpuid(); // Family of processor
CString vendor;
DWORD features = wincpufeatures(vendor); // Features of Processor
int manual=0; // Specifies whether the user
// manually entered the number of
// cycles for the BSF instruction.
struct FREQ_INFO cpu_speed; // Return structure for
// cpuspeed
memset(&cpu_speed, 0x00, sizeof(cpu_speed));
// Check for manual BSF instruction clock count
if (clocks <= 0) {
cycles = ITERATIONS * processor_cycles[processor];
}
else if (0 < clocks && clocks <= MAXCLOCKS) {
cycles = ITERATIONS * clocks;
manual = 1; // Toggle manual control flag.
// Note that this mode will not
// work properly with processors
// which can process multiple
// BSF instructions at a time.
// For example, manual mode
// will not work on a
// PentiumPro(R)
}
if ( ( features&0x00000010 ) && !(manual) ) {
// On processors supporting the Read
// Time Stamp opcode, compare elapsed
// time on the High-Resolution Counter
// with elapsed cycles on the Time
// Stamp Register.
if ( clocks == 0 )
return GetRDTSCCpuSpeed();
else
return cpu_speed;
}
else if ( processor >= 3 ) {
return GetBSFCpuSpeed(cycles);
}
return cpu_speed;
} // cpuspeed()
// Internal Private Functions //////////////////////////////////
/***************************************************************
* check_clone()
*
* Inputs: none
*
* Returns:
* 1 if processor is clone (limited detection ability)
* 0 otherwise
***************************************************************/
static WORD check_clone()
{
short cpu_type=0;
_asm
{
MOV AX,5555h // Check to make sure this
XOR DX,DX // is a 32-bit processor
MOV CX,2h
DIV CX // Perform Division
CLC
JNZ no_clone
JMP clone
no_clone: STC
clone: PUSHF
POP AX // Get the flags
AND AL,1
XOR AL,1 // AL=0 is probably Intel,
// AL=1 is a Clone
MOV cpu_type, ax
}
cpu_type = cpu_type & 0x0001;
return cpu_type;
} // check_clone()
/***************************************************************
* check_8086()
*
* Inputs: none
*
* Returns:
* 0 if processor 8086
* 0xffff otherwise
***************************************************************/
static WORD check_8086()
{
WORD cpu_type=0xffff;
_asm {
pushf // Push original FLAGS
pop ax // Get original FLAGS
mov cx, ax // Save original FLAGS
and ax, 0fffh // Clear bits 12-15 in FLAGS
push ax // Save new FLAGS value on stack
popf // Replace current FLAGS value
pushf // Get new FLAGS
pop ax // Store new FLAGS in AX
and ax, 0f000h // If bits 12-15 are set, then
cmp ax, 0f000h // processor is an 8086/8088
mov cpu_type, 0 // Turn on 8086/8088 flag
je end_8086 // Jump if processor is 8086/
// 8088
mov cpu_type, 0ffffh
end_8086:
push cx
popf
mov ax, cpu_type
}
return cpu_type;
} // check_8086()
/***************************************************************
* check_80286()
*
* Inputs: none
*
* Returns:
* 2 if processor 80286
* 0xffff otherwise
***************************************************************/
static WORD check_80286()
{
WORD cpu_type=0xffff;
_asm {
pushf
pop cx
mov bx, cx
or cx, 0f000h // Try to set bits 12-15
push cx // Save new FLAGS value on stack
popf // Replace current FLAGS value
pushf // Get new FLAGS
pop ax // Store new FLAGS in AX
and ax, 0f000h // If bits 12-15 are clear
mov cpu_type, 2 // Processor=80286, turn on
// 80286 flag
jz end_80286 // If no bits set, processor is
// 80286
mov cpu_type, 0ffffh
end_80286:
push bx
popf
mov ax, cpu_type
}
return cpu_type;
} // check_80286()
/***************************************************************
* check_80386()
*
* Inputs: none
*
* Returns:
* 3 if processor 80386
* 0xffff otherwise
***************************************************************/
static WORD check_80386()
{
WORD cpu_type=0xffff;
_asm {
mov bx, sp
and sp, not 3
pushfd // Push original EFLAGS
pop eax // Get original EFLAGS
mov ecx, eax // Save original EFLAGS
xor eax, 40000h // Flip AC bit in EFLAGS
push eax // Save new EFLAGS value on
// stack
popfd // Replace current EFLAGS value
pushfd // Get new EFLAGS
pop eax // Store new EFLAGS in EAX
xor eax, ecx // Can't toggle AC bit,
// processor=80386
mov cpu_type, 3 // Turn on 80386 processor flag
jz end_80386 // Jump if 80386 processor
mov cpu_type, 0ffffh
end_80386:
push ecx
popfd
mov sp, bx
mov ax, cpu_type
and eax, 0000ffffh
}
return cpu_type;
} // check_80386()
/***************************************************************
* check_IDProc()
*
* Inputs: none
*
* Returns:
* CPU Family (i.e. 4 if Intel 486, 5 if Pentium(R) Processor)
*
* Note: This function also sets the global variable clone_flag
***************************************************************/
static WORD check_IDProc() {
int i=0;
WORD cpu_type=0xffff;
BYTE stepping=0;
BYTE model=0;
BYTE vendor_id[]="------------";
BYTE intel_id[]="GenuineIntel";
_asm {
xor eax, eax // Set up for CPUID instruction
CPU_ID // Get and save vendor ID
mov dword ptr vendor_id, ebx
mov dword ptr vendor_id[+4], edx
mov dword ptr vendor_id[+8], ecx
}
for (i=0;i<12;i++)
{
if (!(vendor_id[i]==intel_id[i]))
clone_flag = 1;
}
_asm {
cmp eax, 1 // Make sure 1 is valid input
// for CPUID
jl end_IDProc // If not, jump to end
xor eax, eax
inc eax
CPU_ID // Get family/model/stepping/
// features
mov stepping, al
and stepping, 0x0f //0fh
and al, 0f0h
shr al, 4
mov model, al
and eax, 0f00h
shr eax, 8 // Isolate family
and eax, 0fh
mov cpu_type, ax // Set _cpu_type with family
end_IDProc:
mov ax, cpu_type
}
return cpu_type;
} // Check_IDProc()
Reference in New Issue View Git Blame Copy Permalink