Informix Code Cross referencer for 4GL
More toys for all..... - use at your own risk... XREF.4GI - Informix Code Cross Referencer for 4GL programs. This program requires Informix RDS on your machine and the capability and know-how to make an Informix RDS 4GL runner. It also requires Informix 4.10 or greater. The platform should not matter, since it is using RDS. Please do not contact me with millions of questions if you do not know the basics of doing this, as I have a job, just like all of you. TO SETUP. 1) Split the source code out of this file into the appropriate files 2) uudncode the xref.4gi 3) run the "sql" program "xref.sql" 4) compile and create runner with enclosed "fileio.c" and "fgiusr.c" 5) compile the forms "xref.per" and "xrefdisp.per" 6) Make sure the forms and database are setup correctly either in the current directory or in your DBPATH TO RUN. Put a list of all the ".4gl" files that make a single executable into a single ascii file. (for example if you have a.4gl, b.4gl and c.4gl that make up a.4gi the file should just have a list of the file names, with one on each line). Entering: cat <file name> would result in a.4gl b.4gl c.4gl then simply enter: <runner name> xref <the file name that holds the above list> Output: <file name of list>.4gx -> Function cross reference <file name of list>.crx -> Cursor cross reference <file name of list>.fmx -> Form/Window cross reference START OF SOURCE CODE: ------------------ start of xref.4gi for uuencode --------------- begin 644 xref.4gi M 0 ( @ *>')E9BXT9VP "V&'[0$!08 !6UA:6X !P1/A / "1 M 0 %, #W( 'R" !BP 4P 1*P !4P 5;P !(( ! &+ %C "1 > M E, %W( 1&& )$ !X "4P 9;P 88 !D0 '@ )^ !3 !QR $Q>@ .1 > M E, '2^ ___D0 '@ )3 !]R %5A@ *1 > E, (&Z B" ! !BP !8P ! MD0 '@ )3 "%O %!W $^;P "-&, 9$ !X "4P B;( ";P "=P !+0 !! "1 M > E, )'( ?V& I$ !X "4P E;( ";P 4;P !+0 !"P"1 > E, )W( MT&& I$ !X "4P H;H "(( $ &+ %C &1 > E, *6\\ 4'< 3YO (T M8P !D0 '@ )3 "IL@ )O !5W $M $# )$ !X "4P K<@$&88 "D0 '@ )3 M "QN@ (@@ 0 8L 6, 9$ !X "4P M;P!0=P !/F\\ C1C &1 > E, M+FR F\\ %G< 2T 0, D0 '@ )3 #%T =C *1 > E, ,VZ #<[= ' M;H H@ ;,Y$ !X "20,-4P T)I$ !X "4P U(X #D0 '@ )3 #9R 4)A@ *1 M > E, -VZ B" ! !BP !8P !D0 '@ )3 #AO %!W $^;P "-&, 9$ M!X "4P Y;( ";P *=P !+0 ! P"1 > E, .W(!@VZ &R E I$ !X " M4P \\;H "(( $ &+ %C &1 > E, /6\\ 4'< 3YO (T8P !D0 '@ )3 M #YL@ )O MW $M $# )$ !X "4P! <@&288 "D0 '@ )3 $%N@ (@@ 0 M 8L 6, 9$ !X "4P!";P!0=P !/F\\ C1C &1 > E, 0VR F\\ #'< M 2T 0, D0 '@ )3 $5R <1A@ *1 > E, 1FZ B" ! !BP !8P !D0 ' M@ )3 $=O %!W $^;P "-&, 9$ !X "4P!(;( ";P .=P !+0 ! P"1 > M E, 24, $@#8U, 2W("!FZ &R E I$ !X "4P!,;H "(( $ &+ %C M &1 > E, 36\\ 4'< 3YO (T8P !D0 '@ )3 $YL@ )O !)W $M $# M )$ !X "4P!2=P (( % %H &+ %2 &1 > E, 5'("*&\\ %&\\ 2T M ?__D0 '@ )3 %8ED0 '@ )3 %<C@ .1 > E, 67< 9$ !X "200U4P!: M;P *;P *;P #;P \\;___;___;___;___;___;P L( & &1 > E, 7'(" M,6\\ F\\ "BT ?__D0 '@ )3 %T@@ < (L %, 7G< "" " !BP 4P!? M=P (( ) &+ !3 &!W @@ H 8L %, 88^ !I$ !X "4P!D(( + "+ M !3 &4FD0 '@ )3 &=Y ) , ! $ ! D 0 $ M 0 ( 0 + $@ ' $ $ $* %@@"CF9I;&5L:7-T '@ 9'1E M &1A=&%B87-E(")X<F5F(@!X<F5F+FQO9P!S=&%R=&QO9P!A<F=?=F%L 'AR M969?97)R;W( -R\\S,2\\Y- !X<F5F9&ES< !)3D9/4DU)6" T1TP@0T]$12!# M4D]34R!2149%4D5.0T52 &QE;F=T: @(" @(" @($-O<'ER:6=H=" H8RD@ M,3DX-R M(#$Y.3(@4W1U87)T($QI=&5L("T@06QL(%)I9VAT<R!297-E<G9E M9"X@(" @(" @(" @( !0+D\\N($)O>" T,"P@3F5W=&]N=FEL;&4L($U!+B P M,C$V,"P@*#8Q-RD@-3(W("T@-#4U,0!!=71H;W(@87-S=6UE<R!N;R!R97-P M;VYS:6)I;&ET>2!F;W(@86YY(&-O9&4O97)R;W)S(&AE<F5I;@!4:&ES(&ES M(&$@1$5-3R!C;W!Y(&]F('1H92!);F9O<FUI>"!#;V1E($-R;W-S(%)E9F5R M96YC92!0<F]G<F%M $ET(&5X<&ER960@;VX@ %1O('!U<F-H87-E(&$@9G5L M;'D@=V]R:VEN9R!C;W!Y+"!P;&5A<V4@8V]N=&%C=#H 4W1U87)T($QI=&5L M+"!0+D\\N($)O>" T,"P@3F5W=&]N=FEL;&4L($U!(# R,38P("@V,3<I(#4R M-R M(#0U-3$ 1$5-3R!#3U!9(" @($5X<&ER97,@.B ;&]A9%]I;F9O !W M,E]X<F5F %-O<G1I;F<@86YD(%!R:6YT:6YG(%)E<&]R=" M(%!L96%S92!7 M86ET+BXN &-R;W-S7W)E9@!P<FEN=%]R968 <')I;G1?9G)M '!R:6YT7V-U M<@!C;&5A;G5P !D X F $AH # H0 , ,4 # #E P!,0 $ >$ # AY M P(I0 T"7D # FA P)R0 ,"?$ # H9 QL /@ * W__P / \\ "@ 1 !, M& 5 !4 '@ 7 !< - 9 !D 0@ < !P 4P = !T 80 ? !\\ ;@ @ " ? A M "$ D@ B "( J D "0 O@ E "4 S G "< X@ H "@ \\ I "D!!@ J "H! M' K "L!,@ L "P!0 M "T!5@ N "X!; Q #$!@@ S #,!D T #0!J@ U M #4!LP V #8!O@ W #<!S X #@!X@ Y #D!^ [ #L"#@ \\ #P"(@ ] #T" M. ^ #X"3@! $ "9 !! $$"<@!" $("B !# $,"G@!% $4"M !& $8"P@!' M $<"V !( $@"[@!) $H#! !+ $L##0!, $P#(0!- $T#-P!. $X#30!2 %(# M8P!4 %0#? !6 %8#D@!7 %<#FP!9 %D#I@!: %L#M !< %P#WP!= %T#]0!> M %X$ !? %\\$#@!@ & $' !A &$$*@!D &0$-0!E &4$0 !G &<$208 "FQO M861?:6YF;P 0 ! ' E9C "1 > %, ;W< "" 0 !BP !8P $D0 ' M@ !3 '%W !W 1R #4@@ ( V@ XL 5( 9$ !X 4P!R=P #.Y$ !X M20!V4P!S<@! : (7( 2$ ___D0 '@ !3 '1O . 4P!U;P >0 !2 #8 M4P!W;P *;P *;P #;P \\;___;___;___;___;___;P L( # &1 > %, M>7( 6F\\ F\\ "BT ?__D0 '@ !3 'L@@ 0 &@ 8L 5( 9$ !X 4P!\\ M(( % "+ !3 ( @@ 8 (L %, @H, H)$ !X 4P"(@P#ND0 '@ !3 (J# M 1R1 > %, D8,!AY$ !X 4P"2@P&WD0 '@ !3 )2# ?"1 > %, FX," M09$ !X 4P"B@P*2D0 '@ !3 *N/@ .1 > %, K6\\ 6, I$ !X =P " M=P !H@ ;2@)'4P"N;( =P "B'4 2" 0 !BP !8P $D0 '@ !3 *]W 1O M "B !:1 > $D!EU, L$@"-E, LFR '< HAU %W 1R #4@@ ( V@ M XL 5( 9$ !X 4P"S=P #.Y$ !X 20(+4P"T<@,.;( =P "B$ O__ MD0 '@ !3 +5L@ !W *(=0 !(( ' &+ !3 +9O . 4P"W;P >0 !2 (V M4P"Y;( =P "B'4 2" " !: #BP !4@ !D0 '@ !3 +H@@ 4 (L %, MK6@ AP 9$ !X 2 %44P"];P !>0 !4P"_>0 "0 % 0 M ! 0 ) $ ! $ " $ #@ !( 0 ! @ ! !8 4 $ M 0 ( 0 ? %@ ! $ " $* & @#.F9I;&5L:7-T &9C;G0 M9FEL96YU;0!E<G)?8V]D90!L96X >')E9E]E<G)O<@!L96YG=&@ <@!O<&5N M=&5X= !F:6QE(#H@ "!I<R!E;7!T>0!W,5]X<F5F $QO861I;F<@1FEL92!. M86UE<R M(%!L96%S92!786ET+BXN &QO861?9FEL95]N86UE<P!C;&]S971E M>'0 8VQE86YU< !C<F5A=&4@=&5M<"!T86)L92!C86QL;&ES=" H('!R;V<@ M8VAA<B@Q-2DL(&QI;F5?;F\\@<VUA;&QI;G0L(&9U;F-T(&-H87(H,C4I*0!C M<F5A=&4@("!I;F1E>"!C86QL;&ES=%\\Q(&]N(&-A;&QL:7-T("@@<')O9RD M8W)E871E('1E;7 @=&%B;&4@9G5N8W1L:7-T("@@<')O9R!C:&%R*#$U*2P@ M9G5N8W0@8VAA<B@R-2DL('-T87)T7VQI;F5?;F\\@<VUA;&QI;G0L(&5N9%]L M:6YE7VYO('-M86QL:6YT*0!C<F5A=&4@("!I;F1E>"!F=6YC=&QI<W1?,2!O M;B!F=6YC=&QI<W0@*"!P<F]G*0!C<F5A=&4@("!I;F1E>"!F=6YC=&QI<W1? M,B!O;B!F=6YC=&QI<W0@*"!S=&%R=%]L:6YE7VYO*0!C<F5A=&4@=&5M<"!T M86)L92!F;W)M;&ES=" H('!R;V<@8VAA<B@Q-2DL(&QI;F5?;F\\@<VUA;&QI M;G0L(&9O<FUN86UE(&-H87(H,34I*0!C<F5A=&4@=&5M<"!T86)