clips-sys 0.4.0

Bindgen generated wrapper for CLIPS (clipsrules.net)
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

TRUE
CLIPS> (batch "modulcmd.bat")
TRUE
CLIPS> (clear)
CLIPS> (defmodule d1 (export ?ALL))
CLIPS> (defmodule d2 (import d1 ?ALL))
CLIPS> (defmodule d3 (export ?ALL))
CLIPS> (deftemplate t1)
CLIPS> (deftemplate t2)
CLIPS> (defmodule d4 (export deftemplate t3 t4) (import d3 deftemplate t1))
CLIPS> (deftemplate t3)
CLIPS> (deftemplate t4)
CLIPS> (defmodule d5 (import d3 deftemplate t1 t2) (import d4 deftemplate ?ALL))
CLIPS> (defmodule d6 (import d1 ?NONE) (import d3 deftemplate ?NONE))
CLIPS> (defmodule *)
CLIPS> (list-defmodules d6)
[ARGACCES1] Function 'list-defmodules' expected exactly 0 arguments.
CLIPS> (list-defmodules *)
[ARGACCES1] Function 'list-defmodules' expected exactly 0 arguments.
CLIPS> (list-defmodules)
MAIN
d1
d2
d3
d4
d5
d6
*
For a total of 8 defmodules.
CLIPS> (ppdefmodule MAIN::d6)
[PRNTUTIL1] Unable to find defmodule 'MAIN::d6'.
CLIPS> (ppdefmodule)
[ARGACCES1] Function 'ppdefmodule' expected at least 1 argument.
CLIPS> (ppdefmodule *)
(defmodule *)
CLIPS> (ppdefmodule d1)
(defmodule d1
   (export ?ALL))
CLIPS> (ppdefmodule d1 stdout)
(defmodule d1
   (export ?ALL))
CLIPS> (ppdefmodule d1 bogus)
[ROUTER1] Logical name 'bogus' was not recognized by any routers.
CLIPS> (ppdefmodule d1 nil)
"(defmodule d1
   (export ?ALL))
"
CLIPS> (ppdefmodule d2)
(defmodule d2
   (import d1 ?ALL))
CLIPS> (ppdefmodule d3)
(defmodule d3
   (export ?ALL))
CLIPS> (ppdefmodule d4)
(defmodule d4
   (export deftemplate t3 t4)
   (import d3 deftemplate t1))
CLIPS> (ppdefmodule d5)
(defmodule d5
   (import d3 deftemplate t1 t2)
   (import d4 deftemplate ?ALL))
CLIPS> (ppdefmodule d6)
(defmodule d6
   (import d1 ?NONE)
   (import d3 deftemplate ?NONE))
CLIPS> (get-defmodule-list MAIN)
[ARGACCES1] Function 'get-defmodule-list' expected exactly 0 arguments.
CLIPS> (get-defmodule-list)
(MAIN d1 d2 d3 d4 d5 d6 *)
CLIPS> (get-current-module A)
[ARGACCES1] Function 'get-current-module' expected exactly 0 arguments.
CLIPS> (get-current-module)
*
CLIPS> (set-current-module)
[ARGACCES1] Function 'set-current-module' expected exactly 1 argument.
CLIPS> (set-current-module d1 d2)
[ARGACCES1] Function 'set-current-module' expected exactly 1 argument.
CLIPS> (set-current-module A)
[PRNTUTIL1] Unable to find defmodule 'A'.
*
CLIPS> (set-current-module d3)
*
CLIPS> (get-current-module)
d3
CLIPS> (set-current-module d3)
d3
CLIPS> (get-current-module)
d3
CLIPS> (set-current-module d6)
d3
CLIPS> (get-current-module)
d6
CLIPS> (clear)
CLIPS> (list-defmodules)
MAIN
For a total of 1 defmodule.
CLIPS> (dribble-off)