Daniel Veillard | ce6e98d | 2000-11-25 09:54:49 +0000 | [diff] [blame] | 1 | $! BUILD_LIBXML.COM
|
| 2 | $!
|
| 3 | $! Build the LIBXML object library
|
| 4 | $!
|
| 5 | $! Ensure the logical name LIBXML is defined to point to the LIBXML source
|
| 6 | $! directory. This procedure creates an object library LIBXML.OLB in the LIBXML
|
| 7 | $! directory. After the library is built, you can link LIBXML routines into
|
| 8 | $! your code with the command $ LINK your_modules,LIBXML:LIBXML.OLB/LIBRARY
|
| 9 | $!
|
| 10 | $!
|
| 11 | $!------------------------------------------------------------------------------
|
| 12 | $ cc_command = "CC/DEBUG/NOOPT"
|
| 13 | $ lib_command = "LIBRARY/REPLACE LIBXML.OLB"
|
| 14 | $!
|
| 15 | $ exit_status = 1
|
| 16 | $ saved_default = f$environment("default")
|
| 17 | $ on error then goto ERROR_OUT
|
| 18 | $ set def libxml
|
| 19 | $ if f$search("DEBUG.DIR").eqs."" then create/dir [.DEBUG]
|
| 20 | $ if f$search("LIBXML.OLB").eqs."" then library/create LIBXML.OLB
|
| 21 | $!
|
| 22 | $ call COMPILE DEBUGXML.C
|
| 23 | $ call COMPILE ENCODING.C
|
| 24 | $ call COMPILE ENTITIES.C
|
| 25 | $ call COMPILE ERROR.C
|
| 26 | $ call COMPILE HTMLPARSER.C
|
| 27 | $ call COMPILE HTMLTREE.C
|
| 28 | $ call COMPILE NANOFTP.C
|
| 29 | $ call COMPILE NANOHTTP.C
|
| 30 | $ call COMPILE PARSER.C
|
| 31 | $ call COMPILE SAX.C
|
| 32 | $ call COMPILE TREE.C
|
| 33 | $ call COMPILE URI.C
|
| 34 | $ call COMPILE VALID.C
|
| 35 | $ call COMPILE XLINK.C
|
| 36 | $ call COMPILE XMLIO.C
|
| 37 | $ call COMPILE XMLLINT.C
|
| 38 | $ call COMPILE XMLMEMORY.C
|
| 39 | $ call COMPILE XPATH.C
|
| 40 | $!
|
| 41 | $EXIT_OUT:
|
| 42 | $ set def 'saved_default
|
| 43 | $ exit 'exit_status
|
| 44 | $!
|
| 45 | $
|
| 46 | $ERROR_OUT:
|
| 47 | $ exit_status = $status
|
| 48 | $ write sys$output 'f$message(exit_status)'
|
| 49 | $ goto EXIT_OUT
|
| 50 | $!
|
| 51 | $COMPILE: subroutine
|
| 52 | $ on warning then goto EXIT_COMPILE
|
| 53 | $ source_file = p1
|
| 54 | $ name = f$element(0,".",source_file)
|
| 55 | $ object_file = f$fao("[.debug]!AS.OBJ",name)
|
| 56 | $ cc_command /object='object_file 'source_file'
|
| 57 | $ lib_command 'object_file'
|
| 58 | $EXIT_COMPILE:
|
| 59 | $ exit $status
|
| 60 | $endsubroutine
|