中国DOS联盟

/*************************************************************/
/*  程序名称: BAT2COM.C 1.50                                 */
/*  作    者: 董占山                                         */
/*  完成日期: 1993,1995                                      */
/*  用    途: 将批处理文件(.bat)转换为命令文件(.COM)         */
/*  编译方法: 用下列命令编译连接可以得到BAT2COM.COM:         */
/*  tcc -mt bat2com                                          */
/*  tlink c:\tc\lib\c0t+bat2com,bat2com,,c:\tc\lib\cs\lib /t */
/*************************************************************/

#include <stdio.h>
#include <string.h>

/* 生成命令文件的头部,包含调用2EH的机器指令 */
char bat2comhead[81] = {
    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;    /* 所生成文件的总长度 */
char buffer[10000]; /* 生成命令文件的缓冲区 */

/* 删除批命令中的无意义的前导空格函数 */
void removespace(str1)
char *str1;
{
  unsigned int i=0;
  char *str2;
  str2=str1; /* str2指向str1的地址 */
  if ((str1[i]==' ') && (i==0))
     {
     ++str1; /* str1地址加1 */
     movmem(str1,str2,strlen(str1)+1);  /* 删除一个前导空格 */
     removespace(str2);  /* 递归调用此函数 */
     }
}

/* 将批命令中的"%%"改为"%"的函数 */
void removedouble(str1)
char *str1;
{
  unsigned int j,i=0;
  char *str2;
  str2=str1; /* str2指向str1的地址 */
  if ((str1[i]=='%') && (str1[++i]=='%'))
     {
     --i;
     for (j=0;j<i;j++) {
       ++str1;++str2;
       }
     ++str1;
     movmem(str1,str2,strlen(str1)+1);  /* 删除一个'%'字符 */
     removedouble(str2);  /* 递归调用此函数 */
     }
}

/* 删除批命令中的"@"符号函数 */
void removeatchar(str1)
char *str1;
{
  char *str2;
  str2=str1; /* str2指向str1的地址 */
  if (str1[0]=='@')
     {
     ++str1;
     movmem(str1,str2,strlen(str1)+1);  /* 删除字符'@' */
     }
}

/* 转换所有的批命令,并写入缓冲区 */
void transfer(flnm)
char *flnm;
{
   unsigned int i, cmnum=0;
   char strlen1,ch,str1[256],*p,*cm;
   FILE *txtfl;
   if ((txtfl=fopen(flnm,"r"))==NULL) {
      printf("Input file is not found !");
      exit(0);
      }
   p = buffer; /* p指向缓冲区的开始地址 */
   for (i=0;i<81;++i) *p++=bat2comhead[i]; /* 将命令文件头写入缓冲区 */
   ch = 0x0d; /* 回车符 */
   totallength = 83; /* 命令文件头加2个字节的总长度 */
   for (i=0;i<2;i++) p++; /* p指针相前移动2个字节 */
   do {
     fgets(str1,256,txtfl); /* 从批文件中读一条命令 */
     removespace(str1);     /* 删除前导空格 */
     removedouble(str1);    /* 将"%%"改为"%" */
     removeatchar(str1);    /* 删除"@"字符 */
     strlen1 = strlen(str1);  /* 计算命令串长度 */
     if (strlen1>2) {       /* 合法命令? */
       ++cmnum;                    /* 命令数加1 */
       *p++ = strlen1-1;    /* 把命令长度写入缓冲区 */
       ++totallength;       /* 命令文件总长度加1 */
       for (i=0;i<strlen1-1;++i) *p++ = str1[i]; /* 将命令串写入缓冲区 */
       totallength += strlen1-1;  /* 命令文件总长度加上命令串长度 */
       *p++=ch;  /* 写入一个回车符 */
       ++totallength; /* 命令文件总长度加1 */
       strcpy(str1,""); /* 清除命令字符串内容 */
       }
   } while (!feof(txtfl)); /* 是文件尾吗 ? */
   cm = &cmnum; /* 写入命令个数 */
   buffer[81] = *cm++;
   buffer[80] = *cm;
   fclose(txtfl); /* 关闭文件 */
}

/* 将构造好的缓冲区内容写入命令文件 */
void writeBAT2COM(flnm)
char *flnm;
{
  FILE *bfl;
  unsigned int i;
  char drive[3],dir[65],name[9],ext[5];
  fnsplit(flnm,drive,dir,name,ext);
  strcat(name,".com");
  if ((bfl=fopen(name,"wb"))==NULL) { /* 建立并打开一个二进制文件 */
     printf("File does not opened !");
     exit(1);
     }
    fwrite(buffer,totallength,1,bfl); /* 写缓冲区的内容 */
/*  for (i=0;i<totallength;++i) fprintf(bfl,"%c",buffer[i]); */
/*  for (i=0;i<totallength;++i) fputc(buffer[i],bfl); */
  fclose(bfl);
}

/* 帮助函数 */
void help()
{
  printf("\nSyntex : B2C Batch_filename");
  exit(0);
}

/* 主函数 */
main(argc,argv)
int argc;
char *argv[];
{
   char flnm[80];
   printf("\nB2C Version 1.0 Copyright (c) 1993,94 Dong Zhanshan");
   switch (argc) {
     case 1 : help();break;
     case 2 : strcpy(flnm,argv[1]);break;
     default: help();
  }
  transfer(flnm);
  writeBAT2COM(flnm);
}