From 9da2a031ce224fa2dc58f3c88ed5957024ced8ac Mon Sep 17 00:00:00 2001 From: Benedikt Gutsche Date: Mon, 27 Feb 2023 14:00:06 +0100 Subject: [PATCH] changed mimosis_i2c_cmd.pl --- scripts/mimosis_i2c_cmd.pl | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/scripts/mimosis_i2c_cmd.pl b/scripts/mimosis_i2c_cmd.pl index 13a13fd..8d9127a 100755 --- a/scripts/mimosis_i2c_cmd.pl +++ b/scripts/mimosis_i2c_cmd.pl @@ -11,7 +11,7 @@ my ( $fpga, $addr, $cmd, $cmd_t, $data, $data_t, $word ); Getopt::Long::Configure(qw(gnu_getopt)); GetOptions( - "fpga|f=s" => \$fpga, + "fpga|f=s" => \$fpga_t, "mimosis-reg|r=s" => \$reg_t, "mimosis-data|d=s" => \$data_t, "help|h" => \$help_t, @@ -28,19 +28,20 @@ END_MESSAGE exit(); } -defined($fpga) ? $fpga = hex($fpga) : die print("Must provide FPGA address.\n"); -defined($reg_t) - ? $reg_t = hex($reg_t) - : die print("Must provide Mimosis register.\n"); +if ( defined $fpga_t && defined $reg_t) { + $fpga_t = hex $fpga_t if ( $fpga_t =~ /^0x/ ); + $reg_t = hex $reg_t if ( $reg_t =~ /^0x/ ); +} +else {die print "Must provide FPGA address and register.\n";} trb_init_ports() or die trb_strerror(); if ( defined($data_t) ) { $data_t = hex($data_t) if ( $data_t =~ /^0x/ ); - Mimosis::mimosis_register_write( $fpga, $reg_t, $data_t ); + Mimosis::mimosis_register_write( $fpga_t, $reg_t, $data_t ); exit(); } else { - printf "%x\n", Mimosis::mimosis_register_read( $fpga, $reg_t ); + printf "%x\n", Mimosis::mimosis_register_read( $fpga_t, $reg_t ); exit(); } -- 2.43.0