Check-in [e327d24256]
Overview
Comment:Added stub for "vconfig"
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e327d24256ab5d399a3d8cd215de5db2df96a9c6
User & Date: rkeene on 2012-08-22 03:36:19
Other Links: manifest | tags
Context
2012-09-09
07:41
Added start of TSMF service starter check-in: 836d61857f user: rkeene tags: trunk
2012-08-22
03:36
Added stub for "vconfig" check-in: e327d24256 user: rkeene tags: trunk
03:31
Added brctl support check-in: 3c94381d8b user: rkeene tags: trunk
Changes

Modified initrd/admin-tclkit/kitcreator-modules/system/system.c from [1594c1fd70] to [ea988bbb17].

  1837   1837   
  1838   1838   	if (sock_v6 != -1) {
  1839   1839   		close(sock_v6);
  1840   1840   	}
  1841   1841   
  1842   1842   	return(retval);
  1843   1843   }
         1844  +
         1845  +static int tclsystem_vconfig(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
         1846  +	int sock_v4, sock_v6, sock;
         1847  +	int retval = TCL_ERROR;
         1848  +
         1849  +	sock = tclsystem_internal_getsock(&sock_v4, &sock_v6);
         1850  +	if (sock == -1) {
         1851  +		Tcl_SetObjResult(interp, Tcl_NewStringObj("unable to create socket", -1));
         1852  +
         1853  +		return(TCL_ERROR);
         1854  +	}
         1855  +
         1856  +	Tcl_SetObjResult(interp, Tcl_NewStringObj("not implemented", -1));
         1857  +
         1858  +	/* Cleanup */
         1859  +	if (sock_v4 != -1) {
         1860  +		close(sock_v4);
         1861  +	}
         1862  +
         1863  +	if (sock_v6 != -1) {
         1864  +		close(sock_v6);
         1865  +	}
         1866  +
         1867  +	return(retval);
         1868  +}
  1844   1869   
  1845   1870   int System_Init(Tcl_Interp *interp) {
  1846   1871   #ifdef USE_TCL_STUBS
  1847   1872   	const char *tclInitStubs_ret;
  1848   1873   
  1849   1874   	/* Initialize Stubs */
  1850   1875   	tclInitStubs_ret = Tcl_InitStubs(interp, "8.4", 0);
................................................................................
  1878   1903   	Tcl_CreateObjCommand(interp, "::system::syscall::ps", tclsystem_ps, NULL, NULL);
  1879   1904   	Tcl_CreateObjCommand(interp, "::system::syscall::execve", tclsystem_execve, NULL, NULL);
  1880   1905   
  1881   1906   	/* Network related commands */
  1882   1907   	Tcl_CreateObjCommand(interp, "::system::syscall::ifconfig", tclsystem_ifconfig, NULL, NULL);
  1883   1908   	Tcl_CreateObjCommand(interp, "::system::syscall::route", tclsystem_route, NULL, NULL);
  1884   1909   	Tcl_CreateObjCommand(interp, "::system::syscall::brctl", tclsystem_brctl, NULL, NULL);
         1910  +	Tcl_CreateObjCommand(interp, "::system::syscall::vconfig", tclsystem_vconfig, NULL, NULL);
  1885   1911   
  1886   1912   	/* Internal functions */
  1887   1913   	Tcl_CreateObjCommand(interp, "::system::internal::hash", tclsystem_internalproc_simplehash, NULL, NULL);
  1888   1914   
  1889   1915   	/* Define constants */
  1890   1916   	/** Create parent namespace **/
  1891   1917   	Tcl_CreateNamespace(interp, "::system::const", NULL, NULL);