Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!
/*************************************************************/
/* Program Name: BAT2COM.C 1.50 */
/* Author: Dong Zhanshan */
/* Completion Date: 1993,1995 */
/* Purpose: Convert batch files (.bat) to command files (.COM) */
/* Compilation Method: You can get BAT2COM.COM by compiling and linking with the following commands: */
/* tcc -mt bat2com */
/* tlink c:\tc\lib\c0t+bat2com,bat2com,,c:\tc\lib\cs\lib /t */
/*************************************************************/
#include <stdio.h>
#include <string.h>
/* Generate the header of the command file, including the machine instructions for calling 2EH */
char bat2comhead = {
0xBB,0x00,0x10,0xB4,0x4A,0xCD,0x21,0x0E,0x1F,0x2E,
0x8B,0x0E,0x51,0x01,0xBE,0x51,0x01,0x8B,0xC6,0x50,
0x5B,0x51,0x83,0xC3,0x02,0x8B,0xF3,0x33,0xDB,0x8A,
0x1C,0x53,0x56,0x2E,0x8C,0x16,0x4D,0x01,0x2E,0x89,
0x26,0x4F,0x01,0xCD,0x2E,0x0E,0x1F,0x2E,0x8B,0x26,
0x4F,0x01,0x2E,0x8E,0x16,0x4D,0x01,0x58,0x5B,0x59,
0x03,0xC3,0x50,0x83,0xE9,0x01,0x83,0xF9,0x00,0x75,
0xCD,0xB8,0x00,0x4C,0xCD,0x21,0xC3,0x00,0x00,0x00,
0x00};
int totallength; /* Total length of the generated file */
char buffer; /* Buffer for generating the command file */
/* Function to remove leading meaningless spaces in batch commands */
void removespace(str1)
char *str1;
{
unsigned int i=0;
char *str2;
str2=str1; /* str2 points to the address of str1 */
if ((str1==' ') && (i==0))
{
++str1; /* Increment the address of str1 */
movmem(str1,str2,strlen(str1)+1); /* Remove one leading space */
removespace(str2); /* Recursive call to this function */
}
}
/* Function to change "%%" to "%" in batch commands */
void removedouble(str1)
char *str1;
{
unsigned int j,i=0;
char *str2;
str2=str1; /* str2 points to the address of str1 */
if ((str1=='%') && (str1=='%'))
{
--i;
for (j=0;j<i;j++) {
++str1;++str2;
}
++str1;
movmem(str1,str2,strlen(str1)+1); /* Remove one '%' character */
removedouble(str2); /* Recursive call to this function */
}
}
/* Function to remove the "@" symbol in batch commands */
void removeatchar(str1)
char *str1;
{
char *str2;
str2=str1; /* str2 points to the address of str1 */
if (str1=='@')
{
++str1;
movmem(str1,str2,strlen(str1)+1); /* Remove the character '@' */
}
}
/* Convert all batch commands and write to the buffer */
void transfer(flnm)
char *flnm;
{
unsigned int i, cmnum=0;
char strlen1,ch,str1,*p,*cm;
FILE *txtfl;
if ((txtfl=fopen(flnm,"r"))==NULL) {
printf("Input file is not found !");
exit(0);
}
p = buffer; /* p points to the start address of the buffer */
for (i=0;i<81;++i) *p++=bat2comhead; /* Write the command file header to the buffer */
ch = 0x0d; /* Carriage return character */
totallength = 83; /* Total length of the command file header plus 2 bytes */
for (i=0;i<2;i++) p++; /* Move the p pointer forward by 2 bytes */
do {
fgets(str1,256,txtfl); /* Read a command from the batch file */
removespace(str1); /* Remove leading spaces */
removedouble(str1); /* Change "%%" to "%" */
removeatchar(str1); /* Remove the "@" character */
strlen1 = strlen(str1); /* Calculate the length of the command string */
if (strlen1>2) { /* Is it a valid command? */
++cmnum; /* Increment the command count */
*p++ = strlen1-1; /* Write the command length to the buffer */
++totallength; /* Increment the total length of the command file */
for (i=0;i<strlen1-1;++i) *p++ = str1; /* Write the command string to the buffer */
totallength += strlen1-1; /* Add the command string length to the total length of the command file */
*p++=ch; /* Write a carriage return character */
++totallength; /* Increment the total length of the command file */
strcpy(str1,""); /* Clear the command string content */
}
} while (!feof(txtfl)); /* Is it the end of the file? */
cm = &cmnum; /* Write the command count */
buffer = *cm++;
buffer = *cm;
fclose(txtfl); /* Close the file */
}
/* Write the constructed buffer content to the command file */
void writeBAT2COM(flnm)
char *flnm;
{
FILE *bfl;
unsigned int i;
char drive,dir,name,ext;
fnsplit(flnm,drive,dir,name,ext);
strcat(name,".com");
if ((bfl=fopen(name,"wb"))==NULL) { /* Create and open a binary file */
printf("File does not opened !");
exit(1);
}
fwrite(buffer,totallength,1,bfl); /* Write the content of the buffer */
/* for (i=0;i<totallength;++i) fprintf(bfl,"%c",buffer); */
/* for (i=0;i<totallength;++i) fputc(buffer,bfl); */
fclose(bfl);
}
/* Help function */
void help()
{
printf("\nSyntex : B2C Batch_filename");
exit(0);
}
/* Main function */
main(argc,argv)
int argc;
char *argv;
{
char flnm;
printf("\nB2C Version 1.0 Copyright (c) 1993,94 Dong Zhanshan");
switch (argc) {
case 1 : help();break;
case 2 : strcpy(flnm,argv);break;
default: help();
}
transfer(flnm);
writeBAT2COM(flnm);
}
