Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Improvements to the "opcode.html" page that documents the VDBE. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e6972343b0649ca4e13d748c51abde96 |
| User & Date: | drh 2014-07-25 18:38:09 |
Context
|
2014-07-26
| ||
| 18:03 | New image for the Das book. check-in: 800e621e25 user: drh tags: trunk | |
|
2014-07-25
| ||
| 18:38 | Improvements to the "opcode.html" page that documents the VDBE. check-in: e6972343b0 user: drh tags: trunk | |
| 12:35 | Add the book by Sribatsa Das. check-in: 258b50a4d4 user: drh tags: trunk | |
Changes
Changes to pages/opcode.in.
55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
unset file
# Scan $txt and replace every opcode name with a link to its documentation
#
proc LinkOpcodeNames {txt} {
global Opcode
set out {}
while {[regexp {^(.*?\s)((OP_)?[A-Z][a-z][A-Za-z]+)(.*)$} $txt \
all pre op opx tail]} {
append out $pre
regsub {^OP_} $op {} key
if {[info exists Opcode($key:text)]} {
append out "<a href=\"#$key\">$op</a>"
} else {
append out $op
}
set txt $tail
}
append out $txt
return $out
|
| | > > | |
55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 |
unset file
# Scan $txt and replace every opcode name with a link to its documentation
#
proc LinkOpcodeNames {txt} {
global Opcode
set out {}
while {[regexp {^(.*?\s)((OP_)?[A-Z][A-Za-z][A-Za-z]+)(.*)$} $txt \
all pre op opx tail] ||
[regexp {^(.*?\s)(OP_[A-Z][a-z])([^a-zA-Z_0-9].*)$} $txt \
all pre op tail]} {
append out $pre
regsub {^OP_} $op {} key
if {[info exists Opcode($key:text)]} {
append out "<a href=\"#$key\">$key</a>"
} else {
append out $op
}
set txt $tail
}
append out $txt
return $out
|