Annotation of capa/capa51/CapaTools/CAPAscreen.pl, revision 1.1.1.1
1.1 albertel 1: #!/usr/local/bin/perl
2:
3: # -----------------------------------------------------------------------------
4: #
5: # Some routines to facilitate creation of
6: # vt100 pseudo-menu driven interface
7: #
8: # Works under xterm, shelltool, but not commandtool.
9: #
10: # by Isaac Tsai
11: # -----------------------------------------------------------------------------
12: #
13: sub C_ClearScreen { print "\e[;H\e[2J"; }
14: sub C_EraseLine { print "\e[K"; }
15: sub C_MoveTo { local($y,$x)=@_; print "\e[$y;$x"; print "H"; }
16: sub C_MakeBox {
17: local($y1,$x1,$y2,$x2,$title)=@_;
18: local($wd)=$x2-$x1;
19: local($j,$tlen);
20:
21: if(x2 >= 0 && x2 <= 80) {
22: C_MoveTo($y1,$x1);
23: print "+"; print "-" x ($wd-1); print "+";
24: if( $title ne "" ) {
25: $tlen = length($title); $j = int($x1+($wd - $tlen)/2);
26: C_MoveTo($y1,$j); print $title;
27: }
28: for ($j=$y1+1;$j<$y2;$j++) {
29: C_MoveTo($j,$x1);
30: print "|"; print " " x ($wd-1) ; print "|";
31: }
32: C_MoveTo($y2,$x1);
33: print "+"; print "-" x ($wd-1); print "+";
34: }
35: }
36:
37: # the coordnate of the upper left corner (y, x)
38: # the width of the box
39: # one line message appear on a separate top box
40: # one line title on top of the choice box
41: # choice list
42: sub C_MultipleChoice {
43: local($y1,$x1,$wd,$msg,$title,@items)=@_;
44: local($item_cnt)=$#items;
45: local($j,$off_y,$idx,$u_in,$done,$msg_out);
46: $idx="1"; $off_y = 0;
47:
48: C_ClearScreen;
49: if( $msg ne "" ) {
50: # C_MakeBox($y1,$x1,$y1+2,$x1+length($msg)+2);
51: C_MakeBox($y1,$x1,$y1+2,$x1+$wd);
52: C_MoveTo($y1+1,$x1+1); print $msg;
53: $off_y = 4;
54: }
55: C_MakeBox($y1+$off_y,$x1,$y1+$off_y+$item_cnt+5,$x1+$wd,$title);
56: for ($j=0;$j<=$item_cnt;$j++) {
57: C_MoveTo($y1+$off_y+$j+2,$x1+2); printf "%2d: %s", $idx,$items[$j];
58: $idx++;
59: }
60: $off_y = $off_y + 4;
61: $done = 0;
62: while ( $done ne "y" && $done ne "yes" ) {
63: $u_in=0;
64: while ($u_in < 1 || $u_in > $item_cnt+1 || $u_in =~ /\D/ || $u_in == "") {
65: C_MoveTo($y1+$off_y+$item_cnt,$x1+1); &C_EraseLine;
66: C_MoveTo($y1+$off_y+$item_cnt,$x1+1); print "SELECT:" . " " x ($wd-8) . "|";
67: C_MoveTo($y1+$off_y+$item_cnt,$x1+8);
68: $u_in=<>; chop($u_in);
69: }
70: $msg_out = "Selected item: " . $u_in . " $items[$u_in-1]" . ", (Y <RETURN>, or N)? ";
71: $j = length($msg_out);
72: C_MoveTo($y1+$off_y+$item_cnt+2,$x1); &C_EraseLine;
73: C_MoveTo($y1+$off_y+$item_cnt+2,$x1);
74: print $msg_out;
75: C_MoveTo($y1+$off_y+$item_cnt+2,$x1+$j);
76: $done=<>; chop($done); $done =~ tr/A-Z/a-z/;
77: if( length($done) == 0 ) { $done = 'y'; };
78: }
79: return $u_in;
80: }
81:
82: sub C_InputData {
83: local($y,$x,$wd,$title,$limit_len,$prompt,@msgs)=@_;
84: local($line_cnt)=$#msgs;
85: local($done);
86: local($jj,$prom_length);
87: local($input,$in_len,$msgout,$msglen);
88:
89: C_ClearScreen;
90: C_MakeBox($y,$x,$y+$line_cnt+2,$x+$wd,$title);
91: for($jj=0;$jj<=$line_cnt;$jj++) {
92: C_MoveTo($y+$jj+1,$x+1); print " $msgs[$jj]";
93: }
94: C_MakeBox($y+$line_cnt+4,$x,$y+$line_cnt+6,$x+$wd,"");
95: C_MoveTo($y+$line_cnt+5,$x+1); print $prompt;
96: $done = 0; $prom_length = length($prompt);
97: while( $done ne "y" && $done ne "yes" ) {
98: $in_len = 0;
99: while(($in_len < 1) || ($in_len > $limit_len) ) {
100: C_MoveTo($y+$line_cnt+5, $x+length($prompt)+1); &C_EraseLine;
101: C_MoveTo($y+$line_cnt+5, $x+1);
102: print $prompt . " " x ($wd - $prom_length - 1) . "|";
103: C_MoveTo($y+$line_cnt+5, $x+length($prompt)+1);
104: $input = <>; chop($input); $in_len = length($input);
105: }
106: $msgout = "You entered:\'" . $input . "\', Are you sure (Y or N)? ";
107: C_MoveTo($y+$line_cnt+7,$x); &C_EraseLine;
108: C_MoveTo($y+$line_cnt+7,$x); print $msgout;
109: $msglen = length($msgout);
110: C_MoveTo($y+$line_cnt+7,$x+$msglen);
111: $done = <>; chop($done); $done =~ tr/A-Z/a-z/;
112: }
113: return $input;
114: }
115:
116: sub C_InputSetNum {
117: local($y,$x,$wd,$title,$limit_len,$prompt,@msgs)=@_;
118: local($line_cnt)=$#msgs;
119: local($done);
120: local($jj,$prom_length);
121: local($input,$in_len,$msgout,$msglen);
122:
123: C_ClearScreen;
124: C_MakeBox($y,$x,$y+$line_cnt+2,$x+$wd,$title);
125: for($jj=0;$jj<=$line_cnt;$jj++) {
126: C_MoveTo($y+$jj+1,$x+1); print " $msgs[$jj]";
127: }
128: C_MakeBox($y+$line_cnt+4,$x,$y+$line_cnt+6,$x+$wd,"");
129: C_MoveTo($y+$line_cnt+5,$x+1); print $prompt;
130: $done = 0; $prom_length = length($prompt);
131: while( $done ne "y" && $done ne "yes" ) {
132: $in_len = 0;
133: while(($in_len < 1) || ($in_len > $limit_len) ) {
134: C_MoveTo($y+$line_cnt+5, $x+length($prompt)+1); &C_EraseLine;
135: C_MoveTo($y+$line_cnt+5, $x+1);
136: print $prompt . " " x ($wd - $prom_length - 1) . "|";
137: C_MoveTo($y+$line_cnt+5, $x+length($prompt)+1);
138: $input = <>; chop($input); $in_len = length($input);
139: }
140: $msgout = "You entered:\'" . $input . "\', Confirm (Y <RETURN> or N)? ";
141: C_MoveTo($y+$line_cnt+7,$x); &C_EraseLine;
142: C_MoveTo($y+$line_cnt+7,$x); print $msgout;
143: $msglen = length($msgout);
144: C_MoveTo($y+$line_cnt+7,$x+$msglen);
145: $done = <>; chop($done); $done =~ tr/A-Z/a-z/;
146: if(length($done)==0) { $done = 'y'; }
147: }
148: return $input;
149: }
150:
151: sub C_InputStudentID {
152: local($y,$x,$wd,$title,$limit_len,$prompt,@msgs)=@_;
153: local($line_cnt)=$#msgs;
154: local($done);
155: local($jj,$prom_length);
156: local($input,$in_len,$msgout,$msglen,$input_ok);
157:
158: C_ClearScreen;
159: C_MakeBox($y,$x,$y+$line_cnt+2,$x+$wd,$title);
160: for($jj=0;$jj<=$line_cnt;$jj++) {
161: C_MoveTo($y+$jj+1,$x+1); print " $msgs[$jj]";
162: }
163: C_MakeBox($y+$line_cnt+4,$x,$y+$line_cnt+6,$x+$wd,"");
164: C_MoveTo($y+$line_cnt+5,$x+1); print $prompt;
165: $done = 0; $prom_length = length($prompt);
166: while( $done ne "y" && $done ne "yes" ) {
167: $in_len = 0; $input_ok = 0;
168: while( ! $input_ok ) {
169: C_MoveTo($y+$line_cnt+5, $x+length($prompt)+1); &C_EraseLine;
170: C_MoveTo($y+$line_cnt+5, $x+1);
171: print $prompt . " " x ($wd - $prom_length - 1) . "|";
172: C_MoveTo($y+$line_cnt+5, $x+length($prompt)+1);
173: $input = <>; chop($input); $in_len = length($input);
174: if( $in_len <= $limit_len ) { $input_ok = 1; }
175: }
176: if( $in_len == 0 ) {
177: $msgout = "Exit this dialog? Confirm (Y <RETURN> or N)? ";
178: } else {
179: $msgout = "You entered:\'" . $input . "\', Confirm (Y <RETURN> or N)? ";
180: }
181: C_MoveTo($y+$line_cnt+7,$x); &C_EraseLine;
182: C_MoveTo($y+$line_cnt+7,$x); print $msgout;
183: $msglen = length($msgout);
184: C_MoveTo($y+$line_cnt+7,$x+$msglen);
185: $done = <>; chop($done); $done =~ tr/A-Z/a-z/;
186: if(length($done)==0) { $done = 'y'; }
187: }
188: return $input;
189: }
190:
191:
192:
193: sub C_InputFromToNum {
194: local($y,$x,$wd,$title,$limit_len,$prompt,@msgs)=@_;
195: local($line_cnt)=$#msgs;
196: local($done);
197: local($jj,$prom_length);
198: local($input,$in_len,$msgout,$msglen);
199:
200: C_ClearScreen;
201: C_MakeBox($y,$x,$y+$line_cnt+2,$x+$wd,$title);
202: for($jj=0;$jj<=$line_cnt;$jj++) {
203: C_MoveTo($y+$jj+1,$x+1); print " $msgs[$jj]";
204: }
205: C_MakeBox($y+$line_cnt+4,$x,$y+$line_cnt+6,$x+$wd,"");
206: C_MoveTo($y+$line_cnt+5,$x+1); print $prompt;
207: $done = 0; $prom_length = length($prompt);
208: while( $done ne "y" && $done ne "yes" ) {
209: $in_len = 0;
210: while(($in_len < 1) || ($in_len > $limit_len) ) {
211: C_MoveTo($y+$line_cnt+5, $x+length($prompt)+1); &C_EraseLine;
212: C_MoveTo($y+$line_cnt+5, $x+1);
213: print $prompt . " " x ($wd - $prom_length - 1) . "|";
214: C_MoveTo($y+$line_cnt+5, $x+length($prompt)+1);
215: $input = <>; chop($input); $in_len = length($input);
216: }
217: $msgout = "You entered:\'" . $input . "\', Confirm (Y <RETURN> or N)? ";
218: C_MoveTo($y+$line_cnt+7,$x); &C_EraseLine;
219: C_MoveTo($y+$line_cnt+7,$x); print $msgout;
220: $msglen = length($msgout);
221: C_MoveTo($y+$line_cnt+7,$x+$msglen);
222: $done = <>; chop($done); $done =~ tr/A-Z/a-z/;
223: if(length($done)==0) { $done = 'y'; }
224: }
225: return ($input);
226: }
227:
228:
229:
230: sub C_Warn {
231: local($y,$x,$wd,$title,@items)=@_;
232: local($item_cnt)=$#items;
233: local($j,$done);
234:
235: $wd = 25 if( $wd < 25 );
236: $done = 'n';
237: C_ClearScreen;
238: C_MakeBox($y,$x,$y+$item_cnt+5,$x+$wd,$title);
239: for ($j=0;$j<=$item_cnt;$j++) {
240: C_MoveTo($y+$j+2,$x+1); print " $items[$j]";
241: }
242: while( $done ne 'y' ) {
243: C_MoveTo($y+$item_cnt+4,$x+$wd-25); print "press Return to continue";
244: $done = <>; $done = 'y';
245: }
246: C_ClearScreen;
247: return 1;
248: }
249:
250:
251: sub C_MultilineMsgs {
252: local($y,$x,$wd,$title,$prompt,@msgs)=@_;
253: local($line_cnt)=$#msgs;
254: local($done);
255: local($jj);
256: local($len);
257:
258: C_ClearScreen;
259: $len = length($prompt);
260: C_MakeBox($y,$x,$y+$line_cnt+5,$x+$wd,$title);
261: for($jj=0;$jj<=$line_cnt;$jj++) {
262: C_MoveTo($y+$jj+2,$x+1); print " $msgs[$jj]";
263: }
264: C_MoveTo($y+$line_cnt+4,$x+$wd-$len-1); print $prompt;
265: $done = <>;
266: C_ClearScreen;
267: }
268:
269:
270: sub C_Pause {
271: local($done);
272:
273: print "Press RETURN to continue"; $done=<>;
274: }
275:
276:
277:
278: 1;
279:
280:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to CAPAscreen.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / CapaTools