#!/usr/bin/env perl -w
# Created by Vitezslav Batrla 2005

sub usage {
        print "Usage: cdspeed [speed]\n";
        exit 1;
}

$speed = shift;

usage if $speed && ! ($speed =~ /^[0-9]+$/);

$cmd = 2;
if (! $speed) {
	$cmd = 1;
	$speed = 0;
} else {
	$speed = sprintf "%X", $speed;
}

open FH,
"mdb /usr/bin/cdrw 2>&1 << EOF
build_track_info::bp
:r -M
<esp+4/K | ::eval .>mydevice
<mydevice+1c/K | ::eval .>myfunc
<esp-4>esp
<esp/W $speed
<esp-4>esp
<esp/W $cmd
<esp-4>esp
<esp/W <mydevice
<esp-4>esp
<esp/W <eip
<eip::bp
<myfunc>eip
:c
::echo EAX:
<eax=D
::quit
<<EOF |
" or die("mdb /usr/bin/cdrw failed");

$eax = 0;
while (<FH>) {
	($eax) = /([0-9]+)/, last if $eax;
	$eax = 1 if /EAX:/;
}

if ($cmd == 1) {
	print "current speed: $eax\n";
} else {
	exit ($eax + 0 != 1);
}