lshifr

{"AbelianGroup" -> {"8"}, "AbortKernels" -> {"7"}, "Abort" -> {"2"}, 
 "AbortProtect" -> {"2"}, "Abs" -> {"1"}, 
 "AbsoluteCurrentValue" -> {"6"}, "AbsoluteDashing" -> {{"2", "6"}}, 
 "AbsoluteFileName" -> {"7"}, "AbsoluteOptions" -> {"4"}, 
 "AbsolutePointSize" -> {{"2", "6"}}, 
 "AbsoluteThickness" -> {{"2", "6"}}, "AbsoluteTime" -> {{"2", "6"}}, 
 "AbsoluteTiming" -> {"5"}, "AccountingForm" -> {"2"}, 
 "Accumulate" -> {{"6", "7"}}, "AccuracyGoal" -> {{"1", "5"}}, 
 "Accuracy" -> {{"1", "5"}}, "ActionMenu" -> {{"6", "8"}}, 
 "Active" -> {"3"}, "ActiveStyle" -> {"7"}, "AcyclicGraphQ" -> {"8"}, 

lshifr

(* Mathematica Package *)

(* Created by the Wolfram Workbench 05.01.2012 *)

BeginPackage["CodeHighlighterGenerator`"]
(* Exported symbols added here with SymbolName::usage *) 

HighlighterLocation;

HighlighterPackageName;

lshifr

ClearAll[getPatternSymbols, getDeclaredSymbols];
SetAttributes[{getPatternSymbols, getDeclaredSymbols}, HoldAll];
getPatternSymbols[expr_] :=
  Cases[Unevaluated[expr], 
   Verbatim[Pattern][ss_, _] :> HoldComplete[ss], {0, Infinity}, 
   Heads -> True];

getDeclaredSymbols[{decs___}] :=
  Thread@Replace[HoldComplete[{decs}], 
    HoldPattern[a_ = rhs_] :> a, {2}];