~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

Linux Cross Reference
cvs/emstar/timesync/util/pps.pl 

  1 #!/usr/bin/perl -w
  2 
  3 $time = time;
  4 
  5 open(PULSEAT, ">/proc/pulseat") || die "can't open pulseat: $!";
  6 
  7 for (;;) {
  8     $time++;
  9 
 10     $str = "$time.003000";
 11     print "writing $str\n";
 12 
 13     syswrite(PULSEAT, $str);
 14 }
 15 
 16 close(PULSEAT);
 17
~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~
This page was automatically generated by the LXR engine.
Visit the LXR main site for more information.