Documentation Source Text

Check-in [e6972343b0]
Login

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: e6972343b0649ca4e13d748c51abde96edf6b628
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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