Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /impnotes/prompt.html [000000] .. [458129] Maximize Restore

  Switch to side-by-side view

--- a
+++ b/impnotes/prompt.html
@@ -0,0 +1,347 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
+<HTML
+><HEAD
+><TITLE
+>Extensions-1.8. The Prompt</TITLE
+><META
+NAME="GENERATOR"
+CONTENT="Modular DocBook HTML Stylesheet Version 1.76b+
+"><LINK
+REV="MADE"
+HREF="mailto:clisp-list@sf.net"><LINK
+REL="HOME"
+TITLE="Implementation Notes for GNU CLISP."
+HREF="impnotes-top.html"><LINK
+REL="UP"
+TITLE="Extensions-1: Platform independent Extensions"
+HREF="p-indep.html"><LINK
+REL="PREVIOUS"
+TITLE="Extensions-1.7. Finalization"
+HREF="final.html"><LINK
+REL="NEXT"
+TITLE="Extensions-1.9. Maximum ANSI CL compliance"
+HREF="ansi.html"><LINK
+REL="STYLESHEET"
+TYPE="text/css"
+HREF="impnotes.css"></HEAD
+><BODY
+CLASS="section"
+BGCOLOR="#FFFFFF"
+TEXT="#000000"
+LINK="#0000FF"
+VLINK="#840084"
+ALINK="#0000FF"
+><DIV
+CLASS="NAVHEADER"
+><TABLE
+SUMMARY="Header navigation table"
+WIDTH="100%"
+BORDER="0"
+CELLPADDING="0"
+CELLSPACING="0"
+><TR
+><TH
+COLSPAN="3"
+ALIGN="center"
+>Implementation Notes for <A
+HREF="http://www.gnu.org"
+TARGET="_top"
+>GNU</A
+> <A
+HREF="http://clisp.cons.org"
+TARGET="_top"
+><B
+CLASS="command"
+>CLISP</B
+></A
+>.: These notes document <A
+HREF="http://clisp.cons.org"
+TARGET="_top"
+><B
+CLASS="command"
+>CLISP</B
+></A
+> version 2.31.</TH
+></TR
+><TR
+><TD
+WIDTH="10%"
+ALIGN="left"
+VALIGN="bottom"
+><A
+HREF="final.html"
+ACCESSKEY="P"
+>Prev</A
+></TD
+><TD
+WIDTH="80%"
+ALIGN="center"
+VALIGN="bottom"
+>Chapter 29. Extensions-1: Platform independent Extensions</TD
+><TD
+WIDTH="10%"
+ALIGN="right"
+VALIGN="bottom"
+><A
+HREF="ansi.html"
+ACCESSKEY="N"
+>Next</A
+></TD
+></TR
+></TABLE
+><HR
+ALIGN="LEFT"
+WIDTH="100%"></DIV
+><DIV
+CLASS="section"
+><H1
+CLASS="section"
+><A
+NAME="prompt"
+></A
+>29.8. Extensions-1.8. The Prompt</H1
+><P
+ALIGN="justify"
+>The variable <STRONG
+CLASS="FIRST"
+><I
+CLASS="firstterm"
+><A
+HREF="prompt.html"
+><TT
+CLASS="varname"
+>CUSTOM:*PROMPT*</TT
+></A
+></I
+></STRONG
+> controls
+ the appearance of the prompt.  When its value is a function, it is
+ called and its value is printed with <A
+HREF="http://www.lisp.org/HyperSpec/Body/fun_writecm_p_rintcm_princ.html"
+TARGET="_top"
+><TT
+CLASS="function"
+>PRINC</TT
+></A
+>.  Otherwise, the value
+ itself is printed with <A
+HREF="http://www.lisp.org/HyperSpec/Body/fun_writecm_p_rintcm_princ.html"
+TARGET="_top"
+><TT
+CLASS="function"
+>PRINC</TT
+></A
+>.  The default value of <A
+HREF="prompt.html"
+><TT
+CLASS="varname"
+>CUSTOM:*PROMPT*</TT
+></A
+> prints
+ <TT
+CLASS="prompt"
+>"package[n]&#62;�"</TT
+> where <TT
+CLASS="replaceable"
+><I
+>package</I
+></TT
+> is the shortest
+ (nick)name of the current package <A
+HREF="http://www.lisp.org/HyperSpec/Body/var_stpackagest.html"
+TARGET="_top"
+><TT
+CLASS="varname"
+>*PACKAGE*</TT
+></A
+> if it is <I
+CLASS="emphasis"
+>not</I
+> the
+ same as it was in the beginning or if it does not contain symbol <A
+HREF="http://www.lisp.org/HyperSpec/Body/convar_t.html"
+TARGET="_top"
+><TT
+CLASS="constant"
+>T</TT
+></A
+>
+ (it is assumed that in the latter case you would want to keep in mind
+ that your current package is something weird);
+ and <TT
+CLASS="replaceable"
+><I
+>n</I
+></TT
+> is the ordinal number of the current prompt
+ (hopefully, it will remain finite).
+ To help you in constructing your own fancy prompts, two
+ functions and one variable are provided:
+ <P
+></P
+><DIV
+CLASS="variablelist"
+><DL
+><DT
+>function
+    <TT
+CLASS="function"
+>EXT:PROMPT-NEW-PACKAGE</TT
+></DT
+><DD
+><P
+ALIGN="justify"
+>returns <A
+HREF="http://www.lisp.org/HyperSpec/Body/var_stpackagest.html"
+TARGET="_top"
+><TT
+CLASS="varname"
+>*PACKAGE*</TT
+></A
+> or <A
+HREF="http://www.lisp.org/HyperSpec/Body/convar_nil.html"
+TARGET="_top"
+><TT
+CLASS="constant"
+>NIL</TT
+></A
+> if the current
+     package is the same as it was initially
+  </P
+></DD
+><DT
+>function
+    <TT
+CLASS="function"
+>EXT:PACKAGE-SHORT-NAME</TT
+></DT
+><DD
+><P
+ALIGN="justify"
+>takes one argument, a package, and returns its
+     shortest name or nickname</P
+></DD
+><DT
+>variable <TT
+CLASS="varname"
+>EXT:*COMMAND-INDEX*</TT
+></DT
+><DD
+><P
+ALIGN="justify"
+>contains the current prompt number;
+     it is your responsibility to increment it
+     (this variable is bound to 0 before saving the <A
+HREF="p-indep.html#image"
+>memory image</A
+>).
+  </P
+></DD
+></DL
+></DIV
+></P
+></DIV
+><DIV
+CLASS="NAVFOOTER"
+><HR
+ALIGN="LEFT"
+WIDTH="100%"><TABLE
+SUMMARY="Footer navigation table"
+WIDTH="100%"
+BORDER="0"
+CELLPADDING="0"
+CELLSPACING="0"
+><TR
+><TD
+WIDTH="33%"
+ALIGN="left"
+VALIGN="top"
+><A
+HREF="final.html"
+ACCESSKEY="P"
+>Prev</A
+></TD
+><TD
+WIDTH="34%"
+ALIGN="center"
+VALIGN="top"
+><A
+HREF="impnotes-top.html"
+ACCESSKEY="H"
+>Home</A
+></TD
+><TD
+WIDTH="33%"
+ALIGN="right"
+VALIGN="top"
+><A
+HREF="ansi.html"
+ACCESSKEY="N"
+>Next</A
+></TD
+></TR
+><TR
+><TD
+WIDTH="33%"
+ALIGN="left"
+VALIGN="top"
+>Extensions-1.7. Finalization</TD
+><TD
+WIDTH="34%"
+ALIGN="center"
+VALIGN="top"
+><A
+HREF="p-indep.html"
+ACCESSKEY="U"
+>Up</A
+></TD
+><TD
+WIDTH="33%"
+ALIGN="right"
+VALIGN="top"
+>Extensions-1.9. Maximum ANSI CL compliance</TD
+></TR
+></TABLE
+></DIV
+><div
+class="custom-footer"
+><hr
+width="100%"><table
+width="100%"
+><tr
+><td
+align="left"
+><a
+href="http://clisp.cons.org"
+><img
+src="clisp.png"
+width="48"
+height="48"
+alt="[CLISP home]"></a
+></td
+><td
+align="center"
+><a
+href="http://www.gnu.org"
+><img
+src="http://www.gnu.org/graphics/gnubanner.jpg"
+width="468"
+height="60"
+alt="[Come and see what GNU creates for YOU]"></a
+></td
+><td
+align="right"
+><a
+href="http://sourceforge.net"
+><img
+src="http://sourceforge.net/sflogo.php?group_id=1355&amp;type=2"
+width="125"
+height="37"
+alt="[SourceForge]"></a
+></td
+></tr
+></table
+></div
+></BODY
+></HTML
+>