Return to ident.awk CVS log

Up to [parser3project] / parser3

Annotation of parser3/ident.awk, revision 1.1

1.1     ! paf         1: #      Parser: ident.C generator
        !             2: #
        !             3: #      Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
        !             4: #
        !             5: #      Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
        !             6: #
        !             7: #      $Id: ident.awk,v 1.3 2001/10/11 09:29:35 parser Exp $
        !             8: 
        !             9: BEGIN {
        !            10:        OFS=""
        !            11:        print "const char *", project, "_RCSIds[]={"
        !            12:        print "\t\"$Project: ", project, " ------------------------------------------ $\","
        !            13: }
        !            14: 
        !            15: /\$Id\: .*? \$/ {
        !            16:     match($0, /\$Id\: .*? \$/)
        !            17:        print "\t\"", substr($0, RSTART, RLENGTH), "\","
        !            18: }
        !            19: 
        !            20: END {
        !            21:        print "\t0};"
        !            22: }