packages.lisp

   1 ;;;;------------------------------------------------------------------
   2 ;;;;
   3 ;;;;    Copyright (C) 2000-2004,
   4 ;;;;    Department of Computer Science, University of Tromso, Norway
   5 ;;;;
   6 ;;;; Filename:      packages.lisp
   7 ;;;; Description:   Operand representation.
   8 ;;;; Author:        Frode Vatvedt Fjeld <frodef@acm.org>
   9 ;;;; Created at:    Wed Feb 16 14:02:57 2000
  10 ;;;; Distribution:  See the accompanying file COPYING.
  11 ;;;;
  12 ;;;; $Id: packages.lisp,v 1.4 2004/09/02 09:02:10 ffjeld Exp $
  13 ;;;;
  14 ;;;;------------------------------------------------------------------
  15
  16 (in-package #:cl-user)
  17
  18 (defpackage #:ia-x86
  19   (:use #:common-lisp)
  20   (:export
  21    #:init-instruction-tables
  22    #:*cpu-mode*
  23    #:*instruction-compute-extra-prefix-map*
  24    #:decode-sub-stream
  25    #:decode-read-octet
  26    #:decode
  27    #:def-instr
  28    #:def-set
  29    ;; operands
  30    #:r/m8
  31    #:r/m16
  32    #:r/m32
  33    #:r8
  34    #:r16
  35    #:r32
  36    #:+r8
  37    #:+r16
  38    #:+r32
  39    #:pointer
  40    #:simm8
  41    #:imm8
  42    #:imm16
  43    #:imm32
  44    #:rel8
  45    #:rel16
  46    #:rel32
  47    #:ptr16-16
  48    #:ptr16-32
  49    #:al
  50    #:ax
  51    #:eax
  52    #:cl
  53    #:dx
  54    #:sreg
  55    #:cs
  56    #:ds
  57    #:es
  58    #:fs
  59    #:gs
  60    #:ss
  61    #:m32real
  62    #:m64real
  63    #:m80real
  64    #:m16int
  65    #:m32int
  66    ;; instruction class
  67    #:instruction
  68    #:instruction-operands
  69    #:instruction-prefixes
  70    ;; instruction prefixes
  71    #:lock
  72    #:repne
  73    #:repz
  74    #:cs-override
  75    #:ds-override
  76    #:es-override
  77    #:fs-override
  78    #:gs-override
  79    #:ss-override
  80    #:16-bit-operand
  81    #:16-bit-address
  82    #:*symtab-lookup*
  83    ;; proglist
  84    #:proglist-encode
  85    #:make-label
  86    ;; read
  87    #:read-instruction
  88    #:read-proglist
  89    #:asm
  90    ;; symtab
  91    #:symtab-lookup-label
  92    #:symtab-try-lookup-label
  93    ))
  94
  95 (defpackage #:ia-x86-instr
  96   (:use #:ia-x86)
  97   (:import-from #:common-lisp t nil defclass load eval compile)
  98   (:documentation
  99    "All the specialized classes for ia-x86 instructions are put into
 100 this package, so that we may have instructions named 'and' etc."))