⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 iftoken.pl

📁 汇编编译器的最新版本的源码.买了自己动手写操作系统这本书的人一定要下
💻 PL
字号:
#!/usr/bin/perl

@list = ('', 'ZMACRO', 'NMACRO', 'TMACRO', '1', '+1', '1 2', '1,2',
	 'foo', 'foo bar', '%', '+foo', '<<');
@tests = ('token', 'empty');

print ";Testname=test; Arguments=-fbin -oiftoken.txt; Files=stdout stderr iftoken.txt"
print "%define ZMACRO\n";
print "%define NMACRO 1\n";
print "%define TMACRO 1 2\n";

foreach $x (@list) {
    print "\tdb 'N \"$x\":'\n";
    foreach $t (@tests) {
	print "%if$t $x\n";
	print "\tdb ' $t'\n";
	print "%else\n";
	print "\tdb ' n$t'\n";
	print "%endif\n";
    }
    print "\tdb 10\n";

    print "\tdb 'C \"$x\":'\n";
    foreach $t (@tests) {
	print "%if$t $x ; With a comment!\n";
	print "\tdb ' $t'\n";
	print "%else\n";
	print "\tdb ' n$t'\n";
	print "%endif\n";
    }
    print "\tdb 10\n";
}

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -