开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
DIR.C
资源名称：840.rar　[点击查看]
上传用户：dcs7469208
上传日期：2010-01-02
资源大小：443k
文件大小：9k
源码类别：

操作系统开发

开发平台：

DOS

DIR.C：源码内容
  1. /****************************************************************/
  2. /* */
  3. /*       dir.c */
  4. /* */
  5. /*         DOS "dir" Command  */
  6. /* */
  7. /*  November 6, 1991 */
  8. /* */
  9. /* Copyright (c) 1995 */
  10. /* Pasquale J. Villani */
  11. /* All Rights Reserved */
  12. /* */
  13. /* This file is part of DOS-C. */
  14. /* */
  15. /* DOS-C is free software; you can redistribute it and/or */
  16. /* modify it under the terms of the GNU General Public License */
  17. /* as published by the Free Software Foundation; either version */
  18. /* 2, or (at your option) any later version. */
  19. /* */
  20. /* DOS-C is distributed in the hope that it will be useful, but */
  21. /* WITHOUT ANY WARRANTY; without even the implied warranty of */
  22. /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See */
  23. /* the GNU General Public License for more details. */
  24. /* */
  25. /* You should have received a copy of the GNU General Public */
  26. /* License along with DOS-C; see the file COPYING.  If not, */
  27. /* write to the Free Software Foundation, 675 Mass Ave, */
  28. /* Cambridge, MA 02139, USA. */
  29. /****************************************************************/
  32. /* $Logfile:   C:/dos-c/src/command/dir.c_v  $ */
  34. /* $Log:   C:/dos-c/src/command/dir.c_v  $ 
  35.  * 
  36.  *    Rev 1.4   31 Jan 1998  8:12:26   patv
  37.  * Put preprocessor switch for version strings and changed log strings
  38.  * 
  39.  *    Rev 1.3   22 Jan 1998  4:51:42   patv
  40.  * Fixed bug in bytes free calculation.
  41.  * 
  42.  *    Rev 1.2   29 Aug 1996 13:07:00   patv
  43.  * Bug fixes for v0.91b
  44.  * 
  45.  *    Rev 1.1   01 Sep 1995 18:04:32   patv
  46.  * First GPL release.
  47.  * 
  48.  *    Rev 1.0   02 Jul 1995 10:01:40   patv
  49.  * Initial revision.
  50.  */
  51. /* $EndLog$ */
  53. #include "../../hdr/portab.h"
  54. #include "globals.h"
  55. #include "proto.h"
  57. #ifdef VERSION_STRINGS
  58. static BYTE *RcsId = "$Header:   C:/dos-c/src/command/dir.c_v   1.4   31 Jan 1998  8:12:26   patv  $";
  59. #endif
  61. #ifdef PROTO
  62. COUNT chk_line(COUNT);
  63. #else
  64. COUNT chk_line();
  65. #endif
  68. #define D_ALL D_NORMAL | D_RDONLY | D_HIDDEN | D_SYSTEM | D_DIR | D_ARCHIVE
  71. BOOL dir(argc, argv)
  72. COUNT argc;
  73. BYTE *argv[];
  74. {
  75. WORD count = 0, disp_line, columns = 0;
  76. ULONG total = 0l;
  77. BYTE vid[67], *ext;
  78. BYTE cudir[67];
  79. BYTE sdrive[2];
  80. dmatch dmp;
  81. COUNT at_mask, at_pat;
  82. UCOUNT free_clst, sec_size, clst_size, n_clst;
  83. BOOL wflag, pflag, lflag, bflag;
  84. COUNT driveno = -1, cudrvno;
  85. BYTE pattern[MAX_CMDLINE] = "", formatted[MAX_CMDLINE];
  86. BYTE path[MAX_CMDLINE] = "", sopt[MAX_CMDLINE] = "";
  88. /* parse for options */
  89. wflag = pflag = lflag = bflag = count = FALSE;
  90. dosopt("$d$p*[a:wplb]+", (BYTE FAR *)tail,
  91. &driveno, path, pattern, sopt, &wflag, &pflag, &lflag, &bflag);
  93. /* Set defaults for file name and path if not supplied. */
  94. if(strcmp(path, "") == 0)
  95. strcpy(path, ".");
  96. if(strcmp(pattern,"") == 0)
  97. strcpy(pattern,"*.*");
  99. /* Intialize the dta to put the dir info into */
  100. DosSetDta((BYTE FAR *)&dmp);
  102. /* Get the current drive, so we can switch back. */
  103. cudrvno = DosGetDrive();
  105. /* Switch to the requested directory to list */
  106. DosSetDrive(driveno < 0 ? cudrvno : driveno);
  108. /* Get the current directory. Note that the DOS system call */
  109. /* does not return drive or leading '', so we need to add */
  110. /* them. */
  111. cudir[0] = '\';
  112. DosPwd(DosGetDrive() + 1, (BYTE FAR *)&cudir[1]);
  114. /* Change to the path and then test the file name. If it is a */
  115. /* directory, switch to it, because the user wants a listing of */
  116. /* its content. */
  117. if(DosCd((BYTE FAR *)path) != SUCCESS)
  118. {
  119. error_message(INV_DIR);
  120. DosSetDrive(cudrvno);
  121. return FALSE;
  122. }
  123. if(!iswild(pattern))
  124. {
  125. if(DosFindFirst(D_DIR, (BYTE FAR *)pattern) != SUCCESS)
  126. {
  127. error_message(FILE_NOT_FOUND);
  128. return TRUE;
  129. }
  130. else
  131. {
  132. if(dmp.dm_attr_fnd & D_DIR)
  133. {
  134. if(DosCd((BYTE FAR *)pattern) != SUCCESS)
  135. {
  136. error_message(INV_DIR);
  137. DosSetDrive(cudrvno);
  138. return FALSE;
  139. }
  140. else
  141. strcpy(pattern, "*.*");
  142. }
  143. }
  144. }
  147. /* Get the new directory. */
  148. path[0] = '\';
  149. DosPwd(DosGetDrive() + 1, (BYTE FAR *)&path[1]);
  151. /* Intialize the dta to put the dir info into */
  152. DosSetDta((BYTE FAR *)&dmp);
  154. /* Get the volume label */
  155. if(DosFindFirst(D_VOLID, (BYTE FAR *)"*.*") != SUCCESS)
  156. sprintf(vid, "has no label");
  157. else
  158. {
  159. for(ext = dmp.dm_name; *ext != NULL; ext++)
  160. if(*ext == '.')
  161. {
  162. *ext++ = NULL;
  163. break;
  164. }
  165. sprintf(vid, "is %s%s", dmp.dm_name, ext);
  166. }
  168. /* Display the header, if not turned off */
  169. sdrive[0] = 'A' + DosGetDrive();
  170. sdrive[1] = NULL;
  171. if(bflag)
  172. disp_line = 0;
  173. else
  174. disp_line = 4;
  175. if(!bflag)
  176. {
  177. printf("n Volume in drive %s %sn", sdrive, vid);
  178. printf(" Directory of %s:%snn", sdrive, path);
  179. }
  181. /* Build the attribute mask and pattern */
  182. at_mask = *sopt == '' ? D_RDONLY | D_HIDDEN | D_SYSTEM : 0;
  183. at_pat = 0;
  184. for(ext = sopt; *ext != ''; ++ext)
  185. {
  186. if(*ext == '-')
  187. {
  188. ++ext;
  189. switch(tolower(*ext))
  190. {
  191. case 'a':
  192. at_mask |= D_ARCHIVE;
  193. at_pat &= ~D_ARCHIVE;
  194. break;
  196. case 'd':
  197. at_mask |= D_DIR;
  198. at_pat &= ~D_DIR;
  199. break;
  201. case 'r':
  202. at_mask |= D_RDONLY;
  203. at_pat &= ~D_RDONLY;
  204. break;
  206. case 'h':
  207. at_mask |= D_HIDDEN;
  208. at_pat &= ~D_HIDDEN;
  209. break;
  211. case 's':
  212. at_mask |= D_SYSTEM;
  213. at_pat &= ~D_SYSTEM;
  214. break;
  215. }
  216. }
  217. else
  218. {
  219. switch(tolower(*ext))
  220. {
  221. case 'a':
  222. at_mask |= D_ARCHIVE;
  223. at_pat |= D_ARCHIVE;
  224. break;
  226. case 'd':
  227. at_mask |= D_DIR;
  228. at_pat |= D_DIR;
  229. break;
  231. case 'r':
  232. at_mask |= D_RDONLY;
  233. at_pat |= D_RDONLY;
  234. break;
  236. case 'h':
  237. at_mask |= D_HIDDEN;
  238. at_pat |= D_HIDDEN;
  239. break;
  241. case 's':
  242. at_mask |= D_SYSTEM;
  243. at_pat |= D_SYSTEM;
  244. break;
  245. }
  246. }
  247. }
  249. if(DosFindFirst(D_ALL, (BYTE FAR *)pattern) != SUCCESS)
  250. {
  251. error_message(FILE_NOT_FOUND);
  252. return TRUE;
  253. }
  255. if(wflag)
  256. {
  257. do
  258. {
  259. char *p;
  261. if((*sopt != 0) && !((dmp.dm_attr_fnd & at_mask) == at_pat))
  262. continue;
  263. if(dmp.dm_attr_fnd & D_DIR)
  264. {
  265. if(bflag && *dmp.dm_name == '.')
  266. continue;
  267. sprintf(formatted, "[%s]", dmp.dm_name);
  268. if(lflag)
  269. strlwr(formatted);
  270. printf("%-14s ", formatted);
  271. ++columns;
  272. if(columns == 5)
  273. {
  274. if(pflag)
  275. disp_line = chk_line(disp_line);
  276. printf("n");
  277. columns = 0;
  278. }
  279. }
  280. else
  281. {
  282. ext = "   ";
  283. sprintf(formatted, "%s", dmp.dm_name);
  284. if(lflag)
  285. strlwr(formatted);
  286. printf("%-15s",formatted);
  287. ++columns;
  288. if(columns == 5)
  289. {
  290. if(pflag)
  291. disp_line = chk_line(disp_line);
  292. printf("n");
  293. columns = 0;
  294. }
  295. }
  296. ++count;
  297. total += dmp.dm_size;
  298. }
  299. while(DosFindNext() == SUCCESS);
  300. }
  301. else
  302. {
  303. do
  304. {
  305. WORD hour = TM_HOUR(dmp.dm_time);
  307. if((*sopt != 0) && !((dmp.dm_attr_fnd & at_mask) == at_pat))
  308. continue;
  309. if(dmp.dm_name[0] == '.')
  310. ext = "";
  311. else
  312. for(ext = dmp.dm_name; *ext != NULL; ext++)
  313. {
  314. if(*ext == '.')
  315. {
  316. *ext++ = NULL;
  317. break;
  318. }
  319. }
  320. if(lflag)
  321. {
  322. strlwr(dmp.dm_name);
  323. strlwr(ext);
  324. }
  325. if(dmp.dm_attr_fnd & D_DIR)
  326. {
  327. if(bflag && *dmp.dm_name == '.')
  328. continue;
  329. if(pflag)
  330. disp_line = chk_line(disp_line);
  331. printf(bflag ? "n%s.%s" : "n   %8s %3s  <DIR>      %-2d-%-02d-%-02d  %-2d:%-02d%s",
  332. dmp.dm_name, ext,
  333. DT_MONTH(dmp.dm_date),
  334. DT_DAY(dmp.dm_date),
  335. (DT_YEAR(dmp.dm_date) + 1980) % 100,
  336. hour > 12 ? hour - 12 : (hour == 0) ? 12 : hour,
  337. TM_MIN(dmp.dm_time),
  338. hour >= 12 ? "p" : "a");
  339. }
  340. else
  341. {
  342. if(pflag)
  343. disp_line = chk_line(disp_line);
  344. printf(bflag ? "n%s.%s" : "n   %8s %3s %-10ld  %-2d-%-02d-%-02d  %-2d:%-02d%s",
  345. dmp.dm_name, ext, dmp.dm_size,
  346. DT_MONTH(dmp.dm_date),
  347. DT_DAY(dmp.dm_date),
  348. (DT_YEAR(dmp.dm_date) + 1980) % 100,
  349. hour > 12 ? hour - 12 : (hour == 0) ? 12 : hour,
  350. TM_MIN(dmp.dm_time),
  351. hour >= 12 ? "p" : "a");
  352. }
  353. ++count;
  354. total += dmp.dm_size;
  355. }
  356. while(DosFindNext() == SUCCESS);
  357. }
  359. /* /b does not print any statistics */
  360. if(bflag)
  361. {
  362. printf("nn");
  363. }
  364. else
  365. /* Now print the available free bytes (It's really clusters */
  366. /* translated to bytes. */
  367. {
  368. DosFree(0, (COUNT FAR *)&clst_size,(COUNT FAR *) &free_clst, (COUNT FAR *)&sec_size, (COUNT FAR *)&n_clst);
  369. printf("n  %-10d file(s)   %-10ld bytesn", count, total);
  370. printf(  "                       %-10lu bytes freenn",
  371. (ULONG)free_clst
  372. * (ULONG)sec_size
  373. * (ULONG)clst_size);
  374. }
  376. /* Change back to the current drive and directory, so that we */
  377. /* look like we just did a listing without all the gymnastics. */
  378. if((DosCd((BYTE FAR *)cudir)) != SUCCESS)
  379. {
  380. DosSetDrive(cudrvno);
  381. error_message(INV_DIR);
  382. return FALSE;
  383. }
  384. else
  385. {
  386. DosSetDrive(cudrvno);
  387. return TRUE;
  388. }
  389. }
  391. static COUNT chk_line(disp_line)
  392. COUNT disp_line;
  393. {
  394. BYTE line[MAX_CMDLINE];
  396. if(disp_line == 23)
  397. {
  398. printf("nStrike a key when ready . . .");
  399. DosRead(STDIN, line, MAX_CMDLINE);
  400. return 0;
  401. }
  402. return ++disp_line;
  403. }