climacs-cvs

climacs-cvs@common-lisp.net

847 discussions

[climacs-cvs] CVS update: papers/ilc2005/syntax/climacssyntax.tex
by crhodes＠common-lisp.net 20 May '05

20 May '05

Update of /project/climacs/cvsroot/papers/ilc2005/syntax In directory common-lisp.net:/tmp/cvs-serv27048 Modified Files: climacssyntax.tex Log Message: tiny extrapolations on current structure Date: Fri May 20 10:18:33 2005 Author: crhodes Index: papers/ilc2005/syntax/climacssyntax.tex diff -u papers/ilc2005/syntax/climacssyntax.tex:1.5 papers/ilc2005/syntax/climacssyntax.tex:1.6 --- papers/ilc2005/syntax/climacssyntax.tex:1.5 Wed May 18 15:56:45 2005 +++ papers/ilc2005/syntax/climacssyntax.tex Fri May 20 10:18:33 2005 @@ -102,6 +102,9 @@ approach is appropriate when the parse tree will also be used for some other display or analysis of the text in the buffer. +Earley parser: discussion of generality and asymptotic efficiency (in +general and for usual cases). + \section{Syntaxes} We describe two different approaches to syntax analysis in the Climacs @@ -127,11 +130,23 @@ Christophe might want to describe the Prolog syntax a bit here. In particular any details having to do with the implementation of operator precedence as specified in the ISO Prolog standard might be -interesting. [ Maybe just the \textit{priority} stuff? I think that's +interesting. + +[ Maybe just the \textit{priority} stuff? I think that's the only interesting bit of non-context-freeness; user-defined operators is OK because you can't actually define and use a new operator in the same directive. ] +Float tokenizer (not interesting, but not yet done) + +Need for inheritable grammars / tokenizers: most Prologs deviate from +ISO slightly, mostly in surface syntax rather than in the engine. +Examples: \verb+"ab\x011\"+, \texttt{0'''}, \texttt{[H|T]} when +\texttt{|} is an operator. + +Possibility (probably ``Future Work'') to make nice integrated Prolog +environment. + The TTCN3 syntax is implemented with a high-level macro which defines classes and adds syntax rules using the syntax protocol for each terminal and non-terminal in the grammar. The syntax of this macro @@ -183,6 +198,11 @@ capture a BNF or something? I suppose it depends how we're doing for space. +Ornaments are simple to model, as they are merely modifiers to note +objects; higher-level grouping things (beams, connecting lines) have +their own semi-independent identity, despite not being notated as such +in the textual \TabCode. + Need whole-buffer function to present an alternative whole-system view on the data. @@ -190,10 +210,11 @@ research into more advanced notations (for e.g. editorial comment, or manuscript markup) -Efficiency concerns assuaged by typical locality of edit, incremental -redisplay on the tablature buffer. +Efficiency concerns assuaged by typical locality of edit, CLIM +incremental redisplay on the tablature buffer. -MIDI feedback. +MIDI feedback. At present, based on Apple's extremely badly +documented CoreMIDI framework; a port to alsalib is on the cards. \section{Conclusion}

1 0

[climacs-cvs] CVS update: climacs/gui.lisp
by crhodes＠common-lisp.net 19 May '05

