chiark
/
gitweb
/
~ian
/
chiark-tcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Padding works.
[chiark-tcl.git]
/
base
/
tables-examples.tct
diff --git
a/base/tables-examples.tct
b/base/tables-examples.tct
index 2c6711a07210b265442d3048fc26a5b3adc7d502..d74353098edf625ecbacc7d411539fdc32044eb1 100644
(file)
--- a/
base/tables-examples.tct
+++ b/
base/tables-examples.tct
@@
-1,5
+1,5
@@
Type hb: HBytes_Value @
Type hb: HBytes_Value @
-Init hb
@.start=0; @.end=0
;
+Init hb
hbytes_sentinel(&@)
;
Type hbv: HBytes_Var @
Init hbv @.hb=0; @.obj=0; @.var=0;
Fini hbv fini_hbv(ip, rc, &@);
Type hbv: HBytes_Var @
Init hbv @.hb=0; @.obj=0; @.var=0;
Fini hbv fini_hbv(ip, rc, &@);
@@
-18,30
+18,38
@@
Table hbytes HBytes_SubCommand
h2raw
hex hb
=> obj
h2raw
hex hb
=> obj
+ length
+ v hb
+ => int
prepend
v hbv
str ...
append
v hbv
str ...
prepend
v hbv
str ...
append
v hbv
str ...
+ rep-info
+ v hb
+ => obj
concat
str ...
=> hb
concat
str ...
=> hb
-# unprepend
-# v hbv
-# length int
-# => hb
-# unappend
-# v hbv
-# length int
-# => hb
-# chopto
-# v hbv
-# length int
-# => hb
-# pkcs5
-# meth enum(PadMethod, "hbytes pad subcommand")
-# obj ...
+ unprepend
+ v hbv
+ length int
+ => hb
+ unappend
+ v hbv
+ length int
+ => hb
+ chopto
+ v hbv
+ length int
+ => hb
+ pkcs5
+ meth enum(PadMethod, "hbytes pad subcommand")
+ v hbv
+ block obj
+ => int
# blockcipher
# encrypt charfrom("de","encrypt/decrypt")
# v hbv
# blockcipher
# encrypt charfrom("de","encrypt/decrypt")
# v hbv
@@
-59,9
+67,3
@@
Table hbytes HBytes_SubCommand
# key hb
# maclen int
# => hb
# key hb
# maclen int
# => hb
-
-#Table padmethod PadMethod
-# pa 1, 0
-
-#EntryExtra PadMethod
-# int pad, algname;