3 %%% Miscellaneous functionality
5 %%% (c) 2015 Straylight/Edgeware
8 %%%----- Licensing notice ---------------------------------------------------
10 %%% This file is part of the Sensble Object Design, an object system for C.
12 %%% SOD is free software; you can redistribute it and/or modify
13 %%% it under the terms of the GNU General Public License as published by
14 %%% the Free Software Foundation; either version 2 of the License, or
15 %%% (at your option) any later version.
17 %%% SOD is distributed in the hope that it will be useful,
18 %%% but WITHOUT ANY WARRANTY; without even the implied warranty of
19 %%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 %%% GNU General Public License for more details.
22 %%% You should have received a copy of the GNU General Public License
23 %%% along with SOD; if not, write to the Free Software Foundation,
24 %%% Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
26 \chapter{Miscellaneous functionality
} \label{ch:misc
}
28 %%%--------------------------------------------------------------------------
29 \section{Utilities
} \label{sec:misc.utilities
}
31 These symbols are defined in the @|sod-utilities| package.
34 {with-gensyms (@
{ @<var> @! (@<var> @
[@<name>@
]) @
}^*) \\
\ind
39 {once-only (@
[[ :environment @<env> @
]]
40 @
{ @<var> @! (@<var> @
[@<value-form>@
]) @
}^*) \\
\ind
45 {parse-body @<body> @> @<doc-string> @<declarations> @<body-forms>
}
48 \begin{describe
}{sym
}{it
}
51 \begin{describe
}{mac
}{aif @<condition> @<consequent> @
[@<alt>@
]}
54 \begin{describe
}{mac
}{awhen @<condition> @<body-form>^*
}
57 \begin{describe
}{mac
}{acond @
{ (@<condition> @<form>^*) @
}^*
}
62 {acase @<scrutinee> @
{ (@
{ @<case> @! (@<case>^*) @
} @<form>^*) @
}^*
}
64 {aecase @<scrutinee> @
{ (@
{ @<case> @! (@<case>^*) @
} @<form>^*) @
}^*
}
65 \dhead{mac
}{atypecase @<scrutinee> @
{ (@<type> @<form>^*) @
}^*
}
66 \dhead{mac
}{aetypecase @<scrutinee> @
{ (@<type> @<form>^*) @
}^*
}}
69 \begin{describe
}{mac
}{asetf @
{ @<place> @<value> @
}^*
}
72 \begin{describe
}{gf
}{instance-initargs @<instance>
}
76 {\dhead{fun
}{copy-instance @<instance> \&rest @<initargs>
}
77 \dhead{gf
}{copy-instance-using-class @<class> @<instance>
82 {\dhead{gf
}{generic-function-methods @<generic-function> @> @<list>
}
83 \dhead{gf
}{method-specializers @<method> @> @<list>
}
84 \dhead{cls
}{eql-specializer
}
85 \dhead{gf
}{eql-specializer-object @<specializer> @> @<value>
}}
88 \begin{describe
}{fun
}{make-list-builder \&optional @<initial> @> @<builder>
}
91 \begin{describe
}{fun
}{lbuild-add @<builder> @<item> @> @<builder>
}
94 \begin{describe
}{fun
}{lbuild-add-list @<builder> @<list> @> @<builder>
}
97 \begin{describe
}{fun
}{lbuild-list @<builder> @> @<list>
}
100 \begin{describe
}{fun
}
101 {mappend @<function> @<list> \&rest @<more-lists> @> @<result-list>
}
104 \begin{describe
}{cls
}{inconsistent-merge-error (error) \&key :candidates
}
107 \begin{describe
}{gf
}{merge-error-candidates @<error> @> @<list>
}
110 \begin{describe
}{fun
}
111 {merge-lists @<lists> \&key :pick (:test \#'eql) @> @<list>
}
114 \begin{describe
}{mac
}
115 {categorize (\=@<item-var> @<items>
116 @
[[ :bind (@
{ @<var> @! (@<var> @
[@<value>@
]) @
}^*) @
]])
118 (@
{ @<cat-var> @<cat-predicate> @
}^*) \- \\
123 \begin{describe
}{fun
}
124 {frob-identifier @<string> \&key :swap-case :swap-hyphen
125 @> @<frobbed-string>
}
128 \begin{describe
}{fun
}{whitespace-char-p @<character> @> @<generic-function>
}
131 \begin{describe
}{fun
}
132 {update-position @<character> @<line> @<column>
133 @> @<new-line> @<new-column>
}
136 \begin{describe
}{fun
}
137 {backtrack-position @<character> @<line> @<column>
138 @> @<old-line> @<old-column>
}
141 \begin{describe
}{fun
}
142 {compose @<function> \&rest @<more-functions> @> @<function>
}
145 \begin{describe
}{fun
}{symbolicate \&rest @<symbols> @> @<symbol>
}
148 \begin{describe
}{mac
}
149 {maybe-print-unreadable-object (@<object> @<stream>
151 :identity @<identity> @
]]) \\
\ind
155 \begin{describe
}{mac
}
156 {dosequence (@<var> @<sequence>
157 @
[[ :start @<start> @! :end @<end> @!
158 :indexvar @<var> @
]]) \\
\ind
159 @
{ @<tag> @! @<body-form> @
}^*
}
162 \begin{describe
}{mac
}
163 {define-access-wrapper @<from> @<to>
164 @
[[ :read-only @<read-only-flag> @
]]}
167 \begin{describe
}{mac
}
168 {default-slot (@<instance> @<slot> @
[@<slot-names>@
]) \\
\ind
172 \begin{describe
}{mac
}
173 {define-on-demand-slot @<class> @<slot> (@<instance>) \\
\ind
177 %%%--------------------------------------------------------------------------
178 \section{Condition utilities
} \label{sec:misc.condition
}
180 These symbols are defined in the @|sod-parser| package.
182 \begin{describe
}{cls
}{enclosing-condition (condition) \&key :condition
}
186 {enclosed-condition @<enclosing-condition> @> @<condition>
}
189 \begin{describe
}{fun
}{cerror* @<datum> \&rest @<arguments>
}
192 %%%--------------------------------------------------------------------------
193 \section{Option parser
} \label{sec:misc.optparse
}
195 These symbols are defined in the @!optparse| package.
197 \begin{describe
}{fun
}{exit \&optional (@<code>
0) \&key :abrupt
}
200 \begin{describe
}{var
}{*program-name*
}
203 \begin{describe
}{var
}{*command-line*
}
206 \begin{describe
}{fun
}{set-command-line-arguments
}
209 \begin{describe
}{cls
}{loc
}
212 \begin{describe
}{fun
}{locp @<object> @> @<generalized-boolean>
}
215 \begin{describe
}{macro
}{locf @<place> @> @<locative>
}
219 {\dhead{fun
}{ref @<locative> @> @<value>
}
220 \dhead{fun
}{setf (ref @<locative>) @<value>
}}
223 \begin{describe
}{mac
}
225 @
{ @<var> @! (@
{ @<var> @!
226 (@<var> @
[@<locative>@
]) @
}^*) @
} \\
\ind
230 \begin{describe
}{fun
}{moan @<format-string> \&rest @<format-args>
}
233 \begin{describe
}{fun
}{die @<format-string> \&rest @<format-args>
}
236 \begin{describe
}{var
}{*options*
}
239 \begin{describe
}{cls
}{option
}
242 \begin{describe
}{fun
}{optionp @<object> @> @<generalized-boolean>
}
245 \begin{describe
}{fun
}
246 {make-option \=@<long-name> @<short-name> \+ \\
247 \&optional @<arg-name> \\
248 \&key :tag :negated-tag :arg-optional-p :documentation \-
253 {\dhead{fun
}{opt-short-name @<option> @> @<character-or-null>
}
254 \dhead{fun
}{setf (opt-short-name @<option>) @<character-or-null>
}
255 \dhead{fun
}{opt-long-name @<option> @> @<string-or-null>
}
256 \dhead{fun
}{setf (opt-long-name @<option>) @<string-or-null>
}
257 \dhead{fun
}{opt-tag @<option> @> @<tag>
}
258 \dhead{fun
}{setf (opt-tag @<option>) @<tag>
}
259 \dhead{fun
}{opt-negated-tag @<option> @> @<tag>
}
260 \dhead{fun
}{setf (opt-negated-tag @<option>) @<tag>
}
261 \dhead{fun
}{opt-arg-name @<option> @> @<string-or-null>
}
262 \dhead{fun
}{setf (opt-arg-name @<option>) @<string-or-null>
}
263 \dhead{fun
}{opt-optional-p @<option> @> @<generalized-boolean>
}
264 \dhead{fun
}{setf (opt-optional-p @<option>) @<generalized-boolean>
}
265 \dhead{fun
}{opt-documentation @<option> @> @<string-or-null>
}
266 \dhead{fun
}{setf (opt-documentation @<option>) @<string-or-null>
}}
269 \begin{describe
}{cls
}{option-parser
}
272 \begin{describe
}{fun
}{option-parser-p @<object> @> @<generalized-boolean>
}
275 \begin{describe
}{fun
}
276 {make-option-parser \&key \=:args :options :non-option :numericp \+ \\
277 :negated-numeric-p long-only-p \-
278 \nlret @<option-parser>
}
282 {\dhead{fun
}{op-options @<option-parser> @> @<list>
}
283 \dhead{fun
}{setf (op-options @<option-parser>) @<list>
}
284 \dhead{fun
}{op-non-option @<option-parser> @> @<action>
}
285 \dhead{fun
}{setf (op-non-option @<option-parser>) @<action>
}
286 \dhead{fun
}{op-long-only-p @<option-parser> @> @<generalized-boolean>
}
287 \dhead{fun
}{setf (op-long-only-p @<option-parser>) @<generalized-boolean>
}
288 \dhead{fun
}{op-numeric-p @<option-parser> @> @<generalized-boolean>
}
289 \dhead{fun
}{setf (op-numeric-p @<option-parser>) @<generalized-boolean>
}
290 \dhead{fun
}{op-negated-numeric-p @<option-parser> @<generalized-boolean>
}
291 \dhead{fun
}{setf (op-negated-numeric-p @<option-parser>) @<generalized-boolean>
}
292 \dhead{fun
}{op-negated-p @<option-parser> @> @<generalized-boolean>
}
293 \dhead{fun
}{setf (op-negated-p @<option-parser>) @<generalized-boolean>
}}
296 \begin{describe
}{cls
}
297 {option-parse-error (error simple-condition)
298 \&key :format-control :format-arguments
}
301 \begin{describe
}{fun
}{option-parse-remainder @<option-parser>
}
304 \begin{describe
}{fun
}{option-parse-return @<tag> \&optional @<argument>
}
307 \begin{describe
}{fun
}{option-parse-next @<option-parser>
}
310 \begin{describe
}{mac
}{option-parse-try @<body-form>^*
}
313 \begin{describe
}{mac
}{with-unix-error-reporting () @<body-form>^*
}
316 \begin{describe
}{mac
}
317 {defopthandler @<name> (@<var> @
[@<arg>@
]) @<lambda-list> \\
\ind
321 \begin{describe
}{fun
}
322 {invoke-option-handler @<handler> @<locative> @<arg> @<arguments>
}
325 \begin{describe
}{opt
}{set \&optional @<value>
}
328 \begin{describe
}{opt
}{clear \&optional @<value>
}
331 \begin{describe
}{opt
}{inc \&optional @<maximum> @<step>
}
334 \begin{describe
}{opt
}{dec \&optional <minimum> <step>
}
337 \begin{describe
}{opt
}{read
}
340 \begin{describe
}{opt
}{int \&key :radix :min :max
}
343 \begin{describe
}{opt
}{string
}
346 \begin{describe
}{opt
}{keyword \&optional @<valid>
}
349 \begin{describe
}{opt
}{list \&optional @<handler> \&rest @<handler-args>
}
352 \begin{describe
}{mac
}{defoptmacro @<name> @<lambda-list> @<body-form>^*
}
355 \begin{describe
}{fun
}{parse-option-form @<form>
}
358 \begin{describe
}{mac
}
359 {options @
{ \=@<string> @! \+ \\
360 @<option-macro> @! (@<option-macro> @<macro-arg>^*) @! \\
361 (@
[[ \=@<character> @! (:short-name @<character>) @! \+ \\
362 @<string>^* @! @<symbol> @! @<rational> @!
363 (:long-name @<string>) @! \\
364 (@<string> @<format-arg>^+) @!
365 (:doc @<string> @<format-arg>^*) @! \\
366 (:opt-arg @<arg-name>) @! \\
367 @<keyword> @! (:tag @<tag>) @!
368 (:negated-tag @<tag>) @! \\
369 @
{ (@<handler> @<var> @<handler-arg>^*) @
}^* @
]]) @
}^*
}
372 \begin{describe
}{fun
}
373 {simple-usage @<option-list> \&optional @<mandatory-args> @> @<list>
}
376 \begin{describe
}{fun
}{show-usage @<prog> @<usage> \&optional @<stream>
}
379 \begin{describe
}{fun
}
380 {show-help @<prog> @<usage> @<option-list> \&optional @<stream>
}
383 \begin{describe
}{fun
}{sanity-check-option-list @<option-list>
}
388 \dhead{var
}{*version*
}
389 \dhead{var
}{*usage*
}}
392 \begin{describe
}{fun
}{do-usage \&optional @<stream>
}
395 \begin{describe
}{fun
}{die-usage
}
398 \begin{describe
}{optmac
}
399 {help-options \&key :short-help :short-version :short-usage
}
402 \begin{describe
}{fun
}
403 {define-program \&key \=:program-name \+ \\
404 :help :version :usage :full-usage \\
408 \begin{describe
}{mac
}
409 {do-options (@
[[ :parser @<option-parser> @
]]) \\
\ind
410 @
{ (@
{ @<case> @! (@<case>^*)@
} (@
[@
[@<opt-var>@
] @<arg-var>@
])
414 %%%--------------------------------------------------------------------------
415 \section{Property sets
} \label{sec:misc.pset
}
417 %%%--------------------------------------------------------------------------
418 \section{Miscellaneous translator features
} \label{sec:misc.pset
}
420 \begin{describe
}{var
}{*sod-version*
}
423 \begin{describe
}{var
}{*debugout-pathname*
}
426 \begin{describe
}{fun
}{test-module @<path> @<reason>
}
429 \begin{describe
}{fun
}{exercise
}
432 %%%----- That's all, folks --------------------------------------------------
436 %%% TeX-master: "sod.tex"