<commit_before>; This rule simply inherits the linguistic concept of being definite to any definite noun such as "that man."
; (AN June 2015)

(define definite
    (BindLink
        (VariableList
            (TypedVariableLink
                (VariableNode "$a-parse")
                (TypeNode "ParseNode")
            )
            (TypedVariableLink
                (VariableNode "$noun")
                (TypeNode "WordInstanceNode")
            )
        )
        (AndLink
            (WordInstanceLink
                (VariableNode "$noun")
                (VariableNode "$a-parse")
            )
	    (InheritanceLink
   		(VariableNode "$noun")
   		(DefinedLinguisticConceptNode "definite")
	    )
        )
       (ListLink
        (ExecutionOutputLink
       	   (GroundedSchemaNode "scm: pre-definite-rule")
       	      (ListLink
       	         (VariableNode "$noun")
            )
        )
      )
    )
)

; This is function is not needed. It is added so as not to break the existing
; r2l pipeline.
(define (pre-definite-rule pred)
  (ListLink
    	(definite-rule (word-inst-get-word-str noun) (cog-name noun)
    )
  )
)<commit_msg>Change pred to noun<commit_after>; This rule simply inherits the linguistic concept of being definite to any definite noun such as "that man."
; (AN June 2015)

(define definite
    (BindLink
        (VariableList
            (TypedVariableLink
                (VariableNode "$a-parse")
                (TypeNode "ParseNode")
            )
            (TypedVariableLink
                (VariableNode "$noun")
                (TypeNode "WordInstanceNode")
            )
        )
        (AndLink
            (WordInstanceLink
                (VariableNode "$noun")
                (VariableNode "$a-parse")
            )
	    (InheritanceLink
   		(VariableNode "$noun")
   		(DefinedLinguisticConceptNode "definite")
	    )
        )
       (ListLink
        (ExecutionOutputLink
       	   (GroundedSchemaNode "scm: pre-definite-rule")
       	      (ListLink
       	         (VariableNode "$noun")
            )
        )
      )
    )
)

; This is function is not needed. It is added so as not to break the existing
; r2l pipeline.
(define (pre-definite-rule noun)
  (ListLink
    	(definite-rule (word-inst-get-word-str noun) (cog-name noun)
    )
  )
)
{'fraction_non_alphanumeric': 0.09248055315471046, 'fraction_numerical': 0.00432152117545376, 'mean_word_length': 1.624716553287982, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3501903', 'n_tokens_mistral': 708, 'n_tokens_neox': 658, 'n_words': 167}