Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / [GT.M] zlink / 10 сообщений из 10, страница 1 из 1
28.04.2017, 15:37
    #39446216
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[GT.M] zlink
Наш админ при настройке глобальной директории разделил каталоги для файлов программ (ФП) (*.m) и файлов объектного кода (ФОБ) (*.o)...

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

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

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


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

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

Как компилить программы в случае с разделением каталогов?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2017, 16:17
    #39446237
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[GT.M] 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.
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:22
    #39446241
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[GT.M] 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.
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:35
    #39446250
AlexKB
AlexKB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[GT.M] zlink
krvsa,
ZLOAD разве не нужно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2017, 16:39
    #39446254
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[GT.M] 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.
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:40
    #39446255
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[GT.M] zlink
AlexKBZLOAD разве не нужно?
Я не разбираюсь в ГТ.М

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

Если 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
| Ответить | Цитировать | Написать  
29.04.2017, 06:32
    #39446433
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[GT.M] zlink
krvsa,
Попробуйте первоначально переместится в соответствующий каталог командой:
s $zro="/home/databallet/o(/home/databallet/r) /usr/gtm63A" (ваш путь)
Потом сохраняйте и компилируйте
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2017, 07:06
    #39446436
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[GT.M] zlink
http://tinco.pair.com/bhaskar/gtm/doc/books/pg/UNIX_manual/ch08s50.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / [GT.M] zlink / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 153ms
Закрыть
start [/forum/topic.php?fid=39&mobile=1&tid=1556352]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 50ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 12ms
total:  153ms
x
x
Закрыть


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