movitz-cvs January 2004

movitz-cvs@common-lisp.net

2 participants
74 discussions

[movitz-cvs] CVS update: movitz/losp/x86-pc/ne2k.lisp
by Frode Vatvedt Fjeld 15 Jan '04

15 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv28032 Modified Files: ne2k.lisp Log Message: Require module :lib/net/ethernet because we use its package. Date: Thu Jan 15 12:43:28 2004 Author: ffjeld Index: movitz/losp/x86-pc/ne2k.lisp diff -u movitz/losp/x86-pc/ne2k.lisp:1.2 movitz/losp/x86-pc/ne2k.lisp:1.3 --- movitz/losp/x86-pc/ne2k.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/ne2k.lisp Thu Jan 15 12:43:28 2004 @@ -10,11 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 17 15:16:00 2002 ;;;; -;;;; $Id: ne2k.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: ne2k.lisp,v 1.3 2004/01/15 17:43:28 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (require :x86-pc/package) +(require :lib/net/ethernet) (defpackage muerte.x86-pc.ne2k (:use muerte.cl muerte muerte.lib muerte.x86-pc muerte.ethernet)

1 0

[movitz-cvs] CVS update: movitz/doc/report/.cvsignore
by Frode Vatvedt Fjeld 15 Jan '04

15 Jan '04

Update of /project/movitz/cvsroot/movitz/doc/report In directory common-lisp.net:/tmp/cvs-serv14914 Added Files: .cvsignore Log Message: ignore TeX build files etc. Date: Thu Jan 15 12:41:12 2004 Author: ffjeld

1 0

[movitz-cvs] CVS update: ia-x86/load.lisp
by Frode Vatvedt Fjeld 15 Jan '04

15 Jan '04

Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv4992 Added Files: load.lisp Log Message: Also some crude loading for non-allegro and non-asd users. Works for me with cmucl 18e. Date: Thu Jan 15 12:39:18 2004 Author: ffjeld

1 0

[movitz-cvs] CVS update: movitz/load.lisp
by Frode Vatvedt Fjeld 15 Jan '04

15 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv25570 Modified Files: load.lisp Log Message: Provided a rather crude loading mechanism for non-allegro. Works for me under cmucl. Date: Thu Jan 15 12:38:21 2004 Author: ffjeld Index: movitz/load.lisp diff -u movitz/load.lisp:1.1.1.1 movitz/load.lisp:1.2 --- movitz/load.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/load.lisp Thu Jan 15 12:38:21 2004 @@ -1,33 +1,62 @@ - -(in-package :user) - -;; (load "../binary-types/binary-types") - -(compile-file #p"../binary-types/binary-types" :load-after-compile t) - -(let ((*default-pathname-defaults* #+mswindows #p"c:\\src\\read-elf32\\" - #+unix #p"~/src/ia-x86/")) - (load "system.lisp") - (compile-system :ia-x86) - (load-system :ia-x86) - (load-system :ia-x86-instr :interpreted t)) - -(ia-x86:init-instruction-tables) - -(let ((*default-pathname-defaults* #+mswindows #p"c:\\src\\read-elf32\\" - #+unix #p"~/src/read-elf32/")) - (load "Defsystem-allegro.lisp") - (load-system :elf32)) - -(compile-file #p"../infunix/procfs" :load-after-compile t) - -(load "packages.lisp") -(load "movitz.lisp") -(compile-system :movitz) -(load-system :movitz) - -#+allegro -(progn - (setf excl:*tenured-bytes-limit* #x2000000) - (setf (system::gsgc-parameter :generation-spread) 12) - (sys:resize-areas :new (* 16 1024 1024))) \ No newline at end of file +;;;;------------------------------------------------------------------ +;;;; +;;;; Copyright (C) 2003-2004, +;;;; Department of Computer Science, University of Tromsoe, Norway. +;;;; +;;;; For distribution policy, see the accompanying file COPYING. +;;;; +;;;; Filename: load.lisp +;;;; Description: +;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> +;;;; Created at: Thu Jan 15 18:40:58 2004 +;;;; +;;;; $Id: load.lisp,v 1.2 2004/01/15 17:38:21 ffjeld Exp $ +;;;; +;;;;------------------------------------------------------------------ + +(in-package :cl-user) + +(load (compile-file #p"../binary-types/binary-types")) + +(let ((*default-pathname-defaults* #p"../ia-x86/")) + #+cmu (let ((pwd (ext:default-directory))) + (progn + (unwind-protect + (progn + (setf (ext:default-directory) #p"../ia-x86/") + (load "load")) + (setf (ext:default-directory) pwd)))) + #-cmu (load "load")) + +(load (compile-file #p"../infunix/procfs")) + + +#+allegro (progn + (load "packages.lisp") + (load "movitz.lisp") + (excl:compile-system :movitz) + (excl:load-system :movitz) + (setf excl:*tenured-bytes-limit* #x2000000) + (setf (system::gsgc-parameter :generation-spread) 12) + (sys:resize-areas :new (* 16 1024 1024))) + +#-allegro (with-compilation-unit () + #+cmu (setf bt::*ignore-hidden-slots-for-pcl* t) + (mapcar (lambda (path) + (load (compile-file (make-pathname :name path :type "lisp") :print nil))) + '("packages" + "movitz" + "parse" + "eval" + "multiboot" + "bootblock" + "environment" + "compiler-types" + "compiler-protocol" + "storage-types" + "image" + "stream-image" + "procfs-image" + "assembly-syntax" + "compiler-protocol" + "compiler" "special-operators" "special-operators-cl")))

1 0

[movitz-cvs] CVS update: movitz/movitz-mode.el
by Frode Vatvedt Fjeld 15 Jan '04

15 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv21465 Modified Files: movitz-mode.el Log Message: Don't depend on my particular development directory. Date: Thu Jan 15 12:37:11 2004 Author: ffjeld Index: movitz/movitz-mode.el diff -u movitz/movitz-mode.el:1.1.1.1 movitz/movitz-mode.el:1.2 --- movitz/movitz-mode.el:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/movitz-mode.el Thu Jan 15 12:37:11 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Sep 27 18:12:17 2001 ;;;; -;;;; $Id: movitz-mode.el,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: movitz-mode.el,v 1.2 2004/01/15 17:37:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -108,7 +108,7 @@ (fi:eval-in-lisp "movitz::*bootblock-build*") display-shortcut) (call-process "/bin/sh" nil 0 nil "-c" - (format "cd ~/src/movitz && DISPLAY=\"%s\" ~/tmp/bochs-cvs/bochs -nocp > bochs-parameters" + (format "DISPLAY=\"%s\" ~/tmp/bochs-cvs/bochs -nocp > bochs-parameters" display-shortcut)))) (defun movitz-compile-file ()

1 0

[movitz-cvs] CVS update: movitz/image.lisp
by Frode Vatvedt Fjeld 15 Jan '04

15 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv16817 Modified Files: image.lisp Log Message: There is no package "excl" always. Date: Thu Jan 15 12:36:20 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.1.1.1 movitz/image.lisp:1.2 --- movitz/image.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/image.lisp Thu Jan 15 12:36:19 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.2 2004/01/15 17:36:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1378,9 +1378,10 @@ (movitz-print (movitz-funobj-code-vector funobj))))) (when verbose (pprint command) (terpri) (force-output)) - (if destination - (excl::run-shell-command (format nil "./udp6-send.py ~A 1 ~S" destination command)) - command)))) + command + #+allegro (if destination + (excl::run-shell-command (format nil "./udp6-send.py ~A 1 ~S" destination command)) + command)))) ;;; "Printer"

