cycr 0.0.7 → 0.0.8

data/.gitignore

@@ -1,2 +1,4 @@
 *.gem
 .*.sw?
+work
+doc

data/changelog.txt

@@ -1,3 +1,7 @@
+0.0.8
+- fix documentation for Cyc::Builder
+- removal of legacy code
+- raw answers from server
 0.0.7
 - remove predefined SubL routines
 0.0.6

data/cycr.gemspec

@@ -1,7 +1,7 @@
 Gem::Specification.new do |s|
   s.name = "cycr"
-  s.version = "0.0.7"
-  s.date = "2010-12-22"
+  s.version = "0.0.8"
+  s.date = "#{Time.now.strftime("%Y-%m-%d")}"
   s.summary = "Ruby client for the (Open)Cyc server"
   s.email = "apohllo@o2.pl"
   s.homepage = "http://github.com/apohllo/cycr"

data/lib/cycr/builder.rb

@@ -4,9 +4,9 @@ module Cyc
   #
   # This class is used to capture calls to the Cyc client, to allow
   # nested calls, like
-  # 
-  # cyc.with_any_mt do
-  #   comment :Collection
+  #
+  # cyc.with_any_mt do |cyc|
+  #   cyc.comment :Collection
   # end
   class Builder
     def initialize

data/lib/cycr/client.rb

@@ -4,13 +4,13 @@ module Cyc
   # Author:: Aleksander Pohl (mailto:apohllo@o2.pl)
   # License:: MIT License
   #
-  # This class is the implementation of the Cyc server client. 
+  # This class is the implementation of the Cyc server client.
   class Client
     # If set to true, all communication with the server is logged
     # to standard output
     attr_accessor :debug
     attr_reader :host, :port
-    # Creates new Client. 
+    # Creates new Client.
     def initialize(host="localhost",port="3601",debug=false)
       @debug = debug
       @host = host
@@ -30,7 +30,7 @@ module Cyc
 
     # Returns the connection object. Ensures that the pid of current
     # process is the same as the pid, the connection was initialized with.
-    # 
+    #
     # If the block is given, the command is guarded by assertion, that
     # it will be performed, even if the connection was reset.
     def connection
@@ -46,7 +46,7 @@ module Cyc
           yield @conn
         end
       else
-        @conn 
+        @conn
       end
     end
 
@@ -62,13 +62,20 @@ module Cyc
       @conn = nil
     end
 
-    # Sends message +msg+ directly to the Cyc server and receives 
-    # the answer. 
+    # Sends message +msg+ directly to the Cyc server and
+    # returns the parsed answer.
     def talk(msg, options={})
       send_message(msg)
       receive_answer(options)
     end
 
+    # Sends message +msg+ directly to the Cyc server and
+    # returns the raw answer (i.e. not parsed).
+    def raw_talk(msg, options={})
+      send_message(msg)
+      receive_raw_answer(options)
+    end
+
     # Send the raw message.
     def send_message(msg)
       @last_message = msg
@@ -76,13 +83,34 @@ module Cyc
       connection{|c| c.puts(msg)}
     end
 
-    # Receive answer from server.
     def receive_answer(options={})
+      receive_raw_answer do |answer|
+        begin
+          result = @parser.parse(answer,options[:stack])
+        rescue Parser::ContinueParsing => ex
+          result = ex.stack
+          current_result = result
+          last_message = @last_message
+          while current_result.size == 100 do
+            send_message("(subseq #{last_message} #{result.size} " +
+                         "#{result.size + 100})")
+            current_result = receive_answer(options) || []
+            result.concat(current_result)
+          end
+        end
+        return result
+      end
+    end
+
+    # Receive raw answer from server. If a +block+ is given
+    # the answer is yield to the block, otherwise the naswer is returned.
+    def receive_raw_answer(options={})
       answer = connection{|c| c.waitfor(/./)}
       puts "Recv: #{answer}" if @debug
       if answer.nil?
         raise "Unknwon error occured. " +
-          "Check the submitted query in detail!"
+          "Check the submitted query in detail:\n" +
+          @last_message
       end
       while not answer =~ /\n/ do
         next_answer = connection{|c| c.waitfor(/./)}
@@ -98,19 +126,10 @@ module Cyc
       #answer = answer.split("\n")[-1]
       answer = answer.sub(/(\d\d\d) (.*)/,"\\2")
       if($1.to_i == 200)
