/* *@@sourcefile disk.c: * implementation code for XFldDisk class. * * This file is ALL new with V0.9.0. * * Function prefix for this file: * -- dsk* * *@@added V0.9.0 [umoeller] *@@header "filesys\disk.h" */ /* * Copyright (C) 1997-2002 Ulrich M”ller. * This file is part of the XWorkplace source package. * XWorkplace is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published * by the Free Software Foundation, in version 2 as it comes in the * "COPYING" file of the XWorkplace main distribution. * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. */ #pragma strings(readonly) /* * Suggested #include order: * 1) os2.h * 2) C library headers * 3) setup.h (code generation and debugging options) * 4) headers in helpers\ * 5) at least one SOM implementation header (*.ih) * 6) dlgids.h, headers in shared\ (as needed) * 7) headers in implementation dirs (e.g. filesys\, as needed) * 8) #pragma hdrstop and then more SOM headers which crash with precompiled headers */ #define INCL_DOSSEMAPHORES #define INCL_DOSDEVIOCTL #define INCL_DOSERRORS #define INCL_WINPOINTERS #define INCL_WINMENUS #define INCL_WINENTRYFIELDS #include // C library headers #include // generic headers #include "setup.h" // code generation and debugging options // headers in /helpers #include "helpers\comctl.h" // common controls (window procs) #include "helpers\dosh.h" // Control Program helper routines #include "helpers\nls.h" // National Language Support helpers #include "helpers\stringh.h" // string helper routines #include "helpers\threads.h" // thread helpers #include "helpers\winh.h" // PM helper routines #include "helpers\xstring.h" // extended string helpers // SOM headers which don't crash with prec. header files #include "xfldr.ih" #include "xfdisk.ih" // XWorkplace implementation headers #include "dlgids.h" // all the IDs that are shared with NLS #include "shared\common.h" // the majestic XWorkplace include file #include "shared\kernel.h" // XWorkplace Kernel #include "shared\notebook.h" // generic XWorkplace notebook handling #include "filesys\disk.h" // XFldDisk implementation #include "filesys\folder.h" // XFolder implementation // #include "filesys\fdrmenus.h" // shared folder menu logic #include "filesys\statbars.h" // status bar translation logic #include "hook\xwphook.h" // hook and daemon definitions // other SOM headers #pragma hdrstop /* ****************************************************************** * * Disk implementation * ********************************************************************/ /* *@@ dskCheckDriveReady: * this attempts to return the root folder for * the given disk object. Since wpQueryRootFolder * normally results in those not-so-beautiful white * hard-error popups, this can prompt the user with * an "abort-retry" box. * * Returns NULL if the drive is not ready and the * user has chosen "Abort" afterwards. * * This code used to be in XFldDisk::wpViewObject. * *@@added V0.9.0 (99-11-27) [umoeller] *@@changed V0.9.6 (2000-11-25) [pr]: on "retry", we now remap drives */ WPFolder* dskCheckDriveReady(WPDisk *somSelf) { WPFolder *pRootFolder = 0; ULONG mbrc = MBID_OK; BOOL bForceMap = FALSE; // query root folder (WPRootFolder class, which is a descendant // of WPFolder/XFolder); each WPDisk is paired with one of those, // and the actual display is done by this class, so we will pass // pRootFolder instead of somSelf to most following method calls. // We use xwpSafeQueryRootFolder instead of wpQueryRootFolder to // avoid the "Drive not ready" popups which the WPS/OS/2 normally // displays in this method. do { APIRET arc = NO_ERROR; HPOINTER hptrOld = winhSetWaitPointer(); mbrc = MBID_OK; pRootFolder = _xwpSafeQueryRootFolder(somSelf, bForceMap, &arc); // out: DOS error code // reset mouse pointer WinSetPointer(HWND_DESKTOP, hptrOld); if (pRootFolder == NULL) { // drive not ready: CHAR szTitle2[300], szDrive[3]; XSTRING strTitle; xstrInit(&strTitle, 0); cmnGetMessage(NULL, 0, &strTitle, 104); // "XFolder: Error" sprintf(szTitle2, // append drive name in brackets " (\"%s\")", _wpQueryTitle(somSelf)); xstrcat(&strTitle, szTitle2, 0); if (arc == ERROR_AUDIO_CD_ROM) // special error code for "audio cd inserted": arc = ERROR_NOT_DOS_DISK; // for now, later we can do full audio cd support... // V0.9.13 (2001-06-14) [umoeller] szDrive[0] = _wpQueryLogicalDrive(somSelf) + 'A' - 1; szDrive[1] = ':'; szDrive[2] = '\0'; mbrc = cmnDosErrorMsgBox(HWND_DESKTOP, szDrive, strTitle.psz, NULL, arc, NULL, MB_RETRYCANCEL, TRUE); // show explanation xstrClear(&strTitle); } bForceMap = TRUE; } while (mbrc == MBID_RETRY); return (pRootFolder); } /* *@@ dskQueryInfo: * queries information about one disk or * all disks on the system. * * This operates in two modes: * * -- If ulLogicalDrive specifies a valid * logical drive no. (1 == a, 2 == B etc.), * paDiskInfos is expected to point to a * single DISKINFO structure which receives * information about the specified disk. * * -- If ulLogicalDrive is -1, paDiskinfos * is expected to point to an array of * 26 DISKINFO structures, which receive * information about _all_ drives on the * system. * * This requires the existance of a message * queue on the calling thread. The actual disk * query is performed on the Daemon process to * avoid the "drive not ready" popups. * * Returns TRUE if the call succeeded. * *@@added V0.9.14 (2001-08-01) [umoeller] */ BOOL dskQueryInfo(PXDISKINFO paDiskInfos, ULONG ulLogicalDrive) { BOOL brc = FALSE; HWND hwndDaemon; PID pidDaemon; TID tidDaemon; ULONG cb; if (ulLogicalDrive == -1) cb = sizeof(XDISKINFO) * 26; else cb = sizeof(XDISKINFO); if ( (hwndDaemon = krnQueryDaemonObject()) && (WinQueryWindowProcess(hwndDaemon, &pidDaemon, &tidDaemon)) ) { PXDISKINFO pShared; if ( (!DosAllocSharedMem((PPVOID)&pShared, NULL, cb, PAG_COMMIT | OBJ_GIVEABLE | PAG_READ | PAG_WRITE)) && (!DosGiveSharedMem(pShared, pidDaemon, PAG_READ | PAG_WRITE)) ) { if (brc = (BOOL)WinSendMsg(hwndDaemon, XDM_QUERYDISKS, (MPARAM)ulLogicalDrive, (MPARAM)pShared)) { // copy back memcpy(paDiskInfos, pShared, cb); } DosFreeMem(pShared); } } return brc; } /* ****************************************************************** * * XFldDisk notebook callbacks (notebook.c) * ********************************************************************/ /* *@@ dskDetailsInitPage: * "Details" page notebook callback function (notebook.c). * Sets the controls on the page according to the disk's * characteristics. * *@@added V0.9.0 [umoeller] *@@changed V0.9.12 (2001-04-29) [umoeller]: fixed wrong sector display */ VOID dskDetailsInitPage(PNOTEBOOKPAGE pnbp, // notebook info struct ULONG flFlags) // CBI_* flags (notebook.h) { if (flFlags & CBI_INIT) { // prepare chart control CHARTSTYLE cs; HWND hwndChart = WinWindowFromID(pnbp->hwndDlgPage, ID_XSDI_DISK_CHART); ctlChartFromStatic(hwndChart); cs.ulStyle = CHS_3D_DARKEN | CHS_DESCRIPTIONS_3D; cs.ulThickness = 20; cs.dPieSize = 1; // all of window cs.dDescriptions = .66; // 2/3 of window WinSendMsg(hwndChart, CHTM_SETCHARTSTYLE, &cs, NULL); // set entry-field limit (drive labels can only have 11 chars) winhSetEntryFieldLimit(WinWindowFromID(pnbp->hwndDlgPage, ID_XSDI_DISK_LABEL), 11); } if (flFlags & CBI_SET) { ULONG ulLogicalDrive; // the following is safe because WPSharedDir doesn't have // a "Details" page if (ulLogicalDrive = _wpQueryLogicalDrive(pnbp->inbp.somSelf)) { FSALLOCATE fsa; CHAR szTemp[100]; CHAR szVolumeLabel[20]; // get thousands separator from "Country" object CHAR cThousands = cmnQueryThousandsSeparator(); if (doshQueryDiskLabel(ulLogicalDrive, &szVolumeLabel[0]) == NO_ERROR) // label entry field WinSetDlgItemText(pnbp->hwndDlgPage, ID_XSDI_DISK_LABEL, szVolumeLabel); // file-system type (HPFS, ...) if (doshQueryDiskFSType(ulLogicalDrive, szTemp, sizeof(szTemp)) == NO_ERROR) { WinSetDlgItemText(pnbp->hwndDlgPage, ID_XSDI_DISK_FILESYSTEM, szTemp); } if (DosQueryFSInfo(ulLogicalDrive, FSIL_ALLOC, &fsa, sizeof(fsa)) == NO_ERROR) { double dTotal = 0, dAllocated = 0, dAvailable = 0; double dDisplay[2]; CHAR szAvailable[50] = "", szAllocated[50] = ""; PSZ apszDescriptions[2]; CHARTDATA pcd; LONG alColors[2] = { 0x00FF0000, // color for allocated (RGB) 0x0000FF00 // color for free }; ULONG ulBlockSize = fsa.cbSector * fsa.cSectorUnit; // V0.9.12 (2001-04-29) [umoeller] // this page always reported fsa.cbSector // only, which is always 512 // bytes per sector WinSetDlgItemText(pnbp->hwndDlgPage, ID_XSDI_DISK_SECTORSIZE, nlsThousandsULong(szTemp, ulBlockSize, // fixed V0.9.12 (2001-04-29) [umoeller] cThousands)); // total size WinSetDlgItemText(pnbp->hwndDlgPage, ID_XSDI_DISK_TOTAL_SECTORS, nlsThousandsULong(szTemp, fsa.cUnit, // fixed V0.9.12 (2001-04-29) [umoeller] cThousands)); dTotal = (double)fsa.cbSector * fsa.cSectorUnit * fsa.cUnit; WinSetDlgItemText(pnbp->hwndDlgPage, ID_XSDI_DISK_TOTAL_BYTES, nlsThousandsDouble(szTemp, dTotal, cThousands)); // free space WinSetDlgItemText(pnbp->hwndDlgPage, ID_XSDI_DISK_AVAILABLE_SECTORS, nlsThousandsULong(szTemp, fsa.cUnitAvail, // fixed V0.9.12 (2001-04-29) [umoeller] cThousands)); dAvailable = (double)fsa.cbSector * fsa.cSectorUnit * fsa.cUnitAvail, WinSetDlgItemText(pnbp->hwndDlgPage, ID_XSDI_DISK_AVAILABLE_BYTES, nlsThousandsDouble(szTemp, dAvailable, cThousands)); // allocated space WinSetDlgItemText(pnbp->hwndDlgPage, ID_XSDI_DISK_ALLOCATED_SECTORS, nlsThousandsULong(szTemp, (fsa.cUnit - fsa.cUnitAvail), // V0.9.12 (2001-04-29) [umoeller] cThousands)); dAllocated = dTotal - dAvailable; // allocated WinSetDlgItemText(pnbp->hwndDlgPage, ID_XSDI_DISK_ALLOCATED_BYTES, nlsThousandsDouble(szTemp, dAllocated, cThousands)); // reset pie chart control with those values pcd.usStartAngle = 270 + 15; pcd.usSweepAngle = 360 - 30; // draw 7/8 pie pcd.cValues = 2; // value count dDisplay[0] = dAllocated; dDisplay[1] = dAvailable; pcd.padValues = &dDisplay[0]; pcd.palColors = (LONG*)(&alColors); // compose description strings array nlsThousandsDouble(szAllocated, dDisplay[0] / 1024 / 1024, cThousands); strcat(szAllocated, " MB"); nlsThousandsDouble(szAvailable, dDisplay[1] / 1024 / 1024, cThousands); strcat(szAvailable, " MB"); apszDescriptions[0] = szAllocated; apszDescriptions[1] = szAvailable; pcd.papszDescriptions = &apszDescriptions[0]; WinSendMsg(WinWindowFromID(pnbp->hwndDlgPage, ID_XSDI_DISK_CHART), CHTM_SETCHARTDATA, &pcd, NULL); } } } } /* *@@ dskDetailsItemChanged: * "Details" page notebook callback function (notebook.c). * Reacts to changes of any of the dialog controls. * *@@added V0.9.0 [umoeller] */ MRESULT dskDetailsItemChanged(PNOTEBOOKPAGE pnbp, ULONG ulItemID, USHORT usNotifyCode, ULONG ulExtra) // for checkboxes: contains new state { MRESULT mrc = 0; switch (ulItemID) { /* * ID_XSDI_DISK_LABEL: * disk label entry field. */ case ID_XSDI_DISK_LABEL: if (usNotifyCode == EN_KILLFOCUS) { HWND hwndEF = WinWindowFromID(pnbp->hwndDlgPage, ID_XSDI_DISK_LABEL); if (winhHasEntryFieldChanged(hwndEF)) { PSZ pszNewLabel = winhQueryWindowText(hwndEF); if (pszNewLabel) { ULONG ulLogicalDrive = _wpQueryLogicalDrive(pnbp->inbp.somSelf); doshSetDiskLabel(ulLogicalDrive, pszNewLabel); // use helper function for bugfix free(pszNewLabel); } } } break; } return mrc; }