Какао-эквивалент метода Carbon getPtrSize - PullRequest
Новая
       9

Какао-эквивалент метода Carbon getPtrSize

5 голосов
/ 08 марта 2010

Мне нужно перевести углеродный метод в какао, и у меня возникают проблемы с поиском какой-либо документации о том, что в действительности делает углеродный метод getPtrSize. Из кода, который я перевожу, кажется, что он возвращает байтовое представление изображения, но это на самом деле не совпадает с именем. Может ли кто-нибудь дать мне хорошее объяснение этого метода или дать ссылку на документацию, которая его описывает. Код, который я перевожу, находится в общей реализации lisp, называемой MCL, которая имеет мост к углероду (я транслирую в CCL, которая является обычной реализацией lisp с мостом Какао). Вот код MCL (#_перед вызовом метода означает, что это углеродный метод): 

(defmethod COPY-CONTENT-INTO ((Source inflatable-icon)
                              (Destination inflatable-icon))
  ;; check for size compatibility to avoid disaster
  (unless (and (= (rows Source) (rows Destination)) 
               (= (columns Source) (columns Destination))
               (= (#_getPtrSize (image Source))
                  (#_getPtrSize (image Destination))))
    (error "cannot copy content of source into destination
inflatable icon: incompatible sizes"))
  ;; given that they are the same size only copy content
  (setf (is-upright Destination) (is-upright Source))
  (setf (height Destination) (height Source))
  (setf (dz Destination) (dz Source))
  (setf (surfaces Destination) (surfaces Source))
  (setf (distance Destination) (distance Source))
  ;; arrays
  (noise-map Source)  ;; accessor makes array if needed
  (noise-map Destination)  ;; ;; accessor makes array if needed
  (dotimes (Row (rows Source))
    (dotimes (Column (columns Source))
      (setf (aref (noise-map Destination) Row Column)
            (aref (noise-map Source) Row Column))
      (setf (aref (altitudes Destination) Row Column)
            (aref (altitudes Source) Row Column))))
  (setf (connectors Destination)
        (mapcar #'copy-instance (connectors Source)))
  (setf (visible-alpha-threshold Destination)
        (visible-alpha-threshold Source))
  ;; copy Image: slow byte copy
  (dotimes (I (#_getPtrSize (image Source)))
    (%put-byte (image Destination) (%get-byte (image Source) i) i))
  ;; flat texture optimization:
  ;; do not copy texture-id
  ;;   -> destination should get its own texture id from OpenGL
  (setf (is-flat Destination) (is-flat Source))
  ;; do not compile flat textures: the display list overhead
  ;; slows things down by about 2x
  (setf (auto-compile Destination) (not (is-flat Source)))
  ;; to make change visible we have to reset the compiled flag
  (setf (is-compiled Destination) nil))

1 Ответ

4 голосов
/ 08 марта 2010

GetPtrSize - это функция из диспетчера памяти . Когда вы выделяете память с помощью NewPtr (еще одна функция диспетчера памяти), диспетчер памяти будет отслеживать, сколько памяти вы запрашивали, чтобы вы могли извлечь это число с помощью GetPtrSize.

Современная замена для NewPtr - это malloc, которая не предоставляет такой функциональности. Существует функция malloc_size, но число, которое она возвращает, может быть округлено до некоторого приращения, поэтому оно может быть больше числа, которое вы запрашивали изначально. Вы можете видеть, как это было бы (по крайней мере, концептуально) плохо.

Единственная точная замена для GetPtrSize - это просто отслеживать размеры буферов самостоятельно.

В качестве альтернативы вы можете заменить эти буферы объектами NSMutableData. NSMutableData инкапсулирует буфер и его размер, что позволяет легко хранить их вместе.

...