Subversion Repositories vtach

#!/usr/bin/gawk

#/**********************************************************************

#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 include file expander

#

#***********************************************************************/

# find the path

function pathto(file,    i, t, junk)

{

    if (index(file, "/") != 0)

        return file

    for (i = 1; i <= ndirs; i++) {

        t = (pathlist[i] "/" file)

        if ((getline junk < t) > 0) {

            # found it

            close(t)

            return t

        }

    }

    return ""

}

BEGIN {

    path = ENVIRON["AWKPATH"]

    ndirs = split(path, pathlist, ":")

    for (i = 1; i <= ndirs; i++) {

        if (pathlist[i] == "")

            pathlist[i] = "."

    }

# keep a stack of files

    stackptr = 0

    oldsp=-1

    input[stackptr] = ARGV[1] # ARGV[1] is first file

    linect[stackptr]=1;

    for (; stackptr >= 0; stackptr--) {

        if (oldsp!=stackptr) {

            print "#line " linect[stackptr] " \"" input[stackptr] "\"";

            oldsp=stackptr;

        }

# copy file while handling includes

        while ((getline < input[stackptr]) > 0) {

            if (tolower($1) != "##include") {

                print

                continue

            }

            fpath = pathto($2)

            if (fpath == "") {

                printf("include:%s:%d: cannot find %s\n", \

                    input[stackptr], FNR, $2) > "/dev/stderr"

                continue

            }

                processed[fpath] = input[stackptr]

                input[++stackptr] = fpath

                linect[stackptr]=1;

        }

        close(input[stackptr])

    }

}