Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
efdee9dd
Commit
efdee9dd
authored
Aug 23, 2007
by
Stefan Monnier
Browse files
Fix up comment style.
(hex-char-to-num, num-to-hex-char): Use new-style backquotes.
parent
36e65f70
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
14 deletions
+14
-14
lisp/gnus/hex-util.el
lisp/gnus/hex-util.el
+14
-14
No files found.
lisp/gnus/hex-util.el
View file @
efdee9dd
...
...
@@ -29,14 +29,14 @@
(
eval-when-compile
(
defmacro
hex-char-to-num
(
chr
)
(
`
(
let
((
chr
(
,
chr
))
)
(
cond
((
and
(
<=
?a
chr
)(
<=
chr
?f
))
(
+
(
-
chr
?a
)
10
))
((
and
(
<=
?A
chr
)(
<=
chr
?F
))
(
+
(
-
chr
?A
)
10
))
((
and
(
<=
?0
chr
)(
<=
chr
?9
))
(
-
chr
?0
))
(
t
(
error
"Invalid hexadecimal digit `%c'"
chr
)))))
)
`
(
let
((
chr
,
chr
))
(
cond
((
and
(
<=
?a
chr
)(
<=
chr
?f
))
(
+
(
-
chr
?a
)
10
))
((
and
(
<=
?A
chr
)(
<=
chr
?F
))
(
+
(
-
chr
?A
)
10
))
((
and
(
<=
?0
chr
)(
<=
chr
?9
))
(
-
chr
?0
))
(
t
(
error
"Invalid hexadecimal digit `%c'"
chr
)))))
(
defmacro
num-to-hex-char
(
num
)
(
`
(
aref
"0123456789abcdef"
(
,
num
)))
))
`
(
aref
"0123456789abcdef"
,
num
)))
(
defun
decode-hex-string
(
string
)
"Decode hexadecimal STRING to octet string."
...
...
@@ -44,9 +44,9 @@
(
dst
(
make-string
(
/
len
2
)
0
))
(
idx
0
)(
pos
0
))
(
while
(
<
pos
len
)
;
;; logior and lsh are not byte-coded.
;
;;
(aset dst idx (logior (lsh (hex-char-to-num (aref string pos)) 4)
;
;; (hex-char-to-num (aref string (1+ pos)))))
;; logior and lsh are not byte-coded.
;; (aset dst idx (logior (lsh (hex-char-to-num (aref string pos)) 4)
;; (hex-char-to-num (aref string (1+ pos)))))
(
aset
dst
idx
(
+
(
*
(
hex-char-to-num
(
aref
string
pos
))
16
)
(
hex-char-to-num
(
aref
string
(
1+
pos
)))))
(
setq
idx
(
1+
idx
)
...
...
@@ -59,11 +59,11 @@
(
dst
(
make-string
(
*
len
2
)
0
))
(
idx
0
)(
pos
0
))
(
while
(
<
pos
len
)
;
;; logand and lsh are not byte-coded.
;
;;
(aset dst idx (num-to-hex-char (logand (lsh (aref string pos) -4) 15)))
;; logand and lsh are not byte-coded.
;; (aset dst idx (num-to-hex-char (logand (lsh (aref string pos) -4) 15)))
(
aset
dst
idx
(
num-to-hex-char
(
/
(
aref
string
pos
)
16
)))
(
setq
idx
(
1+
idx
))
;
;;
(aset dst idx (num-to-hex-char (logand (aref string pos) 15)))
;; (aset dst idx (num-to-hex-char (logand (aref string pos) 15)))
(
aset
dst
idx
(
num-to-hex-char
(
%
(
aref
string
pos
)
16
)))
(
setq
idx
(
1+
idx
)
pos
(
1+
pos
)))
...
...
@@ -71,5 +71,5 @@
(
provide
'hex-util
)
;;
;
arch-tag: fe8aaa79-6c86-400e-813f-5a8cc4cb3859
;; arch-tag: fe8aaa79-6c86-400e-813f-5a8cc4cb3859
;;; hex-util.el ends here
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment