[albert-cvs] CVS: albert/spres/rules package.lisp,1.15,1.16

[Stig E S. <st...@us...>]

Update of /cvsroot/albert/albert/spres/rules
In directory sc8-pr-cvs1:/tmp/cvs-serv30936/spres/rules

Modified Files:
	package.lisp 
Log Message:
made package write contentlist to separate xml-file

Index: package.lisp
===================================================================
RCS file: /cvsroot/albert/albert/spres/rules/package.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** package.lisp	27 Oct 2003 01:04:06 -0000	1.15
--- package.lisp	27 Oct 2003 16:40:45 -0000	1.16
***************
*** 219,223 ****
  	  
  	  (when normal-objs
! 	    (let* ((?rec-state :refsect1)
  		   (?parent obj)
  		   ;;(var-count (loop for x in normal-objs when (typep x 'sdoc-variable) summing 1))
--- 219,227 ----
  	  
  	  (when normal-objs
! 	    (let* ((cl-name (get-object-name obj))
! 		   (file-id (strcat "package" +id-word-delim+ "contentlist" +id-word-delim+
! 				    (make-valid-entity cl-name)))
! 		   (fname (strcat cl-name "/" "contentlist"))
! 		   (?rec-state :refsect1)
  		   (?parent obj)
  		   ;;(var-count (loop for x in normal-objs when (typep x 'sdoc-variable) summing 1))
***************
*** 226,229 ****
--- 230,240 ----
  		   ;;(other-count (- obj-count var-count))
  		   )
+ 
+ 	      
+ 	      (register-separate-document (make-file-info :id file-id
+ 							  :dir nil
+ 							  :fname fname))
+ 	      (with-ok-document (doc fname doc)
+ 
  	      
  	      (when (>= var-count (albert-setting '("albert" "presentation" "variables" "separatepage")))
***************
*** 284,288 ****
  
  		     (put doc " </refentry>" (eol))))
! 	      ))
  	  
  	  (when (has-spres-flag? :simple-package)
--- 295,300 ----
  
  		     (put doc " </refentry>" (eol))))
! 	      ) ;; end special doc
! 	      )) ;; end normal-objs
  	  
  	  (when (has-spres-flag? :simple-package)