firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-02-02 10:00:38 +01:00
Code Issues

remove PYXIS

Browse Source
This commit is contained in:
mapopa 2014-05-06 08:34:00 +00:00
parent deb63804dc
commit 55da24472a
6 changed files with 0 additions and 1148 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
lang_helpers/gds.bas
View File

@ -246,69 +246,6 @@
DECLARE WORD CONSTANT SQL_DATE = 510
DECLARE WORD CONSTANT SQL_BLOB = 520
! Forms Package definitions
! Map definition block definitions
DECLARE BYTE CONSTANT PYXIS__MAP_VERSION1 = 1
DECLARE BYTE CONSTANT PYXIS__MAP_FIELD2 = 2
DECLARE BYTE CONSTANT PYXIS__MAP_FIELD1 = 3
DECLARE BYTE CONSTANT PYXIS__MAP_MESSAGE = 4
DECLARE BYTE CONSTANT PYXIS__MAP_TERMINATOR = 5
DECLARE BYTE CONSTANT PYXIS__MAP_TERMINATING_FIELD = 6
DECLARE BYTE CONSTANT PYXIS__MAP_OPAQUE = 7
DECLARE BYTE CONSTANT PYXIS__MAP_TRANSPARENT = 8
DECLARE BYTE CONSTANT PYXIS__MAP_TAG = 9
DECLARE BYTE CONSTANT PYXIS__MAP_SUB_FORM = 10
DECLARE BYTE CONSTANT PYXIS__MAP_ITEM_INDEX = 11
DECLARE BYTE CONSTANT PYXIS__MAP_SUB_FIELD = 12
DECLARE BYTE CONSTANT PYXIS__MAP_END = -1
! Field option flags for display options
DECLARE WORD CONSTANT PYXIS__OPT_DISPLAY = 1
DECLARE WORD CONSTANT PYXIS__OPT_UPDATE = 2
DECLARE WORD CONSTANT PYXIS__OPT_WAKEUP = 4
DECLARE WORD CONSTANT PYXIS__OPT_POSITION = 8
! Field option values following display
DECLARE WORD CONSTANT PYXIS__OPT_NULL = 1
DECLARE WORD CONSTANT PYXIS__OPT_DEFAULT = 2
DECLARE WORD CONSTANT PYXIS__OPT_INITIAL = 3
DECLARE WORD CONSTANT PYXIS__OPT_USER_DATA = 4
! Pseudo key definitions
DECLARE WORD CONSTANT PYXIS__KEY_DELETE = 127
DECLARE WORD CONSTANT PYXIS__KEY_UP = 128
DECLARE WORD CONSTANT PYXIS__KEY_DOWN = 129
DECLARE WORD CONSTANT PYXIS__KEY_RIGHT = 130
DECLARE WORD CONSTANT PYXIS__KEY_LEFT = 131
DECLARE WORD CONSTANT PYXIS__KEY_PF1 = 132
DECLARE WORD CONSTANT PYXIS__KEY_PF2 = 133
DECLARE WORD CONSTANT PYXIS__KEY_PF3 = 134
DECLARE WORD CONSTANT PYXIS__KEY_PF4 = 135
DECLARE WORD CONSTANT PYXIS__KEY_PF5 = 136
DECLARE WORD CONSTANT PYXIS__KEY_PF6 = 137
DECLARE WORD CONSTANT PYXIS__KEY_PF7 = 138
DECLARE WORD CONSTANT PYXIS__KEY_PF8 = 139
DECLARE WORD CONSTANT PYXIS__KEY_PF9 = 140
DECLARE WORD CONSTANT PYXIS__KEY_ENTER = 141
DECLARE WORD CONSTANT PYXIS__KEY_SCROLL_TOP = 146
DECLARE WORD CONSTANT PYXIS__KEY_SCROLL_BOTTOM = 147
! Menu definition stuff
DECLARE BYTE CONSTANT PYXIS__MENU_VERSION1 = 1
DECLARE BYTE CONSTANT PYXIS__MENU_LABEL = 2
DECLARE BYTE CONSTANT PYXIS__MENU_ENTREE = 3
DECLARE BYTE CONSTANT PYXIS__MENU_OPAQUE = 4
DECLARE BYTE CONSTANT PYXIS__MENU_TRANSPARENT = 5
DECLARE BYTE CONSTANT PYXIS__MENU_HORIZONTAL = 6
DECLARE BYTE CONSTANT PYXIS__MENU_VERTICAL = 7
DECLARE BYTE CONSTANT PYXIS__MENU_END = -1
EXTERNAL LONG FUNCTION GDS__SQLCODE BY REF
EXTERNAL SUB GDS__ATTACH_DATABASE BY REF
@ -365,20 +302,5 @@
EXTERNAL SUB gds__put_slice BY REF
EXTERNAL SUB gds__seek_blob BY REF
EXTERNAL SUB gds__ddl BY REF
EXTERNAL SUB pyxis__compile_map BY REF
EXTERNAL SUB pyxis__compile_sub_map BY REF
EXTERNAL SUB pyxis__create_window BY REF
EXTERNAL SUB pyxis__delete_window BY REF
EXTERNAL SUB pyxis__drive_form BY REF
EXTERNAL SUB pyxis__fetch BY REF
EXTERNAL SUB pyxis__insert BY REF
EXTERNAL SUB pyxis__load_form BY REF
EXTERNAL WORD FUNCTION pyxis__menu BY REF
EXTERNAL SUB pyxis__pop_window BY REF
EXTERNAL SUB pyxis__reset_form BY REF
EXTERNAL SUB pyxis__drive_menu BY REF
EXTERNAL SUB pyxis__initialize_menu BY REF
EXTERNAL SUB pyxis__get_entree BY REF
EXTERNAL SUB pyxis__put_entree BY REF

