ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / [GT.M] zlink
10 сообщений из 10, страница 1 из 1
[GT.M] zlink
    #39446216
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Наш админ при настройке глобальной директории разделил каталоги для файлов программ (ФП) (*.m) и файлов объектного кода (ФОБ) (*.o)...

Появилась проблема при компиляции динамически создаваемых программ.

Формируем файл /srv/bd/soi/r/find30739.m , даем команду

Код: javascript
1.
zlink "/srv/bd/soi/r/find31388"


Вылетает по ошибке

И файл ФОК создается в каталоге ФП...

Как компилить программы в случае с разделением каталогов?
...
Рейтинг: 0 / 0
28.04.2017, 15:37
| Ответить | Цитировать | Написать  
[GT.M] zlink
    #39446237
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Сделал тестовую программку...

Код: javascript
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
tmpKSA ;;Тест;;[ 28.04.2017 16:10 ]
	s rtn="test"_$j
	s txt($i(txt))=" n"
	s tim=$$Time^zfunc(,3)
	s txt($i(txt))=" w !,"_$$Qt^zfunc(tim)
	s txt($i(txt))=" q"
	s io=$i
	s file=$$path^zsys("m")_rtn_".m"
	w !,"save ",file r *yy
	s dev=$$fOpen^zsys(file)
	i dev="" q:$q "" q
	u dev
	s row=""
	f  s row=$o(txt(row)) q:row=""  w txt(row),!
	c dev
	u io
	w !,"zlink ",rtn r *yy
	zlink rtn
	w !,"ok" r *yy
	w !,tim
	d @("^"_rtn)
	d delRtn^zsys(rtn) 
	q


Первый запуск - все отлично

Код: javascript
1.
2.
3.
4.
5.
6.
7.
8.
9.
save /srv/bd/soi/r/test1293.m                                                   
zlink test1293                                                                  
ok                                                                              
16:12:03                                                                        
16:12:03                                                                        
/srv/bd/soi/r/test1293.m                                                        
1                                                                               
/srv/bd/soi/o/test1293.o                                                        
1


Концовка это удаление файлов программы (ФП и ФОК), единички - удаление успешно.
Файлов действительно нет.

Но повторный запуск удручает

Код: javascript
1.
2.
3.
4.
5.
6.
7.
8.
9.
save /srv/bd/soi/r/test1293.m                                                   
zlink test1293                                                                  
ok                                                                              
16:13:24                                                                        
16:12:03                                                                        
/srv/bd/soi/r/test1293.m                                                        
1                                                                               
/srv/bd/soi/o/test1293.o                                                        
1


Т.е. стартует старая программа...
Она не перезаписывается.
...
Рейтинг: 0 / 0
28.04.2017, 16:17
| Ответить | Цитировать | Написать  
[GT.M] zlink
    #39446241
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Более расширенная версия программы

Код: javascript
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
tmpKSA ;;Тест;;[ 28.04.2017 16:25 ]
	s rtn="test"_$j
	s txt($i(txt))=" n"
	s tim=$$Time^zfunc(,3)
	s txt($i(txt))=" w !,"_$$Qt^zfunc(tim)
	s txt($i(txt))=" q"
	s io=$i
	s file=$$path("m")_rtn_".m"
	w !,"save ",file r *yy
	s dev=$$fOpen(file)
	i dev="" q:$q "" q
	u dev
	s row=""
	f  s row=$o(txt(row)) q:row=""  w txt(row),!
	c dev
	u io
	w !,"zlink ",rtn r *yy
	zlink rtn
	w !,"ok" r *yy
	w !,tim
	d @("^"_rtn)
	d delRtn^zsys(rtn) 
	q
