go.pl

MIPS下的boottloader yamon 的源代码

#! /usr/local/bin/perl -s

if (`uname -s` =~ /sunos/i) 
{
   # We're on a Sun
   $port = "/dev/ecpp0";
} 
elsif (`uname -s` =~ /linux/i) 
{
   # We're on Linux 
   $port = "/dev/lp0";
}
else
{
   print("Unknown OS\n");
   exit;
}

system( "cat ./deleteall.fl > $port" );
system( "sleep 1"	             );
system( "cat yamon*.fl      > $port" );
system( "sleep 1"	             );
system( "cat ./lock.fl      > $port" );