#include <stdlib.h>
#include <stdio.h>
#include <stdarg.h>
#include <string.h>
#include <errno.h>
#include <math.h>
#include <unistd.h>
#include <signal.h>
#include <fcntl.h>
#include <setjmp.h>
#include <time.h>

//清自行添加tcc库文件
#include "libtcc.h"

// 行号修正量
int Amendment_LineNUM=0;

//C脚本函数 
int RunCscript(char* RAMRead, const char* FunctionName, const char* CommandLine)
{
	TCCState *S;
	int (*fun)(const char*);
	int ExitCode;
	unsigned long VL;
	S=tcc_new();

	if(!S){
		fprintf(stderr, "Error state\n");
		exit(1);
	}

	tcc_set_output_type(S, 0);

	if(tcc_compile_string(S, RAMRead)==-1){
		tcc_delete(S);
		fprintf(stderr, "Error compile\n");
		return -2;
	}

	tcc_add_symbol(S, "printf", (unsigned long)&printf);
	tcc_relocate(S);
	
	if(tcc_get_symbol(S, &VL, FunctionName)==-1){
		tcc_delete(S);
		fprintf(stderr, "Can't find the function name \"%s\"\n", FunctionName);
		exit(1);	
	}
	fun=(void*)VL;
	ExitCode=fun(CommandLine);
	
	tcc_delete(S);
	exit(ExitCode);
}

//读取脚本
int FileScript(const char* ScriptFile, const char* CommandLine, const char* FunctionName)
{
	FILE* fp;
	if( (fp=fopen(ScriptFile, "rb"))==NULL ){
		fputs("Read script file error\n", stdout);
		exit(-1);
	}
	
	//流位参数
	long  ReadStart=0, ReadEnd=0;
	//行计数器
	int i=0;
	//行存放器
	char* LCache=(char*)tcc_malloc(4097*sizeof(char));
	//辅助行指针
	char* Line;

	while(!feof(fp)){
		memset(LCache, 0,  4096*sizeof(char));
		fgets(LCache, 4096, fp);

		//指针置换
		Line=LCache;

		//行计数器
		i++;

		//过滤行TAB缩进或前空格
		while(*Line=='\t'|| *Line==' '){Line++;}

		//过滤注释符
		if(Line[0]=='/' &&Line[1]=='/'){
			continue;
		}
		//开始符
		if(
			(Line[0]=='/') &&
			(Line[1]=='|') &&
			(Line[2]=='|') &&
			(Line[3]=='|')
		){
			//获取起点流位
			ReadStart=ftell(fp);
			//提取行号修正量
			Amendment_LineNUM=i;

		//结束符		
		}else if(
			(Line[0]=='|') &&
			(Line[1]=='|') &&
			(Line[2]=='|') &&
			(Line[3]=='/')
		){
			break;
		}
	}

	//无法识别宏标签则退出
	if(ReadStart==0){exit(-2);}
	
	//计算结束位置
	ReadEnd=ftell(fp)-strlen(LCache);
	tcc_free(LCache);
	
	//脚本分离，读入内存 
	char* RAMRead=(char*)tcc_malloc((ReadEnd-ReadStart+1)*sizeof(char));
	fseek(fp, ReadStart, SEEK_SET);
	fread(RAMRead, ReadEnd-ReadStart, 1, fp);
	fclose(fp);
	
	//RAMRead为空则退出
	if(RAMRead==NULL){
		fprintf(stderr, "Error script string!\n");
		exit(-3);
	}

	RAMRead[ReadEnd-ReadStart]='\0';
	RunCscript(RAMRead, FunctionName, CommandLine);
	tcc_free(RAMRead);
	return 0;
}

/*************MAIN主函数入口*************/ 
int main(int argc, char** argv) 
{
	if(
		(argc      == 7                  ) &&
		(argv[1][0]=='-'                 ) &&
		(argv[1][1]=='s'||argv[1][1]=='S') &&
		(argv[3][0]=='-'                 ) &&
		(argv[3][1]=='f'||argv[3][1]=='F') &&
		(argv[5][0]=='-'                 ) &&
		(argv[5][1]=='v'||argv[5][1]=='V')
	){	
		char TCC_CUR_path[MAX_PATH]={0};
		GetModuleFileName(NULL,TCC_CUR_path,MAX_PATH);
		*(strrchr( TCC_CUR_path, '\\')+1) = 0;
		tcc_lib_path=TCC_CUR_path; 
		FileScript(argv[2], argv[6], argv[4]);
		return 0;
	}
	//异常则抛出使用说明
	fputs(
		"THE PARSER OF C SCRIPT, VERSION 1.0\n"
		"TINCS.EXE\n"
		"COPYRIGHT@2016~2018 BY HAPPY\n"
		"-------------------------------------------------------------------------\n"
		"tincs -s [ScriptFile] -f [FunctionName] -v [Parameters]\n"
		"-------------------------------------------------------------------------\n"
		"      -h  Show help information\n"
		"      -s  Specify the script file\n"
		"      -f  Specifies the function name\n"
		"      -v  Specifies the parameters\n"
		"-------------------------------------------------------------------------\n"
		"2016/11/23\n"
		,stdout
	);
	return -1;
}
复制代码

@echo off
copy /b 1.png + 1.zip 3.png 
pause
exit

REM CMD与C脚本混编，计算一首诗的汉字个数
REM 诗的内容存入字符串string里

set string=^
《春庭晚望》^
春庭聊纵望，楼台自相隐。^
窗梅落晚花，池竹开初荀。^
泉鸣知水急，云来觉山近。^
不愁花不飞，到畏花飞尽。

::***************************************************************************
echo;格式： tincs -s [脚本路径] -f [入口函数] -v [传入参数]
echo;

::***************************************************************************
echo 小写转大写
tincs -s "%~f0" -f strupr  -v "Youth means a temperamental predominance of courage over timidity, of the appetite for adventure over the love of ease"
echo;&echo;
::***************************************************************************
tincs -s "%~f0" -f strlenA -v  %string%
echo;这首诗共计%errorlevel%个汉字：%string%
pause>NUL&exit /b
::***************************************************************************


/|||

int strlenA(const char* str)
{
	int i=0;
	unsigned char* p=(unsigned char*)str;
	while(*p!='\0'){
		if(*p++>0x7F){*p++;}
		i++;
	}
	return i;
}

void strupr(const char *str)
{
	int i=0;
	unsigned char* p=(unsigned char*)str;
	while(*p!='\0'){
		*p=('a'<=*p && *p<='z')?*p-32:*p;
		printf("%c", *p++);
	}	
	return;
}

|||/
复制代码