#!/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]
      

                 X    X  `  I9.0.00/32      i:Ŗ                                               ,   ,                            :   C      T      =       N   C      T      =       N   C   ,   T      M   -   <   M       j   =      N   C   ,   T      M   <      M         =      N   C      T      =       N   C      U   E   S       T      =          F   U   U   E   S       M            N   T      M   
      S       M   #      S       M      
  =      N   5   N   E   D                                                                                4                             $     ,  C   8   E   S       T      M      1  <   L   =         N   C      >      ,   C   <   T      E   T      3   =      <         =      N   C   ,   T      T      3   =      =      N   E   S      T      E   T      3   =      <         =         7   N   C      U   T      E   E   S       M      1  M      7  M      1  M   >   N  M      1  M        M      1  E   M        S         M      1  S       A         =      F   5   N   C      U   T      M        E   E   M         M   E     M   E     M   G   I  M   D     M         M   D     M   F     M   >   b  M         M   E     M   '     M         A   
      =      F   5   N   C      T      S       =      N   C       T      M      1  =      N   C   (   T      M        >   =   =      N   C       T      M      1  =      N   C      T      S       =      N   C      C      E   G   D   N   E   D                                                                      $      )       .   ,     <    
 X   ! 	    " 	    $ 	    & 	   (    (  8  )  |  *    ,    /  L  2  T  2  d  4  l  4    5    5    5 
   6    6 
   7     7  $  7  ,  7  0  4    C    :    :    :    H    H    H    W 	 $  X 	 L  Y # T  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:   