{"id":157,"date":"2007-07-02T19:27:00","date_gmt":"2007-07-02T18:27:00","guid":{"rendered":"http:\/\/bar-solutions.com\/wordpress\/?p=157"},"modified":"2007-07-02T19:29:00","modified_gmt":"2007-07-02T18:29:00","slug":"automatic-syntax-highlighting","status":"publish","type":"post","link":"https:\/\/blog.bar-solutions.com\/?p=157","title":{"rendered":"Automatic Syntax Highlighting…"},"content":{"rendered":"

In Windows Live Writer<\/a> you can add Plugins<\/a> that do certain things for you. One of those things is to add syntax highlighting to your postings.<\/p>\n

I found a Code Formatter for Windows Live Writer<\/a> that does just about all you need, except of course for PL\/SQL (and Delphi) code. Doing some more searching on the internet, brought me to this page<\/a>. On this page is explained how to implement code formatting for Delphi Code. It was done relatively easy by placing a new XML file in the languages folder and overwriting one file in your plugins folder. (scroll down to ‘Wrap up’ to find the instructions).<\/p>\n

<\/p>\n

Now, that’s part of the issue solved, how about that PL\/SQL code.<\/p>\n

I have this code:<\/p>\n

\n

CREATE OR REPLACE FUNCTION betwnstr (
   string_in      IN   VARCHAR2
 , start_in       IN   PLS_INTEGER
 , end_in         IN   PLS_INTEGER
 , inclusive_in   IN   BOOLEAN := TRUE
)
   RETURN VARCHAR2
IS
   v_start      PLS_INTEGER;
   v_numchars   PLS_INTEGER;
BEGIN
   IF    string_in IS NULL
      OR (start_in < 0 AND end_in > 0)
      OR (start_in > 0 AND end_in < 0)
      OR (start_in < 0 AND end_in > start_in)
      OR (start_in > 0 AND end_in < start_in)
   THEN
      RETURN NULL;
   ELSE
      IF start_in < 0
      THEN
         v_numchars := ABS (end_in) – ABS (start_in) + 1;
         v_start := GREATEST (end_in, -1 * LENGTH (string_in));
      ELSIF start_in = 0
      THEN
         v_start := 1;
         v_numchars := ABS (end_in) – ABS (v_start) + 1;
      ELSE
         v_start := start_in;
         v_numchars := ABS (end_in) – ABS (v_start) + 1;
      END IF; <\/font> <\/p>\n

      IF NOT NVL (inclusive_in, FALSE)
      THEN
         v_start := v_start + 1;
         v_numchars := v_numchars – 2;
      END IF; <\/font> <\/p>\n

      RETURN (SUBSTR (string_in, v_start, v_numchars));
   END IF;
END betwnstr;<\/font> <\/p>\n<\/blockquote>\n

And I want to easily format it into this: <\/p>\n<\/p>\n

\n
CREATE<\/span> <\/span>OR<\/span> <\/span>REPLACE<\/span> <\/span>FUNCTION<\/span> betwnstr (\r\n   string_in      <\/span>IN<\/span>   <\/span>VARCHAR2<\/span>\r\n , start_in       <\/span>IN<\/span>   <\/span>PLS_INTEGER<\/span>\r\n , end_in         <\/span>IN<\/span>   <\/span>PLS_INTEGER<\/span>\r\n , inclusive_in   <\/span>IN<\/span>   <\/span>BOOLEAN<\/span> :<\/span>=<\/span> <\/span>TRUE<\/span>\r\n)\r\n   <\/span>RETURN<\/span> <\/span>VARCHAR2<\/span>\r\n<\/span>IS<\/span>\r\n   v_start      <\/span>PLS_INTEGER<\/span>;\r\n   v_numchars   <\/span>PLS_INTEGER<\/span>;\r\n<\/span>BEGIN<\/span>\r\n   <\/span>IF<\/span>    string_in <\/span>IS<\/span> <\/span>NULL<\/span>\r\n      <\/span>OR<\/span> (start_in <\/span><<\/span> <\/span>0<\/span> <\/span>AND<\/span> end_in <\/span>><\/span> <\/span>0<\/span>)\r\n      <\/span>OR<\/span> (start_in <\/span>><\/span> <\/span>0<\/span> <\/span>AND<\/span> end_in <\/span><<\/span> <\/span>0<\/span>)\r\n      <\/span>OR<\/span> (start_in <\/span><<\/span> <\/span>0<\/span> <\/span>AND<\/span> end_in <\/span>><\/span> start_in)\r\n      <\/span>OR<\/span> (start_in <\/span>><\/span> <\/span>0<\/span> <\/span>AND<\/span> end_in <\/span><<\/span> start_in)\r\n   <\/span>THEN<\/span>\r\n      <\/span>RETURN<\/span> <\/span>NULL<\/span>;\r\n   <\/span>ELSE<\/span>\r\n      <\/span>IF<\/span> start_in <\/span><<\/span> <\/span>0<\/span>\r\n      <\/span>THEN<\/span>\r\n         v_numchars :<\/span>=<\/span> ABS (end_in) <\/span>-<\/span> ABS (start_in) <\/span>+<\/span> <\/span>1<\/span>;\r\n         v_start :<\/span>=<\/span> GREATEST (end_in, <\/span>-<\/span>1<\/span> <\/span>*<\/span> LENGTH (string_in));\r\n      <\/span>ELSIF<\/span> start_in <\/span>=<\/span> <\/span>0<\/span>\r\n      <\/span>THEN<\/span>\r\n         v_start :<\/span>=<\/span> <\/span>1<\/span>;\r\n         v_numchars :<\/span>=<\/span> ABS (end_in) <\/span>-<\/span> ABS (v_start) <\/span>+<\/span> <\/span>1<\/span>;\r\n      <\/span>ELSE<\/span>\r\n         v_start :<\/span>=<\/span> start_in;\r\n         v_numchars :<\/span>=<\/span> ABS (end_in) <\/span>-<\/span> ABS (v_start) <\/span>+<\/span> <\/span>1<\/span>;\r\n      <\/span>END<\/span> <\/span>IF<\/span>;\r\n\r\n      <\/span>IF<\/span> <\/span>NOT<\/span> NVL (inclusive_in, <\/span>FALSE<\/span>)\r\n      <\/span>THEN<\/span>\r\n         v_start :<\/span>=<\/span> v_start <\/span>+<\/span> <\/span>1<\/span>;\r\n         v_numchars :<\/span>=<\/span> v_numchars <\/span>-<\/span> <\/span>2<\/span>;\r\n      <\/span>END<\/span> <\/span>IF<\/span>;\r\n\r\n      <\/span>RETURN<\/span> (SUBSTR (string_in, v_start, v_numchars));\r\n   <\/span>END<\/span> <\/span>IF<\/span>;\r\n<\/span>END<\/span> betwnstr;<\/span><\/div><\/pre>\n
<\/div>\n<\/p>\n
So I decided to create my own XML file to do the syntax highlighting using this plugin. You can download the XML file here<\/a>. Please note that I am not an expert on the subject of these XML files, so if you have any ideas on how to make the XML file better, please don’t hesitate to contact me and maybe we can make the PL\/SQL code formatter better.<\/p>\n","protected":false},"excerpt":{"rendered":"
In Windows Live Writer you can add Plugins that do certain things for you. One of those things is to add syntax highlighting to your postings. I found a Code Formatter for Windows Live Writer that does just about all you need, except of course for PL\/SQL (and Delphi) code. Doing some more searching on […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,2,5,4],"tags":[],"class_list":["post-157","post","type-post","status-publish","format-standard","hentry","category-delphi","category-oracle","category-plsql","category-tools"],"_links":{"self":[{"href":"https:\/\/blog.bar-solutions.com\/index.php?rest_route=\/wp\/v2\/posts\/157","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.bar-solutions.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.bar-solutions.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.bar-solutions.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.bar-solutions.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=157"}],"version-history":[{"count":0,"href":"https:\/\/blog.bar-solutions.com\/index.php?rest_route=\/wp\/v2\/posts\/157\/revisions"}],"wp:attachment":[{"href":"https:\/\/blog.bar-solutions.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=157"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.bar-solutions.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=157"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.bar-solutions.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=157"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}