#!/bin/sh
IXBIN=/usr/local/lib/icon/iconx                                               
IXLCL=`echo $0 | sed 's=[^/]*$=iconx='`

[ -n "$ICONX" ] && exec "$ICONX" $0 ${1+"$@"}
[ -x "$IXLCL" ] && exec "$IXLCL" $0 ${1+"$@"}
[ -x "$IXBIN" ] && exec "$IXBIN" $0 ${1+"$@"}
exec iconx $0 ${1+"$@"}

[executable Icon binary follows]
      

                     
      
      
      
      
            
            (I9.0.00/32                          :i                                                                                                      X       X                                                            :   b   C       $   b   T          b   =           N   C       $   b   T          b   =           N   C       T   b   T          b   M       -       <   b   M               j   b   =          N   C       T   b   T          b   M       <          b   M                 b   =          N   C       $   b   T          b   =           N   C         U   E   b   S           b   T          b   =              F   U   U   E   S           b   M                    N   b   T          b   M       
          b   S           b   M       #          b   S           b   M             
   b   =          N   5   N   E   D                                                                                                            h                                                                $             ,   b   C       `   E   S           b   T          b   M             1   b   <       L   b   =             N   b   C      d   b   >          ,   C       d   b   T          E   T          b   3h   b   =          b   <             =          N   C       T   b   T          b   T          b   3(   b   =          b   =          N   E   b   S          b   T          E   T          b   3   b   =          b   <             =             7   N   C      L   U   T          E   E   b   S           b   M             1   b   M             7   b   M             1   b   M       >      N   b   M             1   b   M                b   M             1   E   M                b   S             M             1   b   S           b   A             =          F   5   N   C         U   T          b   M                E   E   b   M                 b   M       E         b   M       E         b   M       G      I   b   M       D         b   M                 b   M       D         b   M       F         b   M       >      b   b   M                 b   M       E         b   M       '         b   M                 b   A       
      =          F   5   N   C       4   b   T          b   S           b   =          N   C       <   b   T          b   M             1   b   =          N   C       L   b   T          b   M                b   >       =   b   =          N   C       <   b   T          b   M             1   b   =          N   C       4   b   T          b   S           b   =          N   C           b   C          E   G   D   N   E   D                                  0                  ð                                                                                                                      $              )               .       X             x 
             	 !           	 "          h 	 $           	 &            (            (          (  )            *            ,            /            2             2            4          (  4          h  5            5           
 5            6           
 6          @  7          `  7          d  7          p  7          t  4            C            :            :            :          H  H          X  H          \  H           	 W           	 X          	0 # Y          	@ 	 Y          	 	 Z          	 	 [          	  ]          
  ^    main header write function repl tab upto many gftrace.icn s procedure _func(a[]); _func:=proc("proc",0);  proc:=_proc; return _func!a; end procedure _proc(a[]); static p; initial p:=_func("proc",0);  suspend p!a; end proc procedure  (a[]); static p; initial p:=_func(" ",0); suspend p!a; end divider date # ,   #	File:     ftrace.icn #	Subject:  Procedures for tracing calls to built-in functions #	Author:   Gregg M. Townsend #	Date:      #       These procedures, when linked with an Icon program, cause calls of built-in functions to be traced (along with calls of user procedures) when &trace is nonzero.  This is accomplished by interposing a level of Icon procedures between the user program and the built-in functions.    In the trace output, function arguments are shown as a list.  The very first function call produces two extra trace lines showing a call to "_func".  Calls to "proc" are reported as calls to "_proc".    If the user program overloads any built-in function, linking fails due to an "inconsistent redeclaration". #  Generated under:   