OLD | NEW |
1 /* | 1 /* |
2 ** 2001 September 15 | 2 ** 2001 September 15 |
3 ** | 3 ** |
4 ** The author disclaims copyright to this source code. In place of | 4 ** The author disclaims copyright to this source code. In place of |
5 ** a legal notice, here is a blessing: | 5 ** a legal notice, here is a blessing: |
6 ** | 6 ** |
7 ** May you do good and not evil. | 7 ** May you do good and not evil. |
8 ** May you find forgiveness for yourself and forgive others. | 8 ** May you find forgiveness for yourself and forgive others. |
9 ** May you share freely, never taking more than you give. | 9 ** May you share freely, never taking more than you give. |
10 ** | 10 ** |
(...skipping 3656 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
3667 fprintf(stderr,"%s: %s\n", *argv, zInfo); | 3667 fprintf(stderr,"%s: %s\n", *argv, zInfo); |
3668 return 1; | 3668 return 1; |
3669 } | 3669 } |
3670 } | 3670 } |
3671 if( TCLSH==2 || argc<=1 ){ | 3671 if( TCLSH==2 || argc<=1 ){ |
3672 Tcl_GlobalEval(interp, zMainloop); | 3672 Tcl_GlobalEval(interp, zMainloop); |
3673 } | 3673 } |
3674 return 0; | 3674 return 0; |
3675 } | 3675 } |
3676 #endif /* TCLSH */ | 3676 #endif /* TCLSH */ |
OLD | NEW |