What API do you have in mind? The XGF utilities?
Incidentally, here's some code I wrote to allow a user to enter "^" to
interrupt a running process that's busy writing dots to the keyboard.
It's not exactly what you want, but it shows how to read input one
character at a time in a SAC compliant way and also turn echo on/off.
(The lock statements are a kludge and shouldn't be needed.)
WSTUP ; setup
;K DTOUT ;in case it is defined
S CSLTMP=$NA(^XTMP("CSLVEN"_MID))
D INITKB^XGF("*")
X ^%ZOSF("EOFF")
S TIMER=0,DELTA=1,DONE=0
S:+$G(TTW)'>0 TTW=DTIME
WLOOP ;
S YCHR=$$READ^XGF(1,1)
;R YCHR#1:1
;S:$G(YCHR)["^" DONE=1
I '$D(DTOUT) S:$G(YCHR)="^" DONE=1
L [EMAIL PROTECTED]@(0):0
L [EMAIL PROTECTED]@(0)
G:'$D(@CSLTMP@(0)) WLOOP2
L [EMAIL PROTECTED]@(0):0
S X=$P(@CSLTMP@(0),"^",3)
S:+X>0 DONE=1
S:+X>0 @CSLTMP@("TIMEFOUND")=$$NOW^XLFDT
L [EMAIL PROTECTED]@(0)
G:DONE WCLN
WLOOP2 ;
D:IO=IO(0)
.W ". " ;a 1 sec. wait is built into the # read
.;W:TIMER#2=0 ". "
S:$D(DTOUT) YCHR=""
S:YCHR["^" X=0
G:YCHR["^" WCLN
H DELTA
S TIMER=TIMER+DELTA
S:TIMER'<TTW X=0 ;timeout
G:TIMER'<TTW WCLN
G WLOOP
Q
WCLN ;
D RESETKB^XGF
X ^%ZOSF("EON")
Q $G(X)
--- steven mcphelan <[EMAIL PROTECTED]> wrote:
> Why not just use the Kernel API for this purpose?
>
> ----- Original Message -----
> From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
> To: "Hardhats Sourceforge" <[email protected]>
> Sent: Tuesday, March 08, 2005 11:13 PM
> Subject: [Hardhats-members] How do I do a silent read?
>
>
> > Hey all,
> >
> > I want to ask for a password, and echo *'s
> >
> > How do I do this?
> >
> > I.e.
> > for i=1:1:8 read *S write "*"
> >
> > gives:
> > a*b*c*d*e*f*g*h*
> >
> > How do I hide the letters?
> >
> > Thanks
> > Kevin
> >
> > P.S., what I really want to do is to compare the
> > user's input to the electronic signiture code stored
> > in the ELECTRONIC SIGNITURE CODE in file 200. Is
> > there a Fileman way of doing this? I just want to
> > ensure that the user knows the password.
> >
> > Thanks
> > Kevin
> >
> >
> >
> >
> >
> > __________________________________
> > Celebrate Yahoo!'s 10th Birthday!
> > Yahoo! Netrospective: 100 Moments of the Web
> > http://birthday.yahoo.com/netrospective/
> >
> >
> > -------------------------------------------------------
> > SF email is sponsored by - The IT Product Guide
> > Read honest & candid reviews on hundreds of IT Products from real
> users.
> > Discover which products truly live up to the hype. Start reading
> now.
> > http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> > _______________________________________________
> > Hardhats-members mailing list
> > [email protected]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
>
> -------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT Products from real
> users.
> Discover which products truly live up to the hype. Start reading now.
> http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> _______________________________________________
> Hardhats-members mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
=====
A practical man is a man who practices the errors of his forefathers.
--Benjamin Disraeli
====
Greg Woodhouse
[EMAIL PROTECTED]
[EMAIL PROTECTED]
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
