johnfredcee

typedef struct 
{
	unsigned code;
} class;

johnfredcee

;; generic Emacs utility
;;; ------------------------------------------------------------------

(defun add-subdirs-to-load-path (dir)
  (let ((default-directory (concat dir "/")))
  (normal-top-level-add-subdirs-to-load-path)))

;;; basic load-path setup
;;; ------------------------------------------------------------------

johnfredcee

if (ARGUMENTS.get("SYNTAX",0) == 0):
	env.Alias("all", env["AQUA_LIBRARIES"])
	env.Default("all")
else:
	env["CCFLAGS"] = [ "-fsyntax-only"] + env["CCFLAGS"]
	object_file = COMMAND_LINE_TARGETS[0]
	cpp_file = os.path.splitext(object_file)[0] + ".cpp"
	env.Default(env.Command( object_file, cpp_file, 
							"$CC $CFLAGS $CCFLAGS $_CCCOMCOM  "  + cpp_file))

johnfredcee

;; a convienence function that lets us switch between source/header files in a project
(defun buffer-other-eproject-files ()
 (interactive)
 (let* 
  ((buffer-file (file-name-nondirectory (buffer-file-name)))
   (other-buffer-files
    (delq nil
          (mapcar (lambda (x) (and 
                               (equal (file-name-nondirectory (file-name-sans-extension x)) (file-name-sans-extension buffer-file)) 
                               (not (equal (file-name-nondirectory x) buffer-file))   

johnfredcee

;; assume filename is same as classname
(defun get-class-name ()
  (file-name-nondirectory (file-name-sans-extension buffer-file-name)))

;; insert it interactively
(defun insert-class-name  ()
  (interactive)
  (insert (get-class-name)))

johnfredcee

(defun make-some-files-read-only ()
  "when file opened is of a certain mode, make it read only"
  (when (memq major-mode '(c++-mode python-mode c-mode actionscript-mode unrealscript-mode lisp-mode))
	(toggle-read-only 1)))

(add-hook 'find-file-hook 'make-some-files-read-only)

johnfredcee

(defun is-argument-list-delimiter (chr)
  (or (= chr ?\,) (= chr ?\)) (= chr ?\=)))

(defun extract-c-arguments ()
  (interactive)
  (let
	  ((open-brace
		(progn (beginning-of-line) 
			   (search-forward "(")
			   (backward-char)

johnfredcee

import fbx
import sys
import math

###############################################################
# Helper Function(s).                                         #
###############################################################

def makeMaterial( pScene, materialName, **kwargs ):
    global fbxManager

johnfredcee

(defcustom udk-location	  "C:\\UDK\\UDK-2012-05\\"
  "Directory where udk executables are found"
  :type 'directory
  :group 'udk)

(defun flymake-unrealscript-init ()
  (setq flymake-base-dir udk-location)
  (list (concat udk-location "\\Binaries\\Win32\\UDK.com") '("make"  "-debug")))

(defun flymake-unrealscript-cleanup ()

johnfredcee

(defun flymake-get-scons-cmdline (source base-dir)
  (list "scons"
	(list "-suC"
		  (expand-file-name base-dir)
		  "SYNTAX=1"
	      (concat (file-name-sans-extension source) ".o"))))

(defun flymake-master-scons-init (get-incl-dirs-f master-file-masks include-regexp)
  "Create make command line for a source file checked via master file compilation."
  (let* ((make-args nil)