[kbss-cvut/23ava-distribution#165] Add construct comments implementation

Author: palagdan

deploy/shared/s-pipes-engine/scripts/form-generation.sms.ttl

@@ -282,6 +282,7 @@ ASK WHERE {
 }""" ;
     ] ;
   sm:next form-mod:construct-answers ;
+  sm:next form-mod:construct-comments;
   sm:next form-mod:filter-origin-path-id ;
   sml:constructQuery [
       a sp:Construct ;
@@ -316,6 +317,26 @@ WHERE {
   sml:replace true ;
 .
 
+form-mod:construct-comments
+  a sml:ApplyConstruct ;
+  sm:next form-mod:rename-form-entities ;
+  sml:constructQuery [
+      a sp:Construct ;
+      sp:text """CONSTRUCT {
+    ?sampleQ form:has-comment ?c .
+    ?c ?cp ?co .
+}
+WHERE {
+    ?dataQ form:is-cross-form-clone-of-question ?sampleQ .
+    ?dataQ form:has-comment ?c .
+    OPTIONAL {
+        ?c ?cp ?co .
+    } .
+}""" ;
+    ] ;
+  sml:replace false ;
+.
+
 
 form-mod:construct-answers
   a sml:ApplyConstruct ;