| 45 | extern void printCommand(int argc, char** argv); |
| 46 | |
| 47 | int |
| 48 | TclModelBuilder_addJoint2D(ClientData clientData, Tcl_Interp* interp, |
| 49 | int argc, |
| 50 | TCL_Char** argv, |
| 51 | Domain* theTclDomain) |
| 52 | { |
| 53 | // check the number of arguments is correct |
| 54 | int argStart = 2; |
| 55 | |
| 56 | if ((argc - argStart) != 8 && (argc - argStart) != 10 && (argc - argStart) != 12 && (argc - argStart) != 18) { |
| 57 | opserr << "WARNING incorrect number of arguments\n"; |
| 58 | opserr << "Want:\n"; |
| 59 | opserr << "element Joint2D Tag? NodI? NodJ? NodK? NodL? NodC? MatC? LrgDsp?\n"; |
| 60 | opserr << "or:\n"; |
| 61 | opserr << "element Joint2D Tag? NodI? NodJ? NodK? NodL? NodC? MatC? LrgDsp? -damage DmgTag?\n"; |
| 62 | opserr << "or:\n"; |
| 63 | opserr << "element Joint2D Tag? NodI? NodJ? NodK? NodL? NodC? MatI? MatJ? MatK? MatL? MatC? LrgDsp?\n"; |
| 64 | opserr << "or:\n"; |
| 65 | opserr << "element Joint2D Tag? NodI? NodJ? NodK? NodL? NodC? MatI? MatJ? MatK? MatL? MatC? LrgDsp? -damage DmgI DmgJ DmgK DmgL DmgC\n"; |
| 66 | return TCL_ERROR; |
| 67 | } |
| 68 | |
| 69 | // get the id and end nodes |
| 70 | int Joint2DId, iNode, jNode, kNode, lNode; |
| 71 | if (Tcl_GetInt(interp, argv[argStart], &Joint2DId) != TCL_OK) { |
| 72 | opserr << "WARNING invalid Joint2D eleTag" << endln; |
| 73 | return TCL_ERROR; |
| 74 | } |
| 75 | |
| 76 | if (Tcl_GetInt(interp, argv[1 + argStart], &iNode) != TCL_OK) { |
| 77 | opserr << "WARNING invalid iNode\n"; |
| 78 | opserr << "Joint2D element: " << Joint2DId << endln; |
| 79 | return TCL_ERROR; |
| 80 | } |
| 81 | |
| 82 | if (Tcl_GetInt(interp, argv[2 + argStart], &jNode) != TCL_OK) { |
| 83 | opserr << "WARNING invalid jNode\n"; |
| 84 | opserr << "Joint2D element: " << Joint2DId << endln; |
| 85 | return TCL_ERROR; |
| 86 | } |
| 87 | |
| 88 | if (Tcl_GetInt(interp, argv[3 + argStart], &kNode) != TCL_OK) { |
| 89 | opserr << "WARNING invalid kNode\n"; |
| 90 | opserr << "Joint2D element: " << Joint2DId << endln; |
| 91 | return TCL_ERROR; |
| 92 | } |
| 93 | |
| 94 | if (Tcl_GetInt(interp, argv[4 + argStart], &lNode) != TCL_OK) { |
| 95 | opserr << "WARNING invalid lNode\n"; |
| 96 | opserr << "Joint2D element: " << Joint2DId << endln; |
| 97 | return TCL_ERROR; |
| 98 | } |
| 99 | |
| 100 | // Get the center node |
| 101 | int CenterNodeTag; |
| 102 | if (Tcl_GetInt(interp, argv[5 + argStart], &CenterNodeTag) != TCL_OK) { |
| 103 | opserr << "WARNING invalid tag for center node\n"; |
| 104 | opserr << "Joint2D element: " << Joint2DId << endln; |
no test coverage detected