/*
*  programa ...... transbin.c (transforma em binario)
*  proposito ..... compilar algoritmos (arquivos com extensao .bin)
*  autor ......... fernando paim
**********/

#include <stdio.h>
#include <stdlib.h>

main ( int argc, char *argv [] ) {

	FILE *f;
	int erro;
    char arqc[12] = "            ";
    char arqr[12] = "            ";
    char c[60] = { "clipper " };
    char r[35] = { "rtlink file " };
    char *posbin;

    printf ( "%s", "\nTransbin (R) Gerenciador de Algoritmos versao 1.0" );
    printf ( "%s", "\nCopyright (C) Fapp Sistemas 1998. " );
    printf ( "%s", "Todos os direitos reservados - fapp\n\n");
    if ( argc < 2 )
    {
       printf ( "%s", "\nSintaxe => Transbin <arquivo>[<.bin>]\n" );
       exit (1);
    }
    else
    {
        strcpy ( arqc, argv[1] );
        if ( strstr ( arqc, ".bin" ) == NULL )
        {
            strcat ( arqc, ".bin" );
        }
    }
    f = fopen ( arqc, "r" );
    if ( f == NULL )
    {
        printf ( "\nErro    => %s, arquivo nao encontrado", arqc );
        printf ( "\nSintaxe => Transbin <arquivo>[<.bin>]\n" );
    }
    else
    {
        fclose (f);
        strcat ( c, arqc );
        strcat ( c, " /dFernando_Paim /uTransbin.ch" );
        erro = system ( c );
        if ( erro == 0 )
        {
            strcpy ( arqr, argv[1] );
            posbin = strstr ( arqr, ".bin" );
            if ( posbin != NULL )
            {
                posbin[0] = '.';
                posbin[1] = 'o';
                posbin[2] = 'b';
                posbin[3] = 'j';
            }
            else
            {
                strcat ( arqr, ".obj" );
            }
            f = fopen ( arqr, "r" );
            if ( f == NULL )
               printf ( "\nErro => arquivo <.obj> nao encontrado" );
            else
            {
                fclose (f);
                strcat ( r, arqr );
                system (r);
            }
        }
        else
            printf ( "\nerro na compilacao ..." );
    }
}