src/ppmc/unppmc.c

   1 /*
   2  Copyright (C) Arturo San Emeterio Campos 1999. All rights reserved.
   3  Permission is granted to make verbatim copies of this program for private
   4  use only. There is ABSOLUTELY NO WARRANTY. Use it at your OWN RISK.
   5
   6  This file is: "unppmc.c"
   7  Email: arturo@arturocampos.com
   8  Web: http://www.arturocampos.com
   9
  10
  11  Part of the ppmc decoder.
  12
  13  This module is the main module and calls the different modules to do
  14  the decoding of a file. When done prints kbyps.
  15 */
  16
  17
  18 // Bibliotecas necesarias
  19 #include <stdio.h>
  20 #include <stdlib.h>
  21 #include "range.h"      //the range coder functions and data
  22 #include "ppmcdata.h"
  23
  24
  25 // Declaracion de funciones del ppmcmain.c
  26 long filesize(FILE *stream);
  27
  28
  29
  30
  31 //Main
  32 void main (int argc, char *argv[])
  33 {
  34  unsigned long counter, //temporal counter for loops like for or while
  35           counter2,     //another temporal counter for sub loops
  36           size_file_output,     //the size of the output file
  37           main_counter;         //used in main
  38  char expected_flush=0; //used for checking flushing which can't be done
  39
  40
  41  // Print title, version and copyright
  42  printf("UNPPMC using range coder.\n");
  43  printf("Copyright (C) Arturo San Emeterio Campos 1999. All rights reserved.\n");
  44  printf("Permission is granted to make verbatim copies of this program for private\n");
  45  printf("use only. There is ABSOLUTELY NO WARRANTY. Use it at your OWN RISK.\n");
  46
  47
  48
  49  // Check for correct number of parameters
  50  if(argc!=3)
  51    {
  52    printf("Bad number of arguments.\n");
  53    exit(1);
  54    }
  55
  56
  57  // Try to open input and output files
  58  if((file_input=fopen(argv[1],"r+b"))==NULL)
  59    {
  60    printf("Couldn't open %s.\n",argv[1]);
  61    exit(1);
  62    }
  63
  64  if((file_output=fopen(argv[2],"w+b"))==NULL)
  65    {
  66    printf("Couldn't create %s.\n",argv[2]);
  67    exit(1);
  68    }
  69
  70
  71  // Get output length
  72  fread(&size_file_output,1,4,file_input);
  73
  74
  75  // Initialize ppmc decoder
  76  ppmc_alloc_memory();
  77  ppmc_initialize_contexts();
  78  ppmc_decoder_initialize();
  79
  80
  81
  82  // Initialize decoder
  83  range_decoder_init(&rc_decoder,file_input);
  84
  85
  86  // Start main loop which decodes the file
  87  main_counter=size_file_output-4; //take in account the bytes already written
  88  expected_flush=0;                //we don't expect a flush yet
  89
  90  while(main_counter!=0)
  91  {
  92
  93 // Try to decode current byte in order-4 if possible, else in lower ones
  94 ppmc_decode_order4();
  95 if(byte==-1)
  96  ppmc_decode_order3();
  97  if(byte==-1)
  98    {
  99    ppmc_decode_order2();
 100    if(byte==-1)
 101      {
 102      ppmc_decode_order1();
 103      if(byte==-1)
 104        {
 105        ppmc_decode_order0();
 106        if(byte==-1)         //check if it was an escape code
 107          {
 108          // Decode in order-(-1)
 109          ppmc_get_totf_ordern1();
 110          symb_cump=range_decoder_decode(&rc_decoder,total_cump);
 111          byte=ppmc_get_symbol_ordern1();
 112          ppmc_get_prob_ordern1();
 113          range_decoder_update(&rc_decoder,total_cump,symb_cump,symb_prob);
 114          coded_in_order=0;  //update all orders
 115
 116          // Now see if it's the code of flushing
 117
 118          if(symb_cump==256)
 119            {
 120            printf("Flushing.\n");
 121            ppmc_flush_mem_dec();
 122            expected_flush=0;
 123            continue;            //do not output byte nor update
 124            }
 125
 126          }
 127        }
 128      }
 129    }
 130
 131  // Output byte and update model
 132
 133  fputc(byte,file_output);
 134
 135  switch(coded_in_order) //update exclusion
 136    {
 137    case 0: ppmc_update_order0();        //update only order-0
 138    case 1: ppmc_update_order1();        //update order-0 and order-1
 139    case 2: ppmc_update_dec_order2();    //update order-0 1 and 2
 140    case 3: ppmc_update_dec_order3();
 141    case 4: ppmc_update_dec_order4();
 142    default: break;
 143   };
 144
 145
 146  // Check if flushing has to be done and has not been done.
 147  // This is optional, in case you limit the memory usage, you don't
 148  // need to include this
 149
 150  if(expected_flush==1)  // If flushing didn't happen, we can't decode
 151    {
 152    printf("Can't decompress file. Not enough memory.\nTry in a machine with more memory.\n");
 153    exit(1);
 154    }
 155  if(ppmc_out_of_memory==1)
 156    {
 157    expected_flush=1;    // Next code must be a flush code, otherwise we don't
 158                         // have enough memory, and therefore we can't decode
 159    }
 160
 161
 162  // Update order variables
 163
 164  o4_byte=o3_byte;
 165  o3_byte=o2_byte;
 166  o2_byte=o1_byte;
 167  o1_byte=byte;  //current one, is next time order-1
 168
 169  // Byte decoded and model updated, loop
 170  main_counter--;
 171
 172
 173  }
 174
 175
 176  ppmc_free_memory();
 177
 178  // Close file handles and free memory
 179  fclose(file_input);
 180  fclose(file_output);
 181
 182
 183  // Nicely exit
 184  exit(0);
 185 }
 186
 187
 188 // Ruotines not used by ppmc but rather by main.
 189 // Not including the range coder.
 190
 191
 192 // Returns the file size of a given file.
 193 long filesize(FILE *stream)
 194 {
 195    long curpos, length;
 196
 197    curpos = ftell(stream);
 198    fseek(stream, 0L, SEEK_END);
 199    length = ftell(stream);
 200    fseek(stream, curpos, SEEK_SET);
 201    return length;
 202 }
 203
 204