180
lang_helpers/gds.pas
View File

@ -1418,183 +1418,3 @@ const
SQL_DATE = 510;
SQL_BLOB = 520;
(* Forms Package definitions *)
(* Map definition block definitions *)
const
PYXIS__MAP_VERSION1 = chr(1);
PYXIS__MAP_FIELD2 = chr(2);
PYXIS__MAP_FIELD1 = chr(3);
PYXIS__MAP_MESSAGE = chr(4);
PYXIS__MAP_TERMINATOR = chr(5);
PYXIS__MAP_TERMINATING_FIELD = chr(6);
PYXIS__MAP_OPAQUE = chr(7);
PYXIS__MAP_TRANSPARENT = chr(8);
PYXIS__MAP_TAG = chr(9);
PYXIS__MAP_SUB_FORM = chr(10);
PYXIS__MAP_ITEM_INDEX = chr(11);
PYXIS__MAP_SUB_FIELD = chr(12);
PYXIS__MAP_END = chr(255);
(* Field option flags for display options *)
const
PYXIS__OPT_DISPLAY = 1;
PYXIS__OPT_UPDATE = 2;
PYXIS__OPT_WAKEUP = 4;
PYXIS__OPT_POSITION = 8;
(* Field option values following display *)
const
PYXIS__OPT_NULL = 1;
PYXIS__OPT_DEFAULT = 2;
PYXIS__OPT_INITIAL = 3;
PYXIS__OPT_USER_DATA = 4;
(* Pseudo key definitions *)
const
PYXIS__KEY_DELETE = 127;
PYXIS__KEY_UP = 128;
PYXIS__KEY_DOWN = 129;
PYXIS__KEY_RIGHT = 130;
PYXIS__KEY_LEFT = 131;
PYXIS__KEY_PF1 = 132;
PYXIS__KEY_PF2 = 133;
PYXIS__KEY_PF3 = 134;
PYXIS__KEY_PF4 = 135;
PYXIS__KEY_PF5 = 136;
PYXIS__KEY_PF6 = 137;
PYXIS__KEY_PF7 = 138;
PYXIS__KEY_PF8 = 139;
PYXIS__KEY_PF9 = 140;
PYXIS__KEY_ENTER = 141;
PYXIS__KEY_SCROLL_TOP = 146;
PYXIS__KEY_SCROLL_BOTTOM = 147;
(* Menu definition stuff *)
const
PYXIS__MENU_VERSION1 = chr(1);
PYXIS__MENU_LABEL = chr(2);
PYXIS__MENU_ENTREE = chr(3);
PYXIS__MENU_OPAQUE = chr(4);
PYXIS__MENU_TRANSPARENT = chr(5);
PYXIS__MENU_HORIZONTAL = chr(6);
PYXIS__MENU_VERTICAL = chr(7);
PYXIS__MENU_END = chr(255);
procedure pyxis__compile_map (
out stat : gds__status_vector;
in form_handle : gds__handle;
out map_handle : gds__handle;
in length : integer16;
in map : UNIV gds__string
); extern;
procedure pyxis__compile_sub_map (
out stat : gds__status_vector;
in form_handle : gds__handle;
out map_handle : gds__handle;
in length : integer16;
in map : UNIV gds__string
); extern;
procedure pyxis__create_window (
in out window_handle : gds__handle;
in name_length : integer16;
in file_name : UNIV gds__string;
in out width : integer16;
in out height : integer16
); extern;
procedure pyxis__delete_window (
in out window_handle : gds__handle
); extern;
procedure pyxis__drive_form (
out stat : gds__status_vector;
in db_handle : gds__handle;
in trans_handle : gds__handle;
in out window_handle : gds__handle;
in map_handle : gds__handle;
in input : UNIV gds__string;
in output : UNIV gds__string
); extern;
procedure pyxis__fetch (
out stat : gds__status_vector;
in db_handle : gds__handle;
in trans_handle : gds__handle;
in map_handle : gds__handle;
in output : UNIV gds__string
); extern;
procedure pyxis__insert (
out stat : gds__status_vector;
in db_handle : gds__handle;
in trans_handle : gds__handle;
in map_handle : gds__handle;
in input : UNIV gds__string
); extern;
procedure pyxis__load_form (
out stat : gds__status_vector;
in db_handle : gds__handle;
in trans_handle : gds__handle;
in out form_handle : gds__handle;
in name_length : integer16;
in form_name : UNIV gds__string
); extern;
function pyxis__menu (
in out window_handle : gds__handle;
in out menu_handle : gds__handle;
in length : integer16;
in menu : UNIV gds__string
) : integer16; extern;
procedure pyxis__pop_window (
in window_handle : gds__handle
); extern;
procedure pyxis__reset_form (
out stat : gds__status_vector;
in window_handle : gds__handle
); extern;
procedure pyxis__drive_menu (
in out window_handle : gds__handle;
in out menu_handle : gds__handle;
in blr_length : integer16;
in blr_source : UNIV gds__string;
in title_length : integer16;
in title : UNIV gds__string;
out terminator : integer16;
out entree_length : integer16;
out entree_text : UNIV gds__string;
out entree_value : integer32
); extern;
procedure pyxis__get_entree (
in menu_handle : gds__handle;
out entree_length : integer16;
out entree_text : UNIV gds__string;
out entree_value : integer32;
out entree_end : integer16
); extern;
procedure pyxis__initialize_menu (
in out menu_handle : gds__handle
); extern;
procedure pyxis__put_entree (
in menu_handle : gds__handle;
in entree_length : integer16;
in entree_text : UNIV gds__string;
in entree_value : integer32
); extern;

