Changeset 494 for trunk

Timestamp:

06/09/08 11:55:56 (4 years ago)

Author:

mgalloy

Message:

Added a processing step for each line in rst markup that converts characters like < and > to their character entities. This is a bit of a hack, though. This really should insert some character entity object into the text markup tree and have the output class decide what to do with it.

Files:

• trunk/idldoc/src/parser/docparrstmarkupparser__define.pro (modified) (2 diffs)

trunk/idldoc/src/parser/docparrstmarkupparser__define.pro

@@ -67 +67 @@
 
 
+;+
+; Substitute correct codes for less than, greater than, and other signs. 
+;
+; :Returns:
+;    string
+;
+; :Params:
+;    line : in, required, type=string
+;       line to process
+;-
+function docparrstmarkupparser::_processText, line
+  compile_opt strictarr
+  
+  output = ''
+  
+  for pos = 0L, strlen(line) - 1L do begin
+    ch = strmid(line, pos, 1)
+    case ch of
+      '<': output += '&lt;'
+      '>': output += '&gt;'
+      else: output += ch
+     endcase
+  endfor
+  
+  return, output
+end
+
+
 pro docparrstmarkupparser::_handleLevel, lines, start, indent, tree=tree, file=file
   compile_opt strictarr
@@ -97 +125 @@
     endif else begin
       if (code && (currentIndent eq -1 || currentIndent gt indent)) then begin
-        listing->addChild, obj_new('MGtmText', text=strmid(cleanline, indent))
+        listing->addChild, obj_new('MGtmText', text=self->_processText(strmid(cleanline, indent)))
         listing->addChild, obj_new('MGtmTag', type='newline')
       endif else begin     
-        para->addChild, obj_new('MGtmText', text=cleanline)
+        para->addChild, obj_new('MGtmText', text=self->_processText(cleanline))
         para->addChild, obj_new('MGtmTag', type='newline')
         code = 0B