510Connectbot: src/org/tn5250j/framework/tn5250/WTDSFParser.java annotate

annotate src/org/tn5250j/framework/tn5250/WTDSFParser.java @ 184:cdaaa53b5eca

setfield positions the cursor properly as if the characters were typed

author	Carl Byington <carl@five-ten-sg.com>
date	Wed, 02 Jul 2014 14:32:13 -0700
parents	77ac18bc1b2f
children

rev	line source
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	1 /**
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	2 * Title: tn5250J
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	3 * Copyright: Copyright (c) 2001
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	4 * Company:
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	5 * @author Kenneth J. Pouncey
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	6 * @version 0.5
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	7 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	8 * Description:
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	9 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	10 * This program is free software; you can redistribute it and/or modify
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	11 * it under the terms of the GNU General Public License as published by
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	12 * the Free Software Foundation; either version 2, or (at your option)
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	13 * any later version.
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	14 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	15 * This program is distributed in the hope that it will be useful,
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	18 * GNU General Public License for more details.
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	19 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	20 * You should have received a copy of the GNU General Public License
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	21 * along with this software; see the file COPYING. If not, write to
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	22 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	23 * Boston, MA 02111-1307 USA
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	24 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	25 */
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	26 package org.tn5250j.framework.tn5250;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	27
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	28 import static org.tn5250j.TN5250jConstants.BOTTOM;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	29 import static org.tn5250j.TN5250jConstants.GUI_LEFT;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	30 import static org.tn5250j.TN5250jConstants.GUI_RIGHT;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	31 import static org.tn5250j.TN5250jConstants.LOWER_LEFT;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	32 import static org.tn5250j.TN5250jConstants.LOWER_RIGHT;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	33 import static org.tn5250j.TN5250jConstants.NO_GUI;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	34 import static org.tn5250j.TN5250jConstants.NR_REQUEST_ERROR;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	35 import static org.tn5250j.TN5250jConstants.UPPER;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	36 import static org.tn5250j.TN5250jConstants.UPPER_LEFT;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	37 import static org.tn5250j.TN5250jConstants.UPPER_RIGHT;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	38
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	39 import java.util.ArrayList;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	40 import java.util.List;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	41
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	42 import org.tn5250j.encoding.ICodePage;
25 5949eb469a79 adding tn5250 files, native android logging Carl Byington <carl@five-ten-sg.com> parents: 3 diff changeset	43 import android.util.Log;
5949eb469a79 adding tn5250 files, native android logging Carl Byington <carl@five-ten-sg.com> parents: 3 diff changeset	44
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	45
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	46 /**
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	47 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	48 * Write To Display Structured Field:
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	49 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	50 * This module will parse the structured field information for enhanced
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	51 * emulation mode.
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	52 *
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	53 */
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	54 public class WTDSFParser {
27 b29b39f386a4 adding tn5250 files, native android logging Carl Byington <carl@five-ten-sg.com> parents: 25 diff changeset	55 private static final String TAG = "WTDSFParser";
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	56 private Screen5250 screen52;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	57 private tnvt vt;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	58 private ICodePage codePage;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	59 int pos;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	60 byte[] segment;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	61 int length;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	62 boolean error;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	63 boolean guiStructsExist;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	64
25 5949eb469a79 adding tn5250 files, native android logging Carl Byington <carl@five-ten-sg.com> parents: 3 diff changeset	65
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	66
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	67 private final List<Window> guiStructs = new ArrayList<Window>(3);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	68 private final List<ChoiceField> choices = new ArrayList<ChoiceField>(3);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	69
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	70
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	71 WTDSFParser(tnvt vt) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	72 this.vt = vt;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	73 screen52 = vt.screen52;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	74 codePage = vt.codePage;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	75 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	76
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	77 protected class ChoiceField {
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	78
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	79 int x;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	80 int y;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	81 int row;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	82 int col;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	83 int width;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	84 int height;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	85 char mnemonic;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	86 int fieldId;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	87 int selectIndex;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	88
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	89 ChoiceField(int row, int col, int fldRow, int fldCol) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	90 x = row;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	91 y = col;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	92 row = fldRow;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	93 col = fldCol;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	94 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	95 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	96
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	97 protected class Window {
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	98
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	99 byte[] window;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	100 int pos;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	101
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	102 Window(byte[] seg, int pos) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	103 //Log.i(TAG,"window created at " + pos);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	104 window = seg;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	105 this.pos = pos;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	106 guiStructsExist = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	107 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	108
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	109 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	110
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	111 protected void addChoiceField(int row, int col, int fldRow, int fldCol, String text) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	112 ChoiceField cf = new ChoiceField(row, col, fldRow, fldCol);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	113 cf.fieldId = screen52.getScreenFields().getCurrentField().getFieldId();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	114 choices.add(cf);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	115 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	116
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	117 protected boolean isGuisExists() {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	118 return guiStructsExist;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	119 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	120
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	121 protected byte[] getSegmentAtPos(int pos) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	122 int len = guiStructs.size();
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	123
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	124 for (int x = 0; x < len; x++) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	125 Window w = guiStructs.get(x);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	126
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	127 if (w.pos == pos)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	128 return w.window;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	129 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	130
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	131 return null;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	132 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	133
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	134 protected void clearGuiStructs() {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	135 guiStructs.clear();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	136 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	137
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	138 protected boolean parseWriteToDisplayStructuredField(byte[] seg) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	139 // bk = vt.bk;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	140 error = false;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	141 boolean done = false;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	142 boolean windowDefined = false;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	143 // int nextone;
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	144 pos = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	145 segment = seg;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	146 // try {
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	147 length = ((segment[pos++] & 0xff) << 8 \| (segment[pos++] & 0xff));
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	148
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	149 while (!done) {
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	150 int s = segment[pos++] & 0xff;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	151
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	152 switch (s) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	153 case 0xD9: // Class Type 0xD9 - Create Window
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	154 switch (segment[pos++]) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	155 case 0x50: // Define Selection Field
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	156 defineSelectionField(length);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	157 done = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	158 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	159
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	160 case 0x51: // Create Window
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	161 guiStructs.add(new Window(segment, screen52.getLastPos()));
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	162 boolean cr = false;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	163 int rows = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	164 int cols = 0;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	165
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	166 // pull down not supported yet
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	167 if ((segment[pos++] & 0x80) == 0x80)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	168 cr = true; // restrict cursor
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	169
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	170 pos++; // get reserved field pos 6
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	171 pos++; // get reserved field pos 7
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	172 rows = segment[pos++]; // get window depth rows pos 8
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	173 cols = segment[pos++]; // get window width cols pos 9
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	174 length -= 9;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	175
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	176 if (length == 0) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	177 done = true;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	178 // System.out.println("Create Window");
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	179 // System.out.println(" restrict cursor " + cr);
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	180 // System.out.println(" Depth = " + rows + " Width = " + cols);
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	181 // screen52.createWindow(rows,cols,1,true,32,58,
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	182 createWindow(rows, cols, 1, true, 32, 58,
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	183 '.',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	184 '.',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	185 '.',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	186 ':',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	187 ':',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	188 ':',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	189 '.',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	190 ':');
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	191 windowDefined = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	192 break;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	193 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	194
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	195 // pos 10 is Minor Structure
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	196 int ml = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	197 int type = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	198 int lastPos = screen52.getLastPos();
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	199 // if (cr)
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	200 // screen52.setPendingInsert(true,
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	201 // screen52.getCurrentRow(),
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	202 // screen52.getCurrentCol());
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	203 int mAttr = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	204 int cAttr = 0;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	205
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	206 while (length > 0) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	207 // get minor length
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	208 ml = (segment[pos++] & 0xff);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	209 length -= ml;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	210 // only normal windows are supported at this time
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	211 type = segment[pos++];
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	212
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	213 switch (type) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	214 case 0x01 : // Border presentation
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	215 boolean gui = false;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	216
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	217 if ((segment[pos++] & 0x80) == 0x80)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	218 gui = true;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	219
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	220 mAttr = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	221 cAttr = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	222 char ul = '.';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	223 char upper = '.';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	224 char ur = '.';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	225 char left = ':';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	226 char right = ':';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	227 char ll = ':';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	228 char bottom = '.';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	229 char lr = ':';
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	230
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	231 // if minor length is greater than 5 then
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	232 // the border characters are specified
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	233 if (ml > 5) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	234 ul = codePage.ebcdic2uni(segment[pos++]);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	235
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	236 // ul = getASCIIChar(segment[pos++]);
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	237 if (ul == 0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	238 ul = '.';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	239
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	240 upper = codePage.ebcdic2uni(segment[pos++]);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	241
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	242 // upper = getASCIIChar(segment[pos++]);
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	243 if (upper == 0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	244 upper = '.';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	245
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	246 ur = codePage.ebcdic2uni(segment[pos++]);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	247
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	248 // ur = getASCIIChar(segment[pos++]);
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	249 if (ur == 0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	250 ur = '.';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	251
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	252 left = codePage.ebcdic2uni(segment[pos++]);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	253
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	254 // left = getASCIIChar(segment[pos++]);
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	255 if (left == 0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	256 left = ':';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	257
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	258 right = codePage.ebcdic2uni(segment[pos++]);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	259
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	260 // right = getASCIIChar(segment[pos++]);
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	261 if (right == 0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	262 right = ':';
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	263
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	264 ll = codePage.ebcdic2uni(segment[pos++]);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	265
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	266 // ll = getASCIIChar(segment[pos++]);
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	267 if (ll == 0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	268 ll = ':';
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	269
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	270 bottom = codePage.ebcdic2uni(segment[pos++]);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	271
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	272 // bottom = getASCIIChar(segment[pos++]);
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	273 if (bottom == 0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	274 bottom = '.';
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	275
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	276 lr = codePage.ebcdic2uni(segment[pos++]);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	277
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	278 // lr = getASCIIChar(segment[pos++]);
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	279 if (lr == 0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	280 lr = ':';
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	281 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	282
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	283 // System.out.println("Create Window");
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	284 // System.out.println(" restrict cursor " + cr);
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	285 // System.out.println(" Depth = " + rows + " Width = " + cols);
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	286 // System.out.println(" type = " + type + " gui = " + gui);
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	287 // System.out.println(" mono attr = " + mAttr + " color attr = " + cAttr);
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	288 // System.out.println(" ul = " + ul + " upper = " + upper +
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	289 // " ur = " + ur +
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	290 // " left = " + left +
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	291 // " right = " + right +
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	292 // " ll = " + ll +
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	293 // " bottom = " + bottom +
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	294 // " lr = " + lr
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	295 // );
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	296 // screen52.createWindow(rows,cols,type,gui,mAttr,cAttr,
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	297 createWindow(rows, cols, type, gui, mAttr, cAttr,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	298 ul,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	299 upper,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	300 ur,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	301 left,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	302 right,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	303 ll,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	304 bottom,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	305 lr);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	306 windowDefined = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	307 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	308
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	309 //
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	310 // The following shows the input for window with a title
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	311 //
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	312 // +0000 019A12A0 00000400 00020411 00200107 .?.?..?...?..?.
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	313 // +0010 00000018 00000011 06131500 37D95180 ........?.?..R??
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	314 // +0020 00000A24 0D018023 23404040 40404040 ..??..???
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	315 // +0030 40211000 000000D7 C2C1D9C4 C5D4D67A \uFFFD.....PBARDEMO:
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	316 // +0040 40D79996 879985A2 A2408281 99408485 Progress bar de
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	317 // +0050 94961108 1520D5A4 94828599 40968640 mo.???Number of
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	318 // +0060 8595A399 8985A24B 4B4B4B4B 4B7A2011 entries......:?.
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	319 // +0070 082E2040 404040F5 F0F06BF0 F0F02011 ?.? 500,000?.
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	320 // +0080 091520C3 A4999985 95A34085 95A399A8 \uFFFD??Current entry
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	321 // +0090 4095A494 8285994B 4B4B7A20 11092E20 number...:?.\uFFFD.?
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	322 // +00A0 40404040 4040F56B F0F0F020 110A1520 5,000?.???
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	323 // +00B0 D9859481 89958995 87408595 A3998985 Remaining entrie
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	324 // +00C0 A24B4B4B 4B4B4B7A 20110A2E 20404040 s......:?.?.?
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	325 // +00D0 40F4F9F5 6BF0F0F0 20110C15 20E2A381 495,000?..??Sta
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	326 // +00E0 99A340A3 8994854B 4B4B4B4B 4B4B4B4B rt time.........
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	327 // +00F0 4B4B4B4B 7A20110C 2F2040F7 7AF5F37A ....:?...? 7:53:
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	328
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	329 case 0x10 : // Window title/footer
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	330 if (!windowDefined) {
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	331 // screen52.createWindow(rows,cols,1,true,32,58,
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	332 guiStructs.add(new Window(segment, screen52.getLastPos()));
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	333 createWindow(rows, cols, 1, true, 32, 58,
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	334 '.',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	335 '.',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	336 '.',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	337 ':',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	338 ':',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	339 ':',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	340 '.',
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	341 ':');
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	342 windowDefined = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	343 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	344
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	345 byte orientation = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	346 mAttr = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	347 cAttr = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	348 //reserved
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	349 pos++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	350 ml -= 6;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	351 StringBuffer hfBuffer = new StringBuffer(ml);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	352
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	353 while (ml-- > 0) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	354 //LDC - 13/02/2003 - Convert it to unicode
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	355 hfBuffer.append(codePage.ebcdic2uni(segment[pos++]));
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	356 // hfBuffer.append(getASCIIChar(segment[pos++]));
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	357 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	358
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	359 Log.d(TAG,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	360 " orientation " + Integer.toBinaryString(orientation) +
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	361 " mAttr " + mAttr +
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	362 " cAttr " + cAttr +
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	363 " Header/Footer " + hfBuffer);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	364 screen52.writeWindowTitle(lastPos,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	365 rows,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	366 cols,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	367 orientation,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	368 mAttr,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	369 cAttr,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	370 hfBuffer);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	371 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	372
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	373 default:
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	374 Log.w(TAG, "Invalid Window minor structure");
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	375 length = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	376 done = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	377 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	378 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	379
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	380 done = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	381 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	382
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	383 case 0x53: // Scroll Bar
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	384 int sblen = 15;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	385 byte sbflag = segment[pos++]; // flag position 5
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	386 pos++; // reserved position 6
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	387 // position 7,8
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	388 int totalRowScrollable = ((segment[pos++] & 0xff) << 8
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	389 \| (segment[pos++] & 0xff));
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	390 // position 9,10
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	391 int totalColScrollable = ((segment[pos++] & 0xff) << 8
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	392 \| (segment[pos++] & 0xff));
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	393 // position 11,12
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	394 int sliderRowPos = ((segment[pos++] & 0xff) << 8
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	395 \| (segment[pos++] & 0xff));
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	396 // position 13,14
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	397 int sliderColPos = ((segment[pos++] & 0xff) << 8
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	398 \| (segment[pos++] & 0xff));
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	399 // position 15
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	400 int sliderRC = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	401 screen52.createScrollBar(sbflag, totalRowScrollable,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	402 totalColScrollable,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	403 sliderRowPos,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	404 sliderColPos,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	405 sliderRC);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	406 length -= 15;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	407 done = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	408 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	409
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	410 case 0x5B: // Remove GUI ScrollBar field
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	411 pos++; // reserved must be set to off pos 5
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	412 pos++; // reserved must be set to zero pos 6
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	413 done = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	414 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	415
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	416 case 0x5F: // Remove All GUI Constructs
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	417 Log.i(TAG, "remove all gui contructs");
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	418 clearGuiStructs();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	419 guiStructsExist = false;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	420 int len = 4;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	421 int d = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	422 length -= s;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	423
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	424 while (--len > 0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	425 d = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	426
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	427 // if (length > 0) {
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	428 // len = (segment[pos++] & 0xff )<< 8;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	429 //
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	430 // while (--len > 0)
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	431 // d = segment[pos++];
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	432 // }
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	433 screen52.clearGuiStuff();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	434 // per 14.6.13.4 documentation we should clear the
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	435 // format table after this command
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	436 screen52.clearTable();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	437 done = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	438 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	439
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	440 case 0x59: // remove gui window
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	441 Log.i(TAG, " remove window at " + screen52.getCurrentPos());
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	442 done = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	443 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	444
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	445 case 0x60: // Erase/Draw Grid Lines - not supported
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	446 // do not know what they are
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	447 // as of 03/11/2002 we should not be getting
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	448 // this anymore but I will leave it here
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	449 // just in case.
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	450 // System.out.println("erase/draw grid lines " + length);
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	451 len = 6;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	452 d = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	453 length -= 9;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	454
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	455 while (--len > 0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	456 d = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	457
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	458 if (length > 0) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	459 len = (segment[pos++] & 0xff) << 8;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	460
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	461 while (--len > 0) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	462 d = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	463 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	464 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	465
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	466 done = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	467 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	468
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	469 default:
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	470 vt.sendNegResponse(NR_REQUEST_ERROR, 0x03, 0x01, 0x01, "invalid wtd structured field sub command "
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	471 + (pos - 1));
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	472 // + bk.getByteOffset(-1));
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	473 error = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	474 break;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	475 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	476
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	477 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	478
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	479 default:
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	480 vt.sendNegResponse(NR_REQUEST_ERROR, 0x03, 0x01, 0x01,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	481 "invalid wtd structured field command "
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	482 + (pos - 1));
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	483 // + bk.getByteOffset(-1));
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	484 error = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	485 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	486 }
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	487
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	488 if (error)
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	489 done = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	490 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	491
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	492 // }
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	493 // catch (Exception e) {};
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	494 return error;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	495 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	496
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	497 /**
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	498 * Creates a window on the screen
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	499 *
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	500 * @param depth
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	501 * @param width
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	502 * @param type
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	503 * @param gui
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	504 * @param monoAttr
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	505 * @param colorAttr
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	506 * @param ul
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	507 * @param upper
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	508 * @param ur
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	509 * @param left
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	510 * @param right
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	511 * @param ll
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	512 * @param bottom
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	513 * @param lr
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	514 */
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	515 protected void createWindow(int depth, int width, int type, boolean gui,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	516 int monoAttr, int colorAttr, int ul, int upper, int ur, int left,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	517 int right, int ll, int bottom, int lr) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	518 int lastPos = screen52.getLastPos();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	519 int numCols = screen52.getColumns();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	520 int c = screen52.getCol(lastPos);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	521 int w = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	522 width++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	523 w = width;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	524 char initChar = Screen5250.initChar;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	525 int initAttr = Screen5250.initAttr;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	526 // set leading attribute byte
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	527 screen52.setScreenCharAndAttr(initChar, initAttr, true);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	528
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	529 // set upper left
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	530 if (gui) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	531 screen52.setScreenCharAndAttr((char) ul, colorAttr, UPPER_LEFT, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	532 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	533 else {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	534 screen52.setScreenCharAndAttr((char) ul, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	535 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	536
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	537 // draw top row
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	538 while (w-- >= 0) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	539 if (gui) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	540 screen52.setScreenCharAndAttr((char) upper, colorAttr, UPPER, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	541 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	542 else {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	543 screen52.setScreenCharAndAttr((char) upper, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	544 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	545 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	546
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	547 // set upper right
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	548 if (gui) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	549 screen52.setScreenCharAndAttr((char) ur, colorAttr, UPPER_RIGHT, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	550 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	551 else {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	552 screen52.setScreenCharAndAttr((char) ur, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	553 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	554
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	555 // set ending attribute byte
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	556 screen52.setScreenCharAndAttr(initChar, initAttr, true);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	557 lastPos = ((screen52.getRow(lastPos) + 1) * numCols) + c;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	558 screen52.goto_XY(lastPos);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	559
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	560 // now handle body of window
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	561 while (depth-- > 0) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	562 // set leading attribute byte
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	563 screen52.setScreenCharAndAttr(initChar, initAttr, true);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	564
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	565 // set left
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	566 if (gui) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	567 screen52.setScreenCharAndAttr((char) left, colorAttr, GUI_LEFT, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	568 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	569 else {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	570 screen52.setScreenCharAndAttr((char) left, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	571 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	572
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	573 w = width - 2;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	574 screen52.setScreenCharAndAttr(initChar, initAttr, NO_GUI, true);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	575
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	576 // fill it in
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	577 while (w-- >= 0) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	578 // if (!planes.isUseGui(screen52.getLastPos()))
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	579 screen52.setScreenCharAndAttr(initChar, initAttr, NO_GUI, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	580 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	581
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	582 screen52.setScreenCharAndAttr(initChar, initAttr, NO_GUI, true);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	583
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	584 // set right
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	585 if (gui) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	586 screen52.setScreenCharAndAttr((char) right, colorAttr, GUI_RIGHT, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	587 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	588 else {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	589 screen52.setScreenCharAndAttr((char) right, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	590 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	591
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	592 screen52.setScreenCharAndAttr(initChar, initAttr, true);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	593 lastPos = ((screen52.getRow(lastPos) + 1) * numCols) + c;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	594 screen52.goto_XY(lastPos);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	595 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	596
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	597 // set leading attribute byte
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	598 screen52.setScreenCharAndAttr(initChar, initAttr, true);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	599
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	600 if (gui) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	601 screen52.setScreenCharAndAttr((char) ll, colorAttr, LOWER_LEFT, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	602 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	603 else {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	604 screen52.setScreenCharAndAttr((char) ll, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	605 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	606
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	607 w = width;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	608
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	609 // draw bottom row
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	610 while (w-- >= 0) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	611 if (gui) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	612 screen52.setScreenCharAndAttr((char) bottom, colorAttr, BOTTOM, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	613 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	614 else {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	615 screen52.setScreenCharAndAttr((char) bottom, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	616 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	617 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	618
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	619 // set lower right
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	620 if (gui) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	621 screen52.setScreenCharAndAttr((char) lr, colorAttr, LOWER_RIGHT, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	622 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	623 else {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	624 screen52.setScreenCharAndAttr((char) lr, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	625 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	626
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	627 // set ending attribute byte
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	628 screen52.setScreenCharAndAttr(initChar, initAttr, true);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	629 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	630
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	631 /* * NEVER USED LOCALLY ************************************************ */
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	632 // private void clearWindowBody(ScreenPlanes planes, int startPos, int depth, int width) {
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	633 //
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	634 // int lastPos = startPos;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	635 // char initChar = Screen5250.initChar;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	636 // int initAttr = Screen5250.initAttr;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	637 //
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	638 // // now handle body of window
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	639 // while (depth-- > 0) {
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	640 //
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	641 // // set leading attribute byte
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	642 //// planes.setScreenCharAndAttr(lastPos,initChar, initAttr, true);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	643 //// setDirty(lastPos);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	644 //// advancePos();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	645 ////
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	646 //// // set left
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	647 //// planes.setScreenCharAndAttr(lastPos, (char) left, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	648 ////
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	649 //// if (gui) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	650 //// planes.setUseGUI(lastPos,GUI_LEFT);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	651 //// }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	652 //// setDirty(lastPos);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	653 //// advancePos();
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	654 //
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	655 // int w = width;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	656 // // fill it in
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	657 // while (w-- >= 0) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	658 //// screen[lastPos].setCharAndAttr(initChar, initAttr, true);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	659 // planes.setScreenCharAndAttr(lastPos,initChar, initAttr, true);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	660 //// screen[lastPos].setUseGUI(NO_GUI);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	661 // planes.setUseGUI(lastPos,NO_GUI);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	662 //// setDirty(lastPos);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	663 // lastPos++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	664 // advancePos();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	665 // }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	666 //
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	667 //// // set right
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	668 //// // screen[lastPos].setCharAndAttr((char) right, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	669 //// planes.setScreenCharAndAttr(lastPos,(char) right, colorAttr, false);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	670 //// if (gui) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	671 //// // screen[lastPos].setUseGUI(RIGHT);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	672 //// planes.setUseGUI(lastPos,GUI_RIGHT);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	673 //// }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	674 ////
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	675 //// setDirty(lastPos);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	676 //// advancePos();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	677 ////
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	678 //// // set ending attribute byte
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	679 //// // screen[lastPos].setCharAndAttr(initChar, initAttr, true);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	680 //// planes.setScreenCharAndAttr(lastPos,initChar, initAttr, true);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	681 //// setDirty(lastPos);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	682 //
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	683 // lastPos = startPos;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	684 // }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	685 //
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	686 // }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	687
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	688 /* * NEVER USED LOCALLY ************************************************ */
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	689 // private void setDirty(int pos) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	690 //
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	691 // screen52.setDirty(pos);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	692 //
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	693 // }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	694
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	695 /* * NEVER USED LOCALLY ************************************************ */
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	696 // private void advancePos() {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	697 //
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	698 // screen52.advancePos();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	699 // }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	700
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	701 private void defineSelectionField(int majLen) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	702 // 0030: 20 00 2C 3E 00 00 00 69 12 A0 00 00 04 00 00 03 .,>...i........
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	703 // 0040: 04 40 04 11 00 28 01 07 00 00 00 19 00 00 04 11 .@...(..........
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	704 // 0050: 14 19 15 00 48 D9 50 00 60 00 11 01 84 84 00 00 ....H.P.`.......
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	705 // 0060: 05 03 01 01 00 00 00 13 01 E0 00 21 00 21 00 3B ...........!.!.;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	706 // 0070: 22 20 20 20 20 3A 24 20 20 3A 0B 10 08 00 E0 00 " :$ :......
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	707 // 0080: D6 95 85 40 40 0B 10 08 00 E0 00 E3 A6 96 40 40 ...@@.........@@
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	708 // 0090: 0B 10 08 00 E0 00 E3 88 99 85 85 04 52 00 00 FF ............R...
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	709 // 00A0: EF .
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	710 try {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	711 int flag1 = segment[pos++]; // Flag byte 1 - byte 5
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	712 int flag2 = segment[pos++]; // Flag byte 2 - byte 6
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	713 int flag3 = segment[pos++]; // Flag byte 3 - byte 7
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	714 int typeSelection = segment[pos++]; // Type of selection Field - byte 8
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	715 // GUI Device Characteristics:
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	716 // This byte is used if the target device is a GUI PWS or a GUI-like
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	717 // NWS. If neigher of these WS are the targets, this byte is ignored
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	718 int guiDevice = segment[pos++]; // byte 9
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	719 int withMnemonic = segment[pos++]; // byte 10
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	720 int noMnemonic = segment[pos++]; // byte 11
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	721 pos++; // Reserved - byte 12
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	722 pos++; // Reserved - byte 13
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	723 int cols = segment[pos++]; // Text Size - byte 14
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	724 int rows = segment[pos++]; // Rows - byte 15
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	725 int maxColChoice = segment[pos++]; // byte 16 num of column choices
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	726 int padding = segment[pos++]; // byte 17
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	727 int numSepChar = segment[pos++]; // byte 18
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	728 int ctySepChar = segment[pos++]; // byte 19
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	729 int cancelAID = segment[pos++]; // byte 20
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	730 int cnt = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	731 int minLen = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	732 majLen -= 21;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	733 Log.d(TAG, " row: " + screen52.getCurrentRow()
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	734 + " col: " + screen52.getCurrentCol()
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	735 + " type " + typeSelection
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	736 + " gui " + guiDevice
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	737 + " withMnemonic " + Integer.toHexString(withMnemonic & 0xf0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	738 + " noMnemonic " + Integer.toHexString(noMnemonic & 0xf0)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	739 + " noMnemonic " + Integer.toBinaryString(noMnemonic)
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	740 + " noMnemonicType " + Integer.toBinaryString((noMnemonic & 0xf0))
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	741 + " noMnemonicSel " + Integer.toBinaryString((noMnemonic & 0x0f))
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	742 + " maxcols " + maxColChoice
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	743 + " cols " + cols
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	744 + " rows " + rows);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	745 int rowCtr = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	746 int colCtr = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	747 int chcRowStart = screen52.getCurrentRow();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	748 int chcColStart = screen52.getCurrentCol();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	749 int chcRow = chcRowStart;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	750 int chcCol = chcColStart;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	751 int chcPos = screen52.getPos(chcRow - 1, chcCol);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	752 // client access
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	753 //0000 00 04 ac 9e b9 35 00 01 02 32 bb 4e 08 00 45 00 .....5...2.N..E.
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	754 //0010 00 3c 4f 8e 40 00 80 06 00 00 c1 a8 33 58 c1 a8 .<O.@.......3X..
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	755 //0020 33 01 09 e4 00 17 5b bf b7 a4 c3 41 43 d1 50 18 3.....[....AC.P.
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	756 //0030 fc de e9 d8 00 00 00 12 12 a0 00 00 04 00 80 03 ................
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	757 //0040 16 18 f1 11 14 1a 00 22 ff ef ......."..
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	758 int colAvail = 0x20;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	759 int colSelAvail = 0x20;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	760 int fld = 0;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	761
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	762 do {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	763 minLen = segment[pos++]; // Minor Length byte 21
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	764 int minType = segment[pos++]; // Minor Type
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	765
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	766 switch (minType) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	767 case 0x01: // Choice Presentation Display
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	768 // flag
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	769 int flagCP1 = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	770 pos++; // mon select cursor avail emphasis - byte4
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	771 colSelAvail = segment[pos++]; // -byte 5
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	772 pos++; // mon select cursor - byte 6
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	773 int colSelCur = segment[pos++]; // -byte 7
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	774 pos++; // mon select cursor not avail emphasis - byte 8
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	775 int colSelNotAvail = segment[pos++]; // -byte 9
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	776 pos++; // mon avail emphasis - byte 10
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	777 colAvail = segment[pos++]; // -byte 11
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	778 pos++; // mon select emphasis - byte 12
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	779 int colSel = segment[pos++]; // -byte 13
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	780 pos++; // mon not avail emphasis - byte 14
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	781 int colNotAvail = segment[pos++]; // -byte 15
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	782 pos++; // mon indicator emphasis - byte 16
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	783 int colInd = segment[pos++]; // -byte 17
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	784 pos++; // mon indicator not avail emphasis - byte 18
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	785 int colNotAvailInd = segment[pos++]; // -byte 19
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	786 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	787
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	788 case 0x10: // Choice Text minor structure
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	789 cnt = 5;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	790 int flagCT1 = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	791 int flagCT2 = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	792 int flagCT3 = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	793 int mnemOffset = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	794 boolean aid = false;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	795 boolean selected = false;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	796
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	797 // is in selected state
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	798 if ((flagCT1 & 0x40) == 0x40) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	799 Log.d(TAG, " selected ");
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	800 selected = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	801 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	802
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	803 //System.out.println(Integer.toBinaryString((flagCT1 & 0xf0)));
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	804 // is mnemonic offset specified
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	805 if ((flagCT1 & 0x08) == 8) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	806 Log.d(TAG, " mnemOffset " + mnemOffset);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	807 mnemOffset = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	808 cnt++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	809 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	810
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	811 // is aid key specified
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	812 if ((flagCT1 & 0x04) == 4) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	813 aid = true;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	814 Log.d(TAG, " aidKey " + aid);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	815 // cnt++;
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	816 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	817
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	818 // is single digit number specified
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	819 if ((flagCT1 & 0x01) == 0x01) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	820 Log.d(TAG, " single digit ");
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	821 pos++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	822 cnt++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	823 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	824
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	825 // is double digint number specified
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	826 if ((flagCT1 & 0x02) == 0x02) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	827 Log.d(TAG, " double digit ");
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	828 pos++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	829 cnt++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	830 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	831
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	832 String s = "";
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	833 byte byte0 = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	834 fld++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	835 screen52.setCursor(chcRowStart, chcColStart);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	836
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	837 // we do not add a selection if it is marked as unavailable
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	838 if ((flagCT1 & 0x80) != 0x80) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	839 screen52.addField(0x26, 1, 0, 0, 0, 0);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	840 screen52.getScreenFields().getCurrentField().setFieldChar('.');
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	841 screen52.getScreenFields().getCurrentField().setSelectionFieldInfo(17,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	842 fld,
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	843 chcPos);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	844 screen52.setCursor(chcRowStart, chcColStart + 3);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	845
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	846 for (; cnt < minLen; cnt++) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	847 byte0 = segment[pos++];
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	848 s += vt.codePage.ebcdic2uni(byte0);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	849 screen52.setChar(vt.codePage.ebcdic2uni(byte0));
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	850 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	851
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	852 addChoiceField(chcRowStart, chcColStart, chcRow, chcCol, s);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	853 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	854
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	855 // screen52.getScreenFields().getCurrentField().setMDT();
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	856 Log.d(TAG, s + " selected " + selected);
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	857 // chcRowStart;
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	858 //maxColChoice
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	859 colCtr++;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	860
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	861 // rowCtr++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	862 if (colCtr >= maxColChoice) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	863 rowCtr++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	864 colCtr = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	865 chcColStart = chcCol;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	866 chcRowStart = chcRow + rowCtr;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	867
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	868 if (rowCtr > rows) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	869 chcRowStart = chcRow;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	870 rowCtr = 0;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	871 chcColStart = chcColStart + 3 + cols + padding;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	872 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	873 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	874 else {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	875 chcColStart = chcColStart + padding + cols + 3;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	876 //
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	877 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	878
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	879 break;
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	880
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	881 default:
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	882 for (cnt = 2; cnt < minLen; cnt++) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	883 pos++;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	884 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	885 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	886
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	887 majLen -= minLen;
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	888 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	889 while (majLen > 0);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	890 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	891 catch (Exception exc) {
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	892 Log.w(TAG, " defineSelectionField :", exc);
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	893 exc.printStackTrace();
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	894 }
77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	895 }
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	896
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	897 // negotiating commands
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	898 // private static final byte IAC = (byte)-1; // 255 FF
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	899 // private static final byte DONT = (byte)-2; //254 FE
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	900 // private static final byte DO = (byte)-3; //253 FD
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	901 // private static final byte WONT = (byte)-4; //252 FC
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	902 // private static final byte WILL = (byte)-5; //251 FB
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	903 // private static final byte SB = (byte)-6; //250 Sub Begin FA
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	904 // private static final byte SE = (byte)-16; //240 Sub End F0
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	905 // private static final byte EOR = (byte)-17; //239 End of Record EF
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	906 // private static final byte TERMINAL_TYPE = (byte)24; // 18
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	907 // private static final byte OPT_END_OF_RECORD = (byte)25; // 19
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	908 // private static final byte TRANSMIT_BINARY = (byte)0; // 0
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	909 // private static final byte QUAL_IS = (byte)0; // 0
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	910 // private static final byte TIMING_MARK = (byte)6; // 6
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	911 // private static final byte NEW_ENVIRONMENT = (byte)39; // 27
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	912 // private static final byte IS = (byte)0; // 0
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	913 // private static final byte SEND = (byte)1; // 1
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	914 // private static final byte INFO = (byte)2; // 2
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	915 // private static final byte VAR = (byte)0; // 0
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	916 // private static final byte VALUE = (byte)1; // 1
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	917 // private static final byte NEGOTIATE_ESC = (byte)2; // 2
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	918 // private static final byte USERVAR = (byte)3; // 3
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	919
112 77ac18bc1b2f cleanup java formatting Carl Byington <carl@five-ten-sg.com> parents: 27 diff changeset	920 // miscellaneous
3 e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	921 // private static final byte ESC = 0x04; // 04
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	922 // private static final char char0 = 0;
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	923
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	924 // private static final byte CMD_READ_IMMEDIATE_ALT = (byte)0x83; // 131
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	925
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	926
e8d2a24e85c6 adding tn5250 files Carl Byington <carl@five-ten-sg.com> parents: diff changeset	927 }

Mercurial > 510Connectbot

annotate src/org/tn5250j/framework/tn5250/WTDSFParser.java @ 184:cdaaa53b5eca