180
lang_helpers/gds.vpas
View File

@ -1434,185 +1434,5 @@ const
SQL_DATE = 510;
SQL_BLOB = 520;
(* Forms Package definitions *)
(* Map definition block definitions *)
const
PYXIS__MAP_VERSION1 = chr(1);
PYXIS__MAP_FIELD2 = chr(2);
PYXIS__MAP_FIELD1 = chr(3);
PYXIS__MAP_MESSAGE = chr(4);
PYXIS__MAP_TERMINATOR = chr(5);
PYXIS__MAP_TERMINATING_FIELD = chr(6);
PYXIS__MAP_OPAQUE = chr(7);
PYXIS__MAP_TRANSPARENT = chr(8);
PYXIS__MAP_TAG = chr(9);
PYXIS__MAP_SUB_FORM = chr(10);
PYXIS__MAP_ITEM_INDEX = chr(11);
PYXIS__MAP_SUB_FIELD = chr(12);
PYXIS__MAP_END = chr(255);
(* Field option flags for display options *)
const
PYXIS__OPT_DISPLAY = 1;
PYXIS__OPT_UPDATE = 2;
PYXIS__OPT_WAKEUP = 4;
PYXIS__OPT_POSITION = 8;
(* Field option values following display *)
const
PYXIS__OPT_NULL = 1;
PYXIS__OPT_DEFAULT = 2;
PYXIS__OPT_INITIAL = 3;
PYXIS__OPT_USER_DATA = 4;
(* Pseudo key definitions *)
const
PYXIS__KEY_DELETE = 127;
PYXIS__KEY_UP = 128;
PYXIS__KEY_DOWN = 129;
PYXIS__KEY_RIGHT = 130;
PYXIS__KEY_LEFT = 131;
PYXIS__KEY_PF1 = 132;
PYXIS__KEY_PF2 = 133;
PYXIS__KEY_PF3 = 134;
PYXIS__KEY_PF4 = 135;
PYXIS__KEY_PF5 = 136;
PYXIS__KEY_PF6 = 137;
PYXIS__KEY_PF7 = 138;
PYXIS__KEY_PF8 = 139;
PYXIS__KEY_PF9 = 140;
PYXIS__KEY_ENTER = 141;
PYXIS__KEY_SCROLL_TOP = 146;
PYXIS__KEY_SCROLL_BOTTOM = 147;
(* Menu definition stuff *)
const
PYXIS__MENU_VERSION1 = chr(1);
PYXIS__MENU_LABEL = chr(2);
PYXIS__MENU_ENTREE = chr(3);
PYXIS__MENU_OPAQUE = chr(4);
PYXIS__MENU_TRANSPARENT = chr(5);
PYXIS__MENU_HORIZONTAL = chr(6);
PYXIS__MENU_VERTICAL = chr(7);
PYXIS__MENU_END = chr(255);
procedure pyxis__compile_map (
var stat : gds__status_vector;
form_handle : gds__handle;
var map_handle : gds__handle;
length : gds__short;
map : gds__ptr_type
); extern;
procedure pyxis__compile_sub_map (
var stat : gds__status_vector;
form_handle : gds__handle;
var map_handle : gds__handle;
length : gds__short;
map : gds__ptr_type
); extern;
procedure pyxis__create_window (
var window_handle : gds__handle;
name_length : gds__short;
file_name : gds__ptr_type;
var width : gds__short;
var height : gds__short
); extern;
procedure pyxis__delete_window (
var window_handle : gds__handle
); extern;
procedure pyxis__drive_form (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
var window_handle : gds__handle;
map_handle : gds__handle;
input : gds__ptr_type;
output : gds__ptr_type
); extern;
procedure pyxis__fetch (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
map_handle : gds__handle;
output : gds__ptr_type
); extern;
procedure pyxis__insert (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
map_handle : gds__handle;
input : gds__ptr_type
); extern;
procedure pyxis__load_form (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
var form_handle : gds__handle;
name_length : gds__short;
form_name : gds__ptr_type
); extern;
function pyxis__menu (
var window_handle : gds__handle;
var menu_handle : gds__handle;
length : gds__short;
menu : gds__ptr_type
) : gds__short; extern;
procedure pyxis__pop_window (
window_handle : gds__handle
); extern;
procedure pyxis__reset_form (
var stat : gds__status_vector;
window_handle : gds__handle
); extern;
procedure pyxis__drive_menu (
var window_handle : gds__handle;
var menu_handle : gds__handle;
blr_length : gds__short;
blr_source : gds__ptr_type;
title_length : gds__short;
title : gds__ptr_type;
var terminator : gds__short;
var entree_length : gds__short;
entree_text : gds__ptr_type;
var entree_value : integer
); extern;
procedure pyxis__get_entree (
menu_handle : gds__handle;
var entree_length : gds__short;
entree_text : gds__ptr_type;
var entree_value : integer;
var entree_end : gds__short
); extern;
procedure pyxis__initialize_menu (
var menu_handle : gds__handle
); extern;
procedure pyxis__put_entree (
menu_handle : gds__handle;
entree_length : gds__short;
entree_text : gds__ptr_type;
entree_value : integer
); extern;
[HIDDEN] PROCEDURE LIB$SCOPY_DXDX; EXTERNAL;