-        begin
-          result = @parser.parse(answer,options[:stack])
-        rescue Parser::ContinueParsing => ex
-          result = ex.stack
-          current_result = result
-          last_message = @last_message
-          while current_result.size == 100 do
-            send_message("(subseq #{last_message} #{result.size} " +
-                         "#{result.size + 100})")
-            current_result = receive_answer(options) || []
-            result.concat(current_result)
-          end
-          result
+        if block_given?
+          yield answer
+        else
+          return answer
         end
       else
         unless $2.nil?
@@ -129,18 +148,5 @@ module Cyc
       @builder.send(name,*args,&block)
       talk(@builder.to_cyc)
     end
-
-protected
-
-    def relevant_mts(term)
-      @mts_cache[term] ||= 
-        (mts = self.term_mts(term)
-         if mts
-           mts.select{|mt| mt.is_a? Symbol}.
-             reject{|mt| IRRELEVANT_MTS.include?(mt)} 
-         else
-           []
-         end)
-    end
   end
 end

data/spec/client.rb

@@ -2,24 +2,36 @@ $:.unshift "lib"
 require 'cycr'
 
 describe Cyc::Client do
-  before(:each) do  
+  before(:each) do
     @client = Cyc::Client.new()
 #    @client.debug = true
   end
 
-  after(:each) do 
+  after(:each) do
     @client.close
   end
 
-  it "should allow to talk to the server" do 
+  it "should allow to talk to the server" do
     @client.talk("(constant-count)").should_not == nil
   end
 
-  it "should allow to talk to server by calling non-existent methods" do 
+  it "should allow to talk to server by calling SubL methods which are not defined in the client" do
     @client.constant_count.should_not == nil
   end
 
-  it "should allow multiple processes to use the client" do 
+  it "should allow to talk to server and return raw answer" do
+    result = @client.raw_talk("(constant-count)")
+    result.should_not == nil
+    result.should be_a_kind_of String
+  end
+
+  it "should allow to talk to server and return parsed answer" do
+    result = @client.talk("(genls \#\$Dog)")
+    result.should_not == nil
+    result.should respond_to :size
+  end
+
+  it "should allow multiple processes to use the client" do
     parent_pid = Process.pid
     if fork
       @client.find_constant("Cat")

metadata

@@ -1,12 +1,8 @@
 --- !ruby/object:Gem::Specification 
 name: cycr
 version: !ruby/object:Gem::Version 
-  prerelease: false
-  segments: 
-  - 0
-  - 0
-  - 7
-  version: 0.0.7
+  prerelease: 
+  version: 0.0.8
 platform: ruby
 authors: 
 - Aleksander Pohl
@@ -14,7 +10,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-12-22 00:00:00 +01:00
+date: 2011-04-15 00:00:00 +02:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -25,10 +21,6 @@ dependencies:
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        segments: 
-        - 1
-        - 2
-        - 9
         version: 1.2.9
   type: :development
   version_requirements: *id001
@@ -51,11 +43,8 @@ files:
 - lib/cycr/builder.rb
 - lib/cycr/client.rb
 - lib/cycr/collection.rb
-- lib/cycr/constants.rb
-- lib/cycr/domains.lisp
 - lib/cycr/extensions.rb
 - lib/cycr/parser.rb
-- lib/cycr/sexpr.flex
 - lib/cycr/sexpr.rex
 - lib/cycr/sexpr.rex.rb
 - spec/assertion.rb
@@ -75,21 +64,17 @@ required_ruby_version: !ruby/object:Gem::Requirement
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      segments: 
-      - 0
       version: "0"
 required_rubygems_version: !ruby/object:Gem::Requirement 
   none: false
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      segments: 
-      - 0
       version: "0"
 requirements: []
 
 rubyforge_project: 
-rubygems_version: 1.3.7
+rubygems_version: 1.5.2
 signing_key: 
 specification_version: 3
 summary: Ruby client for the (Open)Cyc server

data/lib/cycr/constants.rb

@@ -1,8 +0,0 @@
-module Cyc
-  # These Microteories contain non-ontological assertions.
-  IRRELEVANT_MTS = [:WordNetMappingMt, :EnglishMt, :UniversalVocabularyMt, 
-    :BaseKB, :CycHistoricalPossibilityTheoryMt, :SENSUSMappingMt, 
-    :GeneralLexiconMt, :BookkeepingMt,  :CycNounLearnerMt, :HPKBVocabMt,
-    :SKSIMt, :TopicMt, :SNOMEDMappingMt, :MeSHMappingMt, :CycNounLearnerMt,
-    :TheMotleyFoolUKCorpusMt, :AnalystDatabaseMt, :CyclistsMt ]
-end