19 May '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv6573 Modified Files: gui.lisp Log Message: Add com-insert-file (from David Lewis) Date: Thu May 19 11:04:27 2005 Author: crhodes Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.138 climacs/gui.lisp:1.139 --- climacs/gui.lisp:1.138 Tue May 10 18:28:53 2005 +++ climacs/gui.lisp Thu May 19 11:04:26 2005 @@ -721,6 +721,20 @@ ;; resets the low and high marks after redisplay (redisplay-frame-panes *application-frame*))) +(define-named-command com-insert-file () + (let ((filename (accept 'completable-pathname + :prompt "Insert File")) + (pane (current-window))) + (when (probe-file filename) + (setf (mark pane) (clone-mark (point pane) :left)) + (with-open-file (stream filename :direction :input) + (input-from-stream stream + (buffer pane) + (offset (point pane)))) + (psetf (offset (mark pane)) (offset (point pane)) + (offset (point pane)) (offset (mark pane)))) + (redisplay-frame-panes *application-frame*))) + (defun save-buffer (buffer) (let ((filepath (or (filepath buffer) (accept 'completable-pathname @@ -1458,6 +1472,7 @@ (c-x-set-key '(#\e) 'com-call-last-kbd-macro) (c-x-set-key '(#\c :control) 'com-quit) (c-x-set-key '(#\f :control) 'com-find-file) +(c-x-set-key '(#\i) 'com-insert-file) (c-x-set-key '(#\k) 'com-kill-buffer) (c-x-set-key '(#\l :control) 'com-load-file) (c-x-set-key '(#\o) 'com-other-window)

1 0

[climacs-cvs] CVS update: papers/ilc2005/syntax/climacssyntax.tex
by crhodes＠common-lisp.net 18 May '05

18 May '05

Update of /project/climacs/cvsroot/papers/ilc2005/syntax In directory common-lisp.net:/tmp/cvs-serv522 Modified Files: climacssyntax.tex Log Message: Some more small additions Date: Wed May 18 15:56:46 2005 Author: crhodes Index: papers/ilc2005/syntax/climacssyntax.tex diff -u papers/ilc2005/syntax/climacssyntax.tex:1.4 papers/ilc2005/syntax/climacssyntax.tex:1.5 --- papers/ilc2005/syntax/climacssyntax.tex:1.4 Wed May 18 11:51:43 2005 +++ papers/ilc2005/syntax/climacssyntax.tex Wed May 18 15:56:45 2005 @@ -127,7 +127,10 @@ Christophe might want to describe the Prolog syntax a bit here. In particular any details having to do with the implementation of operator precedence as specified in the ISO Prolog standard might be -interesting. +interesting. [ Maybe just the \textit{priority} stuff? I think that's +the only interesting bit of non-context-freeness; user-defined +operators is OK because you can't actually define and use a new +operator in the same directive. ] The TTCN3 syntax is implemented with a high-level macro which defines classes and adds syntax rules using the syntax protocol for each @@ -160,7 +163,37 @@ \end{center} \end{figure*} -Christophe should describe the tabcode editor here. +\TabCode\ is a textual format for description of lute tablature. In +its simplest form, it is a sequence of whitespace-delimited +independent words, where each word represents either a set of frets to +depress and strings to be sounded, or alternatively some element of +musical notation (such as a barline); figure \ref{fig:besfantlach} +demonstrates a fragment of manuscript, and its \TabCode encoding. It +is also possible to encode more complex elements of lute tablature +notation in \TabCode: ornaments, beaming, connecting lines and other +complex elements can all be accommodated. + +\TabCode\ has been used to produce scholarly editions of lute works +\cite{Weiss} and to computer-based musicological studies (as in +\cite{ecolm-graz} for example). + +\TabCode\ has a rather ad-hoc cobbled together grammar. Tokenising is +easy; determining which elements of the notation are best captured is +not so easy. Chords, obviously; beams, comments... Should we try to +capture a BNF or something? I suppose it depends how we're doing for +space. + +Need whole-buffer function to present an alternative whole-system view +on the data. + +Editor is in use for cataloguing European lute music, and supports +research into more advanced notations (for e.g. editorial comment, or +manuscript markup) + +Efficiency concerns assuaged by typical locality of edit, incremental +redisplay on the tablature buffer. + +MIDI feedback. \section{Conclusion}

1 0

[climacs-cvs] CVS update: papers/ilc2005/syntax/besfantlach.eps papers/ilc2005/syntax/besfantlach.pdf papers/ilc2005/syntax/climacssyntax.tex
by crhodes＠common-lisp.net 18 May '05

18 May '05

Update of /project/climacs/cvsroot/papers/ilc2005/syntax In directory common-lisp.net:/tmp/cvs-serv14862 Modified Files: climacssyntax.tex Added Files: besfantlach.eps besfantlach.pdf Log Message: Add TabCode figure Date: Wed May 18 11:51:43 2005 Author: crhodes Index: papers/ilc2005/syntax/climacssyntax.tex diff -u papers/ilc2005/syntax/climacssyntax.tex:1.3 papers/ilc2005/syntax/climacssyntax.tex:1.4 --- papers/ilc2005/syntax/climacssyntax.tex:1.3 Tue May 17 14:56:23 2005 +++ papers/ilc2005/syntax/climacssyntax.tex Wed May 18 11:51:43 2005 @@ -1,5 +1,7 @@ \documentclass{acm_proc_article-sp} +\newcommand{\TabCode}{\textit{TabCode}} + \usepackage[a4paper,textwidth=7in,textheight=9in]{geometry} \begin{document} @@ -138,6 +140,25 @@ by the parser, with language keywords appearing in a separate color. \subsection{Per-Buffer Syntax} + +\begin{figure*} + \begin{center} + \parbox{0.45\linewidth}{\includegraphics{besfantlach}} + \parbox{0.25\linewidth}{\texttt{\\ [1cm]\noindent + Qa1a2b3c4c5a6\\ + Ea2\\ + a6\\ + d6\\ + a2b3\\ + d2f3\\ + d6\\ + |}} + \caption{An extract from `Fantasia Ioannis Dooland Angli + \textit{Lachrimae}', Jean-Baptiste Besard, \textit{Thesaurus + Harmonicus} (1603), f.16v, and its \TabCode\ encoding.} + \label{fig:besfantlach} + \end{center} +\end{figure*} Christophe should describe the tabcode editor here.

1 0

[climacs-cvs] CVS update: papers/ilc2005/syntax/climacssyntax.bib papers/ilc2005/syntax/climacssyntax.tex
by bmastenbrook＠common-lisp.net 17 May '05

17 May '05

Update of /project/climacs/cvsroot/papers/ilc2005/syntax In directory common-lisp.net:/tmp/cvs-serv1290 Modified Files: climacssyntax.bib climacssyntax.tex Log Message: MORE CITATIONS Date: Tue May 17 14:56:23 2005 Author: bmastenbrook Index: papers/ilc2005/syntax/climacssyntax.bib diff -u papers/ilc2005/syntax/climacssyntax.bib:1.1.1.1 papers/ilc2005/syntax/climacssyntax.bib:1.2 --- papers/ilc2005/syntax/climacssyntax.bib:1.1.1.1 Tue May 17 11:52:34 2005 +++ papers/ilc2005/syntax/climacssyntax.bib Tue May 17 14:56:23 2005 @@ -10,7 +10,7 @@ OPTmonth = {}, OPTnote = {}, OPTannote = {} -} +} @InProceedings{ecolm-graz, author = {Tim Crawford and Michael Gale and David Lewis}, @@ -63,6 +63,14 @@ publisher = {Franz Inc.}, OPTnote = {}, OPTannote = {} +} + +@InProceedings{flexichain, + author = {Robert Strandh and Matthieu Villeneuve and Timothy Moore}, + title = {Flexichain: An editable sequence and its gap-buffer implementation}, + booktitle = {1st European Lisp and Scheme Workshop}, + year = {2004}, + address = {Oslo} } @Article{mckayacm, Index: papers/ilc2005/syntax/climacssyntax.tex diff -u papers/ilc2005/syntax/climacssyntax.tex:1.2 papers/ilc2005/syntax/climacssyntax.tex:1.3 --- papers/ilc2005/syntax/climacssyntax.tex:1.2 Tue May 17 13:05:00 2005 +++ papers/ilc2005/syntax/climacssyntax.tex Tue May 17 14:56:23 2005 @@ -29,8 +29,9 @@ \email{strandh(a)labri.fr} \alignauthor Brian Mastenbrook\\ \affaddr{Motorola}\\ - \affaddr{Somewhere in the US}\\ - \email{brian(a)mastenbrook.net} % or maybe a Motorola address? + \affaddr{1303 E. Algonquin Road}\\ + \affaddr{Schaumburg, IL, USA 60196}\\ + \email{Brian.Mastenbrook(a)motorola.com} } \maketitle @@ -56,15 +57,15 @@ The Climacs text editor is a combination of frameworks for buffer representation and buffer contents parsing with a CLIM-based display -engine. The Flexichain library provides an editable sequence -representation and mark (cursor) management based on a circular gap -buffer. This library is used by the buffer protocol, which provides a -standard interface to common text editor buffer operations. The syntax -protocol provides a method for interfacing a lexical analyzer and -parser with the text editor. An implementation of the Earley parsing -algorithm is provided to simplify the creation of syntaxes for common -context-free grammars. Syntax modules also define methods to draw -syntax objects in the Climacs window. +engine. The Flexichain library \cite{flexichain} provides an editable +sequence representation and mark (cursor) management based on a +circular gap buffer. This library is used by the buffer protocol, +which provides a standard interface to common text editor buffer +operations. The syntax protocol provides a method for interfacing a +lexical analyzer and parser with the text editor. An implementation of +the Earley parsing algorithm is provided to simplify the creation of +syntaxes for common context-free grammars. Syntax modules also define +methods to draw syntax objects in the Climacs window. \section{Buffer Protocol}

1 0

[climacs-cvs] CVS update: papers/ilc2005/syntax/climacssyntax.tex
by crhodes＠common-lisp.net 17 May '05

17 May '05

Update of /project/climacs/cvsroot/papers/ilc2005/syntax In directory common-lisp.net:/tmp/cvs-serv27571 Modified Files: climacssyntax.tex Log Message: Use the geometry package to enforce the formatting requirements (sadly, it appears that there's no way of doing so without specifying either letterpaper or a4paper. Sorry.) Minor other tinkering Date: Tue May 17 13:05:00 2005 Author: crhodes Index: papers/ilc2005/syntax/climacssyntax.tex diff -u papers/ilc2005/syntax/climacssyntax.tex:1.1.1.1 papers/ilc2005/syntax/climacssyntax.tex:1.2 --- papers/ilc2005/syntax/climacssyntax.tex:1.1.1.1 Tue May 17 11:52:34 2005 +++ papers/ilc2005/syntax/climacssyntax.tex Tue May 17 13:05:00 2005 @@ -1,8 +1,9 @@ \documentclass{acm_proc_article-sp} +\usepackage[a4paper,textwidth=7in,textheight=9in]{geometry} + \begin{document} -%\usepackage{geometry} %\geometry{letterpaper} %\usepackage{graphicx} %\usepackage{amssymb} @@ -46,9 +47,10 @@ using a per-buffer function for its parsing. \end{abstract} -\category{H.4}{Information Systems Applications}{Miscellaneous}[possibly] +\category{D.2.3}{Coding Tools and Techniques}{Program editors} +\category{D.3.4}{Processors}{Incremental compilers} -\keywords{I, don't, know} +\keywords{Editors, Parsing, Tablature} \section{Overview}

1 0

[climacs-cvs] CVS update: Module imported: papers/ilc2005/syntax
by crhodes＠common-lisp.net 17 May '05

17 May '05

Update of /project/climacs/cvsroot/papers/ilc2005/syntax In directory common-lisp.net:/tmp/cvs-serv22723 Log Message: Initial import Status: Vendor Tag: INITIAL Release Tags: start N papers/ilc2005/syntax/climacssyntax.tex N papers/ilc2005/syntax/acm_proc_article-sp.cls N papers/ilc2005/syntax/climacssyntax.bib No conflicts created by this import Date: Tue May 17 11:52:34 2005 Author: crhodes New module papers/ilc2005/syntax added

1 0

[climacs-cvs] CVS update: Module imported: papers/ilc2005/syntax
by crhodes＠common-lisp.net 17 May '05

17 May '05

Update of /project/climacs/cvsroot/papers/ilc2005/syntax In directory common-lisp.net:/tmp/cvs-serv20734 Log Message: Initial import Status: Vendor Tag: INITIAL Release Tags: start N papers/ilc2005/syntax/climacssyntax.tex cvs: ERROR: cannot write file /project/climacs/cvsroot/papers/ilc2005/syntax/climacssyntax.tex,v: No such file or directory N papers/ilc2005/syntax/acm_proc_article-sp.cls cvs: ERROR: cannot write file /project/climacs/cvsroot/papers/ilc2005/syntax/acm_proc_article-sp.cls,v: No such file or directory N papers/ilc2005/syntax/climacssyntax.bib cvs: ERROR: cannot write file /project/climacs/cvsroot/papers/ilc2005/syntax/climacssyntax.bib,v: No such file or directory No conflicts created by this import Date: Tue May 17 11:25:17 2005 Author: crhodes New module papers/ilc2005/syntax added

1 0

[climacs-cvs] CVS update: climacs/buffer.lisp climacs/gui.lisp
by crhodes＠common-lisp.net 10 May '05

10 May '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv19641 Modified Files: buffer.lisp gui.lisp Log Message: Restore the (in-package ...) and the copyright information to buffer.lisp The buffer accessor is FILEPATH, not FILENAME Date: Tue May 10 18:28:54 2005 Author: crhodes Index: climacs/buffer.lisp diff -u climacs/buffer.lisp:1.30 climacs/buffer.lisp:1.31 --- climacs/buffer.lisp:1.30 Mon May 9 16:13:44 2005 +++ climacs/buffer.lisp Tue May 10 18:28:53 2005 @@ -1,3 +1,35 @@ +;;; -*- Mode: Lisp; Package: CLIMACS-BUFFER -*- + +;;; (c) copyright 2004-2005 by +;;; Robert Strandh (strandh at labri.fr) +;;; (c) copyright 2004-2005 by +;;; Elliott Johnson (ejohnson at fasl.info) +;;; (c) copyright 2005 by +;;; Matthieu Villeneuve (matthieu.villeneuve at free.fr) + +;;; This library is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU Library General Public +;;; License as published by the Free Software Foundation; either +;;; version 2 of the License, or (at your option) any later version. +;;; +;;; This library is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Library General Public License for more details. +;;; +;;; You should have received a copy of the GNU Library General Public +;;; License along with this library; if not, write to the +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;;; Boston, MA 02111-1307 USA. + +;;; A not-so-stupid implementation of the buffer protocol. This +;;; implementation serves two purposes: First, so that higher-level +;;; functionality can be built on top of a working implementation of +;;; the buffer protocol, and second, to use as a comparison for +;;; testing a new, better implementation of the buffer protocol. + +(in-package :climacs-buffer) + (defclass buffer () () (:documentation "A base class for all buffers. A buffer conceptually contains a large array of arbitrary objects. Lines of objects are separated by Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.137 climacs/gui.lisp:1.138 --- climacs/gui.lisp:1.137 Mon May 9 16:47:45 2005 +++ climacs/gui.lisp Tue May 10 18:28:53 2005 @@ -742,14 +742,14 @@ (define-named-command (com-quit) () (loop for buffer in (buffers *application-frame*) when (and (needs-saving buffer) - (filename buffer) + (filepath buffer) (handler-case (accept 'boolean :prompt (format nil "Save buffer: ~a ?" (name buffer))) (error () (progn (beep) (display-message "Invalid answer") (return-from com-quit nil))))) do (save-buffer buffer)) - (when (or (notany #'(lambda (buffer) (and (needs-saving buffer) (filename buffer))) + (when (or (notany #'(lambda (buffer) (and (needs-saving buffer) (filepath buffer))) (buffers *application-frame*)) (handler-case (accept 'boolean :prompt "Modified buffers exist. Quit anyway?") (error () (progn (beep)

1 0

[climacs-cvs] CVS update: climacs/gui.lisp climacs/pane.lisp
by rstrandh＠common-lisp.net 09 May '05

09 May '05

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv17603 Modified Files: gui.lisp pane.lisp Log Message: Patch from John Q Splittist making the behavior of points in panes more natural. Date: Mon May 9 16:47:45 2005 Author: rstrandh Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.136 climacs/gui.lisp:1.137 --- climacs/gui.lisp:1.136 Mon May 9 16:13:44 2005 +++ climacs/gui.lisp Mon May 9 16:47:45 2005 @@ -704,6 +704,7 @@ :prompt "Find File")) (buffer (make-instance 'climacs-buffer)) (pane (current-window))) + (setf (point (buffer pane)) (clone-mark (point pane))) (push buffer (buffers *application-frame*)) (setf (buffer (current-window)) buffer) (setf (syntax buffer) (make-instance @@ -787,6 +788,7 @@ (let ((buffer (accept 'buffer :prompt "Switch to buffer")) (pane (current-window))) + (setf (point (buffer pane)) (clone-mark (point pane))) (setf (buffer pane) buffer) (full-redisplay pane))) @@ -966,7 +968,8 @@ (multiple-value-bind (vbox new-pane) (make-pane-constellation) (let* ((current-window (current-window)) (constellation-root (parent3 current-window))) - (setf (buffer new-pane) (buffer current-window) + (setf (point (buffer current-window)) (clone-mark (point current-window)) + (buffer new-pane) (buffer current-window) (auto-fill-mode new-pane) (auto-fill-mode current-window) (auto-fill-column new-pane) (auto-fill-column current-window)) (push new-pane (windows *application-frame*)) @@ -980,7 +983,8 @@ (multiple-value-bind (vbox new-pane) (make-pane-constellation) (let* ((current-window (current-window)) (constellation-root (parent3 current-window))) - (setf (buffer new-pane) (buffer current-window) + (setf (point (buffer current-window)) (clone-mark (point current-window)) + (buffer new-pane) (buffer current-window) (auto-fill-mode new-pane) (auto-fill-mode current-window) (auto-fill-column new-pane) (auto-fill-column current-window)) (push new-pane (windows *application-frame*)) Index: climacs/pane.lisp diff -u climacs/pane.lisp:1.25 climacs/pane.lisp:1.26 --- climacs/pane.lisp:1.25 Sat May 7 00:32:28 2005 +++ climacs/pane.lisp Mon May 9 16:47:45 2005 @@ -196,6 +196,7 @@ (defclass climacs-buffer (delegating-buffer filepath-mixin name-mixin) ((needs-saving :initform nil :accessor needs-saving) (syntax :accessor syntax) + (point :initform nil :initarg :point :accessor point) (indent-tabs-mode :initarg indent-tabs-mode :initform t :accessor indent-tabs-mode)) (:default-initargs @@ -204,13 +205,14 @@ (defmethod initialize-instance :after ((buffer climacs-buffer) &rest args) (declare (ignore args)) - (with-slots (syntax) buffer + (with-slots (syntax point) buffer (setf syntax (make-instance - 'basic-syntax :buffer (implementation buffer))))) + 'basic-syntax :buffer (implementation buffer)) + point (clone-mark (low-mark buffer) :right)))) (defclass climacs-pane (application-pane) ((buffer :initform (make-instance 'climacs-buffer) :accessor buffer) - (point :initform nil :initarg :point :reader point) + (point :initform nil :initarg :point :accessor point) (mark :initform nil :initarg :mark :accessor mark) (top :reader top) (bot :reader bot) @@ -240,6 +242,7 @@ (defmethod initialize-instance :after ((pane climacs-pane) &rest args) (declare (ignore args)) (with-slots (buffer point mark) pane + (setf point (clone-mark (point buffer))) (when (null point) (setf point (clone-mark (low-mark buffer) :right))) (when (null mark) @@ -256,7 +259,7 @@ (defmethod (setf buffer) :after (buffer (pane climacs-pane)) (with-slots (point mark top bot) pane - (setf point (clone-mark (low-mark buffer) :right) + (setf point (clone-mark (point buffer)) mark (clone-mark (low-mark buffer) :right) top (clone-mark (low-mark buffer) :left) bot (clone-mark (high-mark buffer) :right))))

1 0

← Newer
1
...
52
53
54
55
56
57
58
...
85
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

climacs-cvs