Вверх ↑
Этот топик читают: Гость
Главный модератор
Ответов: 2997
Рейтинг: 395
#1: 2007-06-22 13:24:39 ЛС | профиль | цитата
Схема:

Add(EntryPoint,14077439,21,105)
{
link(onStart,6519014:doStrCat,[])
}
Add(StrCat,6519014,84,105)
{
Str1="Text_1"
Str2="Text_2"
link(onStrCat,11918962:doStrCat,[(121,111)(121,111)])
}
Add(StrCat,11918962,140,105)
{
Str1="Text_3"
Str2="Text_4"
link(onStrCat,9599829:doEcho,[])
}
Add(Echo,9599829,196,105)
{
}
Результат:

<?php

echo "Text_3Text_4";

?>

карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 2125
Рейтинг: 159
#2: 2007-06-22 13:29:06 ЛС | профиль | цитата
А в чём ошибка-то? Всё правильно.
карма: 1

0
Главный модератор
Ответов: 2997
Рейтинг: 395
#3: 2007-06-22 13:38:32 ЛС | профиль | цитата
Sorry. Понял свою ошибку.
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Администрация
Ответов: 15295
Рейтинг: 1519
#4: 2007-06-22 13:39:08 ЛС | профиль | цитата
Nic, тоже самое в пакете Delphi:
Add(StrCat,6519014,140,105)
{
Str1="Text_1"
Str2="Text_2"
link(onStrCat,11918962:doStrCat,[])
}
Add(StrCat,11918962,196,105)
{
Str1="Text_3"
Str2="Text_4"
link(onStrCat,16006348:doMessage,[])
}
Add(Button,7232119,84,105)
{
Left=80
Top=105
link(onClick,6519014:doStrCat,[])
}
Add(Message,16006348,252,105)
{
}
карма: 26
0
Главный модератор
Ответов: 2997
Рейтинг: 395
#5: 2007-06-22 13:43:51 ЛС | профиль | цитата
Как использовать константы:

 define(UPLOADEDFILES, "C:\Inetpub\wwwroot\");
Как теперь к ней обратиться из HiAsm? Например, чтобы сложить эту строку с относительным путём:
$fullpath = UPLOADEDFILES.$localpath
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Администрация
Ответов: 15295
Рейтинг: 1519
#6: 2007-06-22 13:52:15 ЛС | профиль | цитата
Nic писал(а):
Как использовать константы

никак. Потому что в терминах HiAsm это будет непонятно что, ибо define в данном случае есть некое средство облегчения жизни программиста php, а не часть языка. У нас это делается так:
Add(EntryPoint,14077439,63,231)
{
link(onStart,6519014:doStrCat,[])
}
Add(Echo,9599829,196,231)
{
}
Add(StrCat,6519014,126,231)
{
link(onStrCat,9599829:doEcho,[])
link(Str1,12157660:Value,[])
link(Str2,1488157:Var,[(139,214)(181,214)])
}
Add(Memory,12157660,126,168)
{
Default=String(Это константа)
}
Add(GlobalVar,1488157,175,168)
{
Name="localpath"
}

что дает результат:
<?php
echo "Это константа".$localpath;
?>

карма: 26
0
Главный модератор
Ответов: 2997
Рейтинг: 395
#7: 2007-06-22 13:59:00 ЛС | профиль | цитата
Опять сделал upload с SVN CodeGen.dpr, Errors.pas и hiDie.hws. Запустил make.bat из папки web. Получаю ошибку как вчера - не компилируются web-проекты.
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Администрация
Ответов: 15295
Рейтинг: 1519
#8: 2007-06-22 14:07:51 ЛС | профиль | цитата
не комитил еще ничего. какая ошибка?
карма: 26
0
Главный модератор
Ответов: 2997
Рейтинг: 395
#9: 2007-06-22 14:21:47 ЛС | профиль | цитата
Отладка писал(а):

Build start...
Generated code

www.dev.hiasm.com/xf/topic.php?p=59173#P59173

[size=-2]------ Добавлено в 14:19
hiDie.hws - это погрячился - он у меня поправлен поэтому черепаха нашла изменения - Sorry, а вот :
revision 354 писал(а):

пофиксены баги с реализацией user функции
CodeGen.dpr, Errors.pas - modified


[size=-2]------ Добавлено в 14:21
Может не правильно отрабатывает make.bat:
dcc32 писал(а):

"make codegen dll for WEB packed"
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation
direct.inc(18)
CodeGen.dpr(912) Hint: Value assigned to 'wop' never used
CodeGen.dpr(1073) Warning: Variable 'cur' might not have been initialized
CodeGen.dpr(2140) Warning: Return value of function 'TCodeBlock.GetLevel' might be undefin
ed
CodeGen.dpr(3293) Warning: Return value of function 'TParser.CountLexem' might be undefine
d
CodeGen.dpr(3397) Hint: Variable 'pe' is declared but never used in 'TParser.LinkedLexem'
CodeGen.dpr(3435) Warning: Comparison always evaluates to True
CodeGen.dpr(3435) Warning: Comparing signed and unsigned types - widened both operands
CodeGen.dpr(3447) Warning: Return value of function 'TParser.IsSetLexem' might be undefine
d
CodeGen.dpr(3464) Warning: Return value of function 'TParser.IsPropLexem' might be undefin
ed
CodeGen.dpr(3477) Warning: Return value of function 'TParser.IsSecLexem' might be undefine
d
CodeGen.dpr(3492) Warning: Return value of function 'TParser.TypeOfLexem' might be undefin
ed
CodeGen.dpr(3503) Warning: Return value of function 'TParser.StrLexem' might be undefined
CodeGen.dpr(3514) Warning: Return value of function 'TParser.CodeLexem' might be undefined

CodeGen.dpr(3535) Warning: Return value of function 'TParser.CallFunc' might be undefined
CodeGen.dpr(3583) Warning: Return value of function 'TParser.CallIntFunc' might be undefin
ed
CodeGen.dpr(3727) Warning: Variable 'args' might not have been initialized
CodeGen.dpr(3648) Warning: Return value of function 'TParser.CallObject' might be undefine
d
CodeGen.dpr(3834) Warning: Variable 'v' might not have been initialized
CodeGen.dpr(3841) Hint: Variable 'r' is declared but never used in 'TParser.Level5'
CodeGen.dpr(3863) Hint: Variable 'r' is declared but never used in 'TParser.Level6'
CodeGen.dpr(3909) Warning: Return value of function 'TParser.Level8' might be undefined
CodeGen.dpr(3977) Warning: Return value of function 'TParser.Level11' might be undefined
CodeGen.dpr(3959) Hint: Variable 'dt' is declared but never used in 'TParser.Level11'
CodeGen.dpr(4349) Hint: Variable 'buf' is declared but never used in 'synReadFuncList'
CodeGen.dpr(4397)
CodeGen.dpr(227) Hint: Private symbol 'isDebug' declared but never used
CodeGen.dpr(239) Hint: Private symbol 'CheckSymbol' declared but never used
4415 lines, 0.19 seconds, 64088 bytes code, 1905 bytes data.
Press any key to continue . . .

карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Администрация
Ответов: 15295
Рейтинг: 1519
#10: 2007-06-22 14:28:10 ЛС | профиль | цитата
без этого перекомпиляция генератора не будет работать с новой средой:
http://dev.hiasm.com/xf/topic.php?p=59288#P59288
карма: 26
0
Главный модератор
Ответов: 2997
Рейтинг: 395
#11: 2007-06-22 14:34:03 ЛС | профиль | цитата
Да теперь всё OK!
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
11
Сообщение
...
Прикрепленные файлы
(файлы не залиты)