path(Type)
	n path
	s:$g(Type)="" Type="m"
	s path=$p($zro," ")
	q:Type="o" $p(path,"(")_"/"
	s path=$s(path["(":$p($p(path,"(",2),")"),1:path)
	q path_"/"
fOpen(File,Typ,Byte,Sym)
	n oet
	s:$g(Typ)="" Typ="W"
	q:":\/"[$e($re(File)) ""
	s oet=$et
	s $ec=""
	s $et="d fOpenErr^zsys("""_$$Trans^zfunc(oet)_""")"
	d FOPEN
	s $et=oet
	q $s($t:File,1:"")
FOPEN ; Собственно открытие
	i Typ="W" o File:(newversion:noreadonly):0 q
	i Typ="M" o File::0 q
	o File:(readonly):0
	q
delRtn(Rtn,Type)
	n ok,path
	s:$g(Type)="" Type=0
	s path=$$path("m")
	s ok=1
	w:'Type !,path_Rtn_".m" r *yy
	s:'Type ok=$$delFile(path_Rtn_".m")
	w !,ok r *yy
	i 'ok q:$q ok q
	s path=$$path("o")
	w !,path_Rtn_".o" r *yy
	s ok=$$delFile(path_Rtn_".o")
	w !,ok r *yy
	q:$q ok
	q
delFile(File)
	n ok
	s ok=$$com("rm","-f "_File)
	q:$q ok
	q
com(Com,Prm)
	n p,str
	s p="runCommand"
	s Com=$$At^zfunc(Com)
	s:$g(Prm)'="" Com=Com_" "_Prm
	i $l(Com)>250 q:$q 0 q
	o p:(COMMAND=Com:READONLY)::"PIPE"
	u p
	r str
	c p
	q:$q $s(str="":1,1:str)
	q
...
Рейтинг: 0 / 0
28.04.2017, 16:22
| Ответить | Цитировать | Написать  
[GT.M] zlink
    #39446250
AlexKB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexKB
Участник
krvsa,
ZLOAD разве не нужно?
...
Рейтинг: 0 / 0
28.04.2017, 16:35
| Ответить | Цитировать | Написать  
[GT.M] zlink
    #39446254
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Сделал полностью автономный пример...

Код: javascript
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
tmpKSA ;;Тест;;[ 28.04.2017 16:39 ]
	s rtn="test"_$j
	s txt($i(txt))=" n"
	s tim=$$Time(,3)
	s txt($i(txt))=" w !,"_$$Qt(tim)
	s txt($i(txt))=" q"
	s io=$i
	s file=$$path("m")_rtn_".m"
	w !,"save ",file r *yy
	s dev=$$fOpen(file)
	i dev="" q:$q "" q
	u dev
	s row=""
	f  s row=$o(txt(row)) q:row=""  w txt(row),!
	c dev
	u io
	w !,"zlink ",rtn r *yy
	zlink rtn
	w !,"ok" r *yy
	w !,tim
	d @("^"_rtn)
	d delRtn(rtn)
	q
path(Type)
	n path
	s:$g(Type)="" Type="m"
	s path=$p($zro," ")
	q:Type="o" $p(path,"(")_"/"
	s path=$s(path["(":$p($p(path,"(",2),")"),1:path)
	q path_"/"
fOpen(File,Typ,Byte,Sym)
	n oet
	s:$g(Typ)="" Typ="W"
	q:":\/"[$e($re(File)) ""
	s oet=$et
	d FOPEN
	s $et=oet
	q $s($t:File,1:"")
FOPEN ; Собственно открытие
	i Typ="W" o File:(newversion:noreadonly):0 q
	i Typ="M" o File::0 q
	o File:(readonly):0
	q
delRtn(Rtn,Type)
	n ok,path
	s:$g(Type)="" Type=0
	s path=$$path("m")
	s ok=1
	w:'Type !,path_Rtn_".m" r *yy
	s:'Type ok=$$delFile(path_Rtn_".m")
	w !,ok r *yy
	i 'ok q:$q ok q
	s path=$$path("o")
	w !,path_Rtn_".o" r *yy
	s ok=$$delFile(path_Rtn_".o")
	w !,ok r *yy
	q:$q ok
	q
delFile(File)
	n ok
	s ok=$$com("rm","-f "_File)
	q:$q ok
	q
com(Com,Prm)
	n p,str
	s p="runCommand"
	s Com=$$At(Com)
	s:$g(Prm)'="" Com=Com_" "_Prm
	i $l(Com)>250 q:$q 0 q
	o p:(COMMAND=Com:READONLY)::"PIPE"
	u p
	r str
	c p
	q:$q $s(str="":1,1:str)
	q
Time(Sec,Type)
	n hour,min,sec
	s Sec=$g(Sec,$H)
	q:Sec[":" $p(Sec,":")*3600+($p(Sec,":",2)*60)+$p(Sec,":",3)
	s Type=$g(Type,1)
	s:Sec["," Sec=$p(Sec,",",2)
	s hour=$tr($j(Sec\3600,2)," ",0)
	s min=$tr($j(Sec#3600\60,2)," ",0)
	s sec=$tr($j(Sec#60,2)," ",0)
	q $s(Type=1:hour_":"_min,Type=2:min_":"_sec,1:hour_":"_min_":"_sec)
Lt(Str)
	q $e(Str,$f(Str_".",$e($tr(Str_"."," ")))-1,$l(Str))
Rt(Str)
	n space
	s space=$j("",$l(Str))
	q $e(Str,0,$f(Str_space,space)-$l(Str)-1)
At(Str)
	q $$Rt($$Lt(Str))
Qt(Str,Sym)
	s:$g(Sym)="" Sym=$c(34)
	q Sym_$g(Str)_Sym
...
Рейтинг: 0 / 0
28.04.2017, 16:39
| Ответить | Цитировать | Написать  
[GT.M] zlink
    #39446255
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
AlexKBZLOAD разве не нужно?
Я не разбираюсь в ГТ.М

Т.ч. ответа у меня нет.
...
Рейтинг: 0 / 0
28.04.2017, 16:40
| Ответить | Цитировать | Написать  
[GT.M] zlink
    #39446256
AlexKB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexKB
Участник
krvsa,
В программном буфере уже есть программа, зачем движку ее заменять, вот и исполняется старая.
...
Рейтинг: 0 / 0
28.04.2017, 16:43
| Ответить | Цитировать | Написать  
[GT.M] zlink
    #39446265
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Нашел таки проблему...

Если zlink убирать в подпрограмму - тогда и получаю проблему.

Если делать как в примере - все работает

Код: javascript
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
tmpKSA ;;Тест;;[ 28.04.2017 16:46 ]
	n
	s rtn="test"_$j
	s txt($i(txt))=" n"
	s tim=$$Time(,3)
	s txt($i(txt))=" w !,"_$$Qt(tim)
	s txt($i(txt))=" q"
	s io=$i
	s file=$$path("m")_rtn_".m"
	w !,"save ",file r *yy
	s dev=$$fOpen(file)
	i dev="" q:$q "" q
	u dev
	s row=""
	f  s row=$o(txt(row)) q:row=""  w txt(row),!
	c dev
	u io
	w !,"zlink ",rtn r *yy
	zlink rtn
	w !,"ok" r *yy
	w !,tim
	d @("^"_rtn)
	d delRtn(rtn)
	q
path(Type)
	n path
	s:$g(Type)="" Type="m"
	s path=$p($zro," ")
	q:Type="o" $p(path,"(")_"/"
	s path=$s(path["(":$p($p(path,"(",2),")"),1:path)
	q path_"/"
fOpen(File,Typ,Byte,Sym)
	n oet
	s:$g(Typ)="" Typ="W"
	q:":\/"[$e($re(File)) ""
	s oet=$et
	d FOPEN
	s $et=oet
	q $s($t:File,1:"")
FOPEN ; Собственно открытие
	i Typ="W" o File:(newversion:noreadonly):0 q
	i Typ="M" o File::0 q
	o File:(readonly):0
	q
delRtn(Rtn,Type)
	n ok,path
	s:$g(Type)="" Type=0
	s path=$$path("m")
	s ok=1
	w:'Type !,path_Rtn_".m" r *yy
	s:'Type ok=$$delFile(path_Rtn_".m")
	w !,ok r *yy
	i 'ok q:$q ok q
	s path=$$path("o")
	w !,path_Rtn_".o" r *yy
	s ok=$$delFile(path_Rtn_".o")
	w !,ok r *yy
	q:$q ok
	q
delFile(File)
	n ok
	s ok=$$com("rm","-f "_File)
	q:$q ok
	q
com(Com,Prm)
	n p,str
	s p="runCommand"
	s Com=$$At(Com)
	s:$g(Prm)'="" Com=Com_" "_Prm
	i $l(Com)>250 q:$q 0 q
	o p:(COMMAND=Com:READONLY)::"PIPE"
	u p
	r str
	c p
	q:$q $s(str="":1,1:str)
	q
Time(Sec,Type)
	n hour,min,sec
	s Sec=$g(Sec,$H)
	q:Sec[":" $p(Sec,":")*3600+($p(Sec,":",2)*60)+$p(Sec,":",3)
	s Type=$g(Type,1)
	s:Sec["," Sec=$p(Sec,",",2)
	s hour=$tr($j(Sec\3600,2)," ",0)
	s min=$tr($j(Sec#3600\60,2)," ",0)
	s sec=$tr($j(Sec#60,2)," ",0)
	q $s(Type=1:hour_":"_min,Type=2:min_":"_sec,1:hour_":"_min_":"_sec)
Lt(Str)
	q $e(Str,$f(Str_".",$e($tr(Str_"."," ")))-1,$l(Str))
Rt(Str)
	n space
	s space=$j("",$l(Str))
	q $e(Str,0,$f(Str_space,space)-$l(Str)-1)
At(Str)
	q $$Rt($$Lt(Str))
Qt(Str,Sym)
	s:$g(Sym)="" Sym=$c(34)
	q Sym_$g(Str)_Sym
...
Рейтинг: 0 / 0
28.04.2017, 16:53
| Ответить | Цитировать | Написать  
[GT.M] zlink
    #39446433
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
krvsa,
Попробуйте первоначально переместится в соответствующий каталог командой:
s $zro="/home/databallet/o(/home/databallet/r) /usr/gtm63A" (ваш путь)
Потом сохраняйте и компилируйте
...
Рейтинг: 0 / 0
29.04.2017, 06:32
| Ответить | Цитировать | Написать  
[GT.M] zlink
    #39446436
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
http://tinco.pair.com/bhaskar/gtm/doc/books/pg/UNIX_manual/ch08s50.html
...
Рейтинг: 0 / 0
29.04.2017, 07:06
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / [GT.M] zlink
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=39&msg=39446250&tid=1556352]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 60ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 13ms
total:  173ms
созд. / загр.: 173ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]