/** Parser for fluid related analysis functions. */ int tclcommand_analyze_parse_fluid_cpu(Tcl_Interp *interp, int argc, char **argv) { #ifdef LB int err = TCL_ERROR; if (argc==0) { Tcl_AppendResult(interp, "usage: analyze fluid <what>", (char *)NULL); return TCL_ERROR; } if (ARG0_IS_S("mass")) err = tclcommand_analyze_fluid_parse_mass(interp, argc - 1, argv + 1); else if (ARG0_IS_S("momentum")) err = tclcommand_analyze_fluid_parse_momentum(interp, argc - 1, argv + 1); else if (ARG0_IS_S("temperature")) err = tclcommand_analyze_fluid_parse_temp(interp, argc - 1, argv + 1); else if (ARG0_IS_S("density")) err = tclcommand_analyze_fluid_parse_densprof(interp, argc - 1, argv + 1); else if (ARG0_IS_S("velprof")) err = tclcommand_analyze_fluid_parse_velprof(interp, argc - 1, argv + 1); else { Tcl_AppendResult(interp, "unkown feature \"", argv[0], "\" of analyze fluid", (char *)NULL); return TCL_ERROR; } return err; #else /* !defined LB */ Tcl_AppendResult(interp, "LB is not compiled in!", NULL); return TCL_ERROR; #endif }
/** Parser for fluid related analysis functions. */ int tclcommand_analyze_parse_fluid(Tcl_Interp *interp, int argc, char **argv) { int err = TCL_ERROR; if (argc==0) { Tcl_AppendResult(interp, "usage: analyze fluid <what>", (char *)NULL); return TCL_ERROR; } if (ARG0_IS_S("mass")) err = tclcommand_analyze_fluid_parse_mass(interp, argc - 1, argv + 1); else if (ARG0_IS_S("momentum")) err = tclcommand_analyze_fluid_parse_momentum(interp, argc - 1, argv + 1); else if (ARG0_IS_S("temperature")) err = tclcommand_analyze_fluid_parse_temp(interp, argc - 1, argv + 1); else if (ARG0_IS_S("velprof")) err = tclcommand_analyze_fluid_parse_velprof(interp, argc - 1, argv + 1); else { Tcl_AppendResult(interp, "unkown feature \"", argv[0], "\" of analyze fluid", (char *)NULL); return TCL_ERROR; } return err; }