ASN.1 compiler 0.4: generates brief Doxygen file header for
authorAdam Dickmeiss <adam@indexdata.dk>
Thu, 20 Apr 2006 08:25:12 +0000 (08:25 +0000)
committerAdam Dickmeiss <adam@indexdata.dk>
Thu, 20 Apr 2006 08:25:12 +0000 (08:25 +0000)
generated .h/.c files.

util/yaz-asncomp

index c73adb7..157246c 100755 (executable)
@@ -6,10 +6,10 @@ exec tclsh "$0" "$@"
 # (c) Index Data 1996-2004
 # See the file LICENSE for details.
 #
 # (c) Index Data 1996-2004
 # See the file LICENSE for details.
 #
-# $Id: yaz-asncomp,v 1.4 2004-11-01 20:16:44 adam Exp $
+# $Id: yaz-asncomp,v 1.5 2006-04-20 08:25:12 adam Exp $
 #
 
 #
 
-set yc_version 0.3
+set yc_version 0.4
 
 # Syntax for the ASN.1 supported:
 # file   -> file module
 
 # Syntax for the ASN.1 supported:
 # file   -> file module
@@ -1089,20 +1089,29 @@ proc asnModules {} {
                set file(outp) [open $inf(h-path)/$inf(h-dir)$inf(p-file) w]
             }
 
                set file(outp) [open $inf(h-path)/$inf(h-dir)$inf(p-file) w]
             }
 
-           set greeting {Generated automatically by the YAZ ASN.1 Compiler}
+           set greeting {Generated automatically by YAZ ASN.1 Compiler}
 
 
-           puts $file(outc) "/* ${greeting} ${yc_version} */"
-           puts $file(outc) "/* Module-C: $inf(module) */"
+           puts $file(outc) "/** \\file $inf(c-file)"
+           puts $file(outc) "    \\brief ASN.1 Module $inf(module)"
+           puts $file(outc) ""
+           puts $file(outc) "    ${greeting} ${yc_version}"
+           puts $file(outc) "*/"
            puts $file(outc) {}
 
            puts $file(outc) {}
 
-           puts $file(outh) "/* ${greeting} ${yc_version} */"
-           puts $file(outh) "/* Module-H $inf(module) */"
+           puts $file(outh) "/** \\file $inf(h-file)"
+           puts $file(outh) "    \\brief ASN.1 Module $inf(module)"
+           puts $file(outh) ""
+           puts $file(outh) "    ${greeting} ${yc_version}"
+           puts $file(outh) "*/"
            puts $file(outh) {}
 
            if {[info exists file(outp)]} {
            puts $file(outh) {}
 
            if {[info exists file(outp)]} {
-               puts $file(outp) "/* ${greeting} ${yc_version} */"
-               puts $file(outp) "/* Module-P: $inf(module) */"
-               puts $file(outp) {}
+               puts $file(outp) "/** \\file $inf(p-file)"
+               puts $file(outp) "    \\brief ASN.1 Module $inf(module)"
+               puts $file(outp) ""
+               puts $file(outp) "    ${greeting} ${yc_version}"
+               puts $file(outp) "*/"
+               puts $file(outp) {}
             }
 
             if {[info exists inf(p-file)]} {
             }
 
             if {[info exists inf(p-file)]} {