CCToken.hs revision 414ffa281d82f05a2d742c702f8e06b0cb05b229
b87efd3db0d2dc41615ea28669faf80fc1b48d56Corneliu-Claudiu Prodescu{- |
e9458b1a7a19a63aa4c179f9ab20f4d50681c168Jens ElknerModule : $Header$
caa3f57f876dcad69edd6c1d98b3768682355297Iulia IgnatovCopyright : (c) Daniel Pratsch and Uni Bremen 2002-2003
caa3f57f876dcad69edd6c1d98b3768682355297Iulia IgnatovLicence : similar to LGPL, see HetCATS/LICENCE.txt or LIZENZ.txt
caa3f57f876dcad69edd6c1d98b3768682355297Iulia Ignatov
b87efd3db0d2dc41615ea28669faf80fc1b48d56Corneliu-Claudiu ProdescuMaintainer : hets@tzi.de
caa3f57f876dcad69edd6c1d98b3768682355297Iulia IgnatovStability : provisional
caa3f57f876dcad69edd6c1d98b3768682355297Iulia IgnatovPortability : portable
caa3f57f876dcad69edd6c1d98b3768682355297Iulia Ignatov
b87efd3db0d2dc41615ea28669faf80fc1b48d56Corneliu-Claudiu Prodescu
caa3f57f876dcad69edd6c1d98b3768682355297Iulia Ignatovparser for CSP-CASL simple ids
b87efd3db0d2dc41615ea28669faf80fc1b48d56Corneliu-Claudiu Prodescu
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatov-}
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatov
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatov
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatovmodule CspCASL.CCToken
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatov
d3a4cce79e2255fb0a4376f321d4b682695c78dbChristian Maederwhere
d3a4cce79e2255fb0a4376f321d4b682695c78dbChristian Maeder
d3a4cce79e2255fb0a4376f321d4b682695c78dbChristian Maederimport Common.Id
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatovimport Common.Token
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatovimport CspCASL.CCKeywords
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatovimport Common.AnnoState
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatov
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatov{- csp_casl_reserved_words :: [String]
2c10bceb28a74fc291959697e023f22a66753655Eugen Kuksacsp_casl_reserved_words = casl_reserved_words ++
31f4a7313ad93026ce608def270ad19e1aa02649Eugen Kuksa csp_casl_keywords
d3a4cce79e2255fb0a4376f321d4b682695c78dbChristian Maeder-}
f03aa0b723e5545fddf7019e287368b9e208ca69Soeren D. Schulze
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia IgnatovchannelName, var :: AParser st Token --, namedProcess
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia IgnatovchannelName = var
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatovvar = varId csp_casl_keywords
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatov
2c10bceb28a74fc291959697e023f22a66753655Eugen Kuksa--namedProcess = pToken (reserved csp_casl_reserved_words scanAnyWords)
2c10bceb28a74fc291959697e023f22a66753655Eugen Kuksa
2c10bceb28a74fc291959697e023f22a66753655Eugen Kuksa--opList = pToken (reserved csp_casl_reserved_words scanAnyWords)
a35bacbc16daf5c10f9accfdfadc4971e9d6f648Iulia Ignatov