- bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] hans changed trunk/projects/symbolics-keyboard/teensy-firmware/symbolics.c
by BKNR Commits 06 Apr '09

06 Apr '09

Revision: 4358 Author: hans URL: http://bknr.net/trac/changeset/4358 Make f-mode work U trunk/projects/symbolics-keyboard/teensy-firmware/symbolics.c Modified: trunk/projects/symbolics-keyboard/teensy-firmware/symbolics.c =================================================================== --- trunk/projects/symbolics-keyboard/teensy-firmware/symbolics.c 2009-04-06 16:20:07 UTC (rev 4357) +++ trunk/projects/symbolics-keyboard/teensy-firmware/symbolics.c 2009-04-06 18:55:39 UTC (rev 4358) @@ -119,68 +119,70 @@ void send_keys(uint8_t* state) { - uint8_t key_index = 0; - uint8_t map_index = 0; uint8_t local = 0; const uint8_t* keymap = keymap_normal; retry: // If we detect that we are in f-mode, we need to translate the // pressed keys with the f-mode translation table. - keyboard_modifier_keys = 0; - memset(keyboard_keys, 0, sizeof keyboard_keys); + { + uint8_t key_index = 0; + uint8_t map_index = 0; + keyboard_modifier_keys = 0; + memset(keyboard_keys, 0, sizeof keyboard_keys); - for (int i = 0; i < 16; i++) { - uint8_t buf = state[i]; - for (int j = 0; j < 8; j++) { - uint8_t mapped = pgm_read_byte(&keymap[map_index++]); - uint8_t pressed = (buf & 1); + for (int i = 0; i < 16; i++) { + uint8_t buf = state[i]; + for (int j = 0; j < 8; j++) { + uint8_t mapped = pgm_read_byte(&keymap[map_index++]); + uint8_t pressed = (buf & 1); #if defined(DEBUG) - if (pressed) { - print("key "); - phex(map_index - 1); - print(" pressed, mapped to "); - phex(mapped); - print("\n"); - } + if (pressed) { + print("key "); + phex(map_index - 1); + print(" pressed, mapped to "); + phex(mapped); + print("\n"); + } #endif - if (pressed && mapped) { - if (mapped & 0x80) { - int num = mapped & 0x7F; - switch (num) { + if (pressed && mapped) { + if (mapped & 0x80) { + int num = mapped & 0x7F; + switch (num) { - case NUM_KEY_LEFT_CTRL: - case NUM_KEY_LEFT_SHIFT: - case NUM_KEY_LEFT_ALT: - case NUM_KEY_LEFT_GUI: - case NUM_KEY_RIGHT_CTRL: - case NUM_KEY_RIGHT_SHIFT: - case NUM_KEY_RIGHT_ALT: - case NUM_KEY_RIGHT_GUI: - keyboard_modifier_keys |= 1 << num; - break; + case NUM_KEY_LEFT_CTRL: + case NUM_KEY_LEFT_SHIFT: + case NUM_KEY_LEFT_ALT: + case NUM_KEY_LEFT_GUI: + case NUM_KEY_RIGHT_CTRL: + case NUM_KEY_RIGHT_SHIFT: + case NUM_KEY_RIGHT_ALT: + case NUM_KEY_RIGHT_GUI: + keyboard_modifier_keys |= 1 << num; + break; - case NUM_KEY_LOCAL: - local = 1; - break; + case NUM_KEY_LOCAL: + local = 1; + break; - case NUM_KEY_F_MODE: - if (keymap == keymap_normal) { - keymap = keymap_f_mode; - goto retry; + case NUM_KEY_F_MODE: + if (keymap == keymap_normal) { + keymap = keymap_f_mode; + goto retry; + } + break; } - break; + } else { + if (key_index < sizeof keyboard_keys) { + keyboard_keys[key_index++] = mapped; + } } - } else { - if (key_index < sizeof keyboard_keys) { - keyboard_keys[key_index++] = mapped; - } } + buf >>= 1; } - buf >>= 1; } } - + if (local) { handle_local_keys(); } else {

1 0

[bknr-cvs] hans changed trunk/projects/symbolics-keyboard/
by BKNR Commits 06 Apr '09

06 Apr '09

Revision: 4357 Author: hans URL: http://bknr.net/trac/changeset/4357 implement local and f-mode U trunk/projects/symbolics-keyboard/make-keymap.lisp U trunk/projects/symbolics-keyboard/teensy-firmware/keymap.inc U trunk/projects/symbolics-keyboard/teensy-firmware/symbolics.c Change set too large, please see URL above

1 0

[bknr-cvs] hans changed trunk/projects/symbolics-keyboard/
by BKNR Commits 06 Apr '09

06 Apr '09

