p2_JDID.clsp

;; Copyright 2026 Julia.Social, Inc.
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;;     http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.

(mod (JDID_LAUNCHER_ID JDID-curried-args-hash conditions)

  ; Inner puzzle for coins owned by a Julia DID (XCH, CATs, DataLayer singletons, etc.).
  ; Receives JDIDP command messages from the owning DID's coin_control puzzle, which
  ; specifies the conditions this coin should emit.

  (include *standard-cl-26*)
  (defun print (l x) (i (all "$print$" l x) x x))

  (include "condition_codes.clib")
  (include "curry_and_treehash.clib")
  (include "sha256tree.clib")

  (include "did_puzzles.clib")
  (embed-file julia-DID-puzzlehash bin "julia_did.clsp.hash.bin")

  (defun-inline create-JDID-receive-condition (JDID_LAUNCHER_ID JDID-curried-args-hash conditions-hash)
    (list RECEIVE_MESSAGE 0x17 (concat "JDIDP" conditions-hash) (julia-DID-coin-puzzlehash julia-DID-puzzlehash JDID_LAUNCHER_ID JDID-curried-args-hash))
  )

  (c (create-JDID-receive-condition JDID_LAUNCHER_ID JDID-curried-args-hash (sha256tree conditions))
     conditions)
)