//-----------------------------------------------------------------
// pnm2bmp.c:
//     PNM(白黒/濃淡/カラー)画像からビットマップへの変換
//            Last Update: <2004/12/05 10:08:24 A.Murakami>
//-----------------------------------------------------------------
#include <stdio.h>
#include <math.h>
#include "bmp.h"
#include "pnm_lib.h"

// パス名の分割
void split_path(char* fpath,char* dir,char* file,char* ext);

int main(int argc,char* argv[])
{
    char *ifile,ofile[MAX_PATH];
    BMPInfo bi; PNMInfo pi;
    PIXEL *pdata,*bdata;
    char dir[MAX_PATH],file[MAX_PATH],ext[10];
    //--------------------------------------------------
    // ファイル名
    //--------------------------------------------------
    if(argc<2) {
        fprintf(stderr,"USAGE: %s pnmfile\n",argv[0]);
        return 0;
    }
    ifile = argv[1];
    split_path(ifile,dir,file,ext);
    sprintf(ofile,"%s.bmp",file);
    //--------------------------------------------------
    // PPM形式の読取
    //--------------------------------------------------
    pdata = read_pnm(ifile,&pi);
    if(pdata == NULL){
        fprintf(stderr,"pnm read error.\n");
        return 0;
    }
    //--------------------------------------------------
    // BMP形式へのデータ変換
    //--------------------------------------------------
    if(pi.itype==PNM_P3 || pi.itype==PNM_P6){
        bdata = ppm2bmp(pi,pdata);
    } else {
        bdata = pgm2bmp(pi,pdata);
    }
    //--------------------------------------------------
    // ビットマップ出力
    //--------------------------------------------------
    fprintf(stderr,"**output to %s\n",ofile);
    init_bmp(&bi,pi.itype,pi.iw,pi.ih);
    // 出力
    output_bmp(ofile,bi,bdata);
    fprintf(stderr,"done.\n",ofile);
    // 後片付け
    free(pdata); free(bdata);
    return 0;
}

//-----------------------------------------------------------------
// パス名の分割
//-----------------------------------------------------------------
void split_path(char* fpath,char* dir,char* file,char* ext)
{
    int i,len=strlen(fpath);
    // file and ext
    for(i=len-1;i>=0;i--)
        if(fpath[i]=='.') break;
    strncpy(ext,fpath+i,len-i);
    strncpy(file,fpath,i);
    ext[len-i] = '\0'; file[i] = '\0';
    // dir
    len = i;
    for(i=len-1;i>=0;i--)
        if(file[i]=='/') break;
    i++;
    strncpy(dir,file,i);
    strncpy(file,file+i,len-i);
    dir[i] = '\0'; file[len-i] = '\0';
}