--- /dev/null
+#!/usr/bin/perl
+# keil2sdcc.pl
+# converts Keil compatible header files to sdcc-compatible format
+# call (path)/keil2sdcc.pl keil_file_name sdcc_file_name
+#
+# Bela Torok - bela.torok@kssg.ch
+# Version: June 2001
+#
+# Limitation: Keil-style sfr and sbit definitions should begin
+# in the first column!
+#
+
+$keil_file = $ARGV[0];
+$sdcc_file = $ARGV[1];
+
+if (open (KEIL_FILE , "<" . $keil_file)) {
+# printf("Opening file: %s for output!\n", $keil_file);
+} else {
+ printf("Cannot open file: %s !\n", $keil_file);
+ exit (0);
+}
+
+if (open (SDCC_FILE ,">" . $sdcc_file)) {
+# printf("Opening file: %s for output!\n", $sdcc_file);
+} else {
+ printf("Cannot open file: %s !\n", $sdcc_file);
+ exit (0);
+}
+
+while ($input_buffer = <KEIL_FILE>) {
+
+ if( substr($input_buffer, 0, 3) eq 'sfr')
+ {
+ &convert( substr($input_buffer, 4) );
+ print SDCC_FILE "sfr at", $value, " ", $name, ";", $comment;
+ }
+ elsif( substr($input_buffer, 0, 4) eq 'sbit')
+ {
+ &convert( substr($input_buffer, 5) );
+ print SDCC_FILE "sbit at", $value, " ", $name, ";", $comment;
+ }
+ else {
+ print SDCC_FILE $input_buffer;
+ }
+
+}
+
+close (KEIL_FILE);
+close (SDCC_FILE);
+exit (0);
+
+sub convert
+{
+ local($arg) = @_;
+
+ ($command, $comment) = split(';' , $arg);
+
+ ($name, $value) = split('=' , $command);
+
+}
+
+
+
+
+
+
+
+
+
+
+
+