This tool translates the default output of B::Concise into Prolog. The basic predicates are optree/1 which contains an optree and opcode/4.

Sample input:

Blarg::Floop::connections
B::Concise::compile(CODE(0x8220bf0))
h  <1> leavesub[23 refs] K/REFC,1 ->(end)
-     <@> lineseq KP ->h
1        <;> nextstate(Common::Blarg -1428 Blarg.pm:172) v ->2
-        <0> ex-const vP/4 ->2
2        <;> nextstate(Common::Blarg -1426 Blarg.pm:173) v ->3
-        <1> null K/1 ->-
7           <|> cond_expr(other->8) K/1 ->i
6              <2> eq sK/2 ->7
4                 <1> rv2av[t2] sK/1 ->5
3                    <$> gv(*_) s ->4
5                 <$> const(IV 2) s ->6
g              <2> sassign sKS/2 ->h
-                 <1> ex-aelem sK/2 ->9
-                    <1> ex-rv2av sKR/1 ->-
8                       <$> aelemfast(*_) s/1 ->9
-                    <0> ex-const s ->-
f                 <2> aelem sKRM*/2 ->g
d                    <1> rv2av[t3] sKR/1 ->e
c                       <2> aelem sKM/DREFAV,2 ->d
9                          <0> padav[@stuff:FAKE] sR ->a
b                          <1> rv2sv sK/1 ->c
-                             <@> scope sK ->b
-                                <0> ex-nextstate v ->a
-                                <1> ex-aelem sK/2 ->-
-                                   <1> ex-rv2av sKR/1 ->-
a                                      <$> aelemfast(*_) s ->b
-                                   <0> ex-const s ->-
e                    <0> padsv[$attrib_num:FAKE] s ->f
o              <2> aelem sK/2 ->h
m                 <1> rv2av[t5] sKR/1 ->n
l                    <2> aelem sKM/DREFAV,2 ->m
i                       <0> padav[@stuff:FAKE] sR ->j
k                       <1> rv2sv sK/1 ->l
-                          <@> scope sK ->k
-                             <0> ex-nextstate v ->j
-                             <1> ex-aelem sK/2 ->-
-                                <1> ex-rv2av sKR/1 ->-
j                                   <$> aelemfast(*_) s ->k
-                                <0> ex-const s ->-
n                 <0> padsv[$attrib_num:FAKE] s ->o
[download]

Sample output

I needed a tool to pass large bodies of code through B::Concise. This tool does just that. If your code is already loaded by perl, this tool can search down through your specified namespace and dump all the code out.

For the very least that highlighting has to resemble my Vim colorscheme. ;-)

So I wrote the following to read my (custom) color scheme file and create a corresponding CSS to be used with the "jaap" variation Corion supplied.

Disclaimer: This is far from a full-fledged vimscript parser/interpreter. It just reads a color scheme (try "zellner.vim" it should at least work with that) with the diamond operator and only "knows" about the "highlight" command from Vim. I hope it interprets at least this reasonably close to Vim's implementation.

If you actually produce something useful with if you have to host that CSS file somewhere and refer to it instead of the file Corion provided on his own site.

Update: Added some minimal comments.

As you might deduce from the questions in there, I'm not really a vimscript programmer. And I also didn't bother to mock with my vim files to test those. :-(