From 525e78a5016203b70aaffc44268479314fc054d1 Mon Sep 17 00:00:00 2001
From: "ezekiel.dohmen" <ezekiel.dohmen@ligo.org>
Date: Fri, 21 Jul 2023 14:50:32 -0700
Subject: [PATCH] Adding perl code for atan2 call
---
src/epics/util/lib/Atan2.pm | 63 +++++++++++++++++++++++++++++++++++++
1 file changed, 63 insertions(+)
create mode 100644 src/epics/util/lib/Atan2.pm
diff --git a/src/epics/util/lib/Atan2.pm b/src/epics/util/lib/Atan2.pm
new file mode 100644
index 000000000..24796653e
--- /dev/null
+++ b/src/epics/util/lib/Atan2.pm
@@ -0,0 +1,63 @@
+package CDS::Atan2;
+use Exporter;
+@ISA = ('Exporter');
+
+sub partType {
+ return Atan2;
+}
+
+# Print Epics communication structure into a header file
+# Current part number is passed as first argument
+sub printHeaderStruct {
+ my ($i) = @_;
+}
+
+# Print Epics variable definitions
+# Current part number is passed as first argument
+sub printEpics {
+ my ($i) = @_;
+}
+
+
+# Print variable declarations int front-end file
+# Current part number is passed as first argument
+sub printFrontEndVars {
+ my ($i) = @_;
+ print ::OUT "double \L$::xpartName[$i];\n";
+}
+
+# Check inputs are connected
+sub checkInputConnect {
+ my ($i) = @_;
+ if($::partInCnt[$i] < 2) {
+ print ::CONN_ERRORS "***\n$::partType[$i] with name $::xpartName[$i] does not have both inputs connected.\n\n";
+ return "ERROR";
+ }
+ return "";
+}
+
+# Figure out part input code
+# Argument 1 is the part number
+# Argument 2 is the input number
+# Returns calculated input code
+sub fromExp {
+ my ($i, $j) = @_;
+ return "";
+}
+
+# Return front end initialization code
+# Argument 1 is the part number
+# Returns calculated code string
+sub frontEndInitCode {
+}
+
+
+# Return front end code
+# Argument 1 is the part number
+# Returns calculated code string
+sub frontEndCode {
+ my ($i) = @_;
+ my $calcExp = "$::xpartName[$i] = latan2($::fromExp[0], $::fromExp[1]);\n"
+ return $calcExp;
+}
+
--
GitLab