From 9f07551b5d68463d04eaefa61e8e5000df610b47 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Mon, 11 Jun 2018 14:22:51 -0400
Subject: add ds9 pagesetup send parser

---
 ds9/library/pagesetup.tcl           | 15 ++++++---------
 ds9/library/source.tcl              |  2 ++
 ds9/parsers/pagesetupsendlex.fcl    | 16 ++++++++++++++++
 ds9/parsers/pagesetupsendparser.tac | 25 +++++++++++++++++++++++++
 4 files changed, 49 insertions(+), 9 deletions(-)
 create mode 100644 ds9/parsers/pagesetupsendlex.fcl
 create mode 100644 ds9/parsers/pagesetupsendparser.tac

diff --git a/ds9/library/pagesetup.tcl b/ds9/library/pagesetup.tcl
index 0b1f3db..79ecae0 100644
--- a/ds9/library/pagesetup.tcl
+++ b/ds9/library/pagesetup.tcl
@@ -188,15 +188,12 @@ proc ProcessPSPageSetupCmd {varname iname} {
 }
 
 proc ProcessSendPSPageSetupCmd {proc id param {sock {}} {fn {}}} {
-    global ps
+    global parse
+    set parse(proc) $proc
+    set parse(id) $id
 
-    switch -- [string tolower $param] {
-	orientation -
-	orient {$proc $id "$ps(orient)\n"}
-	pagescale -
-	scale {$proc $id "$ps(scale)\n"}
-	pagesize -
-	size {$proc $id "$ps(size)\n"}
-    }
+    pagesetupsend::YY_FLUSH_BUFFER
+    pagesetupsend::yy_scan_string $param
+    pagesetupsend::yyparse
 }
 
diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl
index 810c0db..29e11c7 100644
--- a/ds9/library/source.tcl
+++ b/ds9/library/source.tcl
@@ -320,6 +320,8 @@ source $ds9(root)/library/rotateparser.tcl
 source $ds9(root)/library/rotatelex.tcl
 source $ds9(root)/library/pagesetupparser.tcl
 source $ds9(root)/library/pagesetuplex.tcl
+source $ds9(root)/library/pagesetupsendparser.tcl
+source $ds9(root)/library/pagesetupsendlex.tcl
 source $ds9(root)/library/panparser.tcl
 source $ds9(root)/library/panlex.tcl
 source $ds9(root)/library/pansendparser.tcl
diff --git a/ds9/parsers/pagesetupsendlex.fcl b/ds9/parsers/pagesetupsendlex.fcl
new file mode 100644
index 0000000..5455834
--- /dev/null
+++ b/ds9/parsers/pagesetupsendlex.fcl
@@ -0,0 +1,16 @@
+#tab pagesetupsendparser.tab.tcl
+
+%{
+%}
+
+#include defs.fin
+
+%%
+
+orient	    {return $ORIENT_}
+scale	    {return $SCALE_}
+size	    {return $SIZE_}
+
+#include ws.fin
+
+%%
diff --git a/ds9/parsers/pagesetupsendparser.tac b/ds9/parsers/pagesetupsendparser.tac
new file mode 100644
index 0000000..a257d8a
--- /dev/null
+++ b/ds9/parsers/pagesetupsendparser.tac
@@ -0,0 +1,25 @@
+%{
+%}
+
+%start pagesetupsend
+
+%token ORIENT_
+%token SCALE_
+%token SIZE_
+
+%%
+
+pagesetupsend : ORIENT_ {ProcessSendCmdGet ps orient}
+ | SCALE_  {ProcessSendCmdGet ps scale}
+ | SIZE_  {ProcessSendCmdGet ps size}
+ ;
+
+%%
+
+proc pagesetupsend::yyerror {msg} {
+     variable yycnt
+     variable yy_current_buffer
+     variable index_
+
+     ParserError $msg $yycnt $yy_current_buffer $index_
+}
-- 
cgit v0.12