Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#31: 2008-10-16 19:43:12 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-05-21 06:24:32
карма: 0

0
Ответов: 4724
Рейтинг: 525
#32: 2008-10-21 21:53:19 ЛС | профиль | цитата
Чего то запарился малость. Не могу понять как с помощью скрипта FTCG сформировать список строк заданного свойсва Tupe=String в исходный файл (тобишь результат кодогенератора) если делать с помощью Println(свойство) то пернос строки заменяется на
если делать по принципу StrArray в FTCG тоже как то не очень красиво получается (малопонятно) Почему то представляется что можно это делать с помощью блоков но как не могу понять, может кто знает в каком компоненте из WEB или FTCG можно подсмотреть ну а если кого не затруднит дайте пожалуйста сей примерчик.
карма: 6
0
Ответов: 4724
Рейтинг: 525
#33: 2008-10-22 09:35:59 ЛС | профиль | цитата
Проблему удалось решить самостоятельно. Свойсво Tupe=String заменил на StrList. Код скрипта получился примерно такой:


#hws
// описание проекта
var (i)
for (i = 0; i <= count(Description);i++)
println ('; ',Description[i])
end

всё можно если вовремя тормоза снять
карма: 6
0
Гость
Ответов: 17029
Рейтинг: 0
#34: 2008-10-22 17:05:00 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-05-21 06:24:32
карма: 0

0
Ответов: 4724
Рейтинг: 525
#35: 2008-10-28 15:55:21 ЛС | профиль | цитата
Dilma, если не трудно ответь пожалуйста на мой пост выше, для меня этот вопрос очень актуальный.
------------ Дoбавленo:

Dilma, мой вопрос всё ещё актуален! плиз!!!
карма: 6
0
Гость
Ответов: 17029
Рейтинг: 0
#36: 2008-10-28 15:58:21 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-05-21 06:24:33
карма: 0

0
Администрация
Ответов: 15294
Рейтинг: 1518
#37: 2008-10-28 16:05:15 ЛС | профиль | цитата
в расширениях по пакету QT есть аналогичная ф-ция project_name(). Если за основу брался не его кодогенератор, то нужно себе в direct.inc добавить новую точку входа

#pas
type
lng_indexer = (
...
lng_project_name,
...
lng_last);

...

function lng_proc(parser:TParser; obj:pointer; index:integer; args:TArgs):TScData;
...
lng_project_name:
begin
integer(pointer(@buf[0])^) := parser.el;
parser.cgt.GetParam(PARAM_PROJECT_NAME, @buf[0]);
Result.SetValue(ExtractFileNameWOExt(buf));
end;
...
end;
...
methods[integer(lng_project_name)] := MakeMethod('project_name', 0, '');
...
карма: 26
1
Голосовали:andrestudio
Ответов: 4724
Рейтинг: 525
#38: 2008-10-28 16:07:56 ЛС | профиль | цитата
Спасибо!
карма: 6
0
Администрация
Ответов: 15294
Рейтинг: 1518
#39: 2008-10-28 16:16:53 ЛС | профиль | цитата
впрочем функция полезная - добавил ее и в FTCG
так что обновляемся и пересобираемся
карма: 26
0
Ответов: 4724
Рейтинг: 525
#40: 2008-10-28 16:20:23 ЛС | профиль | цитата
Здорово! , а то мне надо формировать батник при сборке вот репу и чешу...
карма: 6
0
Администрация
Ответов: 15294
Рейтинг: 1518
#41: 2008-10-28 16:36:19 ЛС | профиль | цитата
угу, для этих же целей и в QT понядобилось имя проекта..
карма: 26
0
Ответов: 4724
Рейтинг: 525
#42: 2008-10-28 18:37:23 ЛС | профиль | цитата
Dilma, что то у меня не получилось



"make codegen dll for AVR packed"
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation
C:\Program Files\HiAsm v3.65 b168\Elements\CGTShare.pas(382)
Errors.pas(33)
direct.inc(29)
CodeGen.dpr(706) Error: Undeclared identifier: 'PARAM_PROJECT_NAME'
CodeGen.dpr(952) Error: Undeclared identifier: 'ReadCodeDir'
CodeGen.dpr(2060) Error: Undeclared identifier: 'data_flags'
CodeGen.dpr(2095) Error: Undeclared identifier: 'data_element'
CodeGen.dpr(2095) Error: Duplicate case label
CodeGen.dpr(2095) Error: Undeclared identifier: 'propGetLinkedElement'
CodeGen.dpr(3039) Error: Undeclared identifier: 'ReadCodeDir'
CodeGen.dpr(3216) Error: Undeclared identifier: 'ReadCodeDir'
CodeGen.dpr(5421)
CodeGen.dpr(77) Hint: Private symbol 'Clear' declared but never used
CodeGen.dpr(280) Hint: Private symbol 'CheckSymbol' declared but never used
CodeGen.dpr(282) Hint: Private symbol 'Print' declared but never used
CodeGen.dpr(283) Hint: Private symbol 'PrintLine' declared but never used
Для продолжения нажмите любую клавишу . . .

что делаю не так
карма: 6
0
Администрация
Ответов: 15294
Рейтинг: 1518
#43: 2008-10-28 19:02:48 ЛС | профиль | цитата
устаревший CGTShare.pas
карма: 26
0
Ответов: 4724
Рейтинг: 525
#44: 2008-10-28 19:45:36 ЛС | профиль | цитата
Блин не в той директории CGTShare.pas менял , спасибо ещё раз, буду пробовать.
------------ Дoбавленo:

Блин не фурычит, вот такая простая конструкция


#hws
println(project_name()) //- не печатает :(
println(project_dir ()) //- печатает

что ещё предпринять незнаю

кодогенратор собран с предупреждениями


CodeGen.dpr(77) Hint: Private symbol 'Clear' declared but never used
CodeGen.dpr(280) Hint: Private symbol 'CheckSymbol' declared but never used
CodeGen.dpr(282) Hint: Private symbol 'Print' declared but never used
CodeGen.dpr(283) Hint: Private symbol 'PrintLine' declared but never used
5922 lines, 0.05 seconds, 78816 bytes code, 1993 bytes data
но не фатальными, компоненты работают

подозреваю нужно последнию версию среды до кучи собирать, так ли это
карма: 6
0
Администрация
Ответов: 15294
Рейтинг: 1518
#45: 2008-10-28 21:37:43 ЛС | профиль | цитата
andrestudio писал(а):
подозреваю нужно последнию версию среды

а в какой версии производится тестирование?
карма: 26
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)