#!/usr/bin/env python

# This program does its best to create a kate syntax file for the kate
# editor. I'm using a program to do this (rather than just editing the xml file)
# due to the long keyword lists ... and since mma can generate them ... let it
# do the hard work.

# And if you can improve this ... don't be shy!!!

# bvdp  May/2006

import sys, os, commands
	
# First create a item list of keywords from mma

l = commands.getoutput("mma -Dk")

for a in l.split('\n'):
	if a.startswith("Base"):
		classnames = a.split(":")[1:][0].split()
	if a.startswith("Commands"):
		sfuncs = a.split(":")[1:][0].split()
	if a.startswith("Track"):
		tfuncs = a.split(":")[1:][0].split()

# Combine the track and simple functions.

for a in tfuncs:
	if sfuncs.count(a) == 0:
		sfuncs.append(a)
sfuncs.sort()

# Got our info. Create xml ... this is printed to stdout.

print """<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE language SYSTEM "language.dtd">
<language name="Musical Midi Accompaniment" section="Other" version="1.00" kateversion="2.3" extensions="*.mma" author="Bob van der Poel" license="LGPL" >

<!--
    Autogenerated with katexml.py. If you modify this file you'll
    probably lose the changes. Hack the source instead!

    Highlighting file for kate editor and MMA - Musical Midi Accompaniment
    source files.  <bvdp@xplornet.com>
-->

"""

print """
<highlighting>
  <list name = "keys"> """

for a in sfuncs:
	print '     <item> %s </item>' % a.title()

print "   </list> "
   
print '   <list name = "classes"> '

for a in classnames:
	print '     <item> %s </item>' % a.title()
print "   </list> "
   
print '   <list name = "block"> '
   
for a in ('Begin', 'End'):
	print '     <item> %s </item>' % a
print "   </list>"

print " <contexts>"
print '   <context attribute="Normal Text" lineEndContext="#pop" name="Normal Text">'

# All the keywords get the same hilight.

print '     <keyword attribute="Keyword" context="#stay" String="keys" />'

# This creates a regexpr for each class so we can hilight words
# like Bass-Sus ... is there an easier way by modifying the
# basic Class attribute?????

for a in classnames:
	print '     <RegExpr attribute="Class" context="#stay" insensitive="True" String="%s\\-[A-Z0-9]*" />' % a
print '     <keyword attribute="Class" content="#stay" String="classes" />'

# The Begin/End block get a separate hilight

print '     <keyword attribute="Block" content="#stay" String="block" />'

# comments

print '     <Detect2Chars attribute="Comment" context="Comment" char="/" char1="/"/>'

# Macros - This does both $_xx and $xx. Note $__xx will not hilight (this illegal in MMA)

print '     <RegExpr attribute="Macro" context="#stay" String="\\$_?[a-zA-Z0-1]*\\b" />'

# linenumber, only if they start a line.

print '     <RegExpr attribute="Linenumber" context="#stay" String="^[0-9]*\\b" />'
print '   </context>'
print '   <context attribute="Comment" lineEndContext="#pop" name="Comment"/>'
print ' </contexts>'

# Set the hilight colors, etc.

print ' <itemDatas>'
print '   <itemData name="Normal Text" defStyleNum="dsNormal"/>'
print '   <itemData name="Keyword" defStyleNum="dsKeyword" color="Blue"  />'
print '   <itemData name="Class" defStyleNum="dsKeyword" color="Brown" />'
print '   <itemData name="Block" defStyleNum="dsKeyword" color="Red" />'
print '   <itemData name="Comment" defStyleNum="dsComment" />'
print '   <itemData name="Linenumber" defStyleNum="dsFloat" />'
print '   <itemData name="Macro" defStyleNum="dsKeyword" />'
print ' </itemDatas>'

print ' </highlighting>'

# finish off with the general stuff.

print ' <general>'
print '   <comments>'
print '     <comment name="singleLine" start="//"/>'
print '   </comments>'
print '   <keywords casesensitive="0" />'
print ' </general>'
print '</language>'