[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bindat.el

[Thien-Thi Nguyen]

Index: emacs/lisp/emacs-lisp/bindat.el
diff -c emacs/lisp/emacs-lisp/bindat.el:1.4 emacs/lisp/emacs-lisp/bindat.el:1.5
*** emacs/lisp/emacs-lisp/bindat.el:1.4 Mon Sep  1 15:45:19 2003
--- emacs/lisp/emacs-lisp/bindat.el     Sat Jun 11 23:56:33 2005
***************
*** 85,91 ****
  ;;    (items     u8)
  ;;    (fill      3)
  ;;    (item      repeat (items)
! ;;               ((struct data-spec)))))
  ;;
  ;;
  ;;  A binary data representation may look like
--- 85,91 ----
  ;;    (items     u8)
  ;;    (fill      3)
  ;;    (item      repeat (items)
! ;;               (struct data-spec))))
  ;;
  ;;
  ;;  A binary data representation may look like
***************
*** 131,137 ****
  ;;          |  ( [FIELD] align LEN )    -- skip to next multiple of LEN bytes
  ;;          |  ( [FIELD] struct SPEC_NAME )
  ;;          |  ( [FIELD] union TAG_VAL (TAG SPEC)... [(t SPEC)] )
! ;;          |  ( [FIELD] repeat COUNT SPEC )
  
  ;;          -- In (eval EXPR), the value of the last field is available in
  ;;             the dynamically bound variable `last'.
--- 131,137 ----
  ;;          |  ( [FIELD] align LEN )    -- skip to next multiple of LEN bytes
  ;;          |  ( [FIELD] struct SPEC_NAME )
  ;;          |  ( [FIELD] union TAG_VAL (TAG SPEC)... [(t SPEC)] )
! ;;          |  ( [FIELD] repeat COUNT ITEM... )
  
  ;;          -- In (eval EXPR), the value of the last field is available in
  ;;             the dynamically bound variable `last'.
***************
*** 151,157 ****
  ;;          -- Note: 32 bit values may be limited by emacs' INTEGER
  ;;             implementation limits.
  ;;
! ;;          -- Example: bits 2 will map bytes 0x1c 0x28 to list (2 3 7 11 13)
  
  ;; FIELD   ::= ( eval EXPR )          -- use result as NAME
  ;;          |  NAME
--- 151,158 ----
  ;;          -- Note: 32 bit values may be limited by emacs' INTEGER
  ;;             implementation limits.
  ;;
! ;;          -- Example: `bits 2' will unpack 0x28 0x1c to (2 3 4 11 13)
! ;;                                       and 0x1c 0x28 to (3 5 10 11 12).
  
  ;; FIELD   ::= ( eval EXPR )          -- use result as NAME
  ;;          |  NAME