6040 Pearl Pressure Controller

.gitignore

@@ -0,0 +1,21 @@
+__pycache__/
+*.py[cod]
+*$py.class
+/test-reports/
+
+O.*/
+/db
+/bin
+/dbd
+/include
+/lib
+/templates
+envPaths
+cdCommands
+dllPath.bat
+runIOC.bat
+runIOC.sh
+relPaths.sh
+.project
+/data
+.idea/

Makefile

@@ -0,0 +1,32 @@
+TOP = .
+include $(TOP)/configure/CONFIG
+
+DIRS += configure
+DIRS += $(wildcard *Sup)
+DIRS += $(wildcard *App)
+DIRS += $(wildcard *Top)
+DIRS += $(wildcard iocBoot)
+
+# The build order is controlled by these dependency rules:
+
+# All dirs except configure depend on configure
+$(foreach dir, $(filter-out configure, $(DIRS)), \
+    $(eval $(dir)_DEPEND_DIRS += configure))
+
+# Any *App dirs depend on all *Sup dirs
+$(foreach dir, $(filter %App, $(DIRS)), \
+    $(eval $(dir)_DEPEND_DIRS += $(filter %Sup, $(DIRS))))
+
+# Any *Top dirs depend on all *Sup and *App dirs
+$(foreach dir, $(filter %Top, $(DIRS)), \
+    $(eval $(dir)_DEPEND_DIRS += $(filter %Sup %App, $(DIRS))))
+
+# iocBoot depends on all *App dirs
+iocBoot_DEPEND_DIRS += $(filter %App,$(DIRS))
+
+# Add any additional dependency rules here:
+
+include $(TOP)/configure/RULES_TOP
+
+ioctests:
+	.\system_tests\run_tests.bat

PearlPCSup/Makefile

@@ -0,0 +1,11 @@
+TOP=..
+include $(TOP)/configure/CONFIG
+#=======================================
+
+# Install .dbd and .db files
+DATA += PearlPC.proto
+
+DB += devPearl.db
+
+#=======================================
+include $(TOP)/configure/RULES

PearlPCSup/PearlPC.proto

@@ -0,0 +1,93 @@
+OutTerminator = "\r\n";
+InTerminator = "\r\r\n";
+
+ReplyTimeout = 2000;
+
+get_st {
+	out "st";
+	in "%(\$1.A)d %(\$1.B)d %(\$1.C)d %(\$1.D)d %(\$1.E)d %(\$1.F)d %(\$1.G)d %(\$1.H)d %(\$1.I)d %(\$1.J)d %(\$1.K)d %(\$2.A)d %(\$2.B)d %(\$2.C)d %(\$2.D)d";
+}
+
+get_st_array {
+	out "st";
+	in "%d";
+}
+
+set_ra{
+	out "ra%#04d"
+}
+
+set_mx{
+	out "mx%#04d"
+}
+
+set_mn{
+	out "mn%#04d"
+}
+
+set_sp{
+	out "sp%#04d"
+}
+
+set_sf{
+	out "sf%#04d"
+}
+
+set_si{
+	out "si%#04d"
+}
+
+set_sd{
+	out "sd%#04d"
+}
+
+set_sloop{
+	out "sloop%#01d"
+}
+
+set_by{
+	out "By%#01d"
+}
+
+set_ru{
+	out "Ru%#01d"
+}
+
+set_re{
+	out "Re%#01d"
+}
+
+set_St{
+	out "St%#01d"
+}
+
+set_EM{
+	out "Em%#01d"
+}
+
+set_ER{
+	out "Er%#01d"
+}
+
+set_AM{
+	out "AM%#01d"
+}
+
+set_GO{
+	out "GO%d"
+}
+
+get_id {
+	ExtraInput = Ignore;
+	out "id";
+	in "%/[0-9]{4} [0-9]{4}/";
+}
+
+set_reset_pistons {
+	out "reset%#01d"
+}
+
+get_piston_status {
+	out "reset";
+	in "%/[0-1]{1}";
+}