Возможно вы искали: 'Rodge Rock in Retro Ac...'

May 15 2025 18:35:10

Статистика

Статей: 87772
Просмотров: 96111483

Игры

Injustice: Gods Among Us ...
Dark Souls 2 Dark Souls II - вторая часть самой хардкорной ролевой игры 2011-2012 года, с новым героем, сюжето...
Battlefield 4 Battlefield 4 - продолжение венценосного мультиплеер-ориентированного шутера от первого ли...

Кино

Steins;Gate Любители японской анимации уже давно поняли ,что аниме сериалы могут дать порой гораздо больше пи...
Ку! Кин-дза-дза Начинающий диджей Толик и всемирно известный виолончелист Владимир Чижов встречают на шумной моск...

Обзоры на игры

• Обзор Ibara [PCB/PS2]	18357
• Обзор The Walking ...	18801
• Обзор DMC: Devil M...	19879
• Обзор на игру Valk...	15877
• Обзор на игру Stars!	17764
• Обзор на Far Cry 3	17948
• Обзор на Resident ...	16024
• Обзор на Chivalry:...	17508
• Обзор на игру Kerb...	17981
• Обзор игры 007: Fr...	16619

Превью о играх

• Превью к игре Comp...	17960
• Превью о игре Mage...	14464
• Превью Incredible ...	14721
• Превью Firefall	13479
• Превью Dead Space 3	16334
• Превью о игре SimC...	14730
• Превью к игре Fuse	15442
• Превью Red Orche...	15542
• Превью Gothic 3	16343
• Превью Black & W...	17354

Главная » Статьи » Разное » Поддержка connect to для isqltcl3.2.d (patch connect sql)

Поддержка connect to для isqltcl3.2.d (patch connect sql)

Ключевые слова: patch, connect, sql, (найти похожие документы)

_ RU.UNIX (2:5077/15.22) _____________________________________________ RU.UNIX _
From : Boris Tobotras 2:5020/510 27 Jul 98 21:44:48
Subj : Поддержка connect to для isqltcl3.2.d
________________________________________________________________________________
Может, еще кому надо. Добавляет новую команду:

sql connect database username password

diff -u isqltcl3.2.d/sqlinf.ec isqltcl3.2.d+connect/sqlinf.ec
- --- isqltcl3.2.d/sqlinf.ec Mon Jul 1 21:20:47 1996
+++ isqltcl3.2.d+connect/sqlinf.ec Mon Jul 27 18:38:48 1998
@@ -1465,6 +1465,22 @@
return 0;
}

