老司机精品久久,亚洲精品1234,亚洲特级毛片

flysnowxg — Sun, 06 Jul 2014 08:47:00 GMT

作者：flysnwoxg

c++�~�译器模板解析确实很强大。基本上可以把编译器看做是一个虚拟机�Q�c++模板源代码就是被执行的脚本代码�?/span>

基本上你可以在编译期实现��M��法�?br />

下面是一个按照从��到大，然后从大到小�Ҏ(gu��)��值对排序的程序，�E�序使用了冒泡排序，排序在编译期完成�?/div>

例如�E�序的原始输入�ؓ: ((5,6),(1,5),(3,4))

��被从小到大排序�?nbsp; ((1,5),(3,4),(5,6))

然后被从大到��排序�ؓ ((5,6),(3,4),(1,5))

//author:flysnowxg

#include "stdio.h"

//用模板表�C�类型，模板的实例化表示对象�Q�如pait_t<1,2> 表示(1,2)�q�样的两个值的对象�Q?/span>

template<int _first,int _second>

struct pair_t{

static const int first=_first;

static const int second=_second;

static void print(){printf("%d %d",first,second);}

};

//计算两个不同的pair_t�c�d��的实例的��于关系

template <typename T1,typename T2>

struct less_t{

static const int first_le=T1::first<T2::first;

static const int first_eq=T1::first==T2::first;

static const int second_le=(first_eq&&(T1::second<T2::second));

static const int result=first_le || second_le;

};

//计算两个不同的pair_t�c�d��的实例的大于关系

template <typename T1,typename T2>

struct greate_t{

static const int result=!less_t<T1,T2>::result;

};

struct null_t;

//�c�d��列表

template <typename T1,typename T2> struct list_t;

template <typename T>

struct list_t<T,null_t>{

typedef T value;

typedef null_t next;

};

template <typename T1,typename T2,typename T3>

struct list_t<T1,list_t<T2,T3> >

{

typedef T1 value;

typedef list_t<T2,T3> next;

};

#define list_t1(e1) list_t<e1,null_t>

#define list_t2(e1,e2) list_t<e1,list_t1(e2)>

#define list_t3(e1,e2,e3) list_t<e1,list_t2(e2,e3)>

#define list_t4(e1,e2,e3,e4) list_t<e1,list_t3(e2,e3,e4)>

#define list_t5(e1,e2,e3,e4,e5) list_t<e1,list_t4(e2,e3,e4,e5)>

#define list_t6(e1,e2,e3,e4,e5,e6) list_t<e1,list_t5(e2,e3,e4,e5,e6)>

#define list_t7(e1,e2,e3,e4,e5,e6,e7) list_t<e1,list_t6(e2,e3,e4,e5,e6,e7)>

#define list_t8(e1,e2,e3,e4,e5,e6,e7,e8) list_t<e1,list_t7(e2,e3,e4,e5,e6,e7,e8)>

#define list_t9(e1,e2,e3,e4,e5,e6,e7,e8,e9) list_t<e1,list_t8(e2,e3,e4,e5,e6,e7,e8,e9)>

#define list_t10(e1,e2,e3,e4,e5,e6,e7,e8,e9,e10) list_t<e1,list_t9(e2,e3,e4,e5,e6,e7,e8,e9,e10)>

//递归打印�c�d��列表中每个类型的�?/span>

template<typename T> struct print_t;

template<typename T>

struct print_t<list_t<T,null_t>>

{

typedef typename T result;

static void print(){

printf("\nelem::");

result::print();

}

};

template<typename T1,typename T2>

struct print_t<list_t<T1,T2>>

{

typedef typename T1 result;

static void print(){

printf("\nelem::");

result::print();

print_t<T2>::print();

}

};

//冒��排序��法

template<typename T,template <typename,typename> class CompareT> struct sort_t;

template<typename T,template <typename,typename> class CompareT>

struct sort_t<list_t<T,null_t> ,CompareT>{

typedef list_t<T,null_t> sort_head;

typedef T least_elem;

typedef null_t remainder;

typedef list_t<T,null_t> result;

};

template<typename T1,typename T2,template <typename,typename> class CompareT>

struct sort_t<list_t<T1,T2>,CompareT>{

template<bool _b_swap> struct swap_t{

typedef list_t<T1,T2> result;

};

template<> struct swap_t<false>{

typedef list_t<typename T2::value,list_t<T1,typename T2::next> > result;

};

static const int order=!CompareT<T1,T2::value>::result;

typedef typename swap_t<order>::result sort_head;//假如CompareT是less_t,��开头两个元素中大的攑։�面，��的攑֐��?/span>

typedef typename sort_t<typename sort_head::next,CompareT>::least_elem least_elem;//假如CompareT是less_t,获取列表中最��的元素

typedef list_t<typename sort_head::value,typename sort_t<typename sort_head::next,CompareT>::remainder> remainder;//��L��末尾那个最��元�?/span>

typedef list_t<least_elem,typename sort_t<remainder,CompareT>::result> result;//��最��元素和剩余已经排好序的元素链表�l�成一个新链表

};

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