1 0

[movitz-cvs] CVS update: movitz/losp/lib/net/arp.lisp movitz/losp/lib/net/ethernet.lisp movitz/losp/lib/net/ip4.lisp movitz/losp/lib/net/ip6.lisp
by Frode Vatvedt Fjeld 15 Jan '04

15 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/lib/net In directory common-lisp.net:/tmp/cvs-serv6665/net Modified Files: arp.lisp ethernet.lisp ip4.lisp ip6.lisp Log Message: Fixed up package muerte.lib. Date: Thu Jan 15 12:34:50 2004 Author: ffjeld Index: movitz/losp/lib/net/arp.lisp diff -u movitz/losp/lib/net/arp.lisp:1.1.1.1 movitz/losp/lib/net/arp.lisp:1.2 --- movitz/losp/lib/net/arp.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/net/arp.lisp Thu Jan 15 12:34:49 2004 @@ -10,16 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Mar 20 15:01:15 2003 ;;;; -;;;; $Id: arp.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: arp.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (require :lib/net/ethernet) (provide :lib/net/arp) - -(defpackage muerte.ip4 - (:use muerte.cl muerte muerte.ethernet muerte.lib) - (:export )) (in-package muerte.ip4) Index: movitz/losp/lib/net/ethernet.lisp diff -u movitz/losp/lib/net/ethernet.lisp:1.1.1.1 movitz/losp/lib/net/ethernet.lisp:1.2 --- movitz/losp/lib/net/ethernet.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/net/ethernet.lisp Thu Jan 15 12:34:49 2004 @@ -10,45 +10,44 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 17 15:25:31 2002 ;;;; -;;;; $Id: ethernet.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: ethernet.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(require :common-lisp) (require :lib/named-integers) (provide :lib/net/ethernet :load-priority 0) (defpackage muerte.ethernet - (:use muerte.cl muerte :muerte.lib) - (:export make-ethernet-packet - ether-destination - ether-source - ether-type - ethernet-device - transmit - receive - packet-error - packet - packet-available-p - mac-address - accept-broadcasts-p - accept-multicast-addresses - promiscuous-p - pprint-mac - ether-mac-vendor - format-ethernet-packet - ether-802.3-p - ether-802.3-llc-type - ether-802.3-llc-dsap - ether-802.3-llc-ssap - ether-802.3-snap-p - ether-802.3-snap-type - +source-mac+ - +destination-mac+ - +max-ethernet-frame-size+ - +min-ethernet-frame-size+ - +broadcast-address+)) + (:use muerte.cl muerte muerte.lib) + (:export #:make-ethernet-packet + #:ether-destination + #:ether-source + #:ether-type + #:ethernet-device + #:transmit + #:receive + #:packet-error + #:packet + #:packet-available-p + #:mac-address + #:accept-broadcasts-p + #:accept-multicast-addresses + #:promiscuous-p + #:pprint-mac + #:ether-mac-vendor + #:format-ethernet-packet + #:ether-802.3-p + #:ether-802.3-llc-type + #:ether-802.3-llc-dsap + #:ether-802.3-llc-ssap + #:ether-802.3-snap-p + #:ether-802.3-snap-type + #:+source-mac+ + #:+destination-mac+ + #:+max-ethernet-frame-size+ + #:+min-ethernet-frame-size+ + #:+broadcast-address+)) (in-package muerte.ethernet) Index: movitz/losp/lib/net/ip4.lisp diff -u movitz/losp/lib/net/ip4.lisp:1.1.1.1 movitz/losp/lib/net/ip4.lisp:1.2 --- movitz/losp/lib/net/ip4.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/net/ip4.lisp Thu Jan 15 12:34:49 2004 @@ -10,21 +10,22 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Apr 30 13:52:57 2003 ;;;; -;;;; $Id: ip4.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: ip4.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(provide :lib/net/ip4) - -;; (require :x86-pc/ne2k) +(require :lib/package) (require :lib/misc) -(require :lib/net/arp) +(require :lib/net/ethernet) +(provide :lib/net/ip4) (defpackage muerte.ip4 (:use muerte.cl muerte muerte.ethernet muerte.lib) (:export pprint-ip4 ip4-test ip4-free)) + +(require :lib/net/arp) (in-package muerte.ip4) Index: movitz/losp/lib/net/ip6.lisp diff -u movitz/losp/lib/net/ip6.lisp:1.1.1.1 movitz/losp/lib/net/ip6.lisp:1.2 --- movitz/losp/lib/net/ip6.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/lib/net/ip6.lisp Thu Jan 15 12:34:49 2004 @@ -10,36 +10,33 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Nov 14 17:25:31 2001 ;;;; -;;;; $Id: ip6.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: ip6.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(require :common-lisp) (require :x86-pc/all) (require :x86-pc/pit8253) (require :x86-pc/ne2k) (require :lib/named-integers) (require :lib/misc) -(require :lib/malloc-init) (require :lib/net/ethernet) (provide :lib/net/ip6) (defpackage muerte.ip6 (:use muerte.cl muerte.lib muerte.x86-pc muerte.ethernet) - (:export - packet-version - packet-source - packet-destination - packet-length - packet-traffic-class - packet-next-header - packet-flow-label - packet-hop-limit + (:export #:packet-version + #:packet-source + #:packet-destination + #:packet-length + #:packet-traffic-class + #:packet-next-header + #:packet-flow-label + #:packet-hop-limit - pprint-ip6 - ip6-test - ip6-free - )) + #:pprint-ip6 + #:ip6-test + #:ip6-free + )) (in-package muerte.ip6)

1 0

[movitz-cvs] CVS update: movitz/losp/lib/bcd.lisp movitz/losp/lib/console.lisp movitz/losp/lib/misc.lisp movitz/losp/lib/named-integers.lisp movitz/losp/lib/package.lisp movitz/losp/lib/readline.lisp movitz/losp/lib/repl.lisp movitz/losp/lib/toplevel.lisp
by Frode Vatvedt Fjeld 15 Jan '04

15 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv6665 Modified Files: bcd.lisp console.lisp misc.lisp named-integers.lisp package.lisp readline.lisp repl.lisp toplevel.lisp Log Message: Fixed up package muerte.lib. Date: Thu Jan 15 12:34:49 2004 Author: ffjeld Index: movitz/losp/lib/bcd.lisp diff -u movitz/losp/lib/bcd.lisp:1.1.1.1 movitz/losp/lib/bcd.lisp:1.2 --- movitz/losp/lib/bcd.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/bcd.lisp Thu Jan 15 12:34:49 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2002, +;;;; Copyright (C) 2001-2002, 2004, ;;;; Department of Computer Science, University of Tromsø, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,15 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 30 14:03:57 2002 ;;;; -;;;; $Id: bcd.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: bcd.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ +(require :lib/package) (provide :lib/bcd) - -(defpackage muerte.lib - (:export bcd-to-integer - integer-to-bcd)) (in-package muerte.lib) Index: movitz/losp/lib/console.lisp diff -u movitz/losp/lib/console.lisp:1.1.1.1 movitz/losp/lib/console.lisp:1.2 --- movitz/losp/lib/console.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/console.lisp Thu Jan 15 12:34:49 2004 @@ -10,26 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 14 18:14:16 2003 ;;;; -;;;; $Id: console.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: console.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ +(requore :lib/package) (provide :lib/console) - -(defpackage muerte.lib - (:use muerte) - (:export console - console-width - console-height - cursor-x - cursor-y - console-char - scroll-down - put-string - clear-line - clear-console - local-echo-p - with-saved-excursion)) (in-package muerte.lib) Index: movitz/losp/lib/misc.lisp diff -u movitz/losp/lib/misc.lisp:1.1.1.1 movitz/losp/lib/misc.lisp:1.2 --- movitz/losp/lib/misc.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/misc.lisp Thu Jan 15 12:34:49 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001, 2003, +;;;; Copyright (C) 2001, 2003-2004, ;;;; Department of Computer Science, University of Tromsø, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon May 12 17:13:31 2003 ;;;; -;;;; $Id: misc.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: misc.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,12 +18,6 @@ (provide :lib/misc) (in-package muerte.lib) - -(defpackage muerte.lib - (:export checksum-octets - make-counter-u32 - u32-add - )) (defun checksum-octets (packet &optional (start 0) (end (length packet))) "Generate sum of 16-bit big-endian words for a sequence of octets." Index: movitz/losp/lib/named-integers.lisp diff -u movitz/losp/lib/named-integers.lisp:1.1.1.1 movitz/losp/lib/named-integers.lisp:1.2 --- movitz/losp/lib/named-integers.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/named-integers.lisp Thu Jan 15 12:34:49 2004 @@ -10,23 +10,13 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Jan 4 16:13:46 2002 ;;;; -;;;; $Id: named-integers.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: named-integers.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -;; (require :common-lisp) +(require :lib/package) (require :lib/malloc-init) (provide :lib/named-integers) - -(defpackage muerte.lib - (:use muerte.cl muerte) - (:export define-named-integer - named-integer-case - named-integer - integer-name - name->integer - names->integer - with-named-integers-syntax)) (in-package muerte.lib) Index: movitz/losp/lib/package.lisp diff -u movitz/losp/lib/package.lisp:1.1.1.1 movitz/losp/lib/package.lisp:1.2 --- movitz/losp/lib/package.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/package.lisp Thu Jan 15 12:34:49 2004 @@ -10,20 +10,61 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Sep 27 17:24:11 2002 ;;;; -;;;; $Id: package.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: package.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (defpackage muerte.lib - (:use muerte.cl) - (:export *scroll-offset* - cursor-x cursor-y - console-width console-height - console-char - scroll-down - clear-line - local-echo-p - with-saved-excursion)) + (:use muerte.cl muerte) + (:export #:*scroll-offset* + #:cursor-x cursor-y + #:console-width console-height + #:console-char + #:scroll-down + #:clear-line + #:local-echo-p + #:with-saved-excursion + + ;; :lib/bcd + #:bcd-to-integer + #:integer-to-bcd + + ;; :lib/console + #:console + #:console-width + #:console-height + #:cursor-x + #:cursor-y + #:console-char + #:scroll-down + #:put-string + #:clear-line + #:clear-console + #:local-echo-p + #:with-saved-excursion + + ;; :lib/misc + #:checksum-octets + #:make-counter-u32 + #:u32-add + + ;; :lib/named-integers + #:define-named-integer + #:named-integer-case + #:named-integer + #:integer-name + #:name->integer + #:names->integer + #:with-named-integers-syntax + + ;; :lib/repl + #:*repl-level* + #:*repl-prompter* + #:*repl-prompt-context* + #:*repl-print-format* + #:*repl-readline-context* + #:read-eval-print + )) (provide :lib/package) Index: movitz/losp/lib/readline.lisp diff -u movitz/losp/lib/readline.lisp:1.1.1.1 movitz/losp/lib/readline.lisp:1.2 --- movitz/losp/lib/readline.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/readline.lisp Thu Jan 15 12:34:49 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2003, +;;;; Copyright (C) 2001-2004, ;;;; Department of Computer Science, University of Tromsø, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,11 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 2 13:58:58 2001 ;;;; -;;;; $Id: readline.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: readline.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (require :common-lisp) +(require :lib/package) (provide :lib/readline) (defpackage muerte.readline Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.1.1.1 movitz/losp/lib/repl.lisp:1.2 --- movitz/losp/lib/repl.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/repl.lisp Thu Jan 15 12:34:49 2004 @@ -10,20 +10,13 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 19 14:58:12 2003 ;;;; -;;;; $Id: repl.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ +(require :lib/package) (require :lib/readline) (provide :lib/repl) - -(defpackage muerte.lib - (:export *repl-level* - *repl-prompter* - *repl-prompt-context* - *repl-print-format* - *repl-readline-context* - read-eval-print)) (in-package muerte.lib) Index: movitz/losp/lib/toplevel.lisp diff -u movitz/losp/lib/toplevel.lisp:1.1.1.1 movitz/losp/lib/toplevel.lisp:1.2 --- movitz/losp/lib/toplevel.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/toplevel.lisp Thu Jan 15 12:34:49 2004 @@ -10,17 +10,18 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Sep 5 15:56:26 2002 ;;;; -;;;; $Id: toplevel.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: toplevel.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ +(require :lib/package) (provide :lib/toplevel) (defpackage muerte.toplevel (:use muerte.cl muerte) - (:export define-toplevel-command - invoke-toplevel-command - *toplevel-commands*)) + (:export #:define-toplevel-command + #:invoke-toplevel-command + #:*toplevel-commands*)) (in-package muerte.toplevel)

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/all.lisp movitz/losp/x86-pc/cmos.lisp movitz/losp/x86-pc/dp8390.lisp movitz/losp/x86-pc/interrupt.lisp movitz/losp/x86-pc/memory.lisp movitz/losp/x86-pc/ne2k.lisp movitz/losp/x86-pc/package.lisp movitz/losp/x86-pc/pic8259.lisp movitz/losp/x86-pc/pit8253.lisp movitz/losp/x86-pc/textmode-console.lisp movitz/losp/x86-pc/textmode.lisp movitz/losp/x86-pc/vga.lisp
by Frode Vatvedt Fjeld 15 Jan '04

15 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv31835 Modified Files: all.lisp cmos.lisp dp8390.lisp interrupt.lisp memory.lisp ne2k.lisp package.lisp pic8259.lisp pit8253.lisp textmode-console.lisp textmode.lisp vga.lisp Log Message: Cleaned up package muerte.x86-pc. Date: Thu Jan 15 12:13:53 2004 Author: ffjeld Index: movitz/losp/x86-pc/all.lisp diff -u movitz/losp/x86-pc/all.lisp:1.1.1.1 movitz/losp/x86-pc/all.lisp:1.2 --- movitz/losp/x86-pc/all.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/all.lisp Thu Jan 15 12:13:53 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2003, +;;;; Copyright (C) 2001-2004, ;;;; Department of Computer Science, University of Tromsø, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,13 +10,11 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Sep 27 21:14:56 2001 ;;;; -;;;; $Id: all.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: all.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(defpackage muerte.x86-pc) -(in-package muerte.x86-pc) - +(require :x86-pc/package) (require :x86-pc/memory) (require :x86-pc/keyboard) (require :x86-pc/vga) Index: movitz/losp/x86-pc/cmos.lisp diff -u movitz/losp/x86-pc/cmos.lisp:1.1.1.1 movitz/losp/x86-pc/cmos.lisp:1.2 --- movitz/losp/x86-pc/cmos.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/cmos.lisp Thu Jan 15 12:13:53 2004 @@ -10,18 +10,14 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 30 12:23:02 2002 ;;;; -;;;; $Id: cmos.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: cmos.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ +(require :x86-pc/package) (require :lib/named-integers) (require :lib/bcd) (provide :x86-pc/cmos) - -(defpackage muerte.x86-pc - (:use muerte.lib) - (:export rtc-register - cmos-register)) (in-package muerte.x86-pc) Index: movitz/losp/x86-pc/dp8390.lisp diff -u movitz/losp/x86-pc/dp8390.lisp:1.1.1.1 movitz/losp/x86-pc/dp8390.lisp:1.2 --- movitz/losp/x86-pc/dp8390.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/dp8390.lisp Thu Jan 15 12:13:53 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Sep 18 12:21:36 2002 ;;;; -;;;; $Id: dp8390.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: dp8390.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,19 +18,6 @@ (require :x86-pc/io-space) (require :lib/net/ethernet) (provide :x86-pc/dp8390) - -(defpackage muerte.x86-pc.ne2k - (:use muerte.cl muerte muerte.lib muerte.x86-pc muerte.ethernet) - (:export #:with-dp8390 - #:with-dp8390-dma - #:dp8390-initialize - #:dp8390-device - #:ring-start - #:ring-stop - #:io-base - #:ring-overflow-count - #:transmit-buffer - )) (in-package muerte.x86-pc.ne2k) Index: movitz/losp/x86-pc/interrupt.lisp diff -u movitz/losp/x86-pc/interrupt.lisp:1.1.1.1 movitz/losp/x86-pc/interrupt.lisp:1.2 --- movitz/losp/x86-pc/interrupt.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/interrupt.lisp Thu Jan 15 12:13:53 2004 @@ -10,19 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri May 4 18:08:50 2001 ;;;; -;;;; $Id: interrupt.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (require :x86-pc/pic8259) (provide :x86-pc/interrupt) - -(defpackage muerte.x86-pc - (:export idt-init - interrupt-handler - int-frame-ref - software-interrupt - *last-interrupt-frame*)) (in-package muerte.x86-pc) Index: movitz/losp/x86-pc/memory.lisp diff -u movitz/losp/x86-pc/memory.lisp:1.1.1.1 movitz/losp/x86-pc/memory.lisp:1.2 --- movitz/losp/x86-pc/memory.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/memory.lisp Thu Jan 15 12:13:53 2004 @@ -10,15 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Oct 11 16:32:11 2001 ;;;; -;;;; $Id: memory.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: memory.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (require :x86-pc/package) (provide :x86-pc/memory) - -(defpackage muerte.x86-pc - (:export memory-size)) (in-package muerte.x86-pc) Index: movitz/losp/x86-pc/ne2k.lisp diff -u movitz/losp/x86-pc/ne2k.lisp:1.1.1.1 movitz/losp/x86-pc/ne2k.lisp:1.2 --- movitz/losp/x86-pc/ne2k.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/ne2k.lisp Thu Jan 15 12:13:53 2004 @@ -10,20 +10,33 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 17 15:16:00 2002 ;;;; -;;;; $Id: ne2k.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: ne2k.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (require :x86-pc/package) + +(defpackage muerte.x86-pc.ne2k + (:use muerte.cl muerte muerte.lib muerte.x86-pc muerte.ethernet) + (:export #:ne2k-probe + #:+ne2k-probe-addresses+ + + #:with-dp8390 + #:with-dp8390-dma + #:dp8390-initialize + #:dp8390-device + #:ring-start + #:ring-stop + #:io-base + #:ring-overflow-count + #:transmit-buffer + )) + (require :lib/net/ethernet) (require :x86-pc/dp8390) (provide :x86-pc/ne2k) -(defpackage muerte.x86-pc.ne2k - (:use muerte.cl muerte muerte.lib muerte.x86-pc muerte.ethernet) - (:export #:ne2k-probe - #:+ne2k-probe-addresses+)) (in-package muerte.x86-pc.ne2k) Index: movitz/losp/x86-pc/package.lisp diff -u movitz/losp/x86-pc/package.lisp:1.1.1.1 movitz/losp/x86-pc/package.lisp:1.2 --- movitz/losp/x86-pc/package.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/package.lisp Thu Jan 15 12:13:53 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 20:30:28 2001 ;;;; -;;;; $Id: package.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: package.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -28,4 +28,32 @@ #:with-io-space-lock #:make-io-space #:reset-device + #:memory-size + + #:vga-cursor-location + #:vga-crt-controller-register + #:vga-graphics-register + #:vga-memory-map + + #:rtc-register + #:cmos-register + + #:idt-init + #:interrupt-handler + #:int-frame-ref + #:software-interrupt + #:*last-interrupt-frame* + + #:pit8253-timer-mode + #:pit8253-timer-count + + #:+pit8253-frequency+ + #:+pit8253-nanosecond-period+ + + #:textmode-console + #:vga-text-console + + #:pic8259-irq-mask + #:pic8259-end-of-interrupt + #:init-pic8259 )) Index: movitz/losp/x86-pc/pic8259.lisp diff -u movitz/losp/x86-pc/pic8259.lisp:1.1.1.1 movitz/losp/x86-pc/pic8259.lisp:1.2 --- movitz/losp/x86-pc/pic8259.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/pic8259.lisp Thu Jan 15 12:13:53 2004 @@ -10,16 +10,11 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue May 22 15:23:01 2001 ;;;; -;;;; $Id: pic8259.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: pic8259.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (provide :x86-pc/pic8259) - -(defpackage muerte.x86-pc - (:export pic8259-irq-mask - pic8259-end-of-interrupt - init-pic8259)) (in-package muerte.x86-pc) Index: movitz/losp/x86-pc/pit8253.lisp diff -u movitz/losp/x86-pc/pit8253.lisp:1.1.1.1 movitz/losp/x86-pc/pit8253.lisp:1.2 --- movitz/losp/x86-pc/pit8253.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/pit8253.lisp Thu Jan 15 12:13:53 2004 @@ -10,20 +10,13 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jan 15 11:30:55 2002 ;;;; -;;;; $Id: pit8253.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: pit8253.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ +(require :x86-pc/package) (require :lib/named-integers) (provide :x86-pc/pit8253) - -(defpackage muerte.x86-pc - (:use muerte.cl muerte.lib) - (:export pit8253-timer-mode - pit8253-timer-count - - +pit8253-frequency+ - +pit8253-nanosecond-period+)) (in-package muerte.x86-pc) Index: movitz/losp/x86-pc/textmode-console.lisp diff -u movitz/losp/x86-pc/textmode-console.lisp:1.1.1.1 movitz/losp/x86-pc/textmode-console.lisp:1.2 --- movitz/losp/x86-pc/textmode-console.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/textmode-console.lisp Thu Jan 15 12:13:53 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001, 2003, +;;;; Copyright (C) 2001, 2003-2004, ;;;; Department of Computer Science, University of Tromsø, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jul 8 15:13:24 2003 ;;;; -;;;; $Id: textmode-console.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: textmode-console.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,12 +18,7 @@ (require :x86-pc/textmode) (provide :x86-pc/textmode-console) -(defpackage muerte.x86-pc - (:export vga-text-console - )) - (in-package muerte.x86-pc) - (defclass vga-text-console (console stream) ((base Index: movitz/losp/x86-pc/textmode.lisp diff -u movitz/losp/x86-pc/textmode.lisp:1.1.1.1 movitz/losp/x86-pc/textmode.lisp:1.2 --- movitz/losp/x86-pc/textmode.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/textmode.lisp Thu Jan 15 12:13:53 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 9 15:38:56 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: textmode.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: textmode.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -19,11 +19,7 @@ (require :x86-pc/package) (require :x86-pc/keyboard) (require :lib/package) - (provide :x86-pc/textmode) - -(defpackage muerte.x86-pc - (:export textmode-console)) (in-package muerte.x86-pc) Index: movitz/losp/x86-pc/vga.lisp diff -u movitz/losp/x86-pc/vga.lisp:1.1.1.1 movitz/losp/x86-pc/vga.lisp:1.2 --- movitz/losp/x86-pc/vga.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/vga.lisp Thu Jan 15 12:13:53 2004 @@ -10,18 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 25 14:08:20 2001 ;;;; -;;;; $Id: vga.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: vga.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (require :x86-pc/package) (provide :x86-pc/vga) - -(defpackage muerte.x86-pc - (:export vga-cursor-location - vga-crt-controller-register - vga-graphics-register - vga-memory-map)) (in-package muerte.x86-pc)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/loop.lisp
by Frode Vatvedt Fjeld 15 Jan '04

15 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19419 Modified Files: loop.lisp Log Message: Loop macro-expanders should call movitz-macroexpand etc. rather than cl:macroexpand etc. Date: Thu Jan 15 11:41:46 2004 Author: ffjeld Index: movitz/losp/muerte/loop.lisp diff -u movitz/losp/muerte/loop.lisp:1.1.1.1 movitz/losp/muerte/loop.lisp:1.2 --- movitz/losp/muerte/loop.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/loop.lisp Thu Jan 15 11:41:45 2004 @@ -244,7 +244,7 @@ (declare #+LISPM (ignore head-var user-head-var) ;use locatives, unconditionally update through the tail. ) - (setq form (macroexpand form env)) + (setq form (movitz::movitz-macroexpand form env)) (flet ((cdr-wrap (form n) (declare (fixnum n)) (do () ((<= n 4) (setq form `(,(case n @@ -772,7 +772,7 @@ (dolist (x l n) (incf n (estimate-code-size-1 x env)))))) ;;@@@@ ???? (declare (function list-size (list) fixnum)) (cond ((constantp x #+Genera env) 1) - ((symbolp x) (multiple-value-bind (new-form expanded-p) (macroexpand-1 x env) + ((symbolp x) (multiple-value-bind (new-form expanded-p) (movitz::movitz-macroexpand-1 x env) (if expanded-p (estimate-code-size-1 new-form env) 1))) ((atom x) 1) ;??? self-evaluating??? ((symbolp (car x)) @@ -808,7 +808,7 @@ ((eq fn 'return-from) (1+ (estimate-code-size-1 (third x) env))) ((or (special-operator-p fn) (member fn *estimate-code-size-punt*)) (throw 'estimate-code-size nil)) - (t (multiple-value-bind (new-form expanded-p) (macroexpand-1 x env) + (t (multiple-value-bind (new-form expanded-p) (movitz::movitz-macroexpand-1 x env) (if expanded-p (estimate-code-size-1 new-form env) (f 3)))))))) @@ -2126,7 +2126,7 @@ (and (consp x) (or (not (eq (car x) 'car)) (not (symbolp (cadr x))) - (not (symbolp (setq x (macroexpand x env))))) + (not (symbolp (setq x (movitz::movitz-macroexpand x env))))) (cons x nil))) (cdr val)) `(,val))))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs January 2004