home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / arc_lbr / mdcd10.arc / TESTC.PAS < prev    next >
Pascal/Delphi Source File  |  1988-10-26  |  8KB  |  136 lines
  1. {---- 10/23/1988  16:20:41 ----}
  2. {$A-,R-,B-,S-,I-,F-,O-,V-,N-,E-,D-,L-}
  3. {$M 1024,0,42000}                                { stack, min heap, max heap }
  4. {----------------------------------------------------------------------------}
  5. {                                                                            }
  6. {                             'TESTC.PAS'                                    }
  7. {                                                                            }
  8. {  This program tests the LZW Compression logic in MDCD1213.OBJ.  It also    }
  9. {  illustrates the calling sequence and interfacing methodology.             }
  10. {                                                                            }
  11. {  To run it, enter:                                                         }
  12. {                                                                            }
  13. {    testc inputfile outputfile                                              }
  14. {                                                                            }
  15. {  It will compress the input file into the output file.  No header records  }
  16. {  are added to identify the file name, date or anything else.  It is        }
  17. {  strictly a compressed file that can be decompressed with TESTD.           }
  18. {                                                                            }
  19. {  No validity checking is done to verify the input file or output file      }
  20. {  names.  This is strictly meant to illustrate a very simple use of the     }
  21. {  MDCD1213.OBJ module.                                                      }
  22. {                                                                            }
  23. {----------------------------------------------------------------------------}
  24.  
  25. Uses Dos;                                      { Borland DOS unit            }
  26.  
  27.   {$L MDCD1213.OBJ}              { assembler module for compress/decompress }
  28.  
  29. {$F+}
  30. Function CompressFile(InFile  : Word;     {handle of input file              }
  31.                       OutFile : Word;     {handle of output file             }
  32.                       AbsOfst : LongInt;  {absolute offset to start write at }
  33.                       ReturnR : Pointer;  {return info from CompressFile     }
  34.                       HashSg  : Word;     {segment:0 of allocated hash table }
  35.                       LZWtype : Word      {12 = 12 bit, 13 = 13 bit lzw      }
  36.                      )        : Word;     {-1 = good return                  }
  37.     external {MDCD1213.OBJ} ;
  38. {$F-}
  39.  
  40. {$F+}
  41. Function DeCompressFile(InFile  : Word;   {handle of input file              }
  42.                         OutFile : Word;   {handle of output file             }
  43.                         AbsOfst : LongInt;{absolute offset to start write at }
  44.                         ReturnR : Pointer;{return info from CompressFile     }
  45.                         HashSg  : Word;   {segment:0 of allocated hash table }
  46.                         LZWtype : Word    {12 = 12 bit, 13 = 13 bit lzw      }
  47.                        )        : Word;   {-1 = good return                  }
  48.     external {MDCD1213.OBJ} ;
  49. {$F-}
  50.  
  51. Type
  52.   ReturnRec = Record                      {return info from mdcd1213.obj     }
  53.     FileCrc  : Word;                      {  calculated file crc decompressed}
  54.     FileSize : LongInt;                   {  compressed/decompressed filesize}
  55.   end;                                    {..                                }
  56.  
  57. Const
  58.   HexXlate : Array[0..$F] of Char =       { table to translate word to hex   }
  59.              '0123456789ABCDEF';
  60.  
  61. Var
  62.   InF     : File;         { Input file                                       }
  63.   OutF    : File;         { Output file                                      }
  64.   IHandle : Word;         { Input file handle                                }
  65.   OHandle : Word;         { Output file handle                               }
  66.   HashPtr : Pointer;      { Pointer to LZW hash table allocated on heap      }
  67.   HashSeg : Word;         { Paragraph aligned (segment) of hash table        }
  68.   RC      : Word;         { Return code from compress/decompress function    }
  69.   ReturnR : ReturnRec;    { storage for return info from mdcd1213.obj        }
  70.  
  71. Begin
  72.  
  73. { compress test }
  74.  
  75.   If ( (Length(ParamStr(1)) = 0) or
  76.        (Length(ParamStr(2)) = 0) ) then begin
  77.     WriteLn;
  78.     WriteLn('Usage: testc inputfile outputfile');
  79.     WriteLn;
  80.     Halt(1);
  81.   end;
  82.  
  83.   Assign(InF, ParamStr(1));       {setup input file variable FileRec         }
  84.   Assign(OutF, ParamStr(2));      {setup output file variable FileRec        }
  85.   System.FileMode := 0;           {read only to get hidden/system files etc. }
  86.   Reset(InF,1);                   {open input file to assign handle          }
  87.   System.FileMode := 2;           {read write                                }
  88.   If (IOResult <> 0) then begin   {if file didn't open ok..                  }
  89.     WriteLn('Input File not found');{  user error message                    }
  90.     WriteLn('Program Canceled'); {  cancel message                          }
  91.     Halt(1);                      {  end program                             }
  92.   end;                            {..                                        }
  93.   Reset(OutF,1);                  {open output file to check for existance   }
  94.   If (IOResult = 0) then begin    {if file opened ok..                       }
  95.     Close(OutF);                  {close output file                         }
  96.     WriteLn('Output File exists');{  user error message                      }
  97.     WriteLn('Program Canceled'); {  cancel message                          }
  98.     Halt(1);                      {  end program                             }
  99.   end;                            {..                                        }
  100.   ReWrite(OutF,1);                {create/open output file to assign handle  }
  101.   IHandle := FileRec(InF).Handle; {extract input file handle from FileRec    }
  102.   OHandle := FileRec(OutF).Handle;{extract output file handle from FileRec   }
  103.   GetMem(HashPtr, 40960+15);      {get memory for hash table + 15 bytes      }
  104.   if Ofs(HashPtr^) = 0 then       {if offset already -0- then seg is okay    }
  105.     HashSeg := Seg(HashPtr^)      {  store segment                           }
  106.   else                            {else                                      }
  107.     HashSeg := 1+Seg(HashPtr^);   {  add 1 paragraph (16 bytes) to segment   }
  108.  
  109. { Compress the file }
  110.  
  111.   RC :=   CompressFile(Ihandle,   { input file handle                        }
  112.                        Ohandle,   { output file handle                       }
  113.                        0,         { file absolute offset in bytes to start   }
  114.                        @ReturnR,  { address of return data from compress     }
  115.                        HashSeg,   { segment of allocated hash table          }
  116.                        13);       { 13 bit compression                       }
  117.  
  118. { free memory and close files }
  119.  
  120.   FreeMem(HashPtr, 40960+15);     {get rid of heap memory for hash table     }
  121.   Close(InF);                     {close input file                          }
  122.   Close(OutF);                    {close output file                         }
  123.  
  124.   WriteLn;
  125.   Write('Compressed file size: ', ReturnR.FileSize);
  126.   Write('  CRC: ');
  127.   Write(HexXlate[Hi(ReturnR.FileCrc) shr 4]);
  128.   Write(HexXlate[Hi(ReturnR.FileCrc) and $F]);
  129.   Write(HexXlate[Lo(ReturnR.FileCrc) shr 4]);
  130.   Write(HexXlate[Lo(ReturnR.FileCrc) and $F]);
  131.   WriteLn;
  132.   WriteLn;
  133.  
  134. End.
  135.  
  136.