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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 压缩解压 > 查看源码
LZSSTEST.C
资源名称：LZSSLIB.zip　[点击查看]
上传用户：zhangcx
上传日期：2013-12-13
资源大小：18k
文件大小：1k
源码类别：

压缩解压

开发平台：

C/C++

LZSSTEST.C：源码内容
  1. /*
  3.   EDILZSS.DLL - Test program
  4.   Copyright 1991 Robert Salesas, All Rights Reserved.
  6.   See Pascal example for more information.
  8. */
  10. #include <windows.h>
  11. #include <dos.h>
  12. #include <string.h>
  15. int FAR PASCAL LZSSPackFile(LPSTR SrcFile, LPSTR DstFile);
  16. // Packs SrcFile to DstFile using a LZSS algorithm.
  18. int FAR PASCAL LZSSUnPackFile(LPSTR SrcFile, LPSTR DstFile);
  19. // Unpacks SrcFile to DstFile using a LZSS algorithm.
  22. int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
  23.    LPSTR lpszCmdLine, int nCmdShow )
  25. {
  26.   int  cmdCode;
  27.   int  errCode;
  28.   char *srcFile;
  29.   char *dstFile;
  30.   char *p;
  31.   char buf[255];
  33.   lstrcpy((LPSTR)buf, lpszCmdLine);
  34.   p = strtok(buf, " ");
  35.   if (p)
  36.     {
  37.       if (stricmp(p, "e") == 0)
  38. cmdCode = 1;
  39.       else
  40. cmdCode = 0;
  42.       srcFile = strtok(NULL, " ");
  43.       if (srcFile)
  44. {
  45.   dstFile = strtok(NULL, " ");
  46.   if (dstFile)
  47.     {
  48.       if (cmdCode == 1)
  49. errCode = LZSSPackFile(srcFile, dstFile);
  50.       else
  51. errCode = LZSSUnPackFile(srcFile, dstFile);
  53.       if (errCode)
  54. MessageBox(0, "ERROR #--, unable to complete operation.",
  55.    "EDI LZSS TEST", MB_OK | MB_ICONINFORMATION);
  56.       else
  57. MessageBox(0, "All done.",
  58.    "EDI LZSS TEST", MB_OK | MB_ICONEXCLAMATION);
  60.       return 0;
  61.     }
  62. }
  63.     }
  65.   MessageBox(0, "USAGE:  LZSSTEST e|d infile outfile", "EDI LZSS TEST",
  66.      MB_OK | MB_ICONINFORMATION);
  67. }