+int sql_connect(database, username, password)
+ char *database, *username, *password;
+{
+ $char *dbase;
+ $char *user;
+ $char *pass;
+
+ dbase = database;
+ user = username;
+ pass = password;
+
+ $connect to $dbase user $user using $pass;
+ chk_status("CONNECT", database);
+ return 0;
+}
+
int sql_finish() {
if (database_name) {
$close database;
diff -u isqltcl3.2.d/tclsql.c isqltcl3.2.d+connect/tclsql.c
- --- isqltcl3.2.d/tclsql.c Wed Jul 24 18:54:44 1996
+++ isqltcl3.2.d+connect/tclsql.c Mon Jul 27 18:46:03 1998
@@ -16,7 +16,7 @@
int tcl_informix_cmds();
int tcl_system();
extern char *sql_geterror();
-isql_init(interp) Tcl_Interp *interp; {
+Isql_Init(interp) Tcl_Interp *interp; {
Tcl_CreateCommand(interp, "sql", tcl_informix_cmds,
(ClientData)0L,(void (*)()) NULL);
Tcl_CreateCommand(interp, "tcl_system", tcl_system,
@@ -25,7 +25,7 @@
}

static int tcl_sql_usage(interp) Tcl_Interp *interp; {
- Tcl_AppendResult(interp, "wrong args to sql: should be one of open,n
+ Tcl_AppendResult(interp, "wrong args to sql: should be one of
connect,open,n
fetch,close,run,exists,reopen,explain,geterror,sqlca,sqlda,n
sqld,database,getdatabase,finish", (char *)NULL);
return TCL_ERROR;
@@ -42,8 +42,12 @@

if (!minor) return tcl_sql_usage(interp);
mlen = strlen(minor);
- if (*minor == 'c' && strncmp(minor, "close", mlen) == 0)
- return tcl_sql_close(dummy, interp, --argc, ++argv);
+ if (*minor == 'c') {
+ if (strncmp(minor, "close", mlen) == 0)
+ return tcl_sql_close(dummy, interp, --argc, ++argv);
+ if (strncmp(minor, "connect", mlen) == 0)
+ return tcl_sql_connect(dummy,interp, --argc, ++argv);
+ }
if (*minor == 'd' && strncmp(minor, "database", mlen) == 0)
return tcl_sql_database(dummy, interp, --argc, ++argv);
if (*minor == 'e') {
@@ -548,6 +552,39 @@
}
sprintf(buf, "%d", ret);

+ Tcl_SetResult(interp, buf, TCL_VOLATILE);
+ return TCL_OK;
+}
+
+
+int
+tcl_sql_connect(dummy, interp, argc, argv)
+ ClientData dummy; /* Not used. */
+ Tcl_Interp *interp; /* Current interpreter. */
+ int argc; /* Number of arguments. */
+ char **argv; /* Argument strings. */
+{
+ char *arg0, *dbase, *user, *pass;
+ char buf[25];
+ int ret;
+ if (argc != 4) {
+ Tcl_AppendResult(interp, "wrong # args: should be "sql ", argv[0],
+ " database username password"", (char *) NULL);
+ return TCL_ERROR;
+ }
+ arg0 = argv[0];
+ argc--;
+ argv++;
+ dbase = argv[0];
+ user = argv[1];
+ pass = argv[2];
+ ret = sql_connect(dbase, user, pass);
+ if (ret < 0) {
+ Tcl_AppendResult(interp, ""sql ", arg0, ":", sql_geterror(),
+ """, (char *) NULL);
+ return TCL_ERROR;
+ }
+ sprintf(buf, "%d", ret);
Tcl_SetResult(interp, buf, TCL_VOLATILE);
return TCL_OK;
}

--
Best regards, -- Boris.

Lisp ('lishp) n: '(a language (MIT from) that (annoys really) many (and CS
non-CS) people), and makes us feel (artificially
intelligent)))))))))))))))))))
--- Gnus v5.5/XEmacs 20.3 - "London"
* Origin: Linux inside (2:5020/510@fidonet)

Ссылки

HTML:
[BB Url]:

Похожие статьи
Название	Добавил	Добавлено
• Поддержка connect to для isqltcl3.2...	Vova	08.05.2012

Ни одного комментария? Будешь первым :).

Пожалуйста, авторизуйтесь для добавления комментария.

Статьи

Рецензия на Pressure Чтобы обратить на себя внимание, начинающие маленькие разработчики, как правило, уходят в жанры, ...
Рецензия на Lost Chron... Игры, сделанные без любви и старания, похожи на воздушный шар – оболочка есть, а внутри пусто. Lo...
Рецензия на The Bridge «Верх» и «низ» в The Bridge — понятия относительные. Прогуливаясь под аркой, можно запросто перей...
Рецензия на SimCity Когда месяц назад состоялся релиз SimCity, по Сети прокатилось цунами народного гнева – глупые ош...
Рецензия на Strategy &... Название Strategy & Tactics: World War II вряд ли кому-то знакомо. Зато одного взгляда на ее скри...
Рецензия на игру Scrib... По сложившейся традиции в информационной карточке игры мы приводим в пример несколько похожих игр...
Рецензия на игру Walki... Зомби и продукция-по-лицензии — которые и сами по себе не лучшие представители игровой биосферы —...