Annotation of parser3/src/classes/classes.awk, revision 1.1
1.1 ! paf 1: # Parser: classes.inc 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: double.C,v 1.23 2001/04/28 13:49:13 paf Exp $
! 8:
! 9: /\.C/ && !/op\.C/ {
! 10: $s=$0
! 11: $c=sprintf("M%s%s", toupper(substr($s,0,1)),substr($s,2,length($s)-3))
! 12: printf "extern Methoded *%s_create(Pool& pool); *this+=%s_create(pool());\n", $c,$c
! 13: }
E-mail: