From mantoniotti at common-lisp.net Sun Mar 6 15:29:36 2011 From: mantoniotti at common-lisp.net (mantoniotti) Date: Sun, 06 Mar 2011 10:29:36 -0500 Subject: [definer-cvs] CVS definer Message-ID: Update of /project/definer/cvsroot/definer In directory cl-net:/tmp/cvs-serv9292 Modified Files: definer-pkg.lisp definer.system Added Files: COPYING definer.asd Log Message: Adde files COPYING and .asd. Edited and updated the package and system. --- /project/definer/cvsroot/definer/definer-pkg.lisp 2004/04/22 18:05:06 1.1.1.1 +++ /project/definer/cvsroot/definer/definer-pkg.lisp 2011/03/06 15:29:36 1.2 @@ -2,7 +2,7 @@ ;;; definer-pkg.lisp -- -;;; Copyright (c) 2003-2004 Marco Antoniotti, All rigths reserved. +;;; Copyright (c) 2003-2011 Marco Antoniotti, All rigths reserved. ;;; ;;; Permission to use, modify, and redistribute this code is hereby ;;; granted. @@ -11,7 +11,7 @@ (defpackage "NET.NTUNIOTT.CL.EXT.SYNTAX.DEFINER" (:use "COMMON-LISP") - (:nicknames "CL.EXT.SYNTAX.DEFINER" "DEFINER") + (:nicknames "CL.EXT.SYNTAX.DEFINER" "DEFINER" #-lispworks "DEF") (:export "DEF" "BUILD-DEFINITION-FORM") --- /project/definer/cvsroot/definer/definer.system 2004/04/22 18:10:23 1.1 +++ /project/definer/cvsroot/definer/definer.system 2011/03/06 15:29:36 1.2 @@ -1,10 +1,13 @@ -;;; -*- Mode: Lisp -*- +;;;; -*- Mode: Lisp -*- -;;; definer.system -- +;;;; definer.system -- +;;;; +;;;; See the file COPYING for license and copying information. (mk:defsystem "DEFINER" + :author "Marco Antoniotti" :components ("definer-pkg" "definer")) -;;; end of file -- definer.system -- +;;;; end of file -- definer.system -- --- /project/definer/cvsroot/definer/COPYING 2011/03/06 15:29:36 NONE +++ /project/definer/cvsroot/definer/COPYING 2011/03/06 15:29:36 1.1 Copyright (c) 2003-2011 Marco Antoniotti All rights reserved. Permission is hereby granted, without written agreement and without license or royalty fees, to use, copy, modify, and distribute this software and its documentation for any purpose, provided that the above copyright notice and the following two paragraphs appear in all copies of this software. IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE AUTHOR(S), HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. THE AUTHOR(S) UNIVERSITY, COMPANY AND/OR AFFILIATION SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" BASIS, AND THE AUTHOR(S) HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. --- /project/definer/cvsroot/definer/definer.asd 2011/03/06 15:29:36 NONE +++ /project/definer/cvsroot/definer/definer.asd 2011/03/06 15:29:36 1.1 ;;;; -*- Mode: Lisp -*- ;;;; definer.asd -- ;;;; ;;;; See the file COPYING for license and copying information. (asdf:defsystem "DEFINER" :author "Marco Antoniotti" :components ((:file "definer-pkg") (:file "definer" :depends-on ("definer-pkg"))) ) ;;;; end of file -- definer.asd -- From mantoniotti at common-lisp.net Sun Mar 6 15:51:47 2011 From: mantoniotti at common-lisp.net (mantoniotti) Date: Sun, 06 Mar 2011 10:51:47 -0500 Subject: [definer-cvs] CVS definer/docs Message-ID: Update of /project/definer/cvsroot/definer/docs In directory cl-net:/tmp/cvs-serv14840/docs Log Message: Directory /project/definer/cvsroot/definer/docs added to the repository From mantoniotti at common-lisp.net Sun Mar 6 15:51:47 2011 From: mantoniotti at common-lisp.net (mantoniotti) Date: Sun, 06 Mar 2011 10:51:47 -0500 Subject: [definer-cvs] CVS definer/docs/html Message-ID: Update of /project/definer/cvsroot/definer/docs/html In directory cl-net:/tmp/cvs-serv14840/docs/html Log Message: Directory /project/definer/cvsroot/definer/docs/html added to the repository From mantoniotti at common-lisp.net Sun Mar 6 15:52:45 2011 From: mantoniotti at common-lisp.net (mantoniotti) Date: Sun, 06 Mar 2011 10:52:45 -0500 Subject: [definer-cvs] CVS definer/docs/html/images Message-ID: Update of /project/definer/cvsroot/definer/docs/html/images In directory cl-net:/tmp/cvs-serv14889/docs/html/images Log Message: Directory /project/definer/cvsroot/definer/docs/html/images added to the repository From mantoniotti at common-lisp.net Sun Mar 6 15:55:55 2011 From: mantoniotti at common-lisp.net (mantoniotti) Date: Sun, 06 Mar 2011 10:55:55 -0500 Subject: [definer-cvs] CVS definer/docs/html Message-ID: Update of /project/definer/cvsroot/definer/docs/html In directory cl-net:/tmp/cvs-serv15006/docs/html Added Files: bdf.html def.html index.html main.css Log Message: Added documentation tree. --- /project/definer/cvsroot/definer/docs/html/bdf.html 2011/03/06 15:55:55 NONE +++ /project/definer/cvsroot/definer/docs/html/bdf.html 2011/03/06 15:55:55 1.1 DEFINER: BUILD-DEFINITION-FORM
Common Lisp Extension: DEFINER
Home | Code | Links
 

Generic function BUILD-DEFINITION-FORM

Syntax:

  build-definition-form what name definition-forms &optional prefix-options
  => <undefined>

Arguments and Values:

what---a symbol, or some structured object, e.g. a cons

name---a symbol, or some structured object, e.g. a cons

definition-forms---a compound form

Description:

Constructs the underlying CL, or other library, definition form based on the arguments received.

The methods of this generic function are called by the DEF macro to perform the eventual expansion of the definition.

The optional parameter prefix-options can be used to pass around extra information - usually, but not necessarily, in the form of a list of symbols - when what, or name is a structured, non-symbol, object.

Examples:

A few simple examples are the following.

  • Definitions corresponding to defvar, defparameter, and defconstant 
      (defmethod build-definition-form ((what (eql 'var))
                                    (name symbol)
                                    definition-forms
                                    &optional prefix-options)
     `(defvar ,name , at definition-forms))
  
      (defmethod build-definition-form ((what (eql parameter))
                                    (name symbol)
                                    definition-forms
                                    &optional prefix-options)
     `(deparameter ,name , at definition-forms))
  
      (defmethod build-definition-form ((what (eql 'constant))
                                    (name symbol)
                                    definition-forms
                                    &optional prefix-options)
     `(defconstant ,name , at definition-forms))
  • The definition for the special indicator definer; cfr. the description for DEF. 
      (defmethod build-definition-form ((what (eql 'definer))
				    (for-what symbol)
				    definition-forms
				    &optional prefix-options)
    (destructuring-bind ((&key
			  ((:type-of-naming-form name-type) 'symbol) ; Non evaluated
			  ((:name name-var) 'name)                   ; Non evaluated
			  ((:body-name def-form-var) 'definition-forms) ; Non evaluated
			  )
			 &body definer-forms)
	definition-forms
      `(defmethod build-definition-form ((what (eql ',for-what))
					 (,name-var ,name-type)
					 ,def-form-var
					 &optional prefix-options)
	 , at definer-forms)))

Side Effects:

User caused.

Affected By:

None.

Exceptional Situations:

Environment dependent.
 
 
© 2003-2011, Marco Antoniotti, all rights reserved.
--- /project/definer/cvsroot/definer/docs/html/def.html 2011/03/06 15:55:55 NONE +++ /project/definer/cvsroot/definer/docs/html/def.html 2011/03/06 15:55:55 1.1 DEFINER: DEF
Common Lisp Extension: DEFINER
Home | Code | Links
 

Macro DEF

Syntax:

General form:

  def what name &rest definition-forms
  => <undefined>

Special definer form:

  def definer what (&key type-of-naming-form name body-name) &body definer-forms
  => <undefined>

Arguments and Values:

Simple DEF form:

what---a symbol, a cons, or the symbol definer

name---a symbol or a cons

definition-forms---a compound form

Special DEF DEFINER form:

what---a symbol, a cons, or the symbol definer

type-of-naming-form---the symbol symbol, or the symbol cons (or some other type specifier); the default is SYMBOL

name---a symbol that is used within the body definer-forms to retrieve the name of the object being defined; the default is the symbol name

body-name---a symbol that is used within the body definer-forms to retrieve the actual definition forms for the definer; the default is the symbol definition-forms

definer-forms---a compound form

Description:

Calls the appropriate CL definition form, or a user definition form built by a specialized call to BUILD-DEFINITION-FORM.

what is a symbol or a cons which directs the underlying form builder code in a method of BUILD-DEFINITION-FORM to produce the appropriate result.

name is a symbol or a cons which can be processed to produce the actual name of the obejct being defined.

The actual contents of definition-forms depend on what is being defined.

Using the definer indicator

what can be the predefined symbol definer. In this case the DEF macro behaves as follows. A BUILD-DEFINITION-FORM method on name is defined. The keyword parameters that can be passed to the DEF are meant to ease the writing of definer-forms.

type-of-naming-form is used in a DECLARE form to aid the compiler. name-var is a symbol that is used within the body definer-forms to retrieve the name of the object being defined. body-name is a symbol that is used within the body definer-forms to retrieve the actual definition forms for the definer.

Examples:

See the main page.

Side Effects:

name is defined as a what in the environment. what is defined depends on the current set of methods for the generic function BUILD-DEFINITION-FORM.

Affected By:

None.

Exceptional Situations:

Environment dependent.
 
 
© 2003-2011, Marco Antoniotti, all rights reserved.
--- /project/definer/cvsroot/definer/docs/html/index.html 2011/03/06 15:55:55 NONE +++ /project/definer/cvsroot/definer/docs/html/index.html 2011/03/06 15:55:55 1.1 DEFINER: A COMMON LISP Extension
Common Lisp Extension: DEFINER
Home | Code | Links [296 lines skipped] --- /project/definer/cvsroot/definer/docs/html/main.css 2011/03/06 15:55:55 NONE +++ /project/definer/cvsroot/definer/docs/html/main.css 2011/03/06 15:55:55 1.1 [617 lines skipped] From mantoniotti at common-lisp.net Sun Mar 6 15:55:55 2011 From: mantoniotti at common-lisp.net (mantoniotti) Date: Sun, 06 Mar 2011 10:55:55 -0500 Subject: [definer-cvs] CVS definer/docs/html/images Message-ID: Update of /project/definer/cvsroot/definer/docs/html/images In directory cl-net:/tmp/cvs-serv15006/docs/html/images Added Files: header_bg.gif header_bg_1.gif shim.gif Log Message: Added documentation tree. --- /project/definer/cvsroot/definer/docs/html/images/header_bg.gif 2011/03/06 15:55:55 NONE +++ /project/definer/cvsroot/definer/docs/html/images/header_bg.gif 2011/03/06 15:55:55 1.1 GIF89a?2?+I???>)dfS?P=tC2c8%\???M6x??????1ShV?3!TC*p???eX{ZE?5 Yvd?<+\???@.c???H6lRDk<%f???fT?UAzK4v`N?m]?:$b?y?YKtYE}F.s>&jiX??{?\I?VDyL5vdR?r`???????^M}??????D-mbP?lZ?J2v@*ima????P:y^L?H1qD,rZH}???aR}B,iR=xI;ezi?VA|???9#aF1mp^?M:q???@(naM?bP????R at t???6"\n\?\J~???J5q;$dN9uQ at rB4^F-r?q?XFzH0tYHzJ8mN(h~m???????2"ND,pM=mB+nkY??v?]Ny~t????F5il]?tb????hZ????^Pw???@)kU>}B,l??????????z?=&hxm?I9isa?xf?L:neV?UFq???>'gL=iJ3s^I???????9*Uh\~m^?C+q7$WF/o?}?VHp??????aVudYwA)oj[?N at g;'aqf?tj????I2sR<{=%hwf?/PfYE.o|k?B*l???gV?D/kwe?F7b???A*lK8p`K?k_?Q;{^TpS>{cO?G/sB0gG3m???7)Q???td?sc?cS?H6h?/\XC~SBsA*no^?P?oE.r[LxWBK???)\a????+?+ ?t*g? ?0`s@???;DZ??!?6%B2???Q??@???,{}Ao~KP??Q b?(?h?d??????iuE&Z'+l#?g?x?B?? ???9???3]?S+?I??H ??? w `? S?q?+?8??81???` GF???? ??6?@A?]?A[(??x??e?t??P?9??@5y??b? ?|iu??I; f?a?9E???b??4??<@Rt `?1?| ?^??F?-d]??3[?,? D??????????c@??1?/????C\??.?0???? `@?????rOCTcF?\s?>x?????K???/???`?K??t@ t? ??E/ ,q? ??{?T? ??!?V(?B7????b!o(??R?CO?#?1/Hs?1((??Nt???h??4Nh?? ????j?? '?@D???%'4??7'$??=D? E??~L?5!?????M0????@? t????B?,3?D?A??"?1P|?1M%Ch??3??? ????,??7p??G????^~?7pq?DN0!f?K??"?A??w??{z.G???(? ???0>??L'?S?mx?4??R%:??M?1 H:W??0?P?)??????????6p?$0m?T`!\?P@u$?@)??.??^(? ?? ??&?:m?E?P?g(?> Y??H??!???H??|?? jA_K????/?HLB2??X? +8)I@???@d')??q??D?"????? 4?r?????%wP?&??4????????4??[d???? X?/|?:?@v@?C ?l?7Z7n?? ??Z?!??e.g??K?"?D?q ]?????v?? ?`J?????`???? ??gB`??$8 ?P?:?a?/?a[??v@?XA;?Y v?ubA?(F?? ???x?????"t! ?????u???Q?,????YZxA<(?*]?c ??D$???b?G???9?? ?D???,@?h@,? K  h@?e???z????????b?h?????k???F@?K? v?c ? ??F???? ?w? ????? ??v??E HU?W`1!&?m2S#Hbe?)3U?*X)? .! b ?/XJ%h?3hf?? ?p4@?6? )??? ?mm??5?0?;????pVo1w?%k"v??'nuA}?Qq~?'?U?vx?& H??a?`@P?T??? ?5`?' W?2? @,P ? ???p??S???+?`?Y???'x???hP???q?? ?t??)^?H?(?x??Xl?H?Ppg`B???h@_?????@>-B???`?B??h Pa?;?5?@/?? ?Y???????,^ `B? a`?%??%0'?xV^@W6(Wd???'? ?W??'?G?8a]-Q]?u)?.!?U??+? 0YJ? 6?%b??=` > 6)@?U????!j?I?!?!Qc ?2AW?a'?? ?a?uHRbqR?$R?s&??9(? ?A ??5?76:w6 @w)?Sc?P% ?/) M?PpD? ?P?? g?(Y5??>a8?J@,?P m?U?%??b\?l? ??j2Vl??Qf?V c{?Q?)???Id?Qd?? 7?? ?N?0??B? ?4???g????0wPF???@u?????b?0@?y0? ??},???`?#??0f?"P??z?P?? ?`??c&? ? ??3Sw?PwL??@ ?0 ? o?cu? ???????(?_?|???XAQ]:A?cy??]? Q8b61???nJ????` `?z>??:????-1? *??? ?: %K?naRV?S??B? ?zX??PPS#v4?@???*?&gU??A?z??}? ???'>????'$???A ?9??????????? t ([? ????E? >??k??"?? _?? ???>??@?M at T?9S?|??V??X??c?+` ?`?1?a??a??QW?A?%??e????'??'~r???Q????&?PZ??=g?t@j???`?@a)` t@???A?j?/I_1N ???q??i `?|S? ??,P?P_?u??^???%??Z?v?? E? ????kQ'uV y%?AWwQ??1?uEd?i?? ??^??`?u$@??@???7??X?`?????H?X@g? ?????&1>[ V?A? =? v???a??`?5 $0U??8?N ???? ??#???NH??P??L?F???1&???K&:sL????4???2;??????^0?E ???8G??1V?? ?QAlZ??"??)? ?H y`J??`?C?%p??%????=?i!?Y2Y???? }2???[n???|??~????0??4??X??5???????"??b?o?d??n??k1???L ?x ?P???h[?B??0????? (p??:?@???hb??(??/V? H????N???&???F??????B?f?? A?)??I?D?L?$fzA????`??2@%?????(???!?y???C4? ?#???G ?B?W?a?E ??L?D? ????W?~??W?????x?7L??qL???hx??? ???#??? ??h{4M????%?:?p??y?B??(??o?4G?"????8??h????p??8`??N????,t???M2?fp??'?P2????B???f?P??'18??F?ae?{2?b?R?$?5? 09@?*8d?'????L,???TRP??i?` ?@??t?`??a%4(????`??;C:?????3?????) ? O????@1?a??????8???8?# ?F$F??2????A0??x? ?? ??z???X*(??T u???^ p?? ?$1=1?????(?W?Z??0?p?5 ??????L`JA?L?0?X????Y,??? ??A!??)???3?? ?Q?@3N??0?bt?M??#R??? ??@1,?p?V ???W????  ?A ???x{???R??0?q @X? ?8A ???$0`NH???D?P?70?)X+PK?????av`?%0??3?,??5,??/$mh8<@9b??#D+Za?s????*??h???B4Z?????????F7 ?\{? ?f?h?7?????Y??&`? ?F:??S?%??? ???? (9;8?L?`\yC?Jp? h????i??W ?:M??Ga???#jP????P ?@?????c?D?H?,??Z??tJ?$?c???????@???%40?Y$yq?? xnhu?2??B?y`??l?|????|h?C?+,??3?^??zlP?@?K??G l? |? |??) q?R??o????0?NP#L?V ??m? vX??A&8`[?8????3???\;5A|7`?N ?8`qD ?????$$? [??0?05l?]pB ??8AIP?l??sH(??? ?#??y???SH! ?P\+?w??]G???Q?K >??????W\???G??????E?\?'??/??,?+?HI+?n?+????H ?B?? ??#ERE?1?? ??PI????Q?[?%???0?????? p?#??`??P????kDA=?FR?H?3,?tJ?|Jd?P??z?I?M????C??\)?E(???? ??V??????Gm??kP?3??X?????O????v??^?C?`x??q?X?2???T?!?I???Z??m?pDAT ???G??UH??BD1?+x?$?o?H??O?????T@'???Ap?Q???N??? E?D?? ??? `????I?!M???? (@?G?~?%?"?>??NP?0 ?O!??H?4?h? 4P?????? ??,lP???W?\8??? ??b ?P?*????????????EH???T)h?????? 8?+3OA) ?%O??'??O?@??T?????m2??I?(?XO?*????z????*5t??'? 8?{ ??b%??i??HP?|??6!395?????Ep?I?????;????C=T?????S???BG6a???4?;54?9?qO?TGE?P?P?@ T???5a??;--- /project/definer/cvsroot/definer/docs/html/images/header_bg_1.gif 2011/03/06 15:55:55 NONE +++ /project/definer/cvsroot/definer/docs/html/images/header_bg_1.gif 2011/03/06 15:55:55 1.1 GIF89a?2???????z??wH??u??r?,???U??($?Z???F?8a(` ?zeE??Z/??ccrE??? }yLh?Q$?8????N???]as?2??s???fBH?????F????"cj?????-?)D? ???|????A&e??H????M"???Rwh???-??QP?iQN ??.?????;?? ?:?5?C? ?0j??Y2Ro???_u$?????x?X?Q??v????w=??G??! [?!)f?`??YY?$??87??M-'}???"?&??l?Z????d??????aG?*t?=??]?- t=Kfg???zd?t6a???1???I@=???d?$:=?3???F??;~?3R%|?Q??83???o?_???D#f6Vf??b4?]^??x"[#?+???$=?y=?;??VR?? w?C????????:????'?????t?Ii?T????$0??<*R???>EE?jQR?<>??[?!R?Z?w????;--- /project/definer/cvsroot/definer/docs/html/images/shim.gif 2011/03/06 15:55:55 NONE +++ /project/definer/cvsroot/definer/docs/html/images/shim.gif 2011/03/06 15:55:55 1.1 GIF89a?!?,D; From mantoniotti at common-lisp.net Sun Mar 6 15:59:00 2011 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Sun, 06 Mar 2011 10:59:00 -0500 Subject: [definer-cvs] CVS update: Message-ID: Update of /project/definer/cvsroot/CVSROOT In directory cl-net:/tmp/cvs-serv15126/CVSROOT Modified Files: modules Log Message: Modified Files: CVSROOT/modules Date: Sun Mar 6 10:59:00 2011 Author: mantoniotti From mantoniotti at common-lisp.net Sun Mar 6 16:37:34 2011 From: mantoniotti at common-lisp.net (Marco Antoniotti) Date: Sun, 06 Mar 2011 11:37:34 -0500 Subject: [definer-cvs] CVS update: CVSROOT/modules Message-ID: Update of /project/definer/cvsroot/CVSROOT In directory cl-net:/tmp/cvs-serv25311 Modified Files: modules Log Message: Changed 'html' module definition. Date: Sun Mar 6 11:37:34 2011 Author: mantoniotti Index: CVSROOT/modules diff -u CVSROOT/modules:1.2 CVSROOT/modules:1.3 --- CVSROOT/modules:1.2 Sun Mar 6 10:59:00 2011 +++ CVSROOT/modules Sun Mar 6 11:37:34 2011 @@ -25,6 +25,6 @@ # can be useful for creating a module that consists of many directories # spread out over the entire source repository. -html docs/html +html definer/docs/html # end of file -- modules --