data/lib/cycr/domains.lisp

@@ -1,584 +0,0 @@
-(csetq *domains* '(
-("Accts"  . (
-#$AccountingMt
-))
-("Admin"  . (
-#$InternationalOrganizationDataMt
-#$RegionalOrganizationsInTheMiddleEastFactsheetMt
-#$USGovernmentDomesticOrganizationDataMt
-#$USGovernmentOrganizationDataMt
-))
-("Advertg"  . (
-#$Advertising
-))
-("Aerosp"  . (
-#$AeronauticalEngineer
-#$Aeronautics
-))
-("Agric"  . (
-))
-("Anat"  . (
-#$AnimalPhysiologyMt
-#$AnimalPhysiologyVocabularyMt
-#$FemaleHumanBodyStructureMt
-#$HumanBodyStructureMt
-#$MaleHumanBodyStructureMt
-))
-("Anthrop"  . (
-#$EthnicGroupsMt
-#$EthnicGroupsVocabularyMt
-#$PeopleLingoTemplateMt
-#$PeopleVocabularyMt
-))
-("Antiq"  . (
-#$PeloponnesianWarMt
-))
-("Archeol"  . (
-))
-("Archit"  . (
-#$NooescapeArchitectureMt
-))
-("Art"  . (
-#$ArtWorksDataMt
-#$ArtWorksDataVocabularyMt
-#$PopCultureMythologyMt
-))
-("Astrol"  . (
-))
-("Astron"  . (
-#$EarthObservationalAstronomyMt
-#$EarthObservationalAstronomyVocabularyMt
-#$ObservationalAstronomyMt
-#$PlanetaryBaseKBVocabularyMt
-#$SimpleAstronomyDataVocabularyMt
-#$SimpleAstronomyMt
-#$UniverseDataMt
-#$UniverseDataVocabularyMt
-#$UniverseVocabularyMt
-))
-("Audio"  . (
-#$HistoryOfMusicDataMt
-))
-("Aut"  . (
-#$DriverPerspectiveMt
-#$FiremenAndFireTruckIMt
-))
-("Aviat"  . (
-))
-("Bible"  . (
-))
-("Biol"  . (
-#$BiochemicalReasoningWithRCCMt
-#$BiochemistryMt
-#$BiochemistryVocabularyMt
-#$BiologicalChemistryMt
-#$BiologicalChemistryVocabularyMt
-#$BiologicalProcedureMt
-#$BiologicalProcedureVocabularyMt
-#$BiologicalSocialMt
-#$BiologicalSocialVocabularyMt
-#$BiologicalWarfareDemoEnvironmentMt
-#$BiologyGenericsMt
-#$BiologyMt
-#$BiologyVocabularyMt
-#$MicrobiologicalChemistryMt
-#$MicrobiologicalProcedureVocabularyMt
-#$MicrobiologyMt
-#$MicrobiologyVocabularyMt
-#$MolecularBiologyMt
-#$MolecularBiologyVocabularyMt
-#$NaiveBiologicalDescentVocabularyMt
-))
-("Bot"  . (
-#$BotanyMt
-#$BotanyVocabularyMt
-#$FloralMarketingMt
-#$VegetationMapCodeMt
-))
-("Chem"  . (
-#$AcidsAndBases-ChemistryDomainMt
-#$BiochemicalReasoningWithRCCMt
-#$BiochemistryMt
-#$BiochemistryVocabularyMt
-#$BiologicalChemistryMt
-#$BiologicalChemistryVocabularyMt
-#$ChemicalComposition-ChemistryDomainMt
-#$ChemicalConstantData-ChemistryDomainMt
-#$ChemicalDissociation-ChemistryDomainMt
-#$ChemicalEquations-ChemistryDomainMt
-#$ChemicalReactions-ChemistryDomainMt
-#$ChemicalSolutions-ChemistryDomainMt
-#$ChemistryAssumptionsMt
-#$ChemistryLaboratory-ChemistryDomainMt
-#$ChemistryMt
-#$ChemistryTemplateMt
-#$ChemistryVocabularyMt
-#$OrganicChemistryMt
-#$OrganicChemistryVocabularyMt
-))
-("Cin"  . (
-))
-("CivEng"  . (
-#$EngineeringField
-))
-("Comm"  . (
-#$BrandNameProductGMt
-#$BrandNameProductGVocabularyMt
-#$BrandNameProductPhysicalCharacteristicsMt
-#$BrandNameProductPhysicalCharacteristicsVocabularyMt
-#$BrandNameRoadVehicleWorkingsMt
-#$BuyingMt
-#$CommercialBuyingMt
-#$RetailSalesMt
-#$ShoppingGMt
-#$WesternBusinessPracticesMt
-#$WorldProductsMt
-))
-("Comput"  . (
-#$ComputerDataTypesDataMt
-#$ComputereseLexicalMt
-#$ComputerGMt
-#$ComputerGVocabularyMt
-#$ComputerHardwareDataMt
-#$ComputerHardwareDataVocabularyMt
-#$ComputerHardwareMt
-#$ComputerHardwareVocabularyMt
-#$ComputerNetworkMt
-#$ComputerOrganizationDataMt
-#$ComputerRunningDataMt
-#$ComputerRunningMt
-#$ComputerSecurityDataMt
-#$ComputerSecurityMt
-#$ComputerSoftwareBuyingMt
-#$ComputerSoftwareDataMt
-#$ComputerSoftwareMt
-#$ComputerSoftwareVocabularyMt
-#$ComputerUseDomainMt
-#$ComputerVulnerabilityMt
-#$NetworkModelMt
-#$ProgramModelMt
-#$InformationBuyingMt
-#$InformationGVocabularyMt
-#$InformationSecurityMt
-#$InformationTerminologyVocabularyMt
-))
-("Constr"  . (
-#$BuildingContentsMt
-#$BuildingContentsVocabularyMt
-#$BuildingMt
-#$BuildingVocabularyMt
-#$OrganizationBuildingVocabularyMt
-))
-("Cosmet"  . (
-))
-("Culin"  . (
-#$CoffeeMt
-#$CookingLingoTemplateMt
-#$CookingWorldTestCaseEntitiesMt
-#$FoodBuyingGMt
-#$FoodSocialMt
-#$HumanFoodGVocabularyMt
-))
-("Dance"  . (
-))
-("Dent"  . (
-))
-("Ecol"  . (
-#$EcologyMt
-#$EcologyVocabularyMt
-))
-("Econ"  . (
-#$EconomyMt
-#$EconomyVocabularyMt
-))
-("Educ"  . (
-))
-("Elec"  . (
-#$ElectricalSystemsMt
-#$ElectricalSystemsVocabularyMt
-))
-("Electron"  . (
-))
-("Equest"  . (
-))
-("Fashn"  . (
-#$ClothingGMt
-#$ClothingGVocabularyMt
-#$ClothingLingoTemplateMt
-#$ModernWesternClothingConventionMt
-))
-("Fin"  . (
-#$BusinessGMt
-#$BusinessMoneyMt
-#$BusinessStillUnsortedForStubsMt
-#$BusinessStubMt
-#$FinancialTransactionMt
-#$WesternBusinessPracticesMt
-))
-("Fishg"  . (
-))
-("Games"  . (
-))
-("Geog"  . (
-#$DesertShieldMt
-#$DualistGeopoliticalMt
-#$DualistGeopoliticalVocabularyMt
-#$FranceGeographyDualistMt
-#$FranceGeographyMt
-#$FranceNaturalGeographyMt
-#$GeographicalRegionGVocabularyMt
-#$GeographyLingoTemplateMt
-#$GeographyVocabularyMt
-#$GeopoliticalBordersMt
-#$GeopoliticalEntityVocabularyMt
-#$NaturalGeographyVocabularyMt
-#$NorthernHemisphereMt
-#$PhysicalGeographyMt
-#$PoliticalGeographyVocabularyMt
-#$UnitedStatesCulturalGeographyMt
-#$UnitedStatesGeographyMt
-#$UnitedStatesGeographyPeopleMt
-#$UnitedStatesNaturalGeographyMt
-#$UnitedStatesNaturalGeographyVocabularyMt
-#$WorldCompleteDualistGeographyMt
-#$WorldCulturalGeographyDataMt
-#$WorldGeographyDualistMt
-#$WorldGeographyMt
-#$WorldGeographyPhysicalMt
-#$WorldNaturalGeographyMt
-#$WorldNaturalGeographyVocabularyMt
-#$WorldPoliticalGeographyDataMt
-#$WorldPoliticalGeographyDataVocabularyMt
-))
-("Geol"  . (
-#$GeologicalAge
-))
-("Herald"  . (
-))
-("Hist"  . (
-#$PeopleDataMt
-#$ChronologyMt
-#$ChronologyVocabularyMt
-#$HistoryOfMusicDataMt
-#$HistoryOfScienceDataMt
-#$WorldHistoryMt
-))
-("Hort"  . (
-))
-("Hunt"  . (
-))
-("Ind"  . (
-))
-("Insur"  . (
-))
-("Journ"  . (
-#$AssociatedPressMt
-))
-("Jur"  . (
-#$BasicWesternLegalConceptsMt
-))
-("Ling"  . (
-#$CorpusLexicalMt
-#$CrossLinguisticLexicalMt
-#$LanguageAndWritingSystemVocabularyMt
-#$RelativeClausesTemplateMt
-#$WritingSystemCharactersVocabularyMt
-))
-("Literat"  . (
-#$FactsInFictionalWorksMt
-#$LiteraryPeopleDataMt
-#$NonfictionalWorksMt
-))
-("Math"  . (
-#$BayesianNetworkMt
-#$DeonticReasoning-InferenceMt
-#$DeonticReasoning-LogicMt
-#$EqualityReasoningVocabularyMt
-#$EuclideanGeometryMt
-#$GeometryGMt
-#$GeometryGVocabularyMt
-#$LogicalTruthImplementationMt
-#$LogicalTruthMt
-#$MathMt
-#$MathVocabularyMt
-#$NaiveSpatialMt
-#$NaiveSpatialVocabularyMt
-#$PathSystemsVocabularyMt
-#$PointBasedGeometryMt
-#$PointBasedGeometryVocabularyMt
-))
-("Mech"  . (
-))
-("Med"  . (
-#$AilmentMt
-#$AilmentVocabularyMt
-#$BloodTransfusionMt
-#$DiseaseLexicalMt
-#$HumanAilmentMt
-#$HumanAilmentVocabularyMt
-#$MedicalVulnerabilityMt
-#$USHealthcareMt
-))
-("Meas"  . (
-#$CalendarsMt
-#$CalendarsVocabularyMt
-#$GregorianCalendarMt
-#$GregorianCalendarVocabularyMt
-#$IslamicCalendarMt
-#$JewishCalendarMt
-))
-("Meteorol"  . (
-#$AmbientConditionsDataMt
-#$AmbientConditionsMt
-#$AmbientConditionsVocabularyMt
-#$EarthWeatherMt
-#$EarthWeatherVocabularyMt
-#$WeatherMt
-#$WeatherVocabularyMt
-))
-("Mgmt"  . (
-#$InternationalOrganizationDataMt
-#$JobMt
-#$OrganizationGMt
-#$OrganizationGVocabularyMt
-#$OrganizationInternalsMt
-))
-("Mil"  . (
-#$ArmyFM8-10-7Mt
-#$ChemicalWeaponsDestructionInRussiaMt
-#$China-TaiwanMilitaryTechnologyMt
-#$DesertStormMilitaryPresenceMt
-#$EmergingCruiseMissileCapabilitiesMt
-#$EnemyMovementMt
-#$MilitaryForceStructureMt
-#$MilitaryGlossaryHoldingMt
-#$MilitaryGMt
-#$MilitaryGVocabularyMt
-#$MilitaryOrganization
-#$MilitaryStandard-2408Mt
-#$MilitaryTermsVocabularyMt
-#$ModernMilitaryMt
-#$ModernMilitaryTacticsMt
-#$ModernMilitaryVehiclesMt
-#$ModernMilitaryWeaponsMt
-#$PeloponnesianWarMt
-#$RightWingTerrorismAndWeaponsOfMassDestructionMt
-#$SAICTerrorismEventsDataMt
-#$TerrorismInTheMiddleEastFactsheetMt
-#$TerroristGroup
-#$UnitedStatesModernMilitaryVehiclesDataMt
-#$USArmsControlAndDisarmamentAgencyMt
-#$USMarineCorpsPracticesMt
-#$USMilitaryPracticesMt
-#$USMilitaryStaffOrganizationMt
-#$WeaponsOfMassDestructionTacticsMt
-#$Year2000MilitaryTechnologyMt
-))
-("Mil" Naut  . (
-))
-("Miner"  . (
-#$MineralogyMt
-))
-("Mining"  . (
-))
-("Mus"  . (
-))
-("Mythol"  . (
-#$ChristmasMythologyMt
-#$FactsInFictionalWorksMt
-#$GreekMythologyMt
-#$PopCultureMythologyMt
-#$RomanMythologyMt
-#$WorldMythologyMt
-))
-("Naut"  . (
-))
-("Nucl" nuclear  . (
-))
-("Pharm"  . (
-#$BrandNamePharmaceuticalUseMt
-#$PharmaceuticalDetailsMt
-#$PharmaceuticalGMt
-#$PharmaceuticalGVocabularyMt
-#$PharmaceuticalUseMt
-#$PharmaceuticalUseVocabularyMt
-))
-("Philos"  . (
-))
-("Phon"  . (
-))
-("Phot"  . (
-))
-("Phys"  . (
-#$Aerodynamics
-#$DefinitionOfKineticEnergyMt
-#$DefinitionOfNetWorkMt
-#$DefinitionOfWeightMt
-#$DefinitionOfWork-ForceAndDisplacementSameDirectionMt
-#$DefinitionOfWorkMt
-#$NaivePhysicsVocabularyMt
-#$NewtonianPhysicsMt
-#$NewtonsSecondLawMt
-#$NewtonsThirdLawMt
-#$NormalPhysicalConditionsMt
-#$ObjectPhysicalCharacteristicsVocabularyMt
-))
-("Physiol"  . (
-#$HumanPerceptionMt
-#$HumanPerceptionVocabularyMt
-#$HumanPhysiologyVocabularyMt
-#$LinnaeanTaxonomyPhysiologyMt
-#$LinnaeanTaxonomyPhysiologyVocabularyMt
-#$PerceptionMt
-#$PerceptionVocabularyMt
-#$VertebratePhysiologyMt
-#$VertebratePhysiologyVocabularyMt
-))
-("Pol"  . (
-#$GovernmentAgency
-))
-("Post" postal  . (
-))
-("Print"  . (
-))
-("Psych"  . (
-#$AffectMt
-#$AffectVocabularyMt
-))
-("Publg"  . (
-#$PublicationDataMt
-))
-("Radio"  . (
-))
-("Rail"  . (
-))
-("Relig"  . (
-#$BuddhismMt
-#$CatholicismMt
-#$ChristianityMt
-#$ChristianityNaiveMt
-#$ChristianTrinityMt
-#$IslamShiaMt
-#$JudaismMt
-#$Judeo-ChristianMt
-#$NaturalismMt
-#$ReligiousAgnostic
-#$ReligiousCeremony
-#$ReligiousPeopleDataMt
-))
-("Sch"  . (
-))
-("Sci"  . (
-#$GeneralScientificLexicalMt
-#$HistoryOfScienceDataMt
-#$OrganizedResearchMt
-#$TheoryOfScienceVocabularyMt
-))
-("Sewing"  . (
-))
-("Sociol"  . (
-#$AustralasianSocialLifeMt
-#$BiologicalSocialVocabularyMt
-#$HumanSocialLifeMt
-#$HumanSocialLifeWithTenseMt
-#$IranianSocialLifeMt
-#$PeopleVocabularyMt
-#$UnitedStatesSocialLifeMt
-#$CultureGMt
-#$CultureGVocabularyMt
-))
-("Sport"  . (
-#$AmericanCollegeSportsOrganizationsDataMt
-#$AmericanCollegeSportsPeopleDataMt
-#$AmericanProfessionalSportsMt
-#$NonUSProfessionalSportsMt
-#$OlympicsMt
-#$ProfessionalSportsGMt
-#$SportsLingoTemplateMt
-#$SportsProductsMt
-))
-("Stat"  . (
-))
-("Tax"  . (
-#$AmericanFiscalPracticeMt
-#$JapaneseFiscalPracticeMt
-))
-("Tech"  . (
-#$DevicePerspectiveMt
-#$SimpleDeviceFunctioningMt
-#$TechnicalEnglishLexicalMt
-#$ProductGMt
-#$ProductGVocabularyMt
-#$ProductPhysicalCharacteristicsMt
-#$ProductUsageMt
-#$ProductUsageVocabularyMt
-))
-("Telcom"  . (
-#$CommunicationsSupportMt
-#$CommunicationsSupportRulesMt
-#$CommunicationsSupportVocabMt
-))
-("Tex"  . (
-#$MaterialsManipulationMt
-))
-("Theat"  . (
-))
-("Tourism"  . (
-#$GenericTouristMt
-))
-("Transp"  . (
-#$InternationalTrafficMt
-#$MovementMt
-#$MovementVocabularyMt
-#$SuezCanalTrafficMt
-#$TransportationMt
-#$TransportationPlanningMt
-#$TransportationVocabularyMt
-))
-("Turf"  . (
-))
-("TV"  . (
-#$DCSuperheroesMt
-#$LargeCorpBlackBoxMt
-#$MassMediaDataMt
-#$MassMediaMt
-#$TeletubbiesMt
-#$ThePeanutsCartoonMt
-#$TheSimpsonsMt
-#$TheXFilesTVSeriesMt
-))
-("Univ"  . (
-#$AcademicLifeMt
-#$AcademicOrganizationMt
-#$AcademicOrganizationVocabularyMt
-#$UniversityDataMt
-))
-("Vet" veterinary  . (
-))
-("Wine"  . (
-))
-("Zool"  . (
-#$AmericanKennelClubMt
-#$AnimalActivitiesMt
-#$AnimalActivitiesVocabularyMt
-#$AnimalMovementMt
-#$DogClassificationSpindleCollectorMt
-#$DogClassificationSpindleHeadMt
-#$DomesticBreedsMt
-#$DomesticBreedsVocabularyMt
-#$NaiveAnimalsVocabularyMt
-))
-))
-
-(define domains-of (term)
-  (clet (
-         (result ())
-         (base-assertions (with-just-mt #$BaseKB (gather-index term)))
-        ) 
-        (cdolist (pair *domains*) 
-                          (pif(< 0 (with-mt-list (cdr pair)
-                                        (length (set-difference (gather-index term)
-                                                                base-assertions) ))) 
-                              (csetq result (adjoin (car pair) result))
-                              ()))
-        (ret result)))

data/lib/cycr/sexpr.flex

@@ -1,74 +0,0 @@
-package pl.apohllo.lexicon.pwn.server;
-
-import java.io.StringReader;
-%% 
-
-%class Lexer
-%unicode
-%line
-%public
-%type Symbol
-
-%{
-  StringBuffer string = new StringBuffer();
-
-  public Lexer(String input){
-    this.zzReader = new StringReader(input);
-  }
-
-  private Symbol symbol(int type) {
-    return new Symbol(type, yyline, yycolumn);
-  }
-  private Symbol symbol(int type, String value) {
-    return new Symbol(type, yyline, yycolumn, value);
-  }
-%}
-
-LineTerminator = \r|\n|\r\n
-InputCharacter = [^\r\n\"\(\):& ]
-WhiteSpace     = {LineTerminator} | [ \t\f]
-
-Symbol = : {InputCharacter}+
-
-Atom = {InputCharacter}+
-
-OpenPar = "("
-ClosePar = ")"
-
-%state STRING
-
-
-%%
-
-<YYINITIAL> {
-  /* keywords */
-  {OpenPar}			 { return symbol(Symbol.OPEN_PAR); }
-  {ClosePar}			 { return symbol(Symbol.CLOSE_PAR); }
-
-  /* identifiers */ 
-  {Symbol}			 { return symbol(Symbol.SYMBOL,yytext()); }
-  {Atom}			 { return symbol(Symbol.ATOM,yytext()); }
-
-
-  /* literals */
-  \"                             { string.setLength(0); yybegin(STRING); }
-
-  /* whitespace */
-  {WhiteSpace}                   { /* ignore */ }
-}
-
-<STRING> {
-  \"                             { yybegin(YYINITIAL); 
-                                   return symbol(Symbol.STRING_LITERAL, string.toString()); }
-  [^\n\r\"\\]+                   { string.append( yytext() ); }
-  \\t                            { string.append('\t'); }
-  \\n                            { string.append('\n'); }
-
-  \\r                            { string.append('\r'); }
-  \\\"                           { string.append('\"'); }
-  \\                             { string.append('\\'); }
-}
-
-/* error fallback */
-.|\n                             { throw new Error("Illegal character <"+ yytext()+">"); }
-