{

typedef pair_t<50,6> e1_t;

typedef pair_t<9,10> e2_t;

typedef pair_t<1,2> e3_t;

typedef pair_t<7,8> e4_t;

typedef pair_t<3,4> e5_t;

typedef pair_t<-6,4> e6_t;

typedef list_t6(e1_t,e2_t,e3_t,e4_t,e5_t,e6_t) date_t;

printf("原始数据:");

print_t<date_t>::print();

typedef sort_t<date_t,less_t>::result data_ta;

printf("\n\n从小到大:");

print_t<data_ta>::print();

typedef sort_t<date_t,greate_t>::result data_tb;

printf("\n\n从大到小:");

print_t<data_tb>::print();

}

最后的输出�Q?/div>

原始数据:

elem::50 6

elem::9 10

elem::1 2

elem::7 8

elem::3 4

elem::-6 4

从小到大:

elem::-6 4

elem::1 2

elem::3 4

elem::7 8

elem::9 10

elem::50 6

从大到小:

elem::50 6

elem::9 10

elem::7 8

elem::3 4

elem::1 2

elem::-6 4

flysnowxg 2014-07-06 16:47 发表评论

tinyscheme完全注释

flysnowxg — Thu, 28 Nov 2013 09:55:00 GMT

lisp是一�U�神奇的语言�Q�scheme是lisp的一�U�方�a��?br />tinyscheme是一个scheme语言的解释器实现�Q�而这是我大幅修改�q�加了注释后的tinyscheme�Q�基于tinyscheme1.41�Q?br />代码地址�Q�http://flysnowxg.googlecode.com/svn/tinyscheme_note
原始代码�Q?http://tinyscheme.sourceforge.net/home.html
tinyscheme据说是实现的r5rs标准�Q�应当是实现了一部分�Q�因为模式匹配和语法定义的那部分昄��没实玎ͼ�
tinyscheme代码很简短而且实现的语�a�功能�q�算比较完整�Q�如果想研究一个lisp解释器的实现�Q�tinyscheme是值得研究�?br />tinyscheme实现了lambda、宏、�g�l�、异常、gc�q�些重要的语�a�机制�Q�还实现了许多库函数�Q�整个原版代码大�U�有6500行左叻I��但是原版代码有很多的宏定义和很多冗余的代码，代码分类也很混�ؕ�Q�可��L��不��特别好�Q�在阅读�q�程中我对这个代码进行了大量的修改，清除了大量冗余代码，重新�l�织了代码结构，主要的实现文件scheme.c被我�?000行改到只�?400行。所有代码加��h��也只�?500行了�Q�功能损�׃��不太�?br />修改一些bug�Q�比如像‘延箋’的实玎ͼ�原版像下面这��L(f��ng)��代码中， “(r 1)”�q�一句是没法�q�行�?br />(define r 0)
(let ((x 1))
(set! x
(+ x
(call/cc (lambda (c) (set! r c) (+ 44 (c 1)))))
)
(display x))
(r 1)

有兴��的可以看一看！

flysnowxg 2013-11-28 17:55 发表评论

自己动手写脚本语�a�

flysnowxg — Mon, 02 Sep 2013 07:45:00 GMT

�q�是我用c++写的一个简单的脚本语言�Q�非常简短，不到3000行代�?br />

代码地址�Q?a >http://sil-language.googlecode.com

sil语言�Q�simple interpretative lanuage�Q�是一个简单的脚本语言�Q�只是一个玩��P��目的是演�C�用��短的代码��d��Z��个可用的脚本语言
�q�样一个玩具会是怎么��L(f��ng)��呢？
sil的设计目标：
1 . 非常�Ҏ(gu��)��sil解释器嵌入到c++代码�?br />2 . 非常�Ҏ(gu��)��用c++代码来扩展sil的函数调用，使得c++和sil脚本非常�Ҏ(gu��)��交互
3 . 成�ؓ一个有��z�语法的动态语�a��Q�有�Ҏ(gu��)��使用的语�?br />4 . 拥有一个语�a�一般都应当拥有的语�?/p>

sil语法的完整定义可参考《sil语法说明》�?br />sil语言是动态类型的�Q�编译时不会��查函数的参数个数�Q�参数类型是否合适，甚至不会��查函数定义是否存在，只有��C��q�行时才会查扑և�敎ͼ��查参��C��数是否匹配�?br />对于内置函数�q�会��查参数类型是否匹配，如果不匹配会试着�q�行参数�c�d��转换
对于用户定义函数�Q�不会进行参数类型匹配的��?br />�W�一�?语法�Q?br />1. �c�d��Q?br /> sil暂时支持整�Ş�Q��Q点型�Q�字�W�串三种数据�c�d��Q�暂时不支持数组�Q�也不支持自定义�c�d��Q�这两点是比较严重的�~�点�Q?br /> sil是弱�c�d��的，变量不会和类型绑�?br /> 变量定义像是�q�样的：
var vi=1; //定义一个��gؓ整数1的变量vi
var vf=1.0;//定义一个��gؓ��点�?.0的变量vf
var vs="1.0";//定义一个��gؓ字符�?1.0"的字�W�串vs

2. 函数
sil是弱�c�d��的，所以定义函数时不需要声明�Ş参的�c�d��Q�支持return语句
函数像这样定�?
function myfun(str)
{
  print(str);
  return 0;
  print("after return\n");
}
函数像这栯��用：myfun("hello sil");

3. 分支
sil支持if else 语句,
像这��P��
var i=read();
if(i==1) print("a");
else if(i==2)
{
  print("b");
}
else print("c");

4. 循环
sil支持while和for循环�Q�支持continue�Q�break语句
while像这��P��
var i=1;
while(true)
{
  print("hello sil\n");
  i=i+1;
  if(i>5) break;
  if(i<3) continue;
  print("after continue\n");
}
for循环像这�?br /> for(var i=0;i<5;i=i+1) print(i+"\n");

5. 基本�q�算�W?br /> 比较�q�算支持 == != > <
��术�q�算支持 + - * / % �Q�还支持一�?-
逻辑�q�算支持 ! && ||
支持括号 ( ) 改变求值顺�?br /> ��符优先�U�和c中一�?br />
5. 内置函数
sil�c�d��|�函数是非常��的�Q�详见函数说明，以下列出两个比较重要的�?br /> eval 可对一个字�W�串形式的sil代码求�?br /> 例如 eval("for(var i=0;i<5;i=i+1)print(i);");
load 可以加蝲一个sil代码文�g�Q�代码文件中亦可递归调用load函数

6. c++嵌入和扩�?br /> 寥寥数行代码卛_��sil嵌入到c++�?br /> 一个c函数只要形参和返回值类型是int float string�Q�简单调用一个register_function卛_��函数注册到sil中，脚本卛_��方便的调用这些扩展函�?br /> extern工程中的代码�C�Z��了如何对sil提供文�g��d��函数的支�?br />
�W�二�?源代�?br /> �q�是一个用vs2008创徏的工�E�，�׃��使用了shared_ptr�Q�如果给vs2005引入shared_ptr的支持亦可在vs2005下编译通过
src目录下是sil语言用c++实现的内�?br /> consle目录下是sil语言的命令行解释�?br /> extern目录下是一个例子，演示了如何扩展sil的内�|�函�?br /> lib目录下是用sil写的库代码和一些测试代码，但是现在只有��单的��试代码�Q�里面有一个开�q�x��根和求圆周率的有意思的例子�Q?br /> doc目录下是文档
bin目录下是可执行文�?br />
�W�三�?函数说明
to_int ��一个��D�{换�ؓint�c�d��Q�例如：to_int("123");
to_float ��一个��D�{换�ؓfloat�c�d��Q�例如：to_float(2);
to_string ��一个��D�{换�ؓstring�c�d��Q�例如：to_string(254);
strlen 求字�W�串的长度，例如�Q�strlen("hello");
substr 截取字符串的的一部分�Q�例如：substr("hello",1,3);
eval 可以求��g��个字�W�串形式的表辑ּ��Q�例�? var code="1+2*3";eval(code);
load 可以加蝲�q�执行一个sil代码的文�Ӟ��例如�Q?load("../lib/math_test.sil");
exit �l�止脚本的执行，例如�Q�print("hello");exit();print("world");
print 打印一个��|��例如�Q�print("hello world"+3);
read 可以从控制台��d��一个字�W�串�Q�例如：var tmp=read();print(tmp);
bat 可以执行一个windows命��o�Q�例如：bat("dir");
list_function 打印已经定义的内�|�函数和脚本函数�Q�例如：list_funciton();
list_asm_code 打印�~�译出的代码�Q�例如：list_asm_code();
set_sil 可以讄��解释器的一些开养I��例如�Q�set_sil("",0);
help 昄��帮助信息�Q�例如：help();

flysnowxg 2013-09-02 15:45 发表评论

windows�l�构化异常（SEH�Q�、以及vc对结构化异常的封装以及c++异常机制的源代码分析

flysnowxg — Thu, 17 May 2012 14:25:00 GMT

什么时候动�W�？

flysnowxg 2012-05-17 22:25 发表评论

无题

flysnowxg — Sun, 29 Apr 2012 09:32:00 GMT

flysnowxg 2012-04-29 17:32 发表评论