Rev 1074 | Rev 1225 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 1074 | Rev 1119 | ||
|---|---|---|---|
| Line 16... | Line 16... | ||
| 16 | ** Gregory L. Fenves (fenves@ce.berkeley.edu) **
|
16 | ** Gregory L. Fenves (fenves@ce.berkeley.edu) **
|
| 17 | ** Filip C. Filippou (filippou@ce.berkeley.edu) **
|
17 | ** Filip C. Filippou (filippou@ce.berkeley.edu) **
|
| 18 | ** **
|
18 | ** **
|
| 19 | ** ****************************************************************** */
|
19 | ** ****************************************************************** */
|
| 20 | 20 | ||
| 21 | // $Revision: 1.18 $
|
- | |
| 22 | // $Date: 2002-07-23 17:03:53 $
|
- | |
| - | 21 | // $Revision: 1.19 $
|
|
| - | 22 | // $Date: 2002-10-22 19:49:50 $
|
|
| 23 | // $Source: /usr/local/cvs/OpenSees/SRC/element/TclElementCommands.cpp,v $
|
23 | // $Source: /usr/local/cvs/OpenSees/SRC/element/TclElementCommands.cpp,v $
|
| 24 | 24 | ||
| 25 | 25 | ||
| 26 | // File: ~/element/TclElementCommands.C
|
26 | // File: ~/element/TclElementCommands.C
|
| 27 | //
|
27 | //
|
| Line 170... | Line 170... | ||
| 170 | int,
|
170 | int,
|
| 171 | char **, |
171 | char **, |
| 172 | Domain*,
|
172 | Domain*,
|
| 173 | TclModelBuilder *,
|
173 | TclModelBuilder *,
|
| 174 | int); |
174 | int); |
| - | 175 | ||
| - | 176 | //Rohit Kraul
|
|
| - | 177 | extern int |
|
| - | 178 | TclModelBuilder_addElastic2dGNL(ClientData, Tcl_Interp *, int, char **, |
|
| - | 179 | Domain *,TclModelBuilder *); |
|
| - | 180 | extern int |
|
| - | 181 | TclModelBuilder_addElement2dYS(ClientData, Tcl_Interp *, int, char **, |
|
| - | 182 | Domain *,TclModelBuilder *); |
|
| 175 | 183 | ||
| 176 | 184 | ||
| 177 | int
|
185 | int
|
| 178 | TclModelBuilderElementCommand(ClientData clientData, Tcl_Interp *interp, |
186 | TclModelBuilderElementCommand(ClientData clientData, Tcl_Interp *interp, |
| 179 | int argc, char **argv, |
187 | int argc, char **argv, |
| Line 326... | Line 334... | ||
| 326 | return TCL_ERROR; |
334 | return TCL_ERROR; |
| 327 | } else if ((strcmp(argv[1],"Joint2D") == 0) || |
335 | } else if ((strcmp(argv[1],"Joint2D") == 0) || |
| 328 | (strcmp(argv[1],"Joint2D") == 0)) { |
336 | (strcmp(argv[1],"Joint2D") == 0)) { |
| 329 | int result = TclModelBuilder_addJoint2D(clientData, interp, argc, argv, |
337 | int result = TclModelBuilder_addJoint2D(clientData, interp, argc, argv, |
| 330 | theTclDomain, theTclBuilder); |
338 | theTclDomain, theTclBuilder); |
| - | 339 | return result; |
|
| - | 340 | } else if ((strcmp(argv[1], "inelastic2dYS01")== 0) || |
|
| - | 341 | (strcmp(argv[1], "inelastic2dYS02")== 0) || |
|
| - | 342 | (strcmp(argv[1], "inelastic2dYS03")== 0) || |
|
| - | 343 | (strcmp(argv[1], "inelastic2dYS04")== 0) || |
|
| - | 344 | (strcmp(argv[1], "inelastic2dYS05")== 0)) { |
|
| - | 345 | int result = TclModelBuilder_addElement2dYS (clientData, interp, |
|
| - | 346 | argc, argv, |
|
| - | 347 | theTclDomain, theTclBuilder); |
|
| - | 348 | return result; |
|
| - | 349 | } else if ((strcmp(argv[1],"element2dGNL") == 0) || |
|
| - | 350 | (strcmp(argv[1],"elastic2dGNL") == 0)) { |
|
| - | 351 | int result = TclModelBuilder_addElastic2dGNL(clientData, interp, argc, argv, |
|
| - | 352 | theTclDomain, theTclBuilder); |
|
| 331 | return result; |
353 | return result; |
| 332 | } else { |
354 | } else { |
| - | 355 | // element type not recognized
|
|
| 333 | cerr << "WARNING unknown element type: " << argv[1]; |
356 | cerr << "WARNING unknown element type: " << argv[1]; |
| 334 | cerr << "Valid types: truss, elasticBeamColumn, nonlinearBeamColumn, " << endl |
357 | cerr << "Valid types: truss, elasticBeamColumn, nonlinearBeamColumn, " << endl |
| 335 | << "beamWithHinges, zeroLength, quad, brick, shellMITC4\n"; |
358 | << "beamWithHinges, zeroLength, quad, brick, shellMITC4\n"; |
| 336 | return TCL_ERROR; |
359 | return TCL_ERROR; |
| 337 | }
|
360 | }
|