237
lang_helpers/gds_aix.f
View File

@ -326,118 +326,6 @@ C in string : UNIV gds__string;
C in out descriptor : UNIV sqlda
C ); extern;
C procedure pyxis__compile_map (
C out stat : gds__status_vector;
C in form_handle : gds__handle;
C out map_handle : gds__handle;
C in length : integer16;
C in map : UNIV gds__string
C ); extern;
C procedure pyxis__compile_sub_map (
C out stat : gds__status_vector;
C in form_handle : gds__handle;
C out map_handle : gds__handle;
C in length : integer16;
C in map : UNIV gds__string
C ); extern;
C procedure pyxis__create_window (
C in out window_handle : gds__handle;
C in name_length : integer16;
C in file_name : UNIV gds__string;
C in out width : integer16;
C in out height : integer16
C ); extern;
C procedure pyxis__delete_window (
C in out window_handle : gds__handle
C ); extern;
C procedure pyxis__drive_form (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in out window_handle : gds__handle;
C in map_handle : gds__handle;
C in input : UNIV gds__string;
C in output : UNIV gds__string
C ); extern;
C procedure pyxis__fetch (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in map_handle : gds__handle;
C in output : UNIV gds__string
C ); extern;
C procedure pyxis__insert (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in map_handle : gds__handle;
C in input : UNIV gds__string
C ); extern;
C procedure pyxis__load_form (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in out form_handle : gds__handle;
C in name_length : integer16;
C in form_name : UNIV gds__string
C ); extern;
INTEGER*2 PYXIS__MENU
C function pyxis__menu (
C in out window_handle : gds__handle;
C in out menu_handle : gds__handle;
C in length : integer16;
C in menu : UNIV gds__string
C ) : integer16; extern;
C procedure pyxis__pop_window (
C in window_handle : gds__handle
C ); extern;
C procedure pyxis__reset_form (
C out stat : gds__status_vector;
C in window_handle : gds__handle
C ); extern;
C procedure pyxis__drive_menu (
C in out window_handle : gds__handle;
C in out menu_handle : gds__handle;
C in blr_length : integer16;
C in blr_source : UNIV gds__string;
C in title_length : integer16;
C in title : UNIV gds__string;
C out terminator : integer16;
C out entree_length : integer16;
C out entree_text : UNIV gds__string;
C out entree_value : integer32
C ); extern;
C procedure pyxis__get_entree (
C in menu_handle : gds__handle;
C out entree_length : integer16;
C out entree_text : UNIV gds__string;
C out entree_value : integer32;
C out entree_end : integer16
C ); extern;
C procedure pyxis__initialize_menu (
C in out menu_handle : gds__handle
C ); extern;
C procedure pyxis__put_entree (
C in menu_handle : gds__handle;
C in entree_length : integer16;
C in entree_text : UNIV gds__string;
C in entree_value : integer32
C ); extern;
C PROCEDURE isc_exec_procedure (
C INTEGER*4 STAT(20), { OUTPUT }
C INTEGER*4 DB_HANDLE, { INPUT }
@ -922,131 +810,6 @@ C Dynamic SQL datatypes
+ SQL_DATE = 510,
+ SQL_BLOB = 520)
C Forms Package definitions
C Map definition block definitions
INTEGER*2
+ PYXIS__MAP_VERSION1,
+ PYXIS__MAP_FIELD2,
+ PYXIS__MAP_FIELD1,
+ PYXIS__MAP_MESSAGE,
+ PYXIS__MAP_TERMINATOR,
+ PYXIS__MAP_TERMINATING_FIELD,
+ PYXIS__MAP_OPAQUE,
+ PYXIS__MAP_TRANSPARENT,
+ PYXIS__MAP_TAG,
+ PYXIS__MAP_SUB_FORM,
+ PYXIS__MAP_ITEM_INDEX,
+ PYXIS__MAP_SUB_FIELD,
+ PYXIS__MAP_END
PARAMETER (
+ PYXIS__MAP_VERSION1 = 1,
+ PYXIS__MAP_FIELD2 = 2,
+ PYXIS__MAP_FIELD1 = 3,
+ PYXIS__MAP_MESSAGE = 4,
+ PYXIS__MAP_TERMINATOR = 5,
+ PYXIS__MAP_TERMINATING_FIELD = 6,
+ PYXIS__MAP_OPAQUE = 7,
+ PYXIS__MAP_TRANSPARENT = 8,
+ PYXIS__MAP_TAG = 9,
+ PYXIS__MAP_SUB_FORM = 10,
+ PYXIS__MAP_ITEM_INDEX = 11,
+ PYXIS__MAP_SUB_FIELD = 12,
+ PYXIS__MAP_END = -1)
C Field option flags for display options
INTEGER*2
+ PYXIS__OPT_DISPLAY,
+ PYXIS__OPT_UPDATE,
+ PYXIS__OPT_WAKEUP,
+ PYXIS__OPT_POSITION
PARAMETER (
+ PYXIS__OPT_DISPLAY = 1,
+ PYXIS__OPT_UPDATE = 2,
+ PYXIS__OPT_WAKEUP = 4,
+ PYXIS__OPT_POSITION = 8)
C Field option values following display
INTEGER*2
+ PYXIS__OPT_NULL,
+ PYXIS__OPT_DEFAULT,
+ PYXIS__OPT_INITIAL,
+ PYXIS__OPT_USER_DATA
PARAMETER (
+ PYXIS__OPT_NULL = 1,
+ PYXIS__OPT_DEFAULT = 2,
+ PYXIS__OPT_INITIAL = 3,
+ PYXIS__OPT_USER_DATA = 4)
C Pseudo key definitions
INTEGER*2
+ PYXIS__KEY_DELETE,
+ PYXIS__KEY_UP,
+ PYXIS__KEY_DOWN,
+ PYXIS__KEY_RIGHT,
+ PYXIS__KEY_LEFT,
+ PYXIS__KEY_PF1,
+ PYXIS__KEY_PF2,
+ PYXIS__KEY_PF3,
+ PYXIS__KEY_PF4,
+ PYXIS__KEY_PF5,
+ PYXIS__KEY_PF6,
+ PYXIS__KEY_PF7,
+ PYXIS__KEY_PF8,
+ PYXIS__KEY_PF9,
+ PYXIS__KEY_ENTER,
+ PYXIS__KEY_SCROLL_TOP,
+ PYXIS__KEY_SCROLL_BOTTOM
PARAMETER (
+ PYXIS__KEY_DELETE = 127,
+ PYXIS__KEY_UP = 128,
+ PYXIS__KEY_DOWN = 129,
+ PYXIS__KEY_RIGHT = 130,
+ PYXIS__KEY_LEFT = 131,
+ PYXIS__KEY_PF1 = 132,
+ PYXIS__KEY_PF2 = 133,
+ PYXIS__KEY_PF3 = 134,
+ PYXIS__KEY_PF4 = 135,
+ PYXIS__KEY_PF5 = 136,
+ PYXIS__KEY_PF6 = 137,
+ PYXIS__KEY_PF7 = 138,
+ PYXIS__KEY_PF8 = 139,
+ PYXIS__KEY_PF9 = 140,
+ PYXIS__KEY_ENTER = 141,
+ PYXIS__KEY_SCROLL_TOP = 146,
+ PYXIS__KEY_SCROLL_BOTTOM = 147)
C Menu definition stuff
INTEGER*2
+ PYXIS__MENU_VERSION1,
+ PYXIS__MENU_LABEL,
+ PYXIS__MENU_ENTREE,
+ PYXIS__MENU_OPAQUE,
+ PYXIS__MENU_TRANSPARENT,
+ PYXIS__MENU_HORIZONTAL,
+ PYXIS__MENU_VERTICAL,
+ PYXIS__MENU_END
PARAMETER (
+ PYXIS__MENU_VERSION1 = 1,
+ PYXIS__MENU_LABEL = 2,
+ PYXIS__MENU_ENTREE = 3,
+ PYXIS__MENU_OPAQUE = 4,
+ PYXIS__MENU_TRANSPARENT = 5,
+ PYXIS__MENU_HORIZONTAL = 6,
+ PYXIS__MENU_VERTICAL = 7,
+ PYXIS__MENU_END = -1)
C Error Codes
INTEGER*4

