Merge branch 'master' of https://github.com/GrammaticalFramework/gf-core

doc/gf-people.md

@@ -32,6 +32,7 @@ The following people have contributed code to some of the versions:
 - [Janna Khegai](http://www.cs.chalmers.se/~janna) (Chalmers)
 - [Peter Ljunglöf](http://www.cse.chalmers.se/~peb) (University of Gothenburg)
 - Petri Mäenpää (Nokia)
+- Lauri Alanko (University of Helsinki)
 
 At least the following colleagues are thanked for suggestions, bug
 reports, and other indirect contributions to the code.

src/runtime/haskell/PGF/VisualizeTree.hs

@@ -242,6 +242,10 @@ rmcomments :: String -> String
 rmcomments [] = []
 rmcomments ('-':'-':xs) = []
 rmcomments ('-':x  :xs) = '-':rmcomments (x:xs)
+rmcomments ('#':xs) = case splitAt 3 xs of -- for compatibility with gf-ud annotations
+  ("cat",rest) -> rmcomments rest
+  ("fun",rest) -> rmcomments rest
+  _ -> [] --- gf-ud keywords not used in gf-core
 rmcomments (x:xs)       = x:rmcomments xs
 
 -- | Prepare lines obtained from a configuration file for labels for
@@ -761,19 +765,21 @@ ppSVG svg =
 -- UseComp {"not"} PART neg head 
 -- UseComp {*} AUX cop head
 
-type CncLabels = [
+type CncLabels = [CncLabel]
-  Either
+
-    (String, String -> Maybe (String -> String,String,String))
+data CncLabel =
-    -- (fun, word -> (pos,label,target))
+    CncSyncat (String, String -> Maybe (String -> String,String,String))
+    -- (fun, word/lemma -> (pos,label,target))
     -- the pos can remain unchanged, as in the current notation in the article
-    (String,[String])
+  | CncMorpho (String,[String])
-    -- (category, morphological forms)
+    -- (category, features in ascending order)
-  ]
+  | CncForm (String,(String,String))
+    -- (wordform, (lemma,features))
 
 fixCoNLL :: CncLabels -> CoNLL -> CoNLL
 fixCoNLL cncLabels conll = map (fixMorpho . fixDep) (markRoot conll) where
-  labels  = [l | Left l <- cncLabels]
+  labels  = [l | CncSyncat l <- cncLabels]
-  flabels = [r | Right r <- cncLabels]
+  flabels = [r | CncMorpho r <- cncLabels]
 
 -- change the root label from dep to root
 --- doing this for the leftmost word of the root node
@@ -818,7 +824,7 @@ getCncDepLabels :: String -> CncLabels
 getCncDepLabels s = wlabels ws ++ flabels fs
  where
   wlabels =
-    map Left .
+    map CncSyncat .
     map merge .
     groupBy (\ (x,_) (a,_) -> x == a) .
     sortBy (comparing fst) .
@@ -826,7 +832,7 @@ getCncDepLabels s = wlabels ws ++ flabels fs
     filter chooseW
     
   flabels =
-    map Right .
+    map CncMorpho .
     map collectTags .
     map words
 

src/runtime/python/pypgf.c

@@ -3497,9 +3497,16 @@ MOD_INIT(pgf)
     PyModule_AddObject(m, "Type", (PyObject *) &pgf_TypeType);
     Py_INCREF(&pgf_TypeType);
 
+    PyModule_AddObject(m, "PGF", (PyObject *) &pgf_PGFType);
     Py_INCREF(&pgf_PGFType);
+	
+    PyModule_AddObject(m, "Concr", (PyObject *) &pgf_ConcrType);
     Py_INCREF(&pgf_ConcrType);
+
+    PyModule_AddObject(m, "Iter", (PyObject *) &pgf_IterType);
     Py_INCREF(&pgf_IterType);
+
+    PyModule_AddObject(m, "Bracket", (PyObject *) &pgf_BracketType);
     Py_INCREF(&pgf_BracketType);
 
 	return MOD_SUCCESS_VAL(m);