correct some intent and shared hungarian tests hungarian intent property translations

Cargo.toml

@@ -1,14 +1,14 @@
 [package]
 name = "mathcat"
-version = "0.7.6-beta.5"
+version = "0.7.6-beta.8"
 authors = ["Neil Soiffer <soiffer@alum.mit.edu>"]
 license = "MIT"
 description = "MathCAT: Math Capable Assistive Technology ('Speech and braille from MathML')"
 repository = "https://github.com/NSoiffer/MathCAT"
 homepage = "https://nsoiffer.github.io/MathCAT/"
 documentation = "https://nsoiffer.github.io/MathCAT/"
 edition = "2024"
-exclude = ["src/main.rs", "docs", "PythonScripts"]    # should have "Rules/", but then one can't run build.rs to build the zip file
+exclude = ["src/main.rs", "docs", "BrailleDocs", "PythonScripts"]    # should have "Rules/", but then one can't run build.rs to build the zip file
 
 
 [features]

Rules/Braille/LaTeX/LaTeX_Rules.yaml

@@ -252,11 +252,24 @@
   - t: "𝐖"
 
 -
-  name: "hat"
-  tag: "mover"
-  match: "*[2][.='^']"
+  name: "accents"
+  tag: mover
+  match: "*[2][IsInDefinition(., 'Braille', 'Accents')]"
+  replace:
+  - t: "𝐖\\"
+  - x: "DefinitionValue(*[2], 'Braille', 'Accents')"
+  - t: "{"
+  - x: "*[1]"
+  - t: "}𝐖"
+
+-
+  name: "under-marks"
+  tag: munder
+  match: "*[2][IsInDefinition(., 'Braille', 'UnderAccents')]"
   replace:
-  - t: "𝐖\\hat{"
+  - t: "𝐖\\"
+  - x: "DefinitionValue(*[2], 'Braille', 'UnderAccents')"
+  - t: "{"
   - x: "*[1]"
   - t: "}𝐖"
 
@@ -267,8 +280,8 @@
   replace:
   - test:
       if: "$LaTeX_UseShortName"
-      then: [t: "\\ol{"]
-      else: [t: "\\overline{"]
+      then: [t: "𝐖\\ol{"]
+      else: [t: "𝐖\\overline{"]
   - x: "*[1]"
   - t: "}"
 
@@ -357,11 +370,11 @@
   replace:
   - test:
       if: "self::m:munderover"
-      then: [t: "\\overset{"]
+      then: [t: "𝐖\\overset{"]
   - test:
       if: "self::m:munder or self::m:undermover"
-      then: [t: "\\underset{"]
-      else: [t: "\\overset{"]
+      then: [t: "𝐖\\underset{"]
+      else: [t: "𝐖\\overset{"]
   - x: "*[2]"
   - t: "}{"
   - x: "*[1]"

Rules/Braille/LaTeX/definitions.yaml

@@ -23,3 +23,11 @@
     "⨋", "∐", "∏", "⫿", "⫼", "⨉", "⨈", "⨇", "⨆", "⨅",
     "⨂", "⨀", "⋂", "⋁", "⋀", "⨄", "⨃", "⋃", "⨁", "⨞", "⨝", "⨊", "∑",
   }
+
+- Accents: {
+    "→": "vec", ".": "dot", "·": "dot", "˙": "dot", "..": "ddot", "~": "tilde", "^": "hat", "⏞": "overbrace",
+  }
+
+- UnderAccents: {
+    "¯": "underline", "⏟": "underbrace", "→": "underrightarrow",
+  }

Rules/Braille/Nemeth/Nemeth_Rules.yaml

@@ -481,14 +481,16 @@
          - x: "*[2]"
    - test:
       # emit level indicator if something follows or the closest non-mrow is an element with a close tag [80(a)]
-      # if: "count(following-sibling::*) > 0 or ancestor::*[name() != 'mrow'][1]/.[self::m:mfrac or self::m:msqrt or self::m:mroot]"
-      if: "not( (parent::m:msubsup and count(following-sibling::*)=1) or following-sibling::*[2][self::m:mmultiscripts and *[self::m:mprescripts]] )" # first child is likely invisible times
-      then_test:
-         if: "$OldScriptContext != ''"
-         then: [x: "$OldScriptContext"]
-         else_test:
-            if: "not( parent::*[self::m:msubsup] )" # msupsup will generate baseline indicator
-            then: [t: "b"]
+      # if a left script follows, add the multipurpose indicator ("b")
+      - if: "not( (parent::m:msubsup and count(following-sibling::*)=1) )"
+        then_test:
+            if: "$OldScriptContext != ''"
+            then: [x: "$OldScriptContext"]
+            else_test:
+                if: "not(parent::m:msubsup)" # msupsup will generate baseline indicator
+                then: [t: "b"]
+      - else_if: "following-sibling::*[2][self::m:mmultiscripts and *[self::m:mprescripts]]" # first child is likely invisible times"
+        then: [t: "m"]
 
 -
   # From the chemistry guide, move the state from the subscript to after the script (5.3.2)
@@ -528,11 +530,15 @@
    - t: "M" # multipurpose indicator prevents the 'letter digit' substitution (177.2) from kicking in
    - x: "*[2]"
    - test:
-      if: "count(following-sibling::*) > 0 or (position() = 1 and parent::*[IsNode(., 'scripted')])"
-      then_test:
-        if: "position() = 1 and parent::*[IsNode(., 'scripted')]"
-        then: [t: "b"]
-        else: [t: "M"]
+     - if: "following-sibling::* or (position() = 1 and parent::*[IsNode(., 'scripted')])"
+       then_test:
+          if: "position() = 1 and parent::*[IsNode(., 'scripted')]"
+          then: [t: "b"]
+          else_test:
+              if: "following-sibling::*[2][self::m:mmultiscripts and *[self::m:mprescripts]]"
+              then: [t: "m"]
+              else: [t: "M"]
+
 
 - name: default
   tag: msub
@@ -547,11 +553,13 @@
              - x: "*[2]"
      - test:
           # emit level indicator if something follows or the closest non-mrow is an element with a close tag [80(a)]
-          if: "not( (parent::m:msubsup and count(following-sibling::*)=1) or following-sibling::*[2][self::m:mmultiscripts and *[self::m:mprescripts]] )" # first child is likely invisible times
+        - if: "not( (parent::m:msubsup and count(following-sibling::*)=1))"
           then_test:
              if: "$OldScriptContext !=''"
              then: [x: "$OldScriptContext"]
              else: [t: "b"]
+        - else_if: "following-sibling::*[2][self::m:mmultiscripts and *[self::m:mprescripts]]" # first child is likely invisible times"
+          then: [t: "m"]
 
 - # primes don't get a superscript indicator and come before the subscript
    name: skip-super