スマート・マッチング ： ディクショナリの使用

  SET domn="entitytestdomain"
  IF (##class(%iKnow.Domain).NameIndexExists(domn))
     { SET domo=##class(%iKnow.Domain).NameIndexOpen(domn)
       SET domId=domo.Id
     }
  ELSE {
     SET domo=##class(%iKnow.Domain).%New(domn)
     DO domo.%Save()
     SET domId=domo.Id }
  /* ... */
CreateDictionary
  SET dictname="AviationTerms"
  SET dictdesc="A dictionary of aviation terms"
  SET dictId=##class(%iKnow.Matching.DictionaryAPI).CreateDictionary(domId,dictname,dictdesc)
  IF dictId=-1 {WRITE "Dictionary ",dictname," already exists",!
                GOTO ResetForNextTime }
  ELSE {WRITE "created a dictionary ",dictId,!}
PopulateDictionary
  SET itemId=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryItem(domId,dictId,
       "aircraft",domId_dictId_"aircraft")
    SET term1Id=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryTerm(domId,itemId,
       "airplane")
    SET term2Id=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryTerm(domId,itemId,
       "single-engine airplane")
    SET term3Id=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryTerm(domId,itemId,
       "helicopter")
DisplayDictionary
  SET stat=##class(%iKnow.Matching.DictionaryAPI).GetDictionaryItemsAndTerms(.result,domId,dictId)
  SET i=1
  WHILE $DATA(result(i)) {
      WRITE $LISTTOSTRING(result(i),",",1),!
      SET i=i+1 }
  WRITE "End of items in dictionary ",dictId,!!
DoMatching
  SET mystring="A small single-engine two-person airplane cabin"
  SET stat=##class(%iKnow.Matching.MatchingAPI).GetDictionaryMatches(.num,domId,mystring,$LB(dictId))
  IF stat'=1 {WRITE "get matches status is:",$System.Status.DisplayError(stat),!
             QUIT }
  WRITE "The string is: ",mystring,!
  WRITE "The matches are:",!
  SET j=1  
  WHILE $DATA(num(j)) {
      WRITE "match number ",j," is ",$LISTTOSTRING(num(j)),!
      SET j=j+1 }
  WRITE "End of match items for dictionary ",dictId,!!
ResetForNextTime
  IF dictId = -1 {
     SET dictId=##class(%iKnow.Matching.DictionaryAPI).GetDictionaryId(domId,dictname)}
  SET stat=##class(%iKnow.Matching.DictionaryAPI).DropDictionary(domId,dictId)
  IF stat {WRITE "deleted dictionary ",dictId,! }

DomainCreateOrOpen
  SET dname="onestringdomain"
  IF (##class(%iKnow.Domain).NameIndexExists(dname))
      { SET domoref=##class(%iKnow.Domain).NameIndexOpen(dname)
        GOTO DeleteOldData }
  ELSE 
     { SET domoref=##class(%iKnow.Domain).%New(dname)
       DO domoref.%Save()
       GOTO LoadString }
DeleteOldData
  SET stat=domoref.DropData()
  IF stat { GOTO LoadString }
  ELSE    { WRITE "DropData error ",$System.Status.DisplayError(stat)
            QUIT}
LoadString
  SET domId=domoref.Id
  SET myloader=##class(%iKnow.Source.Loader).%New(domId)
  SET ^mystring="A single-engine airplane reported poor visibility and strong gusty winds. "_
               "No winds were predicted by local airport ground personnel."
  DO myloader.BufferSource("ref",^mystring)
  DO myloader.ProcessBuffer()
GetExtId
  DO ##class(%iKnow.Queries.SourceAPI).GetByDomain(.result,domId,1,20)
  SET i=1
  WHILE $DATA(result(i)) {
     SET extId = $LISTGET(result(i),2)
     SET i=i+1 }
CreateDictionary
  SET dictname="AviationTerms"
  SET dictdesc="A dictionary of aviation terms"
  SET dictId=##class(%iKnow.Matching.DictionaryAPI).CreateDictionary(domId,dictname,dictdesc)
  IF dictId=-1 {WRITE "Dictionary ",dictname," already exists",!
                GOTO ResetForNextTime }
  ELSE {WRITE "created a dictionary ",dictId,!}
PopulateDictionaryItem1
  SET itemId=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryItem(domId,dictId,
       "aircraft",domId_dictId_"aircraft")
    SET term1Id=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryTerm(domId,itemId,
       "single-engine airplane")
    SET term2Id=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryTerm(domId,itemId,
       "helicopter")
PopulateDictionaryItem2
 SET itemId2=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryItemAndTerm(domId,dictId,
        "weather",domId_dictId_"weather")
    SET i2term1Id=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryTerm(domId,itemId2,
        "strong winds")
    SET i2term2Id=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryTerm(domId,itemId2,
        "visibility")
    SET i2term3Id=##class(%iKnow.Matching.DictionaryAPI).CreateDictionaryTerm(domId,itemId2,
        "winds")
DisplayDictionary
  SET stat=##class(%iKnow.Matching.DictionaryAPI).GetDictionaryItemsAndTerms(.result,domId,dictId)
  SET i=1
  WHILE $DATA(result(i)) {
      WRITE $LISTTOSTRING(result(i),",",1),!
      SET i=i+1 }
  WRITE "End of items in dictionary ",dictId,!!
DoMatching
  SET stat=##class(%iKnow.Matching.MatchingAPI).GetMatchesBySource(.num,domId,extId,$LB(dictId))
  IF stat'=1 {WRITE "get matches status is:",$System.Status.DisplayError(stat),!
             QUIT }
  WRITE "The string is: ",^mystring,!
  WRITE "The matches are:",!
  SET j=1  
  WHILE $DATA(num(j)) {
      WRITE "match ",j,": ditem ",$LISTGET(num(j),4),
            " dterm ",$LISTGET(num(j),5),
            " matchscore ",$LISTGET(num(j),8),
            " negated? ",$LISTGET(num(j),15),!
              SET j=j+1 }
  WRITE "End of match items for dictionary ",dictId,!!
