home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 8
/
FreshFishVol8-CD1.bin
/
new
/
util
/
edit
/
jade
/
src
/
commandline.c
< prev
next >
Wrap
C/C++ Source or Header
|
1994-07-03
|
2KB
|
69 lines
/* commandline.c -- Braindead prompt
Copyright (C) 1993, 1994 John Harper <jsh@ukc.ac.uk>
This file is part of Jade.
Jade is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
Jade 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 General Public License for more details.
You should have received a copy of the GNU General Public License
along with Jade; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "jade.h"
#include "jade_protos.h"
#include <string.h>
_PR void commandline_init(void);
_PR void commandline_kill(void);
_PR u_char *last_prompted; /* one line history */
u_char *last_prompted;
_PR VALUE cmd_prompt(VALUE prompt, VALUE string);
DEFUN("prompt", cmd_prompt, subr_prompt, (VALUE prompt, VALUE string), V_Subr2, DOC_prompt) /*
::doc:prompt::
prompt PROMPT [STRING]
Displays PROMPT and waits for the user to enter a string, which is
then returned. If STRING is provided it is used as the starting value
of the string.
::end:: */
{
u_char *str = NULL;
VALUE res;
DECLARE1(prompt, STRINGP);
if(STRINGP(string))
str = VSTR(string);
str = sys_prompt(curr_vw, VSTR(prompt), str);
if(str)
{
res = string_dup(str);
str_free(str);
return(res);
}
return(sym_nil);
}
void
commandline_init(void)
{
ADD_SUBR(subr_prompt);
}
void
commandline_kill(void)
{
if(last_prompted)
{
str_free(last_prompted);
last_prompted = NULL;
}
}