Lines Matching defs:field
116 ;; bindat-get-field with the structure as first arg followed by a list
117 ;; of field names and array indexes, e.g. using the data above,
118 ;; (bindat-get-field decoded-structure 'item 1 'id)
139 ;; -- In (eval EXPR), the value of the last field is available in
179 ;; -- see bindat-get-field
193 ;; If FIELD is specified, the value is bound to that field.
287 (field (car item))
294 (if (and (consp field) (eq (car field) 'eval))
295 (setq field (eval (car (cdr field)))))
300 (if (memq field '(eval fill align struct union))
303 type field
304 field nil))
306 (setq len (apply 'bindat-get-field struct len)))
311 (if field
341 (if field
342 (setq struct (cons (cons field data) struct))
355 (defun bindat-get-field (struct &rest field)
356 "In structured data STRUCT, return value of field named FIELD.
357 If multiple field names are specified, use the field names to
360 An integer value in the field list is taken as an array index,
362 (while (and struct field)
363 (setq struct (if (integerp (car field))
364 (nth (car field) struct)
365 (let ((val (assq (car field) struct)))
367 (setq field (cdr field)))
384 (field (car item))
390 (if (and (consp field) (eq (car field) 'eval))
391 (setq field (eval (car (cdr field)))))
396 (if (memq field '(eval fill align struct union))
399 type field
400 field nil))
402 (setq len (apply 'bindat-get-field struct len)))
414 (if field
415 (setq struct (cons (cons field (eval len)) struct))
424 (if field (bindat-get-field struct field) struct) (eval len)))
429 (nth index (bindat-get-field struct field))
446 (if field
447 (setq last (bindat-get-field struct field)))
547 (field (car item))
553 (if (and (consp field) (eq (car field) 'eval))
554 (setq field (eval (car (cdr field)))))
559 (if (memq field '(eval fill align struct union))
562 type field
563 field nil))
565 (setq len (apply 'bindat-get-field struct len)))
570 (if field
571 (setq struct (cons (cons field (eval len)) struct))
580 (if field (bindat-get-field struct field) struct) (eval len)))
585 (nth index (bindat-get-field struct field))
600 (setq last (bindat-get-field struct field))