Changeset 4161 for trunk/lisp/emacs-lisp/bindat.el

Timestamp:

2006年09月09日 16時30分10秒 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/emacs-lisp/bindat.el (modified) (5 diffs)

trunk/lisp/emacs-lisp/bindat.el

@@ -67 +67 @@
-;;  The corresponding Lisp bindat specification looks like this:
-;;
-
+bindat-
-;;    '((dest-ip   ip)
-;;      (src-ip    ip)
@@ -73 +73 @@
-;;      (src-port  u16)))
-;;
-
+bindat-
-;;    '((type      u8)
-;;      (opcode    u8)
@@ -81 +81 @@
-;;      (align     4)))
-;;
-
-
+bindat-
+bindat-
-;;      (items     u8)
-;;      (fill      3)
-;;      (item      repeat (items)
-
+bindat-
-;;
-;;
@@ -121 +121 @@
-;; Binary Data Structure Specification Format
-;; ------------------------------------------
+
+;; We recommend using names that end in `-bindat-spec'; such names
+;; are recognized automatically as "risky" variables.
-
-;; The data specification is formatted as follows:
@@ -343 +346 @@
-(defun bindat-unpack (spec bindat-raw &optional bindat-idx)
-  "Return structured data according to SPEC for binary data in BINDAT-RAW.
-  Optional third arg BINDAT-IDX specifies
-
+
+Optional third arg BINDAT-IDX specifies 
-  (when (multibyte-string-p bindat-raw)
-    (error "String is multibyte"))