Incluindo metodos para permitir que scripts obtenham posição e tamanho de campos

perry.werneck@gmail.com
1 parent ce2c4cff
Showing 1 changed file with 56 additions and 0 deletions Show diff stats
ctlr.c
@@ -303,6 +303,62 @@ static void ctlr_connect(H3270 *hSession, int ignored unused, void *dunno)
 	hSession->crm_nattr = 0;
 }
+LIB3270_EXPORT int lib3270_get_field_start(H3270 *hSession, int baddr)
+{
+	int sbaddr;
+
+	CHECK_SESSION_HANDLE(hSession);
+
+	if (!hSession->formatted)
+		return -1;
+
+    if(baddr < 0)
+        baddr = hSession->cursor_addr;
+
+	sbaddr = baddr;
+	do
+	{
+		if(hSession->ea_buf[baddr].fa)
+			return baddr;
+		DEC_BA(baddr);
+	} while (baddr != sbaddr);
+
+	return -1;
+
+}
+
+LIB3270_EXPORT int lib3270_get_field_len(H3270 *hSession, int baddr)
+{
+	int saddr;
+	int addr;
+	int width = 0;
+
+	CHECK_SESSION_HANDLE(hSession);
+
+	if (!hSession->formatted)
+		return -1;
+
+    if(baddr < 0)
+        baddr = hSession->cursor_addr;
+
+	addr = find_field_attribute(hSession,baddr);
+
+	if(addr < 0)
+		return -1;
+
+	saddr = addr;
+	INC_BA(addr);
+	do
+	{
+		if(hSession->ea_buf[addr].fa)
+			return width;
+		INC_BA(addr);
+		width++;
+	} while (addr != saddr);
+
+	return -1;
+}
+
 LIB3270_EXPORT int lib3270_field_addr(H3270 *hSession, int baddr)
 {
 	int sbaddr;
	@@ -303,6 +303,62 @@ static void ctlr_connect(H3270 hSession, int ignored unused, void dunno)		@@ -303,6 +303,62 @@ static void ctlr_connect(H3270 hSession, int ignored unused, void dunno)
303	hSession->crm_nattr = 0;	303	hSession->crm_nattr = 0;
304	}	304	}
305		305
		306	+LIB3270_EXPORT int lib3270_get_field_start(H3270 *hSession, int baddr)
		307	+{
		308	+ int sbaddr;
		309	+
		310	+ CHECK_SESSION_HANDLE(hSession);
		311	+
		312	+ if (!hSession->formatted)
		313	+ return -1;
		314	+
		315	+ if(baddr < 0)
		316	+ baddr = hSession->cursor_addr;
		317	+
		318	+ sbaddr = baddr;
		319	+ do
		320	+ {
		321	+ if(hSession->ea_buf[baddr].fa)
		322	+ return baddr;
		323	+ DEC_BA(baddr);
		324	+ } while (baddr != sbaddr);
		325	+
		326	+ return -1;
		327	+
		328	+}
		329	+
		330	+LIB3270_EXPORT int lib3270_get_field_len(H3270 *hSession, int baddr)
		331	+{
		332	+ int saddr;
		333	+ int addr;
		334	+ int width = 0;
		335	+
		336	+ CHECK_SESSION_HANDLE(hSession);
		337	+
		338	+ if (!hSession->formatted)
		339	+ return -1;
		340	+
		341	+ if(baddr < 0)
		342	+ baddr = hSession->cursor_addr;
		343	+
		344	+ addr = find_field_attribute(hSession,baddr);
		345	+
		346	+ if(addr < 0)
		347	+ return -1;
		348	+
		349	+ saddr = addr;
		350	+ INC_BA(addr);
		351	+ do
		352	+ {
		353	+ if(hSession->ea_buf[addr].fa)
		354	+ return width;
		355	+ INC_BA(addr);
		356	+ width++;
		357	+ } while (addr != saddr);
		358	+
		359	+ return -1;
		360	+}
		361	+
306	LIB3270_EXPORT int lib3270_field_addr(H3270 *hSession, int baddr)	362	LIB3270_EXPORT int lib3270_field_addr(H3270 *hSession, int baddr)
307	{	363	{
308	int sbaddr;	364	int sbaddr;