mif-doc.prl

来自「一个用在mips体系结构中的操作系统」· PRL 代码 · 共 41 行

#!/usr/local/bin/perl5 -w
#
# Copyright (C) 1996-1998 by the Board of Trustees
#    of Leland Stanford Junior University.
# 
# This file is part of the SimOS distribution. 
# See LICENSE file for terms of the license. 
#


print STDOUT "<MIFFile 4.0>\n";
print STDOUT "<Para\n";

while (<>) {

    if (/^#include/) {
        $file = $';
        chop($file);
        
        print STDOUT ">\n";

        open(INFILE, $file);
        while (<INFILE>) {
            print STDOUT;
        }
        close(INFILE);
        
        print STDOUT "<Para\n";

    } elsif (!/\S/) {
        print STDOUT ">\n";
        print STDOUT "<Para\n";

    } else {
        chop;
        print STDOUT "    <ParaLine <String `$_ '>>\n";
    }
}

print STDOUT ">\n";