欢天喜地迎国庆，国产开源编程语言 RPP 1.87 发布！

最新推荐文章于 2024-09-24 22:41:56 发布

原创最新推荐文章于 2024-09-24 22:41:56 发布 · 2k 阅读

0 ·

CC 4.0 BY-SA版权

RPP 专栏收录该内容

21 篇文章

订阅专栏

本文详细介绍了RPP支持的超级宏及其使用方法，并通过BF解释器实例展示了其强大功能。从宏定义到BF语言实现，全方位解读RPP的独特特性。

更新如下：

1.支持超级宏

2.修复bug

下载地址：

https://github.com/roundsheep/rpp

超级宏可以任意定义语法，制约你的只有想象力：

void main()
{	
	==> 2 3 <==
	
	┏━━━━━┓
	┃ 1     2  ┃
	┃ 3     4  ┃  
	┗━━━━━┛	
}

mac$ ==> _word _word <==
{
	putsl(rstr($0)+rstr($1))
}

mac$ ┏━━━━━┓┃ _word _word ┃ ┃ _word _word ┃┗━━━━━┛
{
	putsl(rstr($0)+'--'+rstr($1)+'--'+rstr($2)+'--'+rstr($3))
}

下面是用RPP实现的BF解释器：

/*
BF解释器，下面是一个BF版的Hello World：
++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.
*/

void main()
{
	code=getsl
	rbuf<int> data(30000)
	rf.memset(data.begin,0,data.size)
	pd=0
	for pc=0;pc<code.count;pc++
		switch code[pc]
		case `>
			pd++
		case `<
			pd--
		case `+
			data[pd]++
		case `-
			data[pd]--
		case `.
			puts(rstr.format('%c',data[pd]))
		case `,
			data[pd]=rf.getch
		case `[
			if data[pd]==0
				pc=find< ++ >(pc,code,`[,`])
				continue//这里也可用continued
		case `]
			if data[pd]!=0
				pc=find< -- >(pc,code,`],`[)
				continue
}

int find<T>(int pc,rstr& code,int left,int right)
{
	count=0
	for i=pc;;i T
		if code[i]==left
			count++
		elif code[i]==right
			count--
		if count==0
			return i
}