236
lang_helpers/gds_hp.f
View File

@ -536,118 +536,6 @@ C in string : UNIV gds__string;
C in out descriptor : UNIV sqlda
C ); extern;
C procedure pyxis__compile_map (
C out stat : gds__status_vector;
C in form_handle : gds__handle;
C out map_handle : gds__handle;
C in length : integer16;
C in map : UNIV gds__string
C ); extern;
C procedure pyxis__compile_sub_map (
C out stat : gds__status_vector;
C in form_handle : gds__handle;
C out map_handle : gds__handle;
C in length : integer16;
C in map : UNIV gds__string
C ); extern;
C procedure pyxis__create_window (
C in out window_handle : gds__handle;
C in name_length : integer16;
C in file_name : UNIV gds__string;
C in out width : integer16;
C in out height : integer16
C ); extern;
C procedure pyxis__delete_window (
C in out window_handle : gds__handle
C ); extern;
C procedure pyxis__drive_form (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in out window_handle : gds__handle;
C in map_handle : gds__handle;
C in input : UNIV gds__string;
C in output : UNIV gds__string
C ); extern;
C procedure pyxis__fetch (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in map_handle : gds__handle;
C in output : UNIV gds__string
C ); extern;
C procedure pyxis__insert (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in map_handle : gds__handle;
C in input : UNIV gds__string
C ); extern;
C procedure pyxis__load_form (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in out form_handle : gds__handle;
C in name_length : integer16;
C in form_name : UNIV gds__string
C ); extern;
INTEGER*2 PYXIS__MENU
C function pyxis__menu (
C in out window_handle : gds__handle;
C in out menu_handle : gds__handle;
C in length : integer16;
C in menu : UNIV gds__string
C ) : integer16; extern;
C procedure pyxis__pop_window (
C in window_handle : gds__handle
C ); extern;
C procedure pyxis__reset_form (
C out stat : gds__status_vector;
C in window_handle : gds__handle
C ); extern;
C procedure pyxis__drive_menu (
C in out window_handle : gds__handle;
C in out menu_handle : gds__handle;
C in blr_length : integer16;
C in blr_source : UNIV gds__string;
C in title_length : integer16;
C in title : UNIV gds__string;
C out terminator : integer16;
C out entree_length : integer16;
C out entree_text : UNIV gds__string;
C out entree_value : integer32
C ); extern;
C procedure pyxis__get_entree (
C in menu_handle : gds__handle;
C out entree_length : integer16;
C out entree_text : UNIV gds__string;
C out entree_value : integer32;
C out entree_end : integer16
C ); extern;
C procedure pyxis__initialize_menu (
C in out menu_handle : gds__handle
C ); extern;
C procedure pyxis__put_entree (
C in menu_handle : gds__handle;
C in entree_length : integer16;
C in entree_text : UNIV gds__string;
C in entree_value : integer32
C ); extern;
C PROCEDURE isc_exec_procedure (
C INTEGER*4 STAT(20), { OUTPUT }
C INTEGER*4 DB_HANDLE, { INPUT }
@ -1614,130 +1502,6 @@ C Dynamic SQL datatypes
+ SQL_DATE = 510,
+ SQL_BLOB = 520)
C Forms Package definitions
C Map definition block definitions
INTEGER*2
+ PYXIS__MAP_VERSION1,
+ PYXIS__MAP_FIELD2,
+ PYXIS__MAP_FIELD1,
+ PYXIS__MAP_MESSAGE,
+ PYXIS__MAP_TERMINATOR,
+ PYXIS__MAP_TERMINATING_FIELD,
+ PYXIS__MAP_OPAQUE,
+ PYXIS__MAP_TRANSPARENT,
+ PYXIS__MAP_TAG,
+ PYXIS__MAP_SUB_FORM,
+ PYXIS__MAP_ITEM_INDEX,
+ PYXIS__MAP_SUB_FIELD,
+ PYXIS__MAP_END
PARAMETER (
+ PYXIS__MAP_VERSION1 = 1,
+ PYXIS__MAP_FIELD2 = 2,
+ PYXIS__MAP_FIELD1 = 3,
+ PYXIS__MAP_MESSAGE = 4,
+ PYXIS__MAP_TERMINATOR = 5,
+ PYXIS__MAP_TERMINATING_FIELD = 6,
+ PYXIS__MAP_OPAQUE = 7,
+ PYXIS__MAP_TRANSPARENT = 8,
+ PYXIS__MAP_TAG = 9,
+ PYXIS__MAP_SUB_FORM = 10,
+ PYXIS__MAP_ITEM_INDEX = 11,
+ PYXIS__MAP_SUB_FIELD = 12,
+ PYXIS__MAP_END = -1)
C Field option flags for display options
INTEGER*2
+ PYXIS__OPT_DISPLAY,
+ PYXIS__OPT_UPDATE,
+ PYXIS__OPT_WAKEUP,
+ PYXIS__OPT_POSITION
PARAMETER (
+ PYXIS__OPT_DISPLAY = 1,
+ PYXIS__OPT_UPDATE = 2,
+ PYXIS__OPT_WAKEUP = 4,
+ PYXIS__OPT_POSITION = 8)
C Field option values following display
INTEGER*2
+ PYXIS__OPT_NULL,
+ PYXIS__OPT_DEFAULT,
+ PYXIS__OPT_INITIAL,
+ PYXIS__OPT_USER_DATA
PARAMETER (
+ PYXIS__OPT_NULL = 1,
+ PYXIS__OPT_DEFAULT = 2,
+ PYXIS__OPT_INITIAL = 3,
+ PYXIS__OPT_USER_DATA = 4)
C Pseudo key definitions
INTEGER*2
+ PYXIS__KEY_DELETE,
+ PYXIS__KEY_UP,
+ PYXIS__KEY_DOWN,
+ PYXIS__KEY_RIGHT,
+ PYXIS__KEY_LEFT,
+ PYXIS__KEY_PF1,
+ PYXIS__KEY_PF2,
+ PYXIS__KEY_PF3,
+ PYXIS__KEY_PF4,
+ PYXIS__KEY_PF5,
+ PYXIS__KEY_PF6,
+ PYXIS__KEY_PF7,
+ PYXIS__KEY_PF8,
+ PYXIS__KEY_PF9,
+ PYXIS__KEY_ENTER,
+ PYXIS__KEY_SCROLL_TOP,
+ PYXIS__KEY_SCROLL_BOTTOM
PARAMETER (
+ PYXIS__KEY_DELETE = 127,
+ PYXIS__KEY_UP = 128,
+ PYXIS__KEY_DOWN = 129,
+ PYXIS__KEY_RIGHT = 130,
+ PYXIS__KEY_LEFT = 131,
+ PYXIS__KEY_PF1 = 132,
+ PYXIS__KEY_PF2 = 133,
+ PYXIS__KEY_PF3 = 134,
+ PYXIS__KEY_PF4 = 135,
+ PYXIS__KEY_PF5 = 136,
+ PYXIS__KEY_PF6 = 137,
+ PYXIS__KEY_PF7 = 138,
+ PYXIS__KEY_PF8 = 139,
+ PYXIS__KEY_PF9 = 140,
+ PYXIS__KEY_ENTER = 141,
+ PYXIS__KEY_SCROLL_TOP = 146,
+ PYXIS__KEY_SCROLL_BOTTOM = 147)
C Menu definition stuff
INTEGER*2
+ PYXIS__MENU_VERSION1,
+ PYXIS__MENU_LABEL,
+ PYXIS__MENU_ENTREE,
+ PYXIS__MENU_OPAQUE,
+ PYXIS__MENU_TRANSPARENT,
+ PYXIS__MENU_HORIZONTAL,
+ PYXIS__MENU_VERTICAL,
+ PYXIS__MENU_END
PARAMETER (
+ PYXIS__MENU_VERSION1 = 1,
+ PYXIS__MENU_LABEL = 2,
+ PYXIS__MENU_ENTREE = 3,
+ PYXIS__MENU_OPAQUE = 4,
+ PYXIS__MENU_TRANSPARENT = 5,
+ PYXIS__MENU_HORIZONTAL = 6,
+ PYXIS__MENU_VERTICAL = 7,
+ PYXIS__MENU_END = -1)
C database parameter block stuff