Revision: 4356 Author: hans URL: http://bknr.net/trac/changeset/4356 fix f-mode map generation U trunk/projects/symbolics-keyboard/make-keymap.lisp U trunk/projects/symbolics-keyboard/teensy-firmware/keymap.inc Modified: trunk/projects/symbolics-keyboard/make-keymap.lisp =================================================================== --- trunk/projects/symbolics-keyboard/make-keymap.lisp 2009-04-06 06:07:30 UTC (rev 4355) +++ trunk/projects/symbolics-keyboard/make-keymap.lisp 2009-04-06 06:17:07 UTC (rev 4356) @@ -572,12 +572,13 @@ (usb-keycode (map-symbolics->usb symbolics-keyname)) (f-mode-usb-keycode (map-symbolics->usb symbolics-keyname t))) (cond - (usb-keycode - (setf unmapped-usb-keys (remove usb-keycode unmapped-usb-keys :key #'cadr :test #'equal)) - (define-key/usb symbolics-scancode usb-keycode normal-map)) - (f-mode-usb-keycode - (setf unmapped-usb-keys (remove f-mode-usb-keycode unmapped-usb-keys :key #'cadr :test #'equal)) - (define-key/usb symbolics-scancode f-mode-usb-keycode f-mode-map)) + ((or usb-keycode f-mode-usb-keycode) + (when usb-keycode + (setf unmapped-usb-keys (remove usb-keycode unmapped-usb-keys :key #'cadr :test #'equal)) + (define-key/usb symbolics-scancode usb-keycode normal-map)) + (when f-mode-usb-keycode + (setf unmapped-usb-keys (remove f-mode-usb-keycode unmapped-usb-keys :key #'cadr :test #'equal)) + (define-key/usb symbolics-scancode f-mode-usb-keycode f-mode-map))) (t (push symbolics-keyname unmapped-symbolics-keys))))) (with-open-file (*standard-output* filename :direction :output :if-exists :supersede) Modified: trunk/projects/symbolics-keyboard/teensy-firmware/keymap.inc =================================================================== --- trunk/projects/symbolics-keyboard/teensy-firmware/keymap.inc 2009-04-06 06:07:30 UTC (rev 4355) +++ trunk/projects/symbolics-keyboard/teensy-firmware/keymap.inc 2009-04-06 06:17:07 UTC (rev 4356) @@ -130,37 +130,124 @@ }; const uint8_t keymap_f[128] PROGMEM = { 0, + 0x80 | NUM_KEY_LEFT_GUI, + KEY_CAPS_LOCK, + KEY_F8, + 0x80 | NUM_KEY_LEFT_ALT, + 0x80 | NUM_KEY_RIGHT_CTRL, + KEY_DOWN, + KEY_PAGE_DOWN, 0, 0, 0, 0, + KEY_F1, + KEYPAD_8, + KEY_F7, + 0x80 | NUM_KEY_LEFT_CTRL, + KEY_SPACE, + KEY_LEFT, + KEY_RIGHT, + KEY_END, 0, 0, 0, + KEY_Z, + KEY_C, + KEY_B, + KEY_M, + KEY_PERIOD, + 0x80 | NUM_KEY_RIGHT_SHIFT, + KEY_PAGE_UP, + KEY_F6, 0, 0, 0, + 0x80 | NUM_KEY_LEFT_SHIFT, + KEY_X, + KEY_V, + KEY_N, + KEY_COMMA, + KEY_SLASH, + KEY_UP, + KEY_F12, 0, 0, 0, + KEY_DELETE, + KEY_S, + KEY_F, + KEY_H, + KEY_K, + KEY_SEMICOLON, + KEY_ENTER, + KEY_HOME, 0, 0, 0, + KEY_F2, + KEY_A, + KEY_D, + KEY_G, + KEY_J, + KEY_L, + KEY_QUOTE, + KEYPAD_7, 0, 0, 0, + KEY_F3, + KEY_W, + KEY_R, + KEY_Y, + KEY_I, + KEY_P, + KEY_RIGHT_BRACE, + KEYPAD_6, 0, 0, 0, + KEY_TAB, + KEY_Q, + KEY_E, + KEY_T, + KEY_U, + KEY_O, + KEY_LEFT_BRACE, + KEY_BACKSPACE, 0, 0, 0, + KEYPAD_ASTERIX, + KEY_2, + KEY_4, + KEY_6, + KEY_8, + KEY_0, + KEY_EQUAL, + KEY_BACKSLASH, 0, 0, 0, + KEY_1, + KEY_3, + KEY_5, + KEY_7, + KEY_9, + KEY_MINUS, + KEY_TILDE, + KEYPAD_MINUS, 0, 0, 0, + KEY_ESC, + KEYPAD_0, + KEYPAD_4, + KEYPAD_3, + KEYPAD_2, + KEY_F10, + KEY_F4, + KEY_F5, 0, 0, 0, @@ -169,92 +256,5 @@ 0, 0, 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, 0 };

1 0

[bknr-cvs] hans changed trunk/thirdparty/cl-pdf/ttu-font.lisp
by BKNR Commits 06 Apr '09

06 Apr '09

Revision: 4355 Author: hans URL: http://bknr.net/trac/changeset/4355 clisp compilation fix U trunk/thirdparty/cl-pdf/ttu-font.lisp Modified: trunk/thirdparty/cl-pdf/ttu-font.lisp =================================================================== --- trunk/thirdparty/cl-pdf/ttu-font.lisp 2009-04-06 06:06:39 UTC (rev 4354) +++ trunk/thirdparty/cl-pdf/ttu-font.lisp 2009-04-06 06:07:30 UTC (rev 4355) @@ -12,7 +12,7 @@ (defclass ttu-font-metrics (font-metrics) ((c2g :accessor c2g - :initform (make-array 131072 :element-type 'character :initial-element #\Nul)) + :initform (make-array 131072 :element-type 'character :initial-element (code-char 0))) (cid-widths :accessor cid-widths :initform (make-array 0 :adjustable t :fill-pointer 0)) (pdf-widths :accessor pdf-widths :initform nil) (binary-data :accessor binary-data :initform nil)

1 0

[bknr-cvs] hans changed trunk/projects/symbolics-keyboard/teensy-firmware/
by BKNR Commits 06 Apr '09

06 Apr '09

Revision: 4354 Author: hans URL: http://bknr.net/trac/changeset/4354 ignore compilation output _U trunk/projects/symbolics-keyboard/teensy-firmware/ Property changes on: trunk/projects/symbolics-keyboard/teensy-firmware ___________________________________________________________________ Name: svn:ignore + symbolics.map .dep symbolics.hex symbolics.lss symbolics.lst symbolics.elf usb_keyboard.lst symbolics.sym symbolics.eep

1 0

[bknr-cvs] hans changed trunk/projects/symbolics-keyboard/
by BKNR Commits 06 Apr '09

06 Apr '09