ResetForNextTime
  IF dictId = -1 {
     SET dictId=##class(%iKnow.Matching.DictionaryAPI).GetDictionaryId(domId,dictname)}
  SET stat=##class(%iKnow.Matching.DictionaryAPI).DropDictionary(domId,dictId)
  IF stat {WRITE "deleted dictionary ",dictId,! }
  ELSE    { WRITE "DropDictionary error ",$System.Status.DisplayError(stat) } 

#include %IKPublic
DomainCreateOrOpen
  SET dname="mydomain"
  IF (##class(%iKnow.Domain).NameIndexExists(dname))
      { SET domo=##class(%iKnow.Domain).NameIndexOpen(dname) }
  ELSE 
     { SET domo=##class(%iKnow.Domain).%New(dname) DO domo.%Save()}
   SET domId=domo.Id
   WRITE "domain ",dname," has Id ",domId,!!
CreateProfile
  SET domprof=##class(%iKnow.Matching.MatchingProfile).%New(domId,"mydomainCMP")
     WRITE "profile Id=",domprof.ProfileId,!
     WRITE "profile domain assignment=",domprof.DomainId,!
     WRITE "profile name=",domprof.Name,!
     WRITE "profile properties:",!
     WRITE "default MinimalMatchScore=",domprof.MinimalMatchScore,!
     SET domprof.MinimalMatchScore=.27
     WRITE "changed to MinimalMatchScore=",domprof.MinimalMatchScore,!!
     DO domprof.%Save()
MakeProfileDomainDefault
     SET str=domo.GetParameter($$$IKPMATDEFAULTPROFILE,.dpin)
     WRITE "domain ",domId," DefaultProfile before SET=",dpin,!
     SET sc=domo.SetParameter($$$IKPMATDEFAULTPROFILE,"mydomainCMP")
     IF sc=1 {
     DO domo.GetParameter($$$IKPMATDEFAULTPROFILE,.dpout)
     WRITE "domain ",domId," DefaultProfile after SET=",dpout,! }
     ELSE {WRITE "SetParameter error",! }
CleanUp
   DO ##class(%iKnow.Domain).%DeleteId(domo.Id)
   WRITE "All done"

#include %IKPublic
DomainCreateOrOpen
  SET dname="mydomain"
  IF (##class(%iKnow.Domain).NameIndexExists(dname))
      { SET domo=##class(%iKnow.Domain).NameIndexOpen(dname) }
  ELSE 
     { SET domo=##class(%iKnow.Domain).%New(dname) DO domo.%Save()}
   SET domId=domo.Id
   WRITE "domain ",dname," has Id ",domId,!!
CreateProfile
  SET domprof=##class(%iKnow.Matching.MatchingProfile).%New(0,"nodomainCMP")
     WRITE "profile Id=",domprof.ProfileId,!
     WRITE "profile domain assignment=",domprof.DomainId,!
     WRITE "profile name=",domprof.Name,!
     WRITE "profile properties:",!
     WRITE "default MinimalMatchScore=",domprof.MinimalMatchScore,!
     SET domprof.MinimalMatchScore=.27
     WRITE "changed to MinimalMatchScore=",domprof.MinimalMatchScore,!!
     DO domprof.%Save()
MakeProfileDomainDefault
     SET str=domo.GetParameter($$$IKPMATDEFAULTPROFILE,.dpin)
     WRITE "domain ",domId," DefaultProfile before SET=",dpin,!
     SET sc=domo.SetParameter($$$IKPMATDEFAULTPROFILE,"0:nodomainCMP")
     IF sc=1 {
     DO domo.GetParameter($$$IKPMATDEFAULTPROFILE,.dpout)
     WRITE "domain ",domId," DefaultProfile after SET=",dpout,! }
     ELSE {WRITE "SetParameter error",! }
CleanUp
   DO ##class(%iKnow.Domain).%DeleteId(domo.Id)
   WRITE "All done"