![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to expdir.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / samples / filer|
Return to expdir.c CVS log | Up to [WindowsNT SDKs] / mstools / samples / filer |
1.1 root 1:
2: /******************************************************************************\
3: * This is a part of the Microsoft Source Code Samples.
4: * Copyright (C) 1993 Microsoft Corporation.
5: * All rights reserved.
6: * This source code is only intended as a supplement to
7: * Microsoft Development Tools and/or WinHelp documentation.
8: * See these sources for detailed information regarding the
9: * Microsoft samples programs.
10: \******************************************************************************/
11:
12: /***************************************************************************\
13: *
14: * PROGRAM: EXPDIR.C
15: *
16: * PURPOSE: Directory Listbox expansion/collapse functions
17: *
18: \***************************************************************************/
19: #define STRICT
20: #include <windows.h>
21: #include <limits.h>
22: #include "globals.h"
23: #include "filer.h"
24: #include "drvproc.h"
25: #include "expdir.h"
26:
27: extern HANDLE ghModule;
28:
29: /***************************************************************************\
30: *
31: * ExpDir()
32: *
33: * Thread Function
34: * Called when directory is selected (Enter or Double-click). Expands subdirs
35: * of selected directory if not expanded, indenting subdirs with a '|'. If
36: * already expaneded, deleteds all subdirs from listbox
37: *
38: * Returns: TRUE if successful, FALSE if error.
39: *
40: * History:
41: * 5/11/93
42: * Created.
43: *
44: \***************************************************************************/
45: BOOL ExpDir(LPCINFO lpCInfo)
46: {
47: HANDLE hFile = NULL; // Find file handle
48: WIN32_FIND_DATA FileData; // Find file info structure
49:
50: TCHAR szFileName[DIRECTORY_STRING_SIZE << 1]; // file name buffer
51: PTCHAR lpszHold; // Points to actual name in LB string
52:
53: BOOL fDone = FALSE; // Loop flag for finding files in dir
54:
55: DWORD dwAttrib; // Holds file attribute flags
56:
57: LONG lIndex, // Index of selected listbox member
58: lDirDepth;
59:
60:
61: if( WaitForSingleObject( lpCInfo->hDirMutex, MUTEX_TIMEOUT)
62: == WAIT_TIMEOUT ){
63: ErrorMsg(TEXT("ExpDir: Dir LB Mutex Timeout."));
64: return(0);
65: }
66:
67: //
68: // If the LB is empty, we insert the root, unexpanded
69: //
70: if( !SendMessage( lpCInfo->hDirLB, LB_GETCOUNT, 0, 0) ){
71:
72: TCHAR szHold[DIRECTORY_STRING_SIZE << 1];
73:
74: szHold[0] = TEXT('+');
75: lstrcpy( &(szHold[1]), lpCInfo->lpDriveInfo->DriveName );
76:
77: //
78: // Also copy the DriveName to the Caption Bar.
79: //
80: lstrcpy(lpCInfo->CaptionBarText, lpCInfo->lpDriveInfo->DriveName );
81:
82: SendMessage(lpCInfo->hDirLB, LB_ADDSTRING, 0,
83: (LPARAM)szHold );
84:
85: ReleaseMutex( lpCInfo->hDirMutex );
86: return(1);
87: }
88:
89: //
90: // Retrieve index of selected (careted) directory.
91: //
92: lIndex = SendMessage( lpCInfo->hDirLB, LB_GETCARETINDEX,
93: (WPARAM)NULL, (LPARAM)NULL );
94:
95: if( SendMessage( lpCInfo->hDirLB, LB_GETTEXT, (WPARAM)lIndex,
96: (LPARAM)szFileName ) < 0 ){
97: ErrorMsg(TEXT("Expand Directory: Get listbox text failure"));
98: ExpDirExit(lpCInfo, hFile);
99: return(0);
100: }
101:
102: lDirDepth = GetDirDepth( szFileName, &lpszHold );
103:
104: if( lDirDepth == -1 ){
105: ErrorMsg(TEXT(" Expand Directory: GetDirDepth failure"));
106: ExpDirExit(lpCInfo, hFile);
107: return(0);
108: }
109:
110: //
111: // If Directory is already expanded, collapse it, and vice versa.
112: // First, change the symbol.
113: //
114: if( *lpszHold == TEXT('-'))
115: *lpszHold = TEXT('+');
116: else
117: *lpszHold = TEXT('-');
118:
119: //
120: // Clear WM_SETREDRAW flag, so changes will not be seen until entire
121: // expansion/collapse is complete. Reset flag at end of function
122: //
123: if( SendMessage(lpCInfo->hDirLB, WM_SETREDRAW, (WPARAM)FALSE,
124: (LPARAM)0 ) < 0){
125: ErrorMsg(TEXT("Expand Directory: Clear redraw flag failure"));
126: ExpDirExit(lpCInfo, hFile);
127: return(0);
128: }
129:
130: //
131: // Delete old dir string, insert new, and reset the selection
132: //
133: if( SendMessage(lpCInfo->hDirLB, LB_DELETESTRING, (WPARAM)lIndex,
134: (LPARAM)0 ) < 0){
135: ErrorMsg(TEXT("Expand Directory: Delete dir string failure"));
136: ExpDirExit(lpCInfo, hFile);
137: return(0);
138: }
139: if( SendMessage(lpCInfo->hDirLB, LB_INSERTSTRING, (WPARAM)lIndex,
140: (LPARAM)szFileName ) < 0){
141: ErrorMsg(TEXT("Expand Directory: Insert dir string failure"));
142: ExpDirExit(lpCInfo, hFile);
143: return(0);
144: }
145: if( SendMessage(lpCInfo->hDirLB, LB_SETCURSEL, (WPARAM)lIndex,
146: (LPARAM)0 ) < 0){
147: ErrorMsg(TEXT("Expand Directory: Insert dir string failure"));
148: ExpDirExit(lpCInfo, hFile);
149: return(0);
150: }
151:
152: //
153: // The symbol has been changed, now collapse if needed, then reset
154: // redraw flag, leave critical section, and exit.
155: //
156: if( *lpszHold == TEXT('+') ){
157: CollapseDir( lpCInfo, lIndex, lDirDepth);
158: ExpDirExit(lpCInfo, hFile);
159: return(1);
160: }
161:
162: //
163: // If we're here, directory needs to be expanded.
164: // Enumerate subdirectories beneath the dir entry in the listbox.
165: //
166: // First, Get the full path of the directory (in szFileName)
167: //
168: if( !ConstructDirName(lpCInfo, lIndex, szFileName) ){
169: ErrorMsg(TEXT("Expand Directory: ConstructDirName failure"));
170: ExpDirExit(lpCInfo, hFile);
171: return(0);
172: }
173:
174: //
175: // Check to see if there is a terminating backslash
176: // Then append a '*' as a wildcard for FindFirstFile.
177: //
178: lpszHold = TStrChr(szFileName, TEXT('\0'));
179:
180: lpszHold--;
181: if( *lpszHold != TEXT('\\') ){
182: lpszHold++;
183: *lpszHold = TEXT('\\');
184: }
185:
186: lpszHold++;
187: lstrcpy( lpszHold, TEXT("*"));
188:
189: //
190: // Start a search on all the files within the directory
191: //
192: hFile = FindFirstFile( szFileName, &FileData );
193: if( hFile == INVALID_HANDLE_VALUE ){
194: ErrorMsg(TEXT("Expand Directory: FindFirstFile failure."));
195: ExpDirExit(lpCInfo, hFile);
196: return(0);
197: }
198:
199: //
200: // Walk all the files in the directory.
201: //
202: while( !fDone ){
203:
204: //
205: // Check to see if the thread has been requested to kill itself.
206: // This code does not clear the suicide flag for synchronization
207: // reasons - it is left to the calling code.
208: //
209: if( lpCInfo->fSuicide ){
210: ErrorMsg(TEXT("Expand Directory: killing thread per request."));
211: ExpDirExit(lpCInfo, hFile);
212:
213: //
214: // Post an MM_REFRESH Message if the user has re-collapsed the
215: // Dir LB.
216: //
217: if( !lpCInfo->fDirExpand )
218: if( !PostMessage(lpCInfo->hwnd, WM_COMMAND, MM_REFRESH,
219: (LPARAM)0) )
220: ErrorMsg(TEXT("ExpDir: MM_REFRESH call failure."));
221:
222: //
223: // We must return failure (0) here, so if FullExpand is calling,
224: // it will terminate.
225: //
226: return(0);
227: }
228:
229: //
230: // Append filename to path, and get attributes
231: //
232: lstrcpy(lpszHold, FileData.cFileName);
233: dwAttrib = GetFileAttributes( szFileName );
234:
235: //
236: // Check if file is a directory. If not, or if '.' or '..', fall
237: // through. If so, add it to the directory listbox.
238: //
239: if( dwAttrib & FILE_ATTRIBUTE_DIRECTORY )
240: if( lstrcmp( FileData.cFileName,TEXT(".") ) )
241: if( lstrcmp( FileData.cFileName,TEXT("..") ) ){
242: TCHAR szLBEntry[DIRECTORY_STRING_SIZE << 1];
243:
244: ConstructLBEntry(lDirDepth, FileData.cFileName, szLBEntry);
245: //
246: // Increment index in order to add subdir after
247: // dirs just inserted.
248: //
249: if( SendMessage(lpCInfo->hDirLB, LB_INSERTSTRING,
250: (WPARAM)++lIndex,
251: (LPARAM)szLBEntry) < 0){
252: ErrorMsg(TEXT("Expand Directory: error inserting string."));
253: ExpDirExit(lpCInfo, hFile);
254: return(0);
255: }
256: }
257:
258: fDone = !FindNextFile( hFile, &FileData );
259: }
260:
261: ExpDirExit(lpCInfo, hFile);
262: return(1);
263: }
264:
265:
266: /***************************************************************************\
267: *
268: * ExpDirExit()
269: *
270: * Performs clean-up operations for ExpDir, closing handles, etc.
271: *
272: * History:
273: * 5/28/93
274: * Created.
275: *
276: \***************************************************************************/
277: void ExpDirExit(LPCINFO lpCInfo, HANDLE hFile)
278: {
279:
280: //
281: // Reset redraw flag. Post this message, to avoid synchro problems
282: //
283: if( PostMessage(lpCInfo->hDirLB, WM_SETREDRAW, (WPARAM)TRUE,
284: (LPARAM)0 ) < 0)
285: ErrorMsg(TEXT("Expand Directory: Clear redraw flag failure"));
286:
287: //
288: // Close FindFirstFile session
289: //
290: if( hFile != NULL )
291: FindClose(hFile);
292:
293: //
294: // Release Dir LB Mutex
295: //
296: ReleaseMutex( lpCInfo->hDirMutex);
297: }
298:
299:
300: /***************************************************************************\
301: *
302: * ConstructDirName()
303: *
304: * Builds the fully qualified path of the current directory, by walking back
305: * through the Dir LB tree.
306: *
307: * Returns: TRUE if successful, FALSE if error.
308: * Returns the full directory path of given directory name in
309: * lpszDirName.
310: *
311: * History:
312: * 5/11/93
313: * Created.
314: *
315: \***************************************************************************/
316: BOOL ConstructDirName(LPCINFO lpCInfo, LONG lIndex, LPTSTR lpszDirName)
317: {
318: LONG lDirDepth, // Depth of selected directory
319: lSeekDepth = LONG_MAX;
320:
321: TCHAR szFileName[DIRECTORY_STRING_SIZE << 1]; // file buffer
322: LPTSTR lpszInfoPtr,
323: lpszHold;
324:
325: //
326: // Clear the directory name buffer
327: //
328: *lpszDirName = TEXT('\0');
329:
330: //
331: // Walk up the entries in the listbox, constructing the full path from
332: // the bottom up.
333: //
334: while( lIndex >= 0 ){
335:
336: //
337: // Get listbox text, and compute the depth of the directory
338: //
339: if( SendMessage( lpCInfo->hDirLB, LB_GETTEXT, (WPARAM)lIndex,
340: (LPARAM)szFileName ) < 0 ){
341: ErrorMsg(TEXT(" Expand Directory: Get listbox text failure"));
342: return(0);
343: }
344:
345: lDirDepth = GetDirDepth(szFileName, &lpszInfoPtr);
346: if( lDirDepth == -1){
347: ErrorMsg(TEXT("ConstructDirName: GetDirDepth failed"));
348: return(0);
349: }
350:
351: //
352: // If we've reached the next level up, add to the directory name
353: //
354: if( lDirDepth < lSeekDepth ){
355: lSeekDepth = lDirDepth;
356:
357: // check if we will exceed the size of our buffer
358: if( lstrlen(lpszInfoPtr) + lstrlen(lpszDirName) >
359: (DIRECTORY_STRING_SIZE << 1) ){
360: ErrorMsg(TEXT("ConstructDirName: Exceeded Directory Size limit"));
361: return(0);
362: }
363:
364: // Find the end of the directory name
365: lpszHold = TStrChr(lpszInfoPtr, TEXT('\0'));
366:
367: // If we're not at the root, add a '\'
368: if( lIndex && (*lpszDirName != TEXT('\0')) )
369: *lpszHold++ = TEXT('\\');
370:
371: // Append the heretofore computed path to the end of the dir name
372: lstrcpy( lpszHold, lpszDirName);
373: // Copy the whole path so far back into the final buffer
374: lstrcpy( lpszDirName, ++lpszInfoPtr);
375: }
376:
377: // If the first level dir has been added, jump to the root,
378: // else go up to the previous entry in the listbox.
379: if( lDirDepth == 1 )
380: lIndex = 0;
381: else
382: lIndex--;
383: }
384:
385: return(TRUE);
386: }
387:
388:
389: /***************************************************************************\
390: *
391: * GetDirDepth()
392: *
393: * Returns: -1 if error
394: * otherwise, the depth of the directory (i.e. root is depth 0,
395: * c:\foo is depth 1, etc. This is computed in perhaps not the
396: * most efficient way, by counting the '|'s proceeding the name.
397: *
398: * This function also returns in lpszDirName a pointer to the
399: * end of the preceeding '|' characters within the given listbox str.
400: * If the function fails, this pointer value is undefined.
401: *
402: * The left shifted index is to skip the tab characters. See ConstructLBEntry().
403: *
404: * History:
405: * 5/7/93
406: * Created.
407: *
408: \***************************************************************************/
409: LONG GetDirDepth(LPTSTR lpszLBString, LPTSTR *lpszDirName)
410: {
411: TCHAR cBar;
412: LONG lCount = 0;
413:
414: do{
415:
416: cBar = lpszLBString[lCount << 1];
417:
418: if( cBar == TEXT('|') )
419: lCount++;
420: else
421: if( cBar != TEXT('+') && cBar != TEXT('-') ){
422: ErrorMsg(TEXT("GetDirDepth: string parse error"));
423: return(-1);
424: }
425:
426: }while( cBar != TEXT('+') && cBar != TEXT('-') );
427:
428: *lpszDirName = &(lpszLBString[lCount << 1]);
429:
430: return( lCount );
431: }
432:
433:
434: /***************************************************************************\
435: *
436: * CollapseDir()
437: *
438: * If directory is expanded, collapses it, by deleteing any subdirectory
439: * entries below it.
440: *
441: * Returns: TRUE if successful, FALSE if error
442: *
443: * History:
444: * 5/11/93
445: * Created.
446: *
447: \***************************************************************************/
448: BOOL CollapseDir(LPCINFO lpCInfo, LONG lIndex, LONG lDirDepth)
449: {
450: TCHAR szFileName[DIRECTORY_STRING_SIZE << 1]; // file name buffer
451: LPTSTR lpszNamePtr;
452:
453: LONG lDepthHold;
454:
455:
456: //
457: // Remove any following LB entries until we return to same depth
458: //
459: do{
460:
461: if( SendMessage( lpCInfo->hDirLB, LB_GETTEXT, (WPARAM)lIndex + 1,
462: (LPARAM)szFileName ) < 0 ){
463: ErrorMsg(TEXT(" Expand Directory: Get listbox text failure"));
464: return(0);
465: }
466:
467: lDepthHold = GetDirDepth( szFileName, &lpszNamePtr);
468: if( lDirDepth == -1 ){
469: ErrorMsg(TEXT(" Expand Directory: GetDirDepth failure"));
470: return(0);
471: }
472:
473: if( lDirDepth < lDepthHold )
474: if( SendMessage( lpCInfo->hDirLB, LB_DELETESTRING, (WPARAM)lIndex + 1,
475: (LPARAM)0 ) < 0 ){
476: ErrorMsg(TEXT(" Expand Directory: Delete String failure"));
477: return(0);
478: }
479:
480: }while( lDirDepth < lDepthHold );
481:
482: return(1);
483: }
484:
485:
486: /***************************************************************************\
487: *
488: * ConstructLBEntry()
489: *
490: * Given the parent's directory depth, and the subdirectory name, inserts
491: * '|'s equal to the depth+1 of the parent (plus tab character), and an
492: * unexpanded '+' directory marker, then the name of the subdirectory.
493: *
494: * The left shifted index is to skip the tab characters.
495: *
496: * Returns: void. the completed listbox entry is returned in szLBEntry.
497: *
498: * History:
499: * 5/14/93
500: * Created.
501: *
502: \***************************************************************************/
503: void ConstructLBEntry(LONG lDirDepth, LPTSTR szFileName, LPTSTR szLBEntry)
504: {
505: int i;
506:
507: for(i = 0; i <= lDirDepth; i++){
508: szLBEntry[i << 1] = TEXT('|');
509: szLBEntry[(i << 1) + 1] = 9;
510: }
511:
512: szLBEntry[i << 1] = TEXT('+');
513: szLBEntry[(i << 1) + 1] = TEXT('\0');
514:
515: lstrcat(szLBEntry, szFileName);
516: }
517:
518:
519: /***************************************************************************\
520: *
521: * FullExpand()
522: *
523: * From the unexpanded root, walks down directory LB, expanding each directory
524: * until it reaches the end of the tree.
525: *
526: * Returns: void
527: *
528: * History:
529: * 5/20/93
530: * Created.
531: *
532: \***************************************************************************/
533: BOOL FullExpand(LPCINFO lpCInfo)
534: {
535: LONG lIndex = 0;
536:
537: if( WaitForSingleObject( lpCInfo->hDirMutex, MUTEX_TIMEOUT)
538: == WAIT_TIMEOUT ){
539: ErrorMsg(TEXT("FullExpand: Dir LB Mutex Timeout."));
540: return(0);
541: }
542:
543: while( SendMessage(lpCInfo->hDirLB, LB_SETCURSEL,
544: (WPARAM)lIndex,
545: (LPARAM)0) != LB_ERR ){
546: if( !ExpDir( lpCInfo ) ){
547: ErrorMsg(TEXT("Full Expand: ExpDir failure."));
548: ReleaseMutex( lpCInfo->hDirMutex );
549:
550: // This is in case the ExpDir failed because a change drive
551: // command caused a kill.
552: if( !PostMessage(lpCInfo->hwnd, WM_COMMAND, MM_REFRESH,
553: (LPARAM)0) )
554: ErrorMsg(TEXT("ExpDir: MM_REFRESH call failure."));
555: return(0);
556: }
557:
558: lIndex++;
559: }
560:
561: // Set selection in listboxes to first item.
562: if( SendMessage(lpCInfo->hDirLB, LB_SETCURSEL,
563: (WPARAM)0,
564: (LPARAM)0) == LB_ERR ){
565: ErrorMsg(TEXT("Full Expand: Dir LB Set Selection Error"));
566: ReleaseMutex( lpCInfo->hDirMutex );
567: return(0);
568: }
569:
570: ReleaseMutex( lpCInfo->hDirMutex );
571: return(1);
572: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.