Revision: 4353 Author: hans URL: http://bknr.net/trac/changeset/4353 Add first version of Teensy based Symbolics keyboard adapter firmware. U trunk/projects/symbolics-keyboard/make-keymap.lisp A trunk/projects/symbolics-keyboard/teensy-firmware/ A trunk/projects/symbolics-keyboard/teensy-firmware/Makefile A trunk/projects/symbolics-keyboard/teensy-firmware/debug.h A trunk/projects/symbolics-keyboard/teensy-firmware/keymap.inc A trunk/projects/symbolics-keyboard/teensy-firmware/print.c A trunk/projects/symbolics-keyboard/teensy-firmware/print.h A trunk/projects/symbolics-keyboard/teensy-firmware/symbolics.c A trunk/projects/symbolics-keyboard/teensy-firmware/symbolics.txt A trunk/projects/symbolics-keyboard/teensy-firmware/symbolics_manuel.c A trunk/projects/symbolics-keyboard/teensy-firmware/symbolics_manuel.h A trunk/projects/symbolics-keyboard/teensy-firmware/usb_debug_only.c A trunk/projects/symbolics-keyboard/teensy-firmware/usb_debug_only.h A trunk/projects/symbolics-keyboard/teensy-firmware/usb_keyboard.c A trunk/projects/symbolics-keyboard/teensy-firmware/usb_keyboard.h Change set too large, please see URL above

1 0

[bknr-cvs] hans changed trunk/thirdparty/chtml/
by BKNR Commits 04 Apr '09

04 Apr '09

Revision: 4352 Author: hans URL: http://bknr.net/trac/changeset/4352 import chtml from git A trunk/thirdparty/chtml/ A trunk/thirdparty/chtml/.git/ A trunk/thirdparty/chtml/.git/HEAD A trunk/thirdparty/chtml/.git/config A trunk/thirdparty/chtml/.git/description A trunk/thirdparty/chtml/.git/hooks/ A trunk/thirdparty/chtml/.git/hooks/applypatch-msg A trunk/thirdparty/chtml/.git/hooks/commit-msg A trunk/thirdparty/chtml/.git/hooks/post-commit A trunk/thirdparty/chtml/.git/hooks/post-receive A trunk/thirdparty/chtml/.git/hooks/post-update A trunk/thirdparty/chtml/.git/hooks/pre-applypatch A trunk/thirdparty/chtml/.git/hooks/pre-commit A trunk/thirdparty/chtml/.git/hooks/pre-rebase A trunk/thirdparty/chtml/.git/hooks/update A trunk/thirdparty/chtml/.git/index A trunk/thirdparty/chtml/.git/info/ A trunk/thirdparty/chtml/.git/info/exclude A trunk/thirdparty/chtml/.git/logs/ A trunk/thirdparty/chtml/.git/logs/HEAD A trunk/thirdparty/chtml/.git/logs/refs/ A trunk/thirdparty/chtml/.git/logs/refs/heads/ A trunk/thirdparty/chtml/.git/logs/refs/heads/master A trunk/thirdparty/chtml/.git/logs/refs/remotes/ A trunk/thirdparty/chtml/.git/logs/refs/remotes/origin/ A trunk/thirdparty/chtml/.git/logs/refs/remotes/origin/master A trunk/thirdparty/chtml/.git/objects/ A trunk/thirdparty/chtml/.git/objects/info/ A trunk/thirdparty/chtml/.git/objects/pack/ A trunk/thirdparty/chtml/.git/objects/pack/pack-4ea6b80d422d8d5b95622f697a9b25b66ff59f27.idx A trunk/thirdparty/chtml/.git/objects/pack/pack-4ea6b80d422d8d5b95622f697a9b25b66ff59f27.keep A trunk/thirdparty/chtml/.git/objects/pack/pack-4ea6b80d422d8d5b95622f697a9b25b66ff59f27.pack A trunk/thirdparty/chtml/.git/refs/ A trunk/thirdparty/chtml/.git/refs/heads/ A trunk/thirdparty/chtml/.git/refs/heads/master A trunk/thirdparty/chtml/.git/refs/remotes/ A trunk/thirdparty/chtml/.git/refs/remotes/origin/ A trunk/thirdparty/chtml/.git/refs/remotes/origin/HEAD A trunk/thirdparty/chtml/.git/refs/remotes/origin/master A trunk/thirdparty/chtml/.git/refs/tags/ A trunk/thirdparty/chtml/.git/refs/tags/start A trunk/thirdparty/chtml/README A trunk/thirdparty/chtml/closure-html.asd A trunk/thirdparty/chtml/dist.sh A trunk/thirdparty/chtml/doc/ A trunk/thirdparty/chtml/doc/GNUmakefile A trunk/thirdparty/chtml/doc/atdoc/ A trunk/thirdparty/chtml/doc/atdoc/.keep A trunk/thirdparty/chtml/doc/atdoc.lisp A trunk/thirdparty/chtml/doc/examples.xml A trunk/thirdparty/chtml/doc/hax.xml A trunk/thirdparty/chtml/doc/index.css A trunk/thirdparty/chtml/doc/index.xml A trunk/thirdparty/chtml/doc/index.xsl A trunk/thirdparty/chtml/doc/installation.xml A trunk/thirdparty/chtml/resources/ A trunk/thirdparty/chtml/resources/dtd/ A trunk/thirdparty/chtml/resources/dtd/DTD-HTML-4.0 A trunk/thirdparty/chtml/resources/dtd/DTD-HTML-4.0-Frameset A trunk/thirdparty/chtml/resources/dtd/DTD-HTML-4.0-Transitional A trunk/thirdparty/chtml/resources/dtd/Entities-Latin1 A trunk/thirdparty/chtml/resources/dtd/Entities-Special A trunk/thirdparty/chtml/resources/dtd/Entities-Symbols A trunk/thirdparty/chtml/resources/dtd/HTML-3.0 A trunk/thirdparty/chtml/resources/dtd/NETSCAPE-Bookmark-file-1 A trunk/thirdparty/chtml/resources/dtd/catalog A trunk/thirdparty/chtml/src/ A trunk/thirdparty/chtml/src/defpack.lisp A trunk/thirdparty/chtml/src/glisp/ A trunk/thirdparty/chtml/src/glisp/util.lisp A trunk/thirdparty/chtml/src/net/ A trunk/thirdparty/chtml/src/net/mime.lisp A trunk/thirdparty/chtml/src/parse/ A trunk/thirdparty/chtml/src/parse/documentation.lisp A trunk/thirdparty/chtml/src/parse/html-parser.lisp A trunk/thirdparty/chtml/src/parse/lhtml.lisp A trunk/thirdparty/chtml/src/parse/pt.lisp A trunk/thirdparty/chtml/src/parse/sgml-dtd.lisp A trunk/thirdparty/chtml/src/parse/sgml-parse.lisp A trunk/thirdparty/chtml/src/parse/unparse.lisp A trunk/thirdparty/chtml/src/test/ A trunk/thirdparty/chtml/src/test/test.lisp A trunk/thirdparty/chtml/src/util/ A trunk/thirdparty/chtml/src/util/clex.lisp A trunk/thirdparty/chtml/src/util/lalr.lisp Change set too large, please see URL above

