From owner-FreeBSD-users-jp@jp.FreeBSD.org Sun Jul 30 23:52:28 2006
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id k6UEqSA99044;
	Sun, 30 Jul 2006 23:52:28 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from mail.asagaya.org (125-14-88-168.rev.home.ne.jp [125.14.88.168])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id k6UEqSQ99039
	for <freebsd-users-jp@jp.FreeBSD.org>; Sun, 30 Jul 2006 23:52:28 +0900 (JST)
	(envelope-from yuki@asagaya.org)
Received: from [127.0.0.1] (cebu.asagaya.org [192.168.3.3])
	by mail.asagaya.org (Postfix) with ESMTP id A8BCD5CCE
	for <freebsd-users-jp@jp.FreeBSD.org>; Sun, 30 Jul 2006 23:52:22 +0900 (JST)
From: Yuki Kamiya <yuki-FreeBSD-users-jp@asagaya.org>
To: freebsd-users-jp@jp.FreeBSD.org
Message-Id: <20060730232237.1995.YUKI-FREEBSD-USERS-JP@asagaya.org>
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-2022-JP"
Content-Transfer-Encoding: 7bit
X-Mailer: Becky! ver. 2.11.02 [ja]
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Sun, 30 Jul 2006 23:52:24 +0900
X-Sequence: FreeBSD-users-jp 89833
Subject: [FreeBSD-users-jp 89833] crossam2+USB
 =?ISO-2022-JP?B?GyRCJE5BYDpuSn1LIRsoQg==?= 
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: yuki-FreeBSD-users-jp@asagaya.org
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+060209

$B?@C+$H?=$7$^$9!#(B
# $B$3$A$i$N(B ML $B$K$O5W$7$V$j$K%a!<%k$r=q$-$^$9(B

$B8=:_!"%/%m%C%5%`(B2+USB $B$r(B FreeBSD $B%^%7%s$K@\B3$7$F%(%"%3%s!"(B
$B%3%s%]Ey$N@)8f$K%H%i%$$7$F$$$k$N$G$9$,!"$J$+$J$+$&$^$/$$$C$F(B
$B$$$^$;$s!#$b$74{$K>e5-$N%G%P%$%9$rMxMQ$7$F2HEE$N@)8f$r$5$l$F(B
$B$$$kJ}$,$$$i$C$7$c$l$P!"$<$R$I$N$h$&$K;HMQ$5$l$F$$$i$C$7$c$k(B
$B$+$465<x$$$?$@$-$?$/!"%a!<%k$rAw?.$5$;$F$$$?$@$-$^$7$?!#(B

$B$A$J$_$K(B FreeBSD 5.5R $B$r;HMQ$7$F$*$j$^$9!#(B

[$B4{$K$G$-$?$3$H(B]
$B%/%m%C%5%`(B2+USB $B$NG'<1(B
$B!!!&(Busbdevs $B$GG'<1$G$-$F$$$k$3$H$r3NG'$7$^$7$?(B
$B%/%m%C%5%`(B2+USB $B$r<jF0$GA`:n$9$k$3$H$K$h$kBP>]5!4o$N@)8f(B

[$B0lIt$G$-$?$3$H(B]
tip $B$rMxMQ$7$?%/%m%C%5%`(B2+USB $B$NA`:n(B
$B!!!&(Bhttp://web.archive.org/web/20011218210738/http://www.halcorp.co.jp/hard/crossam/transe.htm
$B!!!!$r8+$F!"$=$N$H$*$j$K%3%^%s%I$rAw?.$9$k$3$H$GA`:n$K@.8y(B
$B!!!&$?$@$7!"%3%^%s%IAw?.$4$H$K(B10$BICDxEY$NBT$A;~4V$,I,MW(B
$B!!!&(B/etc/remote $B$K$O0J2<$N9T$rDI2C(B
$B!!!!(Bcrossam:dv=/dev/ucom0:br#9600:pa=none:hd:

[$B$G$-$J$$$3$H!?$d$j$?$$$3$H(B]
Perl $B$rMxMQ$7$?%/%m%C%5%`(B2+USB $B$NA`:n(B
$B!!!&(B/dev/ucom0 $B$KD>@\=q$-9~$`J}K!(B(1)$B$d!"(BDevice::SerialPort $B$r(B
$B!!!!MxMQ$7$?J}K!(B(2)$B$r;n$9$b!"$&$s$H$b$9$s$H$b!&!&!&(B

$B<c43(B ML $B0c$$$+$b$7$l$^$;$s$,!"(B
$B!!!&$&$A$G$O$3$s$JJ}K!$GF0$+$7$F$$$k(B
$B!!!&%W%m%0%i%`$N$3$3$,$*$+$7$$(B
$BEy!9$4$6$$$^$7$?$i!"$J$K$H$>$h$m$7$/$*4j$$$$$?$7$^$9!#(B

(1) $B$N%=!<%9(B:
#!/usr/local/bin/perl

open(crossam, "> /dev/ucom0");

print crossam "/c\r\n";
sleep(10);
print crossam "/t5,40\r\n";
sleep(10);
print crossam "/c\r\n";

close(crossam);

(2) $B$N%=!<%9(B:
#!/usr/local/bin/perl

use strict;
use Device::SerialPort qw (:STAT);

my $port_device = '/dev/ucom0';
my $sleep_time	= 10;

my $initcmd	= "/c\r\n"; # initialize command

my $port = Device::SerialPort->new($port_device)
		|| die "Can't open $port_device: $^E\n";

# setup
$port->baudrate(9600);
$port->parity("none");
$port->databits(8);
$port->stopbits(1);
$port->handshake("none");
$port->write_settings || undef $port;

# execute a command
$port->write($initcmd);
sleep($sleep_time);
$port->write("/t5,40\r\n");
sleep($sleep_time);
$port->write($initcmd);

$port->close || die "failed to close";
undef $port;


-- 
Yuki Kamiya <yuki@asagaya.org>