237
lang_helpers/gds_sun.f
View File

@ -338,118 +338,6 @@ C in string : UNIV gds__string;
C in out descriptor : UNIV sqlda
C ); extern;
C procedure pyxis__compile_map (
C out stat : gds__status_vector;
C in form_handle : gds__handle;
C out map_handle : gds__handle;
C in length : integer16;
C in map : UNIV gds__string
C ); extern;
C procedure pyxis__compile_sub_map (
C out stat : gds__status_vector;
C in form_handle : gds__handle;
C out map_handle : gds__handle;
C in length : integer16;
C in map : UNIV gds__string
C ); extern;
C procedure pyxis__create_window (
C in out window_handle : gds__handle;
C in name_length : integer16;
C in file_name : UNIV gds__string;
C in out width : integer16;
C in out height : integer16
C ); extern;
C procedure pyxis__delete_window (
C in out window_handle : gds__handle
C ); extern;
C procedure pyxis__drive_form (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in out window_handle : gds__handle;
C in map_handle : gds__handle;
C in input : UNIV gds__string;
C in output : UNIV gds__string
C ); extern;
C procedure pyxis__fetch (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in map_handle : gds__handle;
C in output : UNIV gds__string
C ); extern;
C procedure pyxis__insert (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in map_handle : gds__handle;
C in input : UNIV gds__string
C ); extern;
C procedure pyxis__load_form (
C out stat : gds__status_vector;
C in db_handle : gds__handle;
C in trans_handle : gds__handle;
C in out form_handle : gds__handle;
C in name_length : integer16;
C in form_name : UNIV gds__string
C ); extern;
INTEGER*2 PYXIS__MENU
C function pyxis__menu (
C in out window_handle : gds__handle;
C in out menu_handle : gds__handle;
C in length : integer16;
C in menu : UNIV gds__string
C ) : integer16; extern;
C procedure pyxis__pop_window (
C in window_handle : gds__handle
C ); extern;
C procedure pyxis__reset_form (
C out stat : gds__status_vector;
C in window_handle : gds__handle
C ); extern;
C procedure pyxis__drive_menu (
C in out window_handle : gds__handle;
C in out menu_handle : gds__handle;
C in blr_length : integer16;
C in blr_source : UNIV gds__string;
C in title_length : integer16;
C in title : UNIV gds__string;
C out terminator : integer16;
C out entree_length : integer16;
C out entree_text : UNIV gds__string;
C out entree_value : integer32
C ); extern;
C procedure pyxis__get_entree (
C in menu_handle : gds__handle;
C out entree_length : integer16;
C out entree_text : UNIV gds__string;
C out entree_value : integer32;
C out entree_end : integer16
C ); extern;
C procedure pyxis__initialize_menu (
C in out menu_handle : gds__handle
C ); extern;
C procedure pyxis__put_entree (
C in menu_handle : gds__handle;
C in entree_length : integer16;
C in entree_text : UNIV gds__string;
C in entree_value : integer32
C ); extern;
C PROCEDURE isc_exec_procedure (
C INTEGER*4 STAT(20), { OUTPUT }
C INTEGER*4 DB_HANDLE, { INPUT }
@ -1428,131 +1316,6 @@ C Dynamic SQL datatypes
+ SQL_DATE = 510,
+ SQL_BLOB = 520)
C Forms Package definitions
C Map definition block definitions
INTEGER*2
+ PYXIS__MAP_VERSION1,
+ PYXIS__MAP_FIELD2,
+ PYXIS__MAP_FIELD1,
+ PYXIS__MAP_MESSAGE,
+ PYXIS__MAP_TERMINATOR,
+ PYXIS__MAP_TERMINATING_FIELD,
+ PYXIS__MAP_OPAQUE,
+ PYXIS__MAP_TRANSPARENT,
+ PYXIS__MAP_TAG,
+ PYXIS__MAP_SUB_FORM,
+ PYXIS__MAP_ITEM_INDEX,
+ PYXIS__MAP_SUB_FIELD,
+ PYXIS__MAP_END
PARAMETER (
+ PYXIS__MAP_VERSION1 = 1,
+ PYXIS__MAP_FIELD2 = 2,
+ PYXIS__MAP_FIELD1 = 3,
+ PYXIS__MAP_MESSAGE = 4,
+ PYXIS__MAP_TERMINATOR = 5,
+ PYXIS__MAP_TERMINATING_FIELD = 6,
+ PYXIS__MAP_OPAQUE = 7,
+ PYXIS__MAP_TRANSPARENT = 8,
+ PYXIS__MAP_TAG = 9,
+ PYXIS__MAP_SUB_FORM = 10,
+ PYXIS__MAP_ITEM_INDEX = 11,
+ PYXIS__MAP_SUB_FIELD = 12,
+ PYXIS__MAP_END = -1)
C Field option flags for display options
INTEGER*2
+ PYXIS__OPT_DISPLAY,
+ PYXIS__OPT_UPDATE,
+ PYXIS__OPT_WAKEUP,
+ PYXIS__OPT_POSITION
PARAMETER (
+ PYXIS__OPT_DISPLAY = 1,
+ PYXIS__OPT_UPDATE = 2,
+ PYXIS__OPT_WAKEUP = 4,
+ PYXIS__OPT_POSITION = 8)
C Field option values following display
INTEGER*2
+ PYXIS__OPT_NULL,
+ PYXIS__OPT_DEFAULT,
+ PYXIS__OPT_INITIAL,
+ PYXIS__OPT_USER_DATA
PARAMETER (
+ PYXIS__OPT_NULL = 1,
+ PYXIS__OPT_DEFAULT = 2,
+ PYXIS__OPT_INITIAL = 3,
+ PYXIS__OPT_USER_DATA = 4)
C Pseudo key definitions
INTEGER*2
+ PYXIS__KEY_DELETE,
+ PYXIS__KEY_UP,
+ PYXIS__KEY_DOWN,
+ PYXIS__KEY_RIGHT,
+ PYXIS__KEY_LEFT,
+ PYXIS__KEY_PF1,
+ PYXIS__KEY_PF2,
+ PYXIS__KEY_PF3,
+ PYXIS__KEY_PF4,
+ PYXIS__KEY_PF5,
+ PYXIS__KEY_PF6,
+ PYXIS__KEY_PF7,
+ PYXIS__KEY_PF8,
+ PYXIS__KEY_PF9,
+ PYXIS__KEY_ENTER,
+ PYXIS__KEY_SCROLL_TOP,
+ PYXIS__KEY_SCROLL_BOTTOM
PARAMETER (
+ PYXIS__KEY_DELETE = 127,
+ PYXIS__KEY_UP = 128,
+ PYXIS__KEY_DOWN = 129,
+ PYXIS__KEY_RIGHT = 130,
+ PYXIS__KEY_LEFT = 131,
+ PYXIS__KEY_PF1 = 132,
+ PYXIS__KEY_PF2 = 133,
+ PYXIS__KEY_PF3 = 134,
+ PYXIS__KEY_PF4 = 135,
+ PYXIS__KEY_PF5 = 136,
+ PYXIS__KEY_PF6 = 137,
+ PYXIS__KEY_PF7 = 138,
+ PYXIS__KEY_PF8 = 139,
+ PYXIS__KEY_PF9 = 140,
+ PYXIS__KEY_ENTER = 141,
+ PYXIS__KEY_SCROLL_TOP = 146,
+ PYXIS__KEY_SCROLL_BOTTOM = 147)
C Menu definition stuff
INTEGER*2
+ PYXIS__MENU_VERSION1,
+ PYXIS__MENU_LABEL,
+ PYXIS__MENU_ENTREE,
+ PYXIS__MENU_OPAQUE,
+ PYXIS__MENU_TRANSPARENT,
+ PYXIS__MENU_HORIZONTAL,
+ PYXIS__MENU_VERTICAL,
+ PYXIS__MENU_END
PARAMETER (
+ PYXIS__MENU_VERSION1 = 1,
+ PYXIS__MENU_LABEL = 2,
+ PYXIS__MENU_ENTREE = 3,
+ PYXIS__MENU_OPAQUE = 4,
+ PYXIS__MENU_TRANSPARENT = 5,
+ PYXIS__MENU_HORIZONTAL = 6,
+ PYXIS__MENU_VERTICAL = 7,
+ PYXIS__MENU_END = -1)
C database parameter block stuff
INTEGER*4