#!/usr/bin/perl

# reads ABITEQ.ini,
# produces "abit.h" with parameters for sensor readings

$itemno = -1;

while(<>) {
  if (/^ItemNo\s*=\s*(\d*)/) {
    if ($itemno != -1) {
      print("\t{ \"$name\" , $itemno, $type, $factor, $divisor, $offset },\n");
    }

    $itemno = $1;
  }
  if (/^ItemType\s*=\s*(\d*)/) {
    $type = $1;
  }
  if (/^Name\s*=\s*(.*)$/) {
    $name = $1;
    chop($name);
  }
  if (/^Factor\s*=\s*(\d*)/) {
    $factor = $1;
  }
  if (/^Divisor\s*=\s*(\d*)/) {
    $divisor = $1;
  }
  if (/^Offset\s*=\s*(\d*)/) {
    $offset = $1;
  }

}