1 0

[bknr-cvs] hans changed trunk/thirdparty/plexippus-xpath/
by BKNR Commits 04 Apr '09

04 Apr '09

Revision: 4351 Author: hans URL: http://bknr.net/trac/changeset/4351 update from upstream U trunk/thirdparty/plexippus-xpath/_darcs/inventory A trunk/thirdparty/plexippus-xpath/_darcs/patches/20080516145328-3bbdd-45334d1ba300293b9a7377fd0ebabaee1019e7e5.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/20080524195035-3bbdd-91b3998d36dae34b4ad9a6a0b8f122568ecf6b4f.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/20080524195516-3bbdd-d805bacb774cb34f00f9d9acf36eb0d402d1583f.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/20081207095242-3bbdd-882a689b51a77206ea6f5876bfe808fcf2a06b63.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/20081207095320-3bbdd-c484a64f3867ff74d8287d0bb3e354b1a29d7006.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/20081207095347-3bbdd-bc27636f0f130150de1c0602c8c1c9c573a4c903.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/20081207100649-3bbdd-9264d883c05551a27a04d2d69bf29dad24100d70.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/20081207102300-3bbdd-da0c2ba19327494ef4164be3ce837bc72d86afbd.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/20081207102324-3bbdd-27dabf401680462bfaea056ab78863f3f14d0f4f.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/20081207102414-3bbdd-1616788ba0855ba89cb2713181123c26a4134837.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/20081207103012-3bbdd-c5408e734b5d69c631e8451f4e0630752d0764fe.gz A trunk/thirdparty/plexippus-xpath/_darcs/patches/pending U trunk/thirdparty/plexippus-xpath/_darcs/pristine/api.lisp A trunk/thirdparty/plexippus-xpath/_darcs/pristine/dist.lisp A trunk/thirdparty/plexippus-xpath/_darcs/pristine/dist.sh U trunk/thirdparty/plexippus-xpath/_darcs/pristine/doc/GNUmakefile U trunk/thirdparty/plexippus-xpath/_darcs/pristine/doc/atdoc.lisp A trunk/thirdparty/plexippus-xpath/_darcs/pristine/doc/examples.xml U trunk/thirdparty/plexippus-xpath/_darcs/pristine/doc/index.css U trunk/thirdparty/plexippus-xpath/_darcs/pristine/doc/index.xml U trunk/thirdparty/plexippus-xpath/_darcs/pristine/doc/index.xsl U trunk/thirdparty/plexippus-xpath/_darcs/pristine/doc/installation.xml U trunk/thirdparty/plexippus-xpath/_darcs/pristine/package.lisp U trunk/thirdparty/plexippus-xpath/_darcs/pristine/patterns.lisp U trunk/thirdparty/plexippus-xpath/_darcs/pristine/pipes.lisp U trunk/thirdparty/plexippus-xpath/_darcs/pristine/plx.lisp A trunk/thirdparty/plexippus-xpath/_darcs/pristine/profile.lisp U trunk/thirdparty/plexippus-xpath/_darcs/pristine/test.lisp U trunk/thirdparty/plexippus-xpath/_darcs/pristine/types.lisp U trunk/thirdparty/plexippus-xpath/_darcs/pristine/xpath-test.lisp U trunk/thirdparty/plexippus-xpath/_darcs/pristine/xpath.asd U trunk/thirdparty/plexippus-xpath/api.lisp A trunk/thirdparty/plexippus-xpath/dist.lisp A trunk/thirdparty/plexippus-xpath/dist.sh U trunk/thirdparty/plexippus-xpath/doc/GNUmakefile U trunk/thirdparty/plexippus-xpath/doc/atdoc.lisp A trunk/thirdparty/plexippus-xpath/doc/examples.xml U trunk/thirdparty/plexippus-xpath/doc/index.css U trunk/thirdparty/plexippus-xpath/doc/index.xml U trunk/thirdparty/plexippus-xpath/doc/index.xsl U trunk/thirdparty/plexippus-xpath/doc/installation.xml U trunk/thirdparty/plexippus-xpath/package.lisp U trunk/thirdparty/plexippus-xpath/patterns.lisp U trunk/thirdparty/plexippus-xpath/pipes.lisp U trunk/thirdparty/plexippus-xpath/plx.lisp A trunk/thirdparty/plexippus-xpath/profile.lisp U trunk/thirdparty/plexippus-xpath/test.lisp U trunk/thirdparty/plexippus-xpath/types.lisp U trunk/thirdparty/plexippus-xpath/xpath-test.lisp U trunk/thirdparty/plexippus-xpath/xpath.asd Change set too large, please see URL above

