| 767 | |
| 768 | |
| 769 | int Tcl_InterpOpenSeesObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) |
| 770 | { |
| 771 | int index; |
| 772 | static TCL_Char *options[] = { |
| 773 | "alias", "aliases", "create", "delete", |
| 774 | "eval", "exists", "expose", "hide", |
| 775 | "hidden", "issafe", "invokehidden", "marktrusted", |
| 776 | "recursionlimit", "slaves", "share", |
| 777 | "target", "transfer", |
| 778 | NULL |
| 779 | }; |
| 780 | enum option { |
| 781 | OPT_ALIAS, OPT_ALIASES, OPT_CREATE, OPT_DELETE, |
| 782 | OPT_EVAL, OPT_EXISTS, OPT_EXPOSE, OPT_HIDE, |
| 783 | OPT_HIDDEN, OPT_ISSAFE, OPT_INVOKEHID, OPT_MARKTRUSTED, |
| 784 | OPT_RECLIMIT, OPT_SLAVES, OPT_SHARE, |
| 785 | OPT_TARGET, OPT_TRANSFER |
| 786 | }; |
| 787 | |
| 788 | int ok = TCL_OK; |
| 789 | //int ok = Tcl_InterpObjCmd(clientData, interp, objc, objv); |
| 790 | //if (ok != TCL_OK) |
| 791 | //return ok; |
| 792 | |
| 793 | if (Tcl_GetIndexFromObj(interp, objv[1], options, "option", 0, &index) != TCL_OK) { |
| 794 | return TCL_ERROR; |
| 795 | } |
| 796 | |
| 797 | switch ((enum option) index) { |
| 798 | case OPT_CREATE: { |
| 799 | TCL_Char *theInterpreterName = Tcl_GetStringResult(interp); |
| 800 | Tcl_Interp *secondaryInterp = Tcl_GetSlave(interp, theInterpreterName); |
| 801 | ok = OpenSeesAppInit(secondaryInterp); |
| 802 | return ok; |
| 803 | break; |
| 804 | } |
| 805 | default: |
| 806 | return ok; |
| 807 | } |
| 808 | |
| 809 | return ok; |
| 810 | } |
| 811 | |
| 812 | |
| 813 | int OpenSeesAppInit(Tcl_Interp *interp) { |
nothing calls this directly
no test coverage detected