aamedina

;;;; data-types.lisp
;;;;
;;;; Copyright (c) 2015 Adrian Medina

(in-package :scene-kit)

(objc:define-objc-struct (scn-vector3 (:foreign-name "SCNVector3")
				      (:typedef-name scn:scn-vector3)
				      (:reader get-scn-vector3)
				      (:writer set-scn-vector3-dynamic))

aamedina

;;;; metal/compiler.lisp
;;;;
;;;; Copyright (c) 2015 Adrian Medina

(in-package :metal)

(defparameter *metal-source-paths*
  (asdf:system-relative-pathname *system* "src/metal/"))

(defun metal (pathname)

aamedina

//
//  RT.swift
//  Clojure
//
//
//

import Foundation

public func typeOf<T> (x: T) -> T.Type {

aamedina

;;; clojure-mode.el --- Major mode for Clojure code -*- lexical-binding: t; -*-

;; Copyright © 2007-2015 Jeffrey Chu, Lennart Staflin, Phil Hagelberg
;; Copyright © 2013-2015 Bozhidar Batsov
;;
;; Authors: Jeffrey Chu <jochu0@gmail.com>
;;       Lennart Staflin <lenst@lysator.liu.se>
;;       Phil Hagelberg <technomancy@gmail.com>
;;       Bozhidar Batsov <bozhidar@batsov.com>
;; URL: http://github.com/clojure-emacs/clojure-mode

aamedina

(defn- build-trust-store
  []
  (doto (KeyStore/getInstance (KeyStore/getDefaultType))
    (.load (io/input-stream (System/getProperty "javax.net.ssl.trustStore"))
           (System/getProperty "javax.net.ssl.trustStorePassword"))))

(defn- build-key-store
  []
  (doto (KeyStore/getInstance (KeyStore/getDefaultType))
    (.load (io/input-stream (System/getProperty "javax.net.ssl.keyStore"))

aamedina

(in-package :cmpxchg)

(sb-c:defknown cmpxchg (sb-sys:system-area-pointer (unsigned-byte 64) (unsigned-byte 64))
    boolean
    (sb-c:flushable sb-c:movable)
  :overwrite-fndb-silently t)

(in-package :sb-vm)

(define-vop (cmpxchg::cmpxchg)

aamedina

015-09-22 15:55:44.268 java[2016:172718] java.lang.OutOfMemoryError: unable to create new native thread
	at java.lang.Thread.start0(Native Method)
	at java.lang.Thread.start(Thread.java:714)
	at sun.awt.AWTAutoShutdown.activateBlockerThread(AWTAutoShutdown.java:347)
	at sun.awt.AWTAutoShutdown.setToolkitBusy(AWTAutoShutdown.java:262)
	at sun.awt.AWTAutoShutdown.notifyToolkitThreadBusy(AWTAutoShutdown.java:145)
2015-09-22 15:55:44.270 java[2016:172718] (
	0   CoreFoundation                      0x00007fff86cf8bd2 __exceptionPreprocess + 178
	1   libobjc.A.dylib                     0x00007fff902704fa objc_exception_throw + 48
	2   CoreFoundation                      0x00007fff86cf8b19 -[NSException raise] + 9

aamedina

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(company-idle-delay nil)
 '(lisp-lambda-list-keyword-alignment t)
 '(lisp-lambda-list-keyword-parameter-alignment t)
 '(lisp-loop-forms-indentation 2)
 '(lisp-loop-keyword-indentation 2)

aamedina

(require 'package)
(setq package-enable-at-startup nil)
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
(package-initialize)

(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

(eval-when-compile 

aamedina

(in-package :metal)

(objc:define-objc-class particle-lab ()
  ()
  (:objc-class-name "ParticleLab")
  (:objc-superclass-name "MTKView"))

(objc:define-objc-method ("drawRect:" :void)
    ((self particle-lab)
     (dirty-rect cocoa:ns-rect))