diff options
| author | letouzey | 2002-10-31 17:59:02 +0000 |
|---|---|---|
| committer | letouzey | 2002-10-31 17:59:02 +0000 |
| commit | 5d8ed22ff06926b0c9c2cf1d8c4ab3c45ef07f0b (patch) | |
| tree | 0cefe434aaa4d97df9d90e2e26dc4637f4d11a37 /contrib/extraction/test/make_mli | |
| parent | 7d4a72a3a4eb6a4b06afc7611424ded4a19c6653 (diff) | |
L'extraction c'est magic cvs -n up
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3199 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/test/make_mli')
| -rwxr-xr-x | contrib/extraction/test/make_mli | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/contrib/extraction/test/make_mli b/contrib/extraction/test/make_mli new file mode 100755 index 0000000000..40ee496ea2 --- /dev/null +++ b/contrib/extraction/test/make_mli @@ -0,0 +1,17 @@ +#!/usr/bin/awk -We $0 + +{ match($0,"^open") + if (RLENGTH>0) state=1 + match($0,"^type") + if (RLENGTH>0) state=1 + match($0,"^\(\*\* ") + if (RLENGTH>0) state=2 + match($0,"^let") + if (RLENGTH>0) state=0 + match($0,"^and") + if ((RLENGTH>0) && (state==2)) state=0 + if ((RLENGTH>0) && (state==1)) state=1 + gsub("\(\*\* ","") + gsub("\*\*\)","") + if (state>0) print +} |