| … | … | @@ -0,0 +1,82 @@ |
| 1 | |
| 2 | ; required atom types. |
| 3 | |
| 4 | (define (AntiLink . x) |
| 5 | (apply cog-new-link (append (list 'AntiLink) x))) |
| 6 | |
| 7 | (define (AtTimeLink . x) |
| 8 | (apply cog-new-link (append (list 'AtTimeLink) x))) |
| 9 | |
| 10 | (define (FeatureLink . x) |
| 11 | (apply cog-new-link (append (list 'FeatureLink) x))) |
| 12 | (define (Feature . x) |
| 13 | (apply cog-new-link (append (list 'FeatureLink) x))) |
| 14 | |
| 15 | (define (HebbianLink . x) |
| 16 | (apply cog-new-link (append (list 'HebbianLink) x))) |
| 17 | |
| 18 | (define (LemmaLink . x) |
| 19 | (apply cog-new-link (append (list 'LemmaLink) x))) |
| 20 | |
| 21 | (define (ParseLink . x) |
| 22 | (apply cog-new-link (append (list 'ParseLink) x))) |
| 23 | |
| 24 | (define (PartOfSpeechLink . x) |
| 25 | (apply cog-new-link (append (list 'PartOfSpeechLink) x))) |
| 26 | |
| 27 | (define (ReferenceLink . x) |
| 28 | (apply cog-new-link (append (list 'ReferenceLink) x))) |
| 29 | |
| 30 | (define (WordInstanceLink . x) |
| 31 | (apply cog-new-link (append (list 'WordInstanceLink) x))) |
| 32 | |
| 33 | (define (DefinedLinguisticConceptNode . x) |
| 34 | (apply cog-new-node (append (list 'DefinedLinguisticConceptNode) x))) |
| 35 | |
| 36 | (define (DefinedLinguisticRelationshipNode . x) |
| 37 | (apply cog-new-node (append (list 'DefinedLinguisticRelationshipNode) x))) |
| 38 | |
| 39 | (define (DocumentNode . x) |
| 40 | (apply cog-new-node (append (list 'DocumentNode) x))) |
| 41 | |
| 42 | (define (FeatureNode . x) |
| 43 | (apply cog-new-node (append (list 'FeatureNode) x))) |
| 44 | |
| 45 | (define (LemmaNode . x) |
| 46 | (apply cog-new-node (append (list 'LemmaNode) x))) |
| 47 | |
| 48 | (define (LgConnectorNode . x) |
| 49 | (apply cog-new-node (append (list 'LgConnectorNode) x))) |
| 50 | |
| 51 | (define (ParseNode . x) |
| 52 | (apply cog-new-node (append (list 'ParseNode) x))) |
| 53 | |
| 54 | (define (PartOfSpeechNode . x) |
| 55 | (apply cog-new-node (append (list 'PartOfSpeechNode) x))) |
| 56 | |
| 57 | (define (PrepositionalRelationshipNode . x) |
| 58 | (apply cog-new-node (append (list 'PrepositionalRelationshipNode) x))) |
| 59 | |
| 60 | (define (SemeNode . x) |
| 61 | (apply cog-new-node (append (list 'SemeNode) x))) |
| 62 | (define (Seme . x) |
| 63 | (apply cog-new-node (append (list 'SemeNode) x))) |
| 64 | |
| 65 | (define (SentenceNode . x) |
| 66 | (apply cog-new-node (append (list 'SentenceNode) x))) |
| 67 | |
| 68 | (define (TimeNode . x) |
| 69 | (apply cog-new-node (append (list 'TimeNode) x))) |
| 70 | |
| 71 | (define (WordInstanceNode . x) |
| 72 | (apply cog-new-node (append (list 'WordInstanceNode) x))) |
| 73 | |
| 74 | (define (WordNode . x) |
| 75 | (apply cog-new-node (append (list 'WordNode) x))) |
| 76 | (define (Word . x) |
| 77 | (apply cog-new-node (append (list 'WordNode) x))) |
| 78 | |
| 79 | (define (WordSenseNode . x) |
| 80 | (apply cog-new-node (append (list 'WordSenseNode) x))) |
| 81 | (define (WordSense . x) |
| 82 | (apply cog-new-node (append (list 'WordSenseNode) x))) |