impc:ir:get-ptr-depth   scheme

(define impc:ir:get-ptr-depth
  (lambda (t)
    (if (string? t)
        (string-length (cadr (regex:matched t "([*]*)($|#)")))
        (let ((slc (impc:ir:str-list-check t)))
                                        ;(println 't: t 'slc: slc)
          (if (string? slc)
              (impc:ir:get-ptr-depth slc)
              (real->integer (floor (/ (impc:ir:str-list-check slc) *impc:ir:pointer*))))))))