doc/info/extract_categories1.sed

   1 s/@"/@\\"/g
   2 s/^@deffn  *{[^}]*}  *\([^[:blank:]]*\).*/(setq items (list (list "deffn" "\1")))/
   3 s/^@deffn  *[^[:blank:]][^[:blank:]]*  *\([^[:blank:]]*\).*/(setq items (list (list "deffn" "\1")))/
   4 s/^@defvr  *{[^}]*}  *\([^[:blank:]]*\).*/(setq items (list (list "defvr" "\1")))/
   5 s/^@defvr  *[^[:blank:]][^[:blank:]]*  *\([^[:blank:]]*\).*/(setq items (list (list "defvr" "\1")))/
   6 s/^@deffnx  *{[^}]*}  *\([^[:blank:]]*\).*/(if (not (member (list "deffn" "\1") items :test #'equal)) (nconc items (list (list "deffn" "\1"))))/
   7 s/^@deffnx  *[^[:blank:]][^[:blank:]]*  *\([^[:blank:]]*\).*/(if (not (member (list "deffn" "\1") items :test #'equal)) (nconc items (list (list "deffn" "\1"))))/
   8 s/^@defvrx  *{[^}]*}  *\([^[:blank:]]*\).*/(if (not (member (list "defvr" "\1") items :test #'equal)) (nconc items (list (list "defvr" "\1"))))/
   9 s/^@defvrx  *[^[:blank:]][^[:blank:]]*  *\([^[:blank:]]*\).*/(if (not (member (list "defvr" "\1") items :test #'equal)) (nconc items (list (list "defvr" "\1"))))/
  10 s/^@end deffn//
  11 s/^@end defvr//
  12 s/^@node  *\([^,]*\).*/(setq items (list (list "node" "\1")))/
  13 s/@opencatbox//
  14 s/@closecatbox//
  15 s/@category{\([^}]*\)}\s*/(setf (gethash "\1" *categories*) (append (gethash "\1" *categories*) (foo items)))/g