solopre.awk

#/**********************************************************************
#axasm Copyright 2006, 2007, 2008, 2009 
#by Al Williams (alw@al-williams.com).
#
#
#This file is part of axasm.
#
#axasm is free software: you can redistribute it and/or modify it
#under the terms of the GNU General Public Licenses as published
#by the Free Software Foundation, either version 3 of the License, or
#(at your option) any later version.
#
#axasm is distributed in the hope that it will be useful, but
#WITHOUT ANY WARRANTY: without even the implied warranty of 
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
#GNU General Public License for more details.
#
#You should have received a copy of the GNU General Public License
#along with axasm (see LICENSE.TXT). 
#If not, see http://www.gnu.org/licenses/.
#
#If a non-GPL license is desired, contact the author.
#
#This is the assembler preprocessor
#
#***********************************************************************/
# expect -v LFILE=xxx argument (output of label definitions)
# allow -v PROC=xxx  (processor type)

# Note there are a few things the target macros must support
# LABEL, DEFLABEL - Supports the label system
#  DATA, DATA4  - Supports STRING and STRINGPACK
# Granted STRING and STRINGPACK ought to be removable somehow

BEGIN {
  if (LFILE!="") {
    if (PROC=="") {
      print "#include <soloasm.inc>";  # default inc file
    } else {
      print "#include <" PROC ".inc>";
    }
    print "#include \""  LFILE  "\""
    print "" > LFILE
    }
  }


# one time init
{
  if (first != 1) { first=1;   print "#line 1 \"" FILENAME "\""; }
}


# pass through any line directives
/^#line / { print; next; }


# pass through C code and C preprocessor
/^[ \t]*##/  {sub("^[ \t]*##","#");  print; next; }
/^[ \t]*#/  { sub("^[ \t]*#",""); print; next; }

   {
# This won't disturb semicolons if there is a quote
# directly after it. This could lead to trouble with
# semicolons in quoted strings, for example
# so we save just in case and string handling gets all of it

     withsemi=$0
     sub(";[^'\"].*$","");  # remove asm comments
     op=1;
   }





# deal with labels
/^[ \t]*[^ \t,]+:/   { 
     label=$1;
     sub(/:$/,"",label);
     print "DEFLABEL("  label  ");" >>LFILE;
     printf "LABEL("  label  "); ";
     $1="";
     op=2;
   }

# blank lines (maybe it used to have just a label)
/^[ \t]*$/ { print; next; } 
   {

# note: the below means your .h file that defines the processor
# must use uppercase names in macros but you are free to
# use mixed case in the assembly
# probably should make this an option somehow
     mac=toupper($op);
     $op="";
# unpacked string
     if (mac=="STRING") {
	 $op="";
	 strng=withsemi 
	 first=0;
# scan each letter. Note first quote, copy until 2nd quote
	 for (i=1;i<length(strng);i++) {
	     if (substr(strng,i,1)=="\"") {
		 if (first==0) { first=1;  continue; }
		 break;
	     }
	     if (!first) continue;
	     v=substr(strng,i,1);
#	     if (v=="\\") { v=substr(strng,i,2); i++; }
# handle \xNN \DDD or \C
	     if (v=="\\") {
		 v1=substr(strng,i+1,1);
		 if (v1=="x"||v1=="X") {
		     v="\\x"
		     i+=2;
		     v=v substr(strng,i,1)
		     v1=substr(strng,i+1,1)
		     if ((v1>="0"&&v1<="9")||(tolower(v1)>="a"&&tolower(v1)<="f")) {
			     v=v v1
			     i++
		     }
		 }
		 else if (v1>="0" && v1<="7") { 

		     while (v1>="0" && v1<="7") {
			 v=v v1;
			 i++;
			 v1=substr(strng,i+1,1);
		     }
		 } else {
		     v=substr(strng,i,2); 
		     i++;
		 }
		 
		 
	     }
	     print "\tDATA('" v "');"

	 }
	 next;
     }
# packed string. Same logic as STRING
     if (mac=="STRINGPACK") {
	 $op="";
	 strng=withsemi #  $0;
	 first=0;
	 last=0;
	 for (i=1;i<length(strng);) {
	     if (substr(strng,i,1)=="\"") {
		 i++;
		 if (first==0) { first=1;  continue; }
		 break;
	     }
	     if (!first) { i++; continue; }
	     printf "\tDATA4("
	     k=0;
	     for (j=0;j<4;j++) {
# should look at \x type escapes
		 v=substr(strng,i+k++,1);
# handle \xNN \DDD or \C
	     if (v=="\\") {
		 v1=substr(strng,i+k+1,1);
		 if (v1=="x"||v1=="X") {
		     v="\\x"
		     k+=2;
		     v=v substr(strng,k,1)
		     v1=substr(strng,k+1,1)
		     if ((v1>="0"&&v1<="9")||(tolower(v1)>="a"&&tolower(v1)<="f")) {
			     v=v v1
			     k++
			 }
		 }
		 else if (v1>="0" && v1<="7") {
		     while (v1>="0" && v1<="7") {
			 v=v v1;
			 k++;
			 v1=substr(strng,k+1,1);
		     }
		 } else {
		     v=substr(strng,k,2); 
		     k++;
		 }
	     }

#		 if (v=="\\") { v=substr(strng,i+j,2); j++; }
		 if (v=="\"") last=1;
		 if (last) v="\\000";
		 printf("'" v "'")
		 if (j!=3) printf(",");
	     }
	     print ");"
	     i+=k;
	 }
	 next;
     }
# just some generic monadic macro or one with arguments
     if ($(op+1)=="") print(mac ";"); else  print(mac  "("  $0   ");");
   }