/[MITgcm]/MITgcm/tools/OAD_support/cb2mGetModules.awk
ViewVC logotype

Contents of /MITgcm/tools/OAD_support/cb2mGetModules.awk

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (show annotations) (download)
Fri Nov 9 18:54:16 2012 UTC (11 years, 4 months ago) by utke
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64o, checkpoint64a, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint64n, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64c, checkpoint64g, checkpoint64f, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint65, checkpoint64j, checkpoint64m, checkpoint64l, HEAD
Changes since 1.1: +2 -2 lines
allow for extra spaces between the "#" and the  preprocessor directive name

1 BEGIN { commonDecl = 0}
2 /^ .*/ {commonDecl = 0 }
3 /^[^ ]/ && !/^# *ifdef / && !/^# *endif/ && !/^# *if / && !/^# *else/ && !/^c.*/ && !/^C.*/ {commonDecl = 0 }
4 /^ *COMMON/ || /^ *common/ { commonDecl = 1 }
5 /^# *ifdef / || /^# *endif/ || /^# *if / || /^# *else/ { if (commonDecl == 1) {print} }
6 {if (commonDecl ==0 ) print }
7 END {}

  ViewVC Help
Powered by ViewVC 1.1.22