1 0

[bknr-cvs] hans changed trunk/thirdparty/cxml-stp/
by BKNR Commits 04 Apr '09

04 Apr '09

Revision: 4350 Author: hans URL: http://bknr.net/trac/changeset/4350 update from upstream git U trunk/thirdparty/cxml-stp/.git/FETCH_HEAD U trunk/thirdparty/cxml-stp/.git/index U trunk/thirdparty/cxml-stp/.git/logs/HEAD U trunk/thirdparty/cxml-stp/.git/logs/refs/heads/master U trunk/thirdparty/cxml-stp/.git/logs/refs/remotes/origin/master A trunk/thirdparty/cxml-stp/.git/objects/37/ A trunk/thirdparty/cxml-stp/.git/objects/37/3eeb4750a7448c425aa08a4123dccc8c26b6a7 A trunk/thirdparty/cxml-stp/.git/objects/44/ A trunk/thirdparty/cxml-stp/.git/objects/44/c2d7ea183bb7746c8dec78c7469167b0c21e29 A trunk/thirdparty/cxml-stp/.git/objects/84/4c2543657b4273a0b2ec82264d5f2d6bc0def4 A trunk/thirdparty/cxml-stp/.git/objects/90/e7c128acd839cf07eba29860e7196f6f0b684d A trunk/thirdparty/cxml-stp/.git/objects/a1/ A trunk/thirdparty/cxml-stp/.git/objects/a1/245567613230a4a6328d92e29a6136f71b92dc A trunk/thirdparty/cxml-stp/.git/objects/c0/e7ef595c9832aa8c196f312f87f939396ddb34 A trunk/thirdparty/cxml-stp/.git/objects/fd/ A trunk/thirdparty/cxml-stp/.git/objects/fd/2d7acb25b02c60e388998db7ff46c88b872c3c U trunk/thirdparty/cxml-stp/.git/refs/heads/master U trunk/thirdparty/cxml-stp/.git/refs/remotes/origin/master D trunk/thirdparty/cxml-stp/build/atdoc.lisp D trunk/thirdparty/cxml-stp/build/dist.sh A trunk/thirdparty/cxml-stp/dist.lisp A trunk/thirdparty/cxml-stp/dist.sh A trunk/thirdparty/cxml-stp/index.html U trunk/thirdparty/cxml-stp/node.lisp Modified: trunk/thirdparty/cxml-stp/.git/FETCH_HEAD =================================================================== --- trunk/thirdparty/cxml-stp/.git/FETCH_HEAD 2009-04-04 13:41:01 UTC (rev 4349) +++ trunk/thirdparty/cxml-stp/.git/FETCH_HEAD 2009-04-04 13:44:57 UTC (rev 4350) @@ -1 +1 @@ -3011465d3c18f9a4a2d8c6fc0412a7c0c64e13e9 branch 'master' of http://www.lichteblau.com/git/cxml-stp +44c2d7ea183bb7746c8dec78c7469167b0c21e29 branch 'master' of http://www.lichteblau.com/git/cxml-stp Modified: trunk/thirdparty/cxml-stp/.git/index =================================================================== (Binary files differ) Modified: trunk/thirdparty/cxml-stp/.git/logs/HEAD =================================================================== --- trunk/thirdparty/cxml-stp/.git/logs/HEAD 2009-04-04 13:41:01 UTC (rev 4349) +++ trunk/thirdparty/cxml-stp/.git/logs/HEAD 2009-04-04 13:44:57 UTC (rev 4350) @@ -1 +1,2 @@ 0000000000000000000000000000000000000000 3011465d3c18f9a4a2d8c6fc0412a7c0c64e13e9 Hans Huebner <hans(a)netzhansa.com> 1210314287 +0000 +3011465d3c18f9a4a2d8c6fc0412a7c0c64e13e9 44c2d7ea183bb7746c8dec78c7469167b0c21e29 Hans HÃŒbner <hans(a)hertha.local> 1238852654 +0200 pull : Fast forward Modified: trunk/thirdparty/cxml-stp/.git/logs/refs/heads/master =================================================================== --- trunk/thirdparty/cxml-stp/.git/logs/refs/heads/master 2009-04-04 13:41:01 UTC (rev 4349) +++ trunk/thirdparty/cxml-stp/.git/logs/refs/heads/master 2009-04-04 13:44:57 UTC (rev 4350) @@ -1 +1,2 @@ 0000000000000000000000000000000000000000 3011465d3c18f9a4a2d8c6fc0412a7c0c64e13e9 Hans Huebner <hans(a)netzhansa.com> 1210314287 +0000 +3011465d3c18f9a4a2d8c6fc0412a7c0c64e13e9 44c2d7ea183bb7746c8dec78c7469167b0c21e29 Hans HÃŒbner <hans(a)hertha.local> 1238852654 +0200 pull : Fast forward Modified: trunk/thirdparty/cxml-stp/.git/logs/refs/remotes/origin/master =================================================================== --- trunk/thirdparty/cxml-stp/.git/logs/refs/remotes/origin/master 2009-04-04 13:41:01 UTC (rev 4349) +++ trunk/thirdparty/cxml-stp/.git/logs/refs/remotes/origin/master 2009-04-04 13:44:57 UTC (rev 4350) @@ -1 +1,2 @@ 0000000000000000000000000000000000000000 3011465d3c18f9a4a2d8c6fc0412a7c0c64e13e9 Hans Huebner <hans(a)netzhansa.com> 1210314287 +0000 fetch from http://www.lichteblau.com/git/cxml-stp.git +3011465d3c18f9a4a2d8c6fc0412a7c0c64e13e9 44c2d7ea183bb7746c8dec78c7469167b0c21e29 Hans HÃŒbner <hans(a)hertha.local> 1238852654 +0200 pull : fast forward Added: trunk/thirdparty/cxml-stp/.git/objects/37/3eeb4750a7448c425aa08a4123dccc8c26b6a7 =================================================================== --- trunk/thirdparty/cxml-stp/.git/objects/37/3eeb4750a7448c425aa08a4123dccc8c26b6a7 (rev 0) +++ trunk/thirdparty/cxml-stp/.git/objects/37/3eeb4750a7448c425aa08a4123dccc8c26b6a7 2009-04-04 13:44:57 UTC (rev 4350) @@ -0,0 +1,2 @@ +x}œÂ0óV¶C@Ly·q€$àí1D'6ûüÝûÈ=/§C5(Í¶EÆàžG <tæ/3ÜStUJg{ñ~¢Œn=©rMeál iwh¹2gLT +UÃÑêðn8Îêw+EÍžýè1.9žúšBi÷M§é~&KÀ~eÛ'T \ No newline at end of file Added: trunk/thirdparty/cxml-stp/.git/objects/44/c2d7ea183bb7746c8dec78c7469167b0c21e29 =================================================================== (Binary files differ) Property changes on: trunk/thirdparty/cxml-stp/.git/objects/44/c2d7ea183bb7746c8dec78c7469167b0c21e29 ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/thirdparty/cxml-stp/.git/objects/84/4c2543657b4273a0b2ec82264d5f2d6bc0def4 =================================================================== (Binary files differ) Property changes on: trunk/thirdparty/cxml-stp/.git/objects/84/4c2543657b4273a0b2ec82264d5f2d6bc0def4 ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/thirdparty/cxml-stp/.git/objects/90/e7c128acd839cf07eba29860e7196f6f0b684d =================================================================== (Binary files differ) Property changes on: trunk/thirdparty/cxml-stp/.git/objects/90/e7c128acd839cf07eba29860e7196f6f0b684d ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/thirdparty/cxml-stp/.git/objects/a1/245567613230a4a6328d92e29a6136f71b92dc =================================================================== (Binary files differ) Property changes on: trunk/thirdparty/cxml-stp/.git/objects/a1/245567613230a4a6328d92e29a6136f71b92dc ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/thirdparty/cxml-stp/.git/objects/c0/e7ef595c9832aa8c196f312f87f939396ddb34 =================================================================== (Binary files differ) Property changes on: trunk/thirdparty/cxml-stp/.git/objects/c0/e7ef595c9832aa8c196f312f87f939396ddb34 ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/thirdparty/cxml-stp/.git/objects/fd/2d7acb25b02c60e388998db7ff46c88b872c3c =================================================================== (Binary files differ) Property changes on: trunk/thirdparty/cxml-stp/.git/objects/fd/2d7acb25b02c60e388998db7ff46c88b872c3c ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/thirdparty/cxml-stp/.git/refs/heads/master =================================================================== --- trunk/thirdparty/cxml-stp/.git/refs/heads/master 2009-04-04 13:41:01 UTC (rev 4349) +++ trunk/thirdparty/cxml-stp/.git/refs/heads/master 2009-04-04 13:44:57 UTC (rev 4350) @@ -1 +1 @@ -3011465d3c18f9a4a2d8c6fc0412a7c0c64e13e9 +44c2d7ea183bb7746c8dec78c7469167b0c21e29 Modified: trunk/thirdparty/cxml-stp/.git/refs/remotes/origin/master =================================================================== --- trunk/thirdparty/cxml-stp/.git/refs/remotes/origin/master 2009-04-04 13:41:01 UTC (rev 4349) +++ trunk/thirdparty/cxml-stp/.git/refs/remotes/origin/master 2009-04-04 13:44:57 UTC (rev 4350) @@ -1 +1 @@ -3011465d3c18f9a4a2d8c6fc0412a7c0c64e13e9 +44c2d7ea183bb7746c8dec78c7469167b0c21e29 Deleted: trunk/thirdparty/cxml-stp/build/atdoc.lisp =================================================================== --- trunk/thirdparty/cxml-stp/build/atdoc.lisp 2009-04-04 13:41:01 UTC (rev 4349) +++ trunk/thirdparty/cxml-stp/build/atdoc.lisp 2009-04-04 13:44:57 UTC (rev 4350) @@ -1,10 +0,0 @@ -(asdf:operate 'asdf:load-op :cxml-stp) -(asdf:operate 'asdf:load-op :atdoc) -(let* ((base (asdf:component-pathname (asdf:find-system :cxml-stp))) - (atdoc-directory (merge-pathnames "doc/" base))) - (ensure-directories-exist atdoc-directory) - (atdoc:generate-documentation '(:cxml-stp) - atdoc-directory - :index-title "cxml-stp API reference" - :heading "cxml-stp" - :css "cxml-stp.css")) Deleted: trunk/thirdparty/cxml-stp/build/dist.sh =================================================================== --- trunk/thirdparty/cxml-stp/build/dist.sh 2009-04-04 13:41:01 UTC (rev 4349) +++ trunk/thirdparty/cxml-stp/build/dist.sh 2009-04-04 13:44:57 UTC (rev 4350) @@ -1,28 +0,0 @@ -#!/bin/sh -cd $(dirname $0)/.. -home=$(pwd) -name=$(basename $home) -dir=${name}-$(date --iso) - -TMPDIR=`mktemp -d /tmp/dist.XXXXXXXXXX` -cleanup() { - cd - rm -rf $TMPDIR -} -trap cleanup exit - -sbcl --load build/atdoc.lisp --eval '(quit)' - -cd $TMPDIR -git clone $home $dir -rm -rf $dir/.git -rsync -a $home/doc $dir/ - -make -C $dir -make -C $dir/tutorial - -tgz=$TMPDIR/${dir}.tgz -tar czf $tgz $dir -gpg -b -a $tgz - -mv $tgz $tgz.asc $home/build/ Added: trunk/thirdparty/cxml-stp/dist.lisp =================================================================== --- trunk/thirdparty/cxml-stp/dist.lisp (rev 0) +++ trunk/thirdparty/cxml-stp/dist.lisp 2009-04-04 13:44:57 UTC (rev 4350) @@ -0,0 +1,9 @@ +(asdf:operate 'asdf:load-op :atdoc) +(asdf:operate 'asdf:load-op :cxml-stp) + +(atdoc:generate-html-documentation + '(:cxml-stp) + (merge-pathnames + "doc/" + (asdf:component-relative-pathname (asdf:find-system :cxml-stp))) + :heading "cxml-stp") Added: trunk/thirdparty/cxml-stp/dist.sh =================================================================== --- trunk/thirdparty/cxml-stp/dist.sh (rev 0) +++ trunk/thirdparty/cxml-stp/dist.sh 2009-04-04 13:44:57 UTC (rev 4350) @@ -0,0 +1,53 @@ +#!/bin/sh -e +set -x + +cd $(dirname $0) +home=$(pwd) +name=$(basename $home) +name_and_date=${name}-$(date --iso) + +TMPDIR=`mktemp -d /tmp/dist.XXXXXXXXXX` +cleanup() { + cd + rm -rf $TMPDIR +} +trap cleanup exit + +mkdir -p doc/ +make +make -C tutorial/ + +git tag -f $name_and_date +git archive --prefix=$name_and_date/ $name_and_date | \ + ( cd $TMPDIR && tar xvf - ) + +echo '(progn (load "dist.lisp") (quit))' | clbuild lisp + +rsync -a doc tutorial $TMPDIR/$name_and_date + +cd $TMPDIR + +tgz=$TMPDIR/${name_and_date}.tgz +tar czf $tgz $name_and_date +gpg -b -a $tgz + +mkdir -p ~/bob/public_html/cxml-stp/download/ + +rsync -av \ + $name_and_date/doc \ + $name_and_date/tutorial \ + $name_and_date/*.html \ + $name_and_date/*.css \ + ~/bob/public_html/cxml-stp/ + +rsync $tgz $tgz.asc ~/bob/public_html/cxml-stp/download/ + +rm -f ~/bob/public_html/cxml-stp/download/cxml-stp.tar.gz +rm -f ~/bob/public_html/cxml-stp/download/cxml-stp.tar.gz.asc + +ln -sf ${name_and_date}.tgz ~/bob/public_html/cxml-stp/download/cxml-stp.tar.gz +ln -sf ${name_and_date}.tgz.asc ~/bob/public_html/cxml-stp/download/cxml-stp.tar.gz.asc + +echo done +exit 0 +rsync -av ~/bob/public_html bob.askja.de Property changes on: trunk/thirdparty/cxml-stp/dist.sh ___________________________________________________________________ Name: svn:executable + * Added: trunk/thirdparty/cxml-stp/index.html =================================================================== --- trunk/thirdparty/cxml-stp/index.html (rev 0) +++ trunk/thirdparty/cxml-stp/index.html 2009-04-04 13:44:57 UTC (rev 4350) @@ -0,0 +1,125 @@ +<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> +<html> +<head> +<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> +<title> + cxml-stp + </title> +<link rel="stylesheet" type="text/css" href="index.css"> +</head> +<body style="width: 62em"> +<div id="header"><div style="margin-left: 30px"><b><span>cxmlâ</span><span style="color: #55a6e0">stp</span></b></div></div> +<div id="homepage" class="main"> + <p> + A data structure for well-formed XML documents, designed for Common + Lisp. + </p> + + <h3>About</h3> + + <p> + cxml-stp is an alternative to the + W3C's <a href="http://common-lisp.net/project/cxml/dom.html">DOM</a>, + which cxml also implements. It was written + by <a href="mailto:david@lichteblau.com">David Lichteblau</a> as an + add-on library for + <a href="http://common-lisp.net/project/cxml">Closure XML</a> and is + available under an X11-style license. + </p> + <p> + Please send bug reports + to <a href="mailto:cxml-devel@common-lisp.net"> + cxml-devel(a)common-lisp.net</a> + (<a href="http://common-lisp.net/cgi-bin/mailman/listinfo/cxml-devel">list information</a>). + </p> + <p> + <i>Acknowledgements:</i> + cxml-stp is inspired by <a href="http://www.xom.nu/">XOM</a>. + </p> + <h3>Download</h3> + <p> + Download a + <a href="http://www.lichteblau.com/cxml-stp/download/">tarball</a>. + </p> + + <h3>Installation</h3> + <p> + cxml-stp needs + <a href="http://common-lisp.net/project/cxml">Closure XML</a>, + <a href="http://common-lisp.net/project/alexandria/">Alexandria</a>, + and <a href="http://common-lisp.net/project/plexippus-xpath/">Plexippus + XPath</a>. + </p> + <p> + <a href="http://www.cliki.net/asdf">ASDF</a> is used for + compilation. Register the .asd file, e.g. by symlinking it, + then compile cxml-stp using <tt>asdf:operate</tt>. + </p> + <pre>$ ln -sf `pwd`/cxml-stp.asd /path/to/your/registry/ +* (asdf:operate 'asdf:load-op :cxml-stp)</pre> + <p> + <i>Implementation-specific notes:</i> + At this point, cxml-stp is written to work with Lisp strings + (as opposed to runes and rods), and is meant to be used on + Lisp implementations with Unicode support. + </p> + + <h3>Documentation</h3> + <p> + <span style="font-size: 12pt">â¬</span> <a href="tutorial/index.html">Tutorial</a> + </p> + <p> + <span style="font-size: 12pt">â¬</span> <a href="tutorial/examples.html">Code</a> snippets + from the tutorial collected on one page + </p> + <p> + <span style="font-size: 12pt">â¬</span> <a href="doc/pages/cxml-stp.html">API documentation</a> + </p> + <p> + There is also a rough "STP for DOM + users" <a href="DOM-COMPARISON">comparison</a> which should be + useful if you have a specific DOM function in mind and are looking + for STP's equivalent. + </p> + + <h3>Recent changes</h3> + <p><b>2008-11-30</b></p> + <ul> + <li> + XPath support. (Thanks to Ivan Shvedunov for his contributions.) + </li> + <li> + Use 21 bit characters on Lisps offering them. + </li> + <li> + New function NUMBER-OF-CHILDREN. + </li> + <li> + Fixed FILTER-CHILDREN to return a list, not a vector. + </li> + <li> + Shortcut syntax using symbol in WITH-ATTRIBUTE (thanks to Cyrus Harmon). + </li> + <li> + Minor changes: Disabled uri syntax warnings. Represent uris as + strings, not puri objects. + </li> + </ul> + <p><b>2007-10-21</b></p> + <ul> + <li> + New function FIND-RECURSIVELY-IF. + </li> + <li> + Minor changes: Update to current CXML's SAX builders. + </li> + </ul> + <p><b>2007-08-05</b></p> + <ul> + <li> + Initial public release. + </li> + </ul> +</div> +</body> +</html> Modified: trunk/thirdparty/cxml-stp/node.lisp =================================================================== --- trunk/thirdparty/cxml-stp/node.lisp 2009-04-04 13:41:01 UTC (rev 4349) +++ trunk/thirdparty/cxml-stp/node.lisp 2009-04-04 13:44:57 UTC (rev 4350) @@ -262,7 +262,7 @@ (defun number-of-children (parent) "@arg[parent]{a @class{node}} @return{the number of child nodes} - Returns the number of {parent}'s child nodes. + Returns the number of @code{parent}'s child nodes. @see{count-children}" (length (%children parent)))

1 0

[bknr-cvs] hans changed trunk/thirdparty/xuriella/
by BKNR Commits 04 Apr '09

04 Apr '09

Revision: 4349 Author: hans URL: http://bknr.net/trac/changeset/4349 update from upstream git U trunk/thirdparty/xuriella/.git/FETCH_HEAD U trunk/thirdparty/xuriella/.git/ORIG_HEAD U trunk/thirdparty/xuriella/.git/index U trunk/thirdparty/xuriella/.git/logs/HEAD U trunk/thirdparty/xuriella/.git/logs/refs/heads/master U trunk/thirdparty/xuriella/.git/logs/refs/remotes/origin/master A trunk/thirdparty/xuriella/.git/objects/15/ A trunk/thirdparty/xuriella/.git/objects/15/ade472c7aaadbb010c66962e85e36ab19fff23 A trunk/thirdparty/xuriella/.git/objects/17/ A trunk/thirdparty/xuriella/.git/objects/17/f00cd4cd8851d8aa7fbbc038b696386dc3d30d A trunk/thirdparty/xuriella/.git/objects/1d/ A trunk/thirdparty/xuriella/.git/objects/1d/af29b1b80518ade162c7be376201bc90572fec A trunk/thirdparty/xuriella/.git/objects/1e/ A trunk/thirdparty/xuriella/.git/objects/1e/11eeb9eb5c472a296d8f94aae5fa4397649ce7 A trunk/thirdparty/xuriella/.git/objects/21/ A trunk/thirdparty/xuriella/.git/objects/21/f6b78e0ab2cf1d93034aa1ac568ade7064731e A trunk/thirdparty/xuriella/.git/objects/37/ A trunk/thirdparty/xuriella/.git/objects/37/cf86ec39cd14b0288b864ca877d2d87226a3ef A trunk/thirdparty/xuriella/.git/objects/3f/ A trunk/thirdparty/xuriella/.git/objects/3f/404923fcab0bd0e962b172a3a957c1c3a929e1 A trunk/thirdparty/xuriella/.git/objects/70/ A trunk/thirdparty/xuriella/.git/objects/70/4bc110c3ff4548af7bd8f9f98ec5c37f1c2200 A trunk/thirdparty/xuriella/.git/objects/7b/ A trunk/thirdparty/xuriella/.git/objects/7b/aff2346b4bd3a2aead45b00df52ec48a55f918 A trunk/thirdparty/xuriella/.git/objects/8a/ A trunk/thirdparty/xuriella/.git/objects/8a/0e715d366444a5c8ceee6dea398965abcc6044 A trunk/thirdparty/xuriella/.git/objects/aa/ A trunk/thirdparty/xuriella/.git/objects/aa/53b080fb1296ac91877844f2ec7d90ede55f7b A trunk/thirdparty/xuriella/.git/objects/e1/ A trunk/thirdparty/xuriella/.git/objects/e1/b633898f10b4695fe9e47571e63edf6d95465f A trunk/thirdparty/xuriella/.git/objects/e5/ A trunk/thirdparty/xuriella/.git/objects/e5/c1bcbf175be0227438d19dae9f5b7c9f741a97 U trunk/thirdparty/xuriella/.git/refs/heads/master U trunk/thirdparty/xuriella/.git/refs/remotes/origin/master A trunk/thirdparty/xuriella/dist.sh U trunk/thirdparty/xuriella/doc/GNUmakefile _U trunk/thirdparty/xuriella/doc/atdoc/ A trunk/thirdparty/xuriella/doc/atdoc/index.html A trunk/thirdparty/xuriella/doc/example.xml U trunk/thirdparty/xuriella/doc/index.xml U trunk/thirdparty/xuriella/doc/index.xsl A trunk/thirdparty/xuriella/early-profile.lisp U trunk/thirdparty/xuriella/xslt.lisp U trunk/thirdparty/xuriella/xuriella.asd Change set too large, please see URL above

1 0