From fe008d9a8e24e043de00cecc2754908f57d0a00e Mon Sep 17 00:00:00 2001
From: Klaus Aehlig <klaus.aehlig@huawei.com>
Date: Wed, 9 Nov 2022 14:53:19 +0100
Subject: Initial commit

The rules are still very basic; in particular, the latex rules do not
support bibtex. Nevertheless, having typesetting rules in that basic
form is already useful, especially when creating documents (slides,
handbooks, web pages, etc) containing generated files, like sample
logs of tools under development.

Co-authored-by: Oliver Reiche <oliver.reiche@huawei.com>
---
 ps/RULES | 122 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 122 insertions(+)
 create mode 100644 ps/RULES

(limited to 'ps/RULES')

diff --git a/ps/RULES b/ps/RULES
new file mode 100644
index 0000000..6a4a184
--- /dev/null
+++ b/ps/RULES
@@ -0,0 +1,122 @@
+{ "family":
+  { "doc":
+    [ "From a single eps file, create many,"
+    , "with /stage set to different values."
+    ]
+  , "target_fields": ["src"]
+  , "string_fields": ["stages", "stage", "drawbb", "name"]
+  , "field_doc":
+    { "src": ["The single eps source file the variations are taken from"]
+    , "stages": ["The values of /stage for wich a file should be generated."]
+    , "drawbb": ["If non-empty, set drawbb to true, else to false"]
+    , "stage": ["The logical directory to stage the output to"]
+    , "name":
+      [ "The base name of the output files"
+      , "The stage name will be appended, separated by \"_\", and the ending \".eps\" will be added"
+      ]
+    }
+  , "imports": {"stage_field": ["./", "..", "stage_singleton_field"]}
+  , "expression":
+    { "type": "let*"
+    , "bindings":
+      [ [ "stage"
+        , { "type": "join"
+          , "separator": "/"
+          , "$1": {"type": "FIELD", "name": "stage"}
+          }
+        ]
+      , ["name", {"type": "join", "$1": {"type": "FIELD", "name": "name"}}]
+      , [ "drawbb"
+        , { "type": "if"
+          , "cond": {"type": "FIELD", "name": "drawbb"}
+          , "then": "true"
+          , "else": "false"
+          }
+        ]
+      , [ "src.eps"
+        , { "type": "let*"
+          , "bindings": [["fieldname", "src"], ["location", "src.eps"]]
+          , "body": {"type": "CALL_EXPRESSION", "name": "stage_field"}
+          }
+        ]
+      , [ "outputs"
+        , { "type": "map_union"
+          , "$1":
+            { "type": "foreach"
+            , "range": {"type": "FIELD", "name": "stages"}
+            , "var": "n"
+            , "body":
+              { "type": "let*"
+              , "bindings":
+                [ [ "script.ed"
+                  , { "type": "singleton_map"
+                    , "key": "script.ed"
+                    , "value":
+                      { "type": "BLOB"
+                      , "data":
+                        { "type": "join"
+                        , "$1":
+                          [ "1\n/\\/stage.*bind def\nd\na\n/stage { "
+                          , {"type": "var", "name": "n"}
+                          , " } bind def\n.\n1\n/\\/drawbb.*bind def\nd\na\n/drawbb { "
+                          , {"type": "var", "name": "drawbb"}
+                          , " } bind def\n.\nw\nq\n"
+                          ]
+                        }
+                      }
+                    }
+                  ]
+                , [ "out.eps"
+                  , { "type": "ACTION"
+                    , "inputs":
+                      { "type": "map_union"
+                      , "$1":
+                        [ {"type": "var", "name": "src.eps"}
+                        , {"type": "var", "name": "script.ed"}
+                        ]
+                      }
+                    , "outs": ["out.eps"]
+                    , "cmd":
+                      [ "sh"
+                      , "-c"
+                      , "cp src.eps out.eps && chmod 644 out.eps && { ed out.eps < script.ed > log 2>&1 || { cat log ; exit 1; } }"
+                      ]
+                    }
+                  ]
+                ]
+              , "body":
+                { "type": "singleton_map"
+                , "key":
+                  { "type": "join"
+                  , "$1":
+                    [ {"type": "var", "name": "name"}
+                    , "_"
+                    , {"type": "var", "name": "n"}
+                    , ".eps"
+                    ]
+                  }
+                , "value":
+                  { "type": "lookup"
+                  , "map": {"type": "var", "name": "out.eps"}
+                  , "key": "out.eps"
+                  }
+                }
+              }
+            }
+          }
+        ]
+      , [ "staged outputs"
+        , { "type": "to_subdir"
+          , "subdir": {"type": "var", "name": "stage"}
+          , "$1": {"type": "var", "name": "outputs"}
+          }
+        ]
+      ]
+    , "body":
+      { "type": "RESULT"
+      , "artifacts": {"type": "var", "name": "staged outputs"}
+      , "runfiles": {"type": "var", "name": "staged outputs"}
+      }
+    }
+  }
+}
-- 
cgit v1.2.3