source: trunk/dirsize.c@ 18

Last change on this file since 18 was 12, checked in by root, 23 years ago

Capture last error
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 8.1 KB
Line 
1#define INCL_DOS
2#define INCL_WIN
3
4#include <os2.h>
5#include <stdarg.h>
6#include <stdio.h>
7#include <stdlib.h>
8#include <string.h>
9#include <ctype.h>
10#include "dll\fm3dll.h"
11#include "dll\fm3dlg.h"
12#include "dirsize.h"
13
14
15MRESULT EXPENTRY DirMainProc (HWND hwnd,ULONG msg,MPARAM mp1,MPARAM mp2) {
16
17 static CHAR curdir[4];
18
19 switch(msg) {
20 case WM_INITDLG:
21 *curdir = 0;
22 WinSendMsg(hwnd,UM_UNDO,MPVOID,MPVOID);
23 break;
24
25 case UM_UNDO:
26 WinSendDlgItemMsg(hwnd,DIRSIZE_LISTBOX,LM_DELETEALL,MPVOID,MPVOID);
27 {
28 ULONG x,ulDriveMap,ulDriveNum;
29 CHAR dirname[] = " :\\";
30 BOOL first = TRUE;
31
32 DosError(FERR_DISABLEHARDERR);
33 DosQCurDisk(&ulDriveNum,&ulDriveMap);
34 for(x = 2;x < 26;x++) {
35 if((ulDriveMap & (1L << x)) && !(driveflags[x] & DRIVE_IGNORE)) {
36 *dirname = (CHAR)x + 'A';
37 WinSendDlgItemMsg(hwnd,DIRSIZE_LISTBOX,LM_INSERTITEM,
38 MPFROM2SHORT(LIT_END,0),MPFROMP(dirname));
39 if(first) {
40 WinSendDlgItemMsg(hwnd,DIRSIZE_LISTBOX,LM_SELECTITEM,
41 MPFROMSHORT(0),MPFROMSHORT(TRUE));
42 first = FALSE;
43 }
44 }
45 }
46 }
47 return 0;
48
49 case UM_RESCAN:
50 {
51 CHAR FileSystem[CCHMAXPATH],s[CCHMAXPATH * 2];
52 FSALLOCATE fsa;
53 ULONG type;
54 USHORT percentused,percentfree;
55 struct {
56 ULONG serial;
57 CHAR volumelength;
58 CHAR volumelabel[CCHMAXPATH];
59 } volser;
60 INT removable;
61
62 WinSetDlgItemText(hwnd,DIRSIZE_LABEL,"");
63 WinSetDlgItemText(hwnd,DIRSIZE_UNITSFREE,"");
64 WinSetDlgItemText(hwnd,DIRSIZE_UNITSUSED,"");
65 WinSetDlgItemText(hwnd,DIRSIZE_UNITSIZE,"");
66 WinSetDlgItemText(hwnd,DIRSIZE_PERCENT,"");
67 WinSetDlgItemText(hwnd,DIRSIZE_BYTESUSED,"");
68 WinSetDlgItemText(hwnd,DIRSIZE_BYTESFREE,"");
69 WinSetDlgItemText(hwnd,DIRSIZE_IFS,"");
70 WinSetDlgItemText(hwnd,DIRSIZE_LOCAL,"");
71 WinSendDlgItemMsg(hwnd,DIRSIZE_SLIDER,SLM_SETSLIDERINFO,
72 MPFROM2SHORT(SMA_SLIDERARMPOSITION,
73 SMA_INCREMENTVALUE),
74 MPFROMSHORT(0));
75 removable = CheckDrive(toupper(*curdir),FileSystem,&type);
76 if(removable != -1) {
77 if(type & DRIVE_ZIPSTREAM)
78 WinSetDlgItemText(hwnd,DIRSIZE_LOCAL,"Zipstream drive");
79 else if(type & DRIVE_REMOTE)
80 WinSetDlgItemText(hwnd,DIRSIZE_LOCAL,"Remote drive");
81 else {
82 sprintf(s,"Local drive%s",(removable) ? " (removable)" : "");
83 WinSetDlgItemText(hwnd,DIRSIZE_LOCAL,s);
84 }
85 sprintf(s,"IFS: %s",FileSystem);
86 WinSetDlgItemText(hwnd,DIRSIZE_IFS,s);
87 memset(&volser,0,sizeof(volser));
88 DosError(FERR_DISABLEHARDERR);
89 if(!DosQueryFSInfo(toupper(*curdir) - '@',FSIL_VOLSER,
90 &volser,(ULONG)sizeof(volser))) {
91 sprintf(s,"Label: %s",volser.volumelabel);
92 WinSetDlgItemText(hwnd,DIRSIZE_LABEL,s);
93 }
94 if(!DosQueryFSInfo(toupper(*curdir) - '@',
95 FSIL_ALLOC,&fsa,sizeof(FSALLOCATE))) {
96 percentfree = (fsa.cUnitAvail && fsa.cUnit) ?
97 (fsa.cUnitAvail * 100) / fsa.cUnit :
98 0;
99 if(!percentfree && fsa.cUnitAvail)
100 percentfree = 1;
101 percentused = 100 - percentfree;
102 sprintf(s,"Units free: %lu",fsa.cUnitAvail);
103 WinSetDlgItemText(hwnd,DIRSIZE_UNITSFREE,s);
104 sprintf(s,"Unit size: %lu x %u = %lu",fsa.cSectorUnit,
105 fsa.cbSector,fsa.cSectorUnit * fsa.cbSector);
106 WinSetDlgItemText(hwnd,DIRSIZE_UNITSIZE,s);
107 sprintf(s,"Units used: %lu",fsa.cUnit - fsa.cUnitAvail);
108 WinSetDlgItemText(hwnd,DIRSIZE_UNITSUSED,s);
109 sprintf(s,"Bytes free: %lu",fsa.cUnitAvail *
110 (fsa.cSectorUnit * fsa.cbSector));
111 WinSetDlgItemText(hwnd,DIRSIZE_BYTESFREE,s);
112 sprintf(s,"Bytes used: %lu",(fsa.cUnit - fsa.cUnitAvail) *
113 (fsa.cSectorUnit * fsa.cbSector));
114 WinSetDlgItemText(hwnd,DIRSIZE_BYTESUSED,s);
115 sprintf(s,"Percent used: %u%%",percentused);
116 WinSetDlgItemText(hwnd,DIRSIZE_PERCENT,s);
117 WinSendDlgItemMsg(hwnd,DIRSIZE_SLIDER,SLM_SETSLIDERINFO,
118 MPFROM2SHORT(SMA_SLIDERARMPOSITION,
119 SMA_INCREMENTVALUE),
120 MPFROMSHORT(percentused));
121 WinShowWindow(WinWindowFromID(hwnd,DIRSIZE_SLIDER),TRUE);
122 }
123 }
124 else {
125 WinSetDlgItemText(hwnd,DIRSIZE_LOCAL,"Drive not ready.");
126 WinShowWindow(WinWindowFromID(hwnd,DIRSIZE_SLIDER),FALSE);
127 }
128 }
129 return 0;
130
131 case WM_CONTROL:
132 switch(SHORT1FROMMP(mp1)) {
133 case DIRSIZE_LISTBOX:
134 switch(SHORT2FROMMP(mp1)) {
135 case LN_ENTER:
136 WinPostMsg(hwnd,WM_COMMAND,MPFROM2SHORT(DID_OK,0),MPVOID);
137 break;
138 case LN_SELECT:
139 {
140 SHORT x;
141
142 x = (SHORT)WinSendDlgItemMsg(hwnd,DIRSIZE_LISTBOX,
143 LM_QUERYSELECTION,
144 MPFROMSHORT(LIT_FIRST),
145 MPVOID);
146 if(x >= 0) {
147 WinSendDlgItemMsg(hwnd,DIRSIZE_LISTBOX,
148 LM_QUERYITEMTEXT,
149 MPFROM2SHORT(x,sizeof(curdir)),
150 MPFROMP(curdir));
151 WinPostMsg(hwnd,UM_RESCAN,MPVOID,MPVOID);
152 }
153 }
154 break;
155 }
156 break;
157 }
158 return 0;
159
160 case WM_COMMAND:
161 switch(SHORT1FROMMP(mp1)) {
162 case DID_CANCEL:
163 WinDismissDlg(hwnd,0);
164 break;
165
166 case DID_OK:
167 if(*curdir) {
168 WinSetWindowPos(hwnd,HWND_TOP,0,0,0,0,SWP_HIDE);
169 WinDlgBox(HWND_DESKTOP,hwnd,
170 DirSizeProc,FM3ModHandle,
171 DSZ_FRAME,curdir);
172 WinSetWindowPos(hwnd,HWND_TOP,0,0,0,0,SWP_SHOW);
173 }
174 else
175 DosBeep(50,100);
176 break;
177 }
178 return 0;
179 }
180 return WinDefDlgProc(hwnd,msg,mp1,mp2);
181}
182
183
184#ifdef NEVER
185
186VOID APIENTRY deinit (ULONG why) {
187
188 if(fmprof)
189 PrfCloseProfile(fmprof);
190 fmprof = (HINI)0;
191
192 flushall();
193
194 DosExitList(EXLST_REMOVE,deinit);
195}
196
197#endif
198
199
200int main (int argc,char *argv[]) {
201
202 HAB hab;
203 HMQ hmq;
204 static CHAR fullname[CCHMAXPATH];
205 INT x;
206 ULONG rcl;
207
208 DosError(FERR_DISABLEHARDERR);
209 *fullname = 0;
210 for(x = 1;x < argc;x++) {
211 if(!strchr("/;,`\'",*argv[x]) &&
212 !*fullname &&
213 (IsRoot(argv[x]) ||
214 IsFile(argv[x]) == 0)) {
215 if(IsRoot(argv[x]))
216 strcpy(fullname,argv[x]);
217 else if(DosQueryPathInfo(argv[x],
218 FIL_QUERYFULLNAME,
219 fullname,
220 sizeof(fullname)))
221 *fullname = 0;
222 }
223 }
224#ifdef NEVER
225 DosExitList(EXLST_ADD,deinit);
226#endif
227 hab = WinInitialize(0);
228 if(hab) {
229 hmq = WinCreateMsgQueue(hab,384);
230 if(hmq) {
231 if(InitFM3DLL(hab,argc,argv)) {
232 if(!*fullname)
233 rcl = WinDlgBox(HWND_DESKTOP,
234 HWND_DESKTOP,
235 DirMainProc,
236 0,
237 DIRSIZE_FRAME,
238 NULL);
239 else
240 rcl = WinDlgBox(HWND_DESKTOP,
241 HWND_DESKTOP,
242 DirSizeProc,
243 FM3ModHandle,
244 DSZ_FRAME,
245 fullname);
246 if (rcl == DID_ERROR)
247 rcl = WinGetLastError(hab);
248 }
249 WinDestroyMsgQueue(hmq);
250 }
251 WinTerminate(hab);
252 }
253 return 0;
254}
255
Note: See TracBrowser for help on using the repository browser.