nixeagle

;;; E means a r/m byte
;;; b means a byte regardless of operand code
;;; L means Lock prefix is valid
;;; r means r/m bit has part of the opcode
;;; d means bit 1 for direction is present
;;; w means bit 0 for operand size is present
(binop add #x00 r (d w) 
       (operand E b) (operand G b)
       (:x L)
       ;; arch defaults to *default-arch* which can be set in a (let ...)

nixeagle

*** Wisent ooc-wisent-wy.el - 2010-07-18 00:13



Useless nonterminals:

   KW
   import_name

nixeagle

~ $ cat t.ooc
mport math/Random~ $ 
~ $ /home/nick/dev/lang/ooc/rock/bin/rock -sdk=/home/nick/dev/lang/ooc/rock/sdk -onlycheck -nolibcache t.ooc
./dev/os/tsion/oos/Src/OocLib/lang/memory.ooc:1:12 [ERROR] Module not found in sourcepath Hal/MM
import Hal/MM
           ~~
[FAIL] 

nixeagle

0.1 19 0c1 0b101 0xff_aa
//
-0.1 -19 -0c1 -0b101 -0xff_aa
///

/// <lex tokens below>
((FLOAT_LITERAL 1 . 4) (SPACES 4 . 5) (DEC_LITERAL 5 . 7) (SPACES 7 . 8) (OCT_LITERAL 8 . 11) (SPACES 11 . 12) (BIN_LITERAL 12 . 17) (SPACES 17 . 18) (HEX_LITERAL 18 . 25) (NEWLINE 25 . 26) (COMMENT_SINGLE_LINE_START 26 . 28) (NEWLINE 28 . 29) (FLOAT_LITERAL 29 . 33) (SPACES 33 . 34) (DEC_LITERAL 34 . 37) (SPACES 37 . 38) (OCT_LITERAL 38 . 42) (SPACES 42 . 43) (BIN_LITERAL 43 . 49) (SPACES 49 . 50) (HEX_LITERAL 50 . 58) (NEWLINE 58 . 59) (OOCDOC_SINGLE_LINE_START 59 . 62))

nixeagle

0.1 19 0c1 0b101 0xff_aa
//
-0.1 -19 -0c1 -0b101 -0xff_aa
///

/// <lex tokens below>
((FLOAT_LITERAL 1 . 4) (SPACES 4 . 5) (DEC_LITERAL 5 . 7) (SPACES 7 . 8) (OCT_LITERAL 8 . 11) (SPACES 11 . 12) (BIN_LITERAL 12 . 17) (SPACES 17 . 18) (HEX_LITERAL 18 . 25) (NEWLINE 25 . 26) (COMMENT_SINGLE_LINE_START 26 . 28) (NEWLINE 28 . 29) (FLOAT_LITERAL 29 . 33) (SPACES 33 . 34) (DEC_LITERAL 34 . 37) (SPACES 37 . 38) (OCT_LITERAL 38 . 42) (SPACES 42 . 43) (BIN_LITERAL 43 . 49) (SPACES 49 . 50) (HEX_LITERAL 50 . 58) (NEWLINE 58 . 59) (OOCDOC_SINGLE_LINE_START 59 . 62))

nixeagle

~/repos/rock/source/rock/backend/cnaughty $ ~/repos/rock/bin/rock -sourcepath=/home/james/repos/rock/source -onlycheck -sourcepath=. rock/backend/cnaughty/ModuleWriter.ooc
source/rock/frontend/CommandLine.ooc:369:25 [WARNING] Unknown version id: 'osx', compiling anyway (who knows?)
                version(osx) {
                        ~~~   
./Skeleton.ooc:1:37 [ERROR] Module not found in sourcepath ../../middle/Visitor
import AwesomeWriter, ../../middle/[Visitor, Statement, ControlStatement]
                                    ~~~~~~~                              
[FAIL]

nixeagle

~/repos/rock/source/rock/backend/cnaughty $ ~/repos/rock/bin/rock -sourcepath=/home/james/repos/rock/source -onlycheck -sourcepath=. ModuleWriter.ooc
./ModuleWriter.ooc:2:23 [ERROR] Module not found in sourcepath ../../middle/Module
import ../../middle/[Module, Include, Import, TypeDecl, FunctionDecl,
                      ~~~~~~                                         
[FAIL]
~/repos/rock/source/rock/backend/cnaughty $ 

nixeagle

(defun draw-thing ()
  (gl:with-gl-array-values (arr1 'vertex '(x y z))
      '(#(5.0 5.0 -5.0) #(5.0 -5.0 -5.0)
        #(-5.0 -5.0 -5.0) #(-5.0 5.0 -5.0)
        #(5.0 5.0 5.0) #(5.0 -5.0 5.0)
        #(-5.0 -5.0 5.0) #(-5.0 5.0 5.0))
    (gl:bind-gl-vertex-array arr1)
    ;(gl:rotate 1 1 1 3)
    (gl:polygon-mode :front-and-back :line)
    (gl:with-gl-array-values (arr2 :unsigned-int)

nixeagle

for face in mesh.faces:
		out.write('f')
		
		for vert in face.v:
			out.write( ' %i' % (vert.index + 1) )
		out.write('\n')

nixeagle

                match scancode {
                    // Shift key press
                    case Scancode LSHIFT =>
                        shift = true
                
                    // Any other scan code
                    case =>
                        chr := (shift ? uppercase : lowercase)[scancode] as Char
                        Bochs debug("Char: %c" format(chr))
                        chr print()