Общие вопросы и приёмы эффективного программирования на BASIC

@Замабувараев · Регистрация: 18.12.2014

Студворк — интернет-сервис помощи студентам

Вот как создать кнопку:

PureBasic
1
2
3
4
5
6
7
8
9
10
Dim hwndButton As HWND = CreateWindow( _
    WC_BUTTON,
    "Текст кнопки", _
    WS_CHILD Or BS_BITMAP Or BS_PUSHBUTTON Or WS_CLIPSIBLINGS, _
    10, 10, 100, 50, _
    hwndMainForm, _
    Cast(HMENU, 1000), _
    hInst, _
    NULL _
)

@locm · 06.04.2021, 23:15

Сообщение от Замабувараев

Не очень‐то вяжется с вашим динамическим массивом, особенно с учётом того, что старым указателем пользоваться уже нельзя.

Вы где-то видите работу с указателями?

PureBasic
1
2
Dim x(100)
ReDim x(100000)

Сделайте аналог динамического массива с хранением в стеке. Точнее сделайте так чтобы FB использовал Dim и ReDim. Посмотрим чего стоит перегрузка операторов/ключевых слов в FB.

Сообщение от The trick

Динамическую строку можно выделить в стеке, Замабувараев написал уже

То есть осовободить память в стеке нельзя и придется новой выделять память! Слишком нерационально учитывая что стек не резиновый. Имеет смысл есть есть поддержка со стороны ЯП и точно известно что строка небольшого размера и не вызовет переполнение стека.

Сообщение от The trick

Dim z As StringOnStack

StringOnStack это что?
Как реализовано в ЯП?
Или сферический в вакууме тип?

@The trick · 06.04.2021, 23:36

Сообщение от locm

То есть осовободить память в стеке нельзя и придется новой выделять память! Слишком нерационально учитывая что стек не резиновый. Имеет смысл есть есть поддержка со стороны ЯП и точно известно что строка небольшого размера и не вызовет переполнение стека.

Ну я уже написал об ограничениях. А вообще в хипе также память выделяется. Вот ты выделил блок, нужно тебе увеличить блок, если место за текущим блоком занято, то менеджер хипа тот блок оставит и будет искать другой, тот блок будет помечен на удаление. Как блок найдется, старые данные будут скопированы в новый блок и функция вернет новый указатель.

Сообщение от locm

StringOnStack это что?
Как реализовано в ЯП?
Или сферический в вакууме тип?

Да это просто пример в каких ситуациях эффективно использовать строку в стеке. Это же очевидно.

@Quiet Snow · 07.04.2021, 05:52

Ребята, вы, по-моему, попали в ловушку собственных предубеждений.

Уже в ход идут какие-то совсем абсурдные вещи про кэш. Это прям уже реально смешно.
Вы пытаетесь сравнить аллокацию памяти так, как будто любой кодер это будет делать прямо в коде
и микро кусками, т.е. кодер у вас по умолчанию - полный баран и днище. Вы упираете на время
аллокации и деаллокации, хотя вроде понятно, что деаллокация менее затратная процедура, а
аллокацию памяти можно делать в самом начале.
Также упускается из виду то, что можно сделать аналог кэша, не трогая при этом никакие ключи
компилятора завести его в самом начале программы, когда пользователь по большей части ждёт запуска
программы и использовать точно так же как стек выделяя память парой инструкций процессора,
точно также подгрузив указатель из переменной и далее уже работая с регистром т.е. одной командой,
причём возвращать указатель будет не нужно, т.к. это не стек, тут нет такой вещи как "ожидание
данных стека другими частями кода, куда оно свои данные положили". И вот мы подошли к самому главному
написанному и поэтому.

Сообщение от Замабувараев

Давайте сравним выделение памяти в куче и стэке.

Давайте:

Мне было сказано:

Сообщение от The trick

Прикладные приложения (в винде) вообще не работают с физической памятью, забудь про нее.

Если так, то вы угождаете в собственную логическую ловушку, разницы по использованию любой памяти
по вгрузке и выгрузке на реальный физ. носитель в прямом смысле не имеем. А соотв то, про что я писал
несколько строк тому назад - более чем актуально.

Теперь пройдёмся по вашим косякам:

Сообщение от Замабувараев

3. Данные в стэке лежат прямо вместе с кодом и легко умещаются в кеш процессора.

Во-первых, данные в стеке не лежат вместе с кодом, адреса там "вдали" на целый дефолтный мегабайт. А во-вторых:

Сообщение от The trick

Ну это не отменяет того что данные в кэше будут.

Осталось понять в каком кэше, если я запущу на первом\втором\третьем\четвёртом пеньке, они будут?
Кэш размером с мегабайт, допустим ты заведёшь почти весь его, ну начнёшь в хост и в гриву резвиться.
На моём P4 в 3GHz общий кеш был на один мегабайт, общий означает что и на код и на данные, но если разбить
его на это разделение, то выйдет так что то про что мы говорим туда не попадёт при всё таки.
У меня например хороший рабочий вариант ноута 3-го пня(целерон) с 98 виндой. Я тоже могу как
Замабувараев сказать про bloatware. Но все мы прекрасно знаем, если запустить допустим старые
игры под DOS или Windows до нулевых сделанные, то можно заметить что чудесным образом они работают
всё же быстрее со временем даже на новых, это означает что "те самые" оптимизации ещё актуальны.
Причём ускорение значительно, можно привести в пример hioctane с полностью софтверным движком.

Сообщение от The trick

2
Dim z As StringOnStack
z = a & foo() & c & d

А если пользователь псих и решит конкатенировать строки размером в пару сотен мгабайт)))?
Наслушается тут советов про скорость и на полном серьёзе захочет. Давать это на откуп?
Или это неправильное использование строки? А если у чувака такая задача, загнать длинную строку
и организовать в ней поиск.

Выходит так, что все эти бенефиты сводятся на нет. Мы на ровном месте получаем геморрой:
1) Ту же самую необходимость в проверках размера свободной памяти, про которую обсуждение уже дошло
аж до критических секций.
2) п1. тянет за собой необходимость подгружать это в регистр и сравнивать - теряем регистр
в алгоритме где он может быть критически важен, причём это уже второй регистр, от ebp мы типа отказались.
Ну т.е. гоняем туда сюда переменные память-регистры-память регистры, у нас же проц времени дофига
и нам не важен ни объём кода, ни кол-во операций, конвееры толстые - справятся.
3)

4. Данные в куче лежат неизвестно по каким адресам, и чтобы до них добраться, процессору может потребоваться сбросить кеш.

Выше приведены аргументы, почему оно может не закэшироваться.
Ещё стоит учесть что кэш разбивается по ядрам ЦП, поэтому его значение даже в современных машинах не
такое уж и большое, даже там могут случатся кэш промахи.
Ещё во всей этой истории с кэшем наверное стоит учесть и то, что прирост будет от кэша инструкций,
а там я у парней видел такие штуки как CALL. Хотите оптимизировать, так оптимизируйте.
Пока тут оптимизацией не пахнет даже.
4)

Сообщение от The trick

Есть конечно и недостатки, такие как ограниченный размер + нельзя возвращать
такую память из функции, ну еще некоторые ограничения.

Добавлено через 12 минут
5) И разумеется всё это, особенно про кэши когда разговор, требует не просто высочайшей квалификации
именно на низком уровне, но ещё и приличный тестерский штат ПК у кодера. Простотой тут вообще нифига
не пахнет. И той халявой про которую якобы речь идёт, мол выдели переменные в стеке и радуйся
будет супер пупер быстро и ичего больше делать не надо, алгоритмы сами собой заработают быстро.

6) Всякие любители рекурсий, готовые библиотеки-чёрные ящики с сам бог знает чем внутри и мол на сколько
оно способно "поддёрнуть" стек. Уповать на удачу, что там всё ровненько, чистенько с проверочками и без
сильных аппетитов.

Добавлено через 36 минут
Мегабайт это не так много, как некоторые считают. Под DOS'ом можно было спокойно выделить 9 сегментов
памяти в коде. Т.е. 576 килобайт. Тут всего лишь в два раза больше. Не так-то и много.
Рекурсию не пишу принципиально - мне не страшно, а вот те кто пристрастились, тут не знаешь
где и как человек напортачит. Её часто, как раз и применяют в таких вещах, глубины которых
не особо секут. А не зная броду как говорится...

@The trick · 07.04.2021, 10:12

Сообщение от Quiet Snow

Уже в ход идут какие-то совсем абсурдные вещи про кэш. Это прям уже реально смешно.
Вы пытаетесь сравнить аллокацию памяти так, как будто любой кодер это будет делать прямо в коде
и микро кусками, т.е. кодер у вас по умолчанию - полный баран и днище.

Нет. Вам показывают что выделение в стеке в некоторых случаях более выгодно и намного эффективнее как по скорости так и по ресурсам, а вы нас пытаетесь переубедить в этом.

Сообщение от Quiet Snow

Вы упираете на время
аллокации и деаллокации, хотя вроде понятно, что деаллокация менее затратная процедура, а
аллокацию памяти можно делать в самом начале.

Не всегда. Деаллокация может "сливать" соседние блоки, но это в общем случае зависит от реализации хипа. Я говорю именно о процессе аллокация/деаллокация.

Сообщение от Quiet Snow

Также упускается из виду то, что можно сделать аналог кэша, не трогая при этом никакие ключи
компилятора завести его в самом начале программы, когда пользователь по большей части ждёт запуска
программы и использовать точно так же как стек выделяя память парой инструкций процессора

Зачем изобретать велосипед? Это не будет эффективнее, а по сложности это вообще намного сложнее чем стек и хип.

Сообщение от Quiet Snow

тут нет такой вещи как "ожидание
данных стека другими частями кода, куда оно свои данные положили"

Нет никакого ожидания данных стека, что за абсурд?

Сообщение от Quiet Snow

Если так, то вы угождаете в собственную логическую ловушку, разницы по использованию любой памяти
по вгрузке и выгрузке на реальный физ. носитель в прямом смысле не имеем. А соотв то, про что я писал
несколько строк тому назад - более чем актуально.

Нет. Я вообще не вижу связи с тем что ты написал. В процитированном написано - Прикладные приложения (в винде) вообще не работают с физической памятью, т.е. программист пишущий программу не работает с физической памятью напрямую, а через механизм виртуальной памяти. В свою очередь процессор производя трансляцию адресов работает с физической памятью. И тут уже работают все те вещи что описаны выше про кэш и т.п. Странно что ты об этом не знаешь и еще пытаешься подловить как-то меня.

Сообщение от Quiet Snow

Во-первых, данные в стеке не лежат вместе с кодом, адреса там "вдали" на целый дефолтный мегабайт.

Если разговор про винду, то там вообще нет связи в расположении между кодом и стеком. Стек и код в физической памяти могут теоретически лежать рядом. В виртуальной памяти они могут быть вообще разбросаны на сотни МБ.

Сообщение от Quiet Snow

Осталось понять в каком кэше, если я запущу на первом\втором\третьем\четвёртом пеньке, они будут?

Ты верояно не понял о чем я писал. Процессор большую часть работает со стековой памятью, так что вероятность того что она будет закэширована намного больше чем та же память в хипе.

Сообщение от Quiet Snow

А если пользователь псих и решит конкатенировать строки размером в пару сотен мгабайт)))?

Для чего ты это пишешь? Можете еще 100 раз написать с locm'ом про это, вещи от этого другими не станут. Вам написали про ограничения такой памяти, но вы в очередной раз пишете мне о них. Зачем? Я сам прекрасно знаю о них и в первом сообщении написал об этом. Мне даже лень уже по страницам тут прыгать чтобы ссылку давать.

Сообщение от Quiet Snow

Выходит так, что все эти бенефиты сводятся на нет. Мы на ровном месте получаем геморрой:
1) Ту же самую необходимость в проверках размера свободной памяти, про которую обсуждение уже дошло
аж до критических секций.
2) п1. тянет за собой необходимость подгружать это в регистр и сравнивать - теряем регистр
в алгоритме где он может быть критически важен, причём это уже второй регистр, от ebp мы типа отказались.
Ну т.е. гоняем туда сюда переменные память-регистры-память регистры, у нас же проц времени дофига
и нам не важен ни объём кода, ни кол-во операций, конвееры толстые - справятся.

Выгода есть и она была описана неоднократно. 2 пункт это вообще непонятно что, какой-то еще регистр - сам себе проблемы придумываешь.

Сообщение от Quiet Snow

Ещё во всей этой истории с кэшем наверное стоит учесть и то, что прирост будет от кэша инструкций,
а там я у парней видел такие штуки как CALL. Хотите оптимизировать, так оптимизируйте.
Пока тут оптимизацией не пахнет даже.

При чем тут это? Или что CALL AllocateMemory быстрее будет чем SUB ESP?

Сообщение от Quiet Snow

Простотой тут вообще нифига
не пахнет. И той халявой про которую якобы речь идёт, мол выдели переменные в стеке и радуйся
будет супер пупер быстро и ичего больше делать не надо, алгоритмы сами собой заработают быстро.

Конечно не пахнет простотой, особенно для тех кто сам себе привык придумывать проблемы

Сообщение от Quiet Snow

Всякие любители рекурсий, готовые библиотеки-чёрные ящики с сам бог знает чем внутри и мол на сколько
оно способно "поддёрнуть" стек. Уповать на удачу, что там всё ровненько, чистенько с проверочками и без
сильных аппетитов.

С рекурсией и потоками как раз в стеке все нормально если следовать рекомендациям. А вот с вашими с хулиганом рекомендациями с какой-то левой памятью, которую нужно там отслеживать и т.п. как-раз все грустно.

@Quiet Snow · 07.04.2021, 12:00

Сообщение от The trick

Нет никакого ожидания данных стека, что за абсурд?

Ахах, прикольно. Я только что узнал что можно просто выкинуть push\pop и не пользоваться ими.

Всё сами разгребайтесь со своим пониманием, мне хватило.

@Замабувараев · 07.04.2021, 12:02 **[ТС]**

Сообщение от locm

Посмотрим чего стоит перегрузка операторов/ключевых слов в FB.

Вы опять путаете statements и operators. Statements не перегружаются, перегружаются operators.

Сообщение от locm

Вы где-то видите работу с указателями?

Вы сейчас всерьёз утверждаете, что ваши массивы реализованы без указателей на память? Как тогда реализованы ваши массивы?

Сообщение от locm

Dim x(100)
ReDim x(100000)

Как работает ваш массив если старую память расширить не удаётся?

Сообщение от locm

Имеет смысл есть есть поддержка со стороны ЯП

Во FreeBASIC поддержка есть, потому что функция alloca возвращает указатель на память, а указатели поддерживаются в FreeBASIC.
Я правильно понимаю, что вам нужен особый синтаксис под каждую отдельную сущность? Вот скажите мне, ваш язык поддерживает адресную книгу с номерами незнакомок? Не надо мне предлагать список или map с некими структурами, мне нужна конкретно адресная книга для номеров незнакомок.

@Quiet Snow · 07.04.2021, 12:09

Сообщение от The trick

Странно что ты об этом не знаешь

Да я ваще дно, просто от балды всё это пишу, а проги писал дядя Вася.

@locm · 07.04.2021, 12:34

Сообщение от The trick

менеджер хипа тот блок оставит и будет искать другой

Этот блок сможет использовать другая программа. В стеке так не получится иначе придется написать смой менеджер памяти на основе стека.

Сообщение от Замабувараев

Вы сейчас всерьёз утверждаете, что ваши массивы реализованы без указателей на память?

Вы в коде видите указатели?

Сообщение от Замабувараев

Как работает ваш массив если старую память расширить не удаётся?

Программируя на бейсике вам часто приходится задаваться вопросом что будет если в ReDim укзать размер массива больше чем был?
Это задача компилятора/интерпретатора.

Сообщение от Замабувараев

Во FreeBASIC поддержка есть

Код можно чтобы посмотреть как реализовано?

Сообщение от Замабувараев

потому что функция alloca возвращает указатель на память, а указатели поддерживаются в FreeBASIC.

Гениально! Теперь вам осталась самая малость - научить компиль FB использовать alloca для динамических массивов и строк.
Или предлагаете все на указателях? Спасибо, но я пишу на бейсике не для того чтобы программы были в стиле Си.

Сообщение от Замабувараев

Не надо мне предлагать список или map с некими структурами, мне нужна конкретно адресная книга для номеров незнакомок.

Не по теме:

То есть книга с номерами знакомок не нужна? :D

В принципе под задачу подойдет ассоциативный массив.

PureBasic
1
2
3
4
NewMap Book()
 
Book("Незнакомка 1") = 789555123
Book("Незнакомка 2") = 789555124

Получение списка незнакомок и их номеров телефонов

PureBasic
1
2
3
ForEach Book()
  Debug MapKey(Book()) + " - телефон: " + Book()
Next

@The trick · 07.04.2021, 12:47

Сообщение от Quiet Snow

Я только что узнал что можно просто выкинуть push\pop и не пользоваться ими.

А при чем тут эти команды? Никто не говорит что их нужно выкидывать, ты о чем вообще? Тебе написал про абсурд по поводу какого-то ожидания стека.

Сообщение от Quiet Snow

Да я ваще дно, просто от балды всё это пишу, а проги писал дядя Вася.

Не нужно иронизировать. Мое высказывание напрямую следует из твоего.

Сообщение от locm

Этот блок сможет использовать другая программа. В стеке так не получится иначе придется написать смой менеджер памяти на основе стека.

А про стек никто обратного не утверждал. Насчет другой программы, это только в контексте текущего процесса, т.е. программа в данном случае это код текущего процесса. Другой момент это то что стек для каждого потока свой, хип тоже можно сделать для каждого потока свой, но обычно используют один хип (системный) и доступ к нему нужно синхронизировать - это накладные расходы.

@Pro_grammer · 07.04.2021, 15:55

Сообщение от locm

В принципе под задачу подойдет ассоциативный массив

А если ещё и структуру туда прикрутить, то вообще бомба!

PureBasic
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
Structure stranger
    Weight.f
    breast_ize.l
    phone.s
    age.b
EndStructure
NewMap Book.stranger()
    
  Book("Валя")\Weight = 50.5
  Book("Валя")\age = 27
  Book("Валя")\breast_ize = 3
  Book("Валя")\phone = "+789555123"
  
  Book("Снежанна")\Weight = 57.2
  Book("Снежанна")\age = 25
  Book("Снежанна")\breast_ize = 4
  Book("Снежанна")\phone = "+789533527"
  
  Book("Зинаида")\Weight = 60.5
  Book("Зинаида")\age = 30
  Book("Зинаида")\breast_ize = 4
  Book("Зинаида")\phone = "+7895869120"
  
 
  ForEach Book()
    Debug "Имя: "+MapKey(Book())
    Debug "Телефон: "+Book()\phone
    Debug "Вес: "+Str(Book()\Weight)
    Debug "Размер груди: "+Str(Book()\breast_ize)
    Debug"+++++++++++++++++++++++++++"
  Next

Замабувараев, задолбаешься такое на указателях творить

А тут красота, понадобилась ещё один параметр, например "Рост", вписал его в готовую структуру, и вот уже всё готово без переделки остального кода.

@Замабувараев · 07.04.2021, 18:20 **[ТС]**

Сообщение от locm

NewMap Book()

Ну Я же спрашивал не какие‐то ньюмапы, а адресную книгу с номерами незнакомок. В вашем языке нету NewSecretAdmirersAddressBook.

Сообщение от locm

Вы в коде видите указатели?

Да. Все эти Dim, ReDim, Preserve, Erase — это лишь оболочки, из которых торчат уши malloc, realloc, memcpy и free над указателями.
Или массивы в вашем языке реализованы без указателей?

Сообщение от locm

Это задача компилятора/интерпретатора.

Нет конечно. Задача компилятора не выдумывать отсебятины, а заменить эти ключевые слова на вызов соответствующих malloc, realloc, memcpy и free. Ничего больше.

Сообщение от locm

Код можно чтобы посмотреть как реализовано?

1. Я уже выкладывал сюда пример использования alloca и её ассемблерный код.
2. Я взял библиотечную функцию, как там это реализовано — меня не волнует. Вы сами сказали почему это волновать не должно:

Сообщение от locm

Это задача компилятора/интерпретатора.

Сообщение от locm

Теперь вам осталась самая малость - научить компиль FB использовать alloca для динамических массивов и строк.

Вы просили показать как через alloca можно выделить память на стэке, Я показал.
Всё, задача выделения памяти на стэке решена.
Вы хотите, чтобы функции из рантайма которые работают с памятью в привязке с кучей, работали на стэке? Этого не будет.

Добавлено через 1 час 50 минут
Давайте поговорим эффективность сети в PureBasic.

Отправка данных не больше 65535 байт за раз, а для UDP и того меньше — не более 2 килобайт за раз (Я не шучу).

ID клиентов и серверов хранятся в неком глобальном списке, а это значит, что где‐то внутри есть как минимум критическая секция или вообще мьютекс, для синхронизации между потоками. Это означает, что даже если вы запустили несколько потоков, то программа всё равно в неожиданных местах превращается в однопоточную.

Реализация сервера из примера грузит процессор на 100%. Потому что «есть ли данные» проверяется в цикле! А чтобы не грузить процессор, приходится делать задержки между проверками.

Никакой асинхронности. Вы не можете сказать: «Вот тебе буфер, как данные придут, положи их в буфер и сделай уведомление».

Нет пула рабочих потоков, никаких epoll-IOCP.

Сообщение от locm

Торрент-клиент на PB. Торрент клиент
Устанавливаются тысячи соединений как TCP так UDP. Все в одном потоке.

Глядя на последнюю версию торрентокачалки, легко обнаружить там ВинАПИ. Кроссплатформенность©®™ рушится прямо на моих глазах.

@locm · 07.04.2021, 19:56

Сообщение от Замабувараев

Ну Я же спрашивал не какие‐то ньюмапы, а адресную книгу с номерами незнакомок. В вашем языке нету NewSecretAdmirersAddressBook.

Может Вы еще хотите ЯП с единственным ключевым словом СделайВсеЗаМеняИЧтобыБылоКруто?

Написал его и комп сам догадался что нужно и сделал.

Сообщение от Замабувараев

Да. Все эти Dim, ReDim, Preserve, Erase — это лишь оболочки, из которых торчат уши malloc, realloc, memcpy и free над указателями.

Ага, а WinAPI это оболочка над ядром. Процессор состоит из транзисторов, которые в свою очередь сделаны из кремния с атомарной массой 28,085, находящегося на 14 позиции в таблице Менделеева.
Только нужно ли это знать чтобы написать программу. С указателями также. По сути это просто адреса ячеек памяти т. к. массив нужно где-то хранить.
Где он находится знать необязательно.

Сообщение от Замабувараев

Всё, задача выделения памяти на стэке решена.

Вы же предлагали использовать стек для динамических массивов и строк. Так что не решена.

Сообщение от Замабувараев

Вы хотите, чтобы функции из рантайма которые работают с памятью в привязке с кучей, работали на стэке? Этого не будет.

Ну вот вы предлагаете использовать стек для динамических массивов и строк. Хоть раз использовали? Код можно посмотреть?

Сообщение от Замабувараев

Давайте поговорим эффективность сети в PureBasic.

Что вы к PB прицепились и пытаетесь найти недостатки?

Сообщение от Замабувараев

ID клиентов и серверов хранятся в неком глобальном списке, а это значит, что где‐то внутри есть как минимум критическая секция или вообще мьютекс, для синхронизации между потоками.

Предположим синхронизация занимает 0.000000001 сек. Это сильно скажется на производительности?

Сообщение от Замабувараев

Глядя на последнюю версию торрентокачалки, легко обнаружить там ВинАПИ.

Потому что при его разработке кроссплатформенность не требовалась. WinAPI не много относительно остального кода.

@Замабувараев · 08.04.2021, 21:45 **[ТС]**

Сообщение от locm

Может Вы еще хотите ЯП с единственным ключевым словом СделайВсеЗаМеняИЧтобыБылоКруто?
Написал его и комп сам догадался что нужно и сделал.

Так это вы хотите, чтобы всё было в языке, включая список с номерами незнакомок и тайных воздыхательниц. Концепцию, чтобы это было в библиотеке, вы не приемлете.

Сообщение от locm

Где он находится знать необязательно.

Вы строго требуете использования функции realloc для реализации изменения массива и ни в коем случае не связки malloc+memcpy+free, но теперь вы заявляете, что вам необязательно знать как массивы устроены внутри. Какая непоследовательность.

Сообщение от locm

Предположим синхронизация занимает 0.000000001 сек. Это сильно скажется на производительности?

Да, скажется. Написать что‐то серьёзное, например, бота для торговли на бирже уже не получится.

Сообщение от locm

Что вы к PB прицепились и пытаетесь найти недостатки?

Потому что здесь ищем эффективные пути решения задач. Я обнаружил в рантайме PureBasic существенный изъян.

Сообщение от locm

Ну вот вы предлагаете использовать стек для динамических массивов и строк. Хоть раз использовали? Код можно посмотреть?

Я же выкладывал пример кода раньше, но повторю.

Во FreeBASIC можно укорачивать строки, их длина изменяется:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
' Стока с фиксированной длиной создаётся в стэке
' длина должна быть константой
Dim wsz As WString * (265 + 1) = Any
' В строке 0 символов
wsz[0] = 0
 
' Теперь строка содержит 11 символов
wsz = "Hello World"
 
' Обрезаем до 5 символов
wsz[5] = 0

А вот так можно сделать строку с произвольной длиной:

PureBasic
1
2
3
Dim pMemory As Any Ptr = Alloca(BytesCount)
Dim pwsz As WString Ptr = CPtr(WString Ptr, pMemory)
*pwsz = "Hello World"

В PureBasic строки после создания не могут изменить длину. Или могут? Может ли строка в PureBasic содержать нулевой символ?

(Во вложении пример, демонстрирующий создание как WString произвольной длины на стэке, так и BSTR на стэке. Ссылка на гитхуб https://github.com/zamabuvaraeu/test )

@Pro_grammer · 09.04.2021, 08:25

Сообщение от Замабувараев

А вот так можно сделать строку с произвольной длиной:

QBasic/QuickBASIC
1
2
3
DIM pMemory AS ANY Ptr = Alloca(BytesCount)
DIM pwsz AS WString Ptr = CPtr(WString Ptr, pMemory)
*pwsz = "Hello World"

Извиняюсь, разрешите поинтересоваться в целях повышения образованности, чем ВАШЕ присвоение значения переменной отличается от такого:

Code
1
sHiWd$ = "Hello World"

Или вот, так в строке 0 символов

Code
1
sHiWd$ = ""

А теперь 5:

Code
1
sHiWd$ = "Hello"

@locm · 09.04.2021, 09:58

Сообщение от Замабувараев

Так это вы хотите, чтобы всё было в языке, включая список с номерами незнакомок и тайных воздыхательниц.

Это вы хотите...

Сообщение от Замабувараев

Вы строго требуете использования функции realloc для реализации изменения массива

Я про пишу про динамические строки и массивы в стеке, а не про функцию realloc. Которые кстати предложили вы.

Сообщение от Замабувараев

Да, скажется. Написать что‐то серьёзное, например, бота для торговли на бирже уже не получится.

Докажите.

Сообщение от Замабувараев

Я обнаружил в рантайме PureBasic существенный изъян.

Если поискать в FB изъяны, уверен их можно много найти, но мне это не нужно. Зачем вам нужно искать недостатки PB?

Сообщение от Замабувараев

Во FreeBASIC можно укорачивать строки, их длина изменяется:

Размер выделенной памяти в стеке от этого не меняется.

Сообщение от Замабувараев

А вот так можно сделать строку с произвольной длиной:

Нет, это все та же статическая строка, только с явным выделением памяти.
Догадайтесь что будет если записать в такую строку больше символов чем выделено памяти?

Сообщение от Замабувараев

В PureBasic строки после создания не могут изменить длину. Или могут? Может ли строка в PureBasic содержать нулевой символ?

Строки динамические, т. е. можно написать.

PureBasic
1
2
s.s = "1234"
s+ "5678" + s

Сообщение от Замабувараев

Во вложении пример, демонстрирующий создание как WString произвольной длины на стэке

И что тут делается со строкой?

Visual Basic
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
#include once "windows.bi"
#include once "TestStackAllocation.bi"
#include once "WriteString.bi"
 
Const HelloWorld = WStr("Hello World!")
Const Caption = WStr(!"Test Alloca function successful\r\n")
 
#ifdef WITHOUT_RUNTIME
Function EntryPoint()As Integer
#else
Function main Alias "main"()As Long
#endif
    
    Dim RetValue As Integer = Any
    
    Dim RetCode As Integer = TestStackAllocationW(HelloWorld)
    
    If RetCode = 0 Then
        RetValue = 2
    Else
        RetValue = 3
    End If
    
    Dim hr As HRESULT = WriteStringW( _
        StrPtr(Caption), _
        Len(Caption) _
    )
    If FAILED(hr) Then
        Return 4
    End If
    
    Return RetValue
    
#ifdef WITHOUT_RUNTIME
End Function
#else
End Function
#endif

Не по теме:

Сишники нервно курят в сторонке...

@Замабувараев · 09.04.2021, 14:51 **[ТС]**

Сообщение от Pro_grammer

чем ВАШЕ присвоение значения переменной отличается от такого:

Пока всё идёт нормально. Но стоит копнуть глубже, и уже оказывается, что строки не настолько динамические:

PureBasic
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
Procedure TestValueString()
  Hello.s = "Hello World!"
  World.s = "ThereIsString"
  
  *pHello1 = @Hello
  
  Hello.s = ""
  *pHello2 = @Hello
  
  If *pHello1 = *pHello2
    Debug "Это та же самая строка"
  Else
    Debug "Это уже другая строка!"
  EndIf
  
  Hello.s = "Hello World!"
  
  *pHello2 = @Hello
  
  If *pHello1 = *pHello2
    Debug "Это та же самая строка"
  Else
    Debug "Это уже другая строка!"
  EndIf
  
EndProcedure

Выводит:

Code
1
2
Это та же самая строка
Это уже другая строка!

Сообщение от locm

Нет, это все та же статическая строка, только с явным выделением памяти.
Догадайтесь что будет если записать в такую строку больше символов чем выделено памяти?

Вот видите, строка пересоздаётся, а не динамически расширяется. Хотя казалось бы, буфер позволяет. Но проблема здесь не в этом.
Проблема в том, что взятие указателя вроде бы на одну и ту же переменную даёт разные результаты. Вы не можете пользоваться указателем до конца процедуры, потому что в любой некотролируемый момент он начнёт ссылаться на мусор.

Проверил и это:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Procedure TestValueString()
  Hello.s = "1234"
  World.s = "ThereIsString"
  
  *pHello1 = @Hello
  
  Hello.s + "5678" + Hello.s
 
  *pHello2 = @Hello
  
  If *pHello1 = *pHello2
    Debug "Это та же самая строка"
  Else
    Debug "Это уже другая строка!"
  EndIf
EndProcedure

Выдаёт «Это уже другая строка!»

Сообщение от locm

Докажите.

Пока вы будете выходить из блокировки, цена в биржевом стакане изменится, все несут убытки. Думаете, просто так заменяют витую пару на оптику от серверов с ботами и ведут её напрямую к серверам биржи.

Сообщение от locm

И что тут делается со строкой?

Не тут, а внутри функции TestStackAllocationW из файла «Modules\TestStackAllocation.bas». На больших данных падает, на маленьких работает.

Сообщение от locm

Если поискать в FB изъяны, уверен их можно много найти

@Quiet Snow · 09.04.2021, 14:53

Сообщение от locm

Если поискать в FB изъяны, уверен их можно много найти

Да их там дохренище. В этом вообще не суть, если бы всё зависело от диалекта, на нём бы никто не писал.
В случае с PB тоже самое, но софт пишется only прямыми лапками.

Сообщение от Замабувараев

' Обрезаем до 5 символов
wsz[5] = 0

Думаю над locm'ом так не надо издеваться. Он ведь понимает что тут происходит.
Мы завели строку а потом посереди неё один из байтов нарекли нолём. Классический подход zstring.
Память мы не освободили таким образом. Если мы хотим строку и усечь и увеличить, то есть два пути
1) завести памяти столько, на сколько нам нужно, чтобы увеличить строку, т.е. нужно получить
длины слепливаемых строк, сложить, завести память, скопировать туда наши строки и удалить исходную.
2) сделать реаллок с сохранением данных, если используемая структура позволяет.

Это всё на уровне алгоритма, а не на уровне того, что мы используем из памяти.
Есть ещё один подход, гибридный, который как раз и использую, но тут все умненькие сами догадаетесь.
Но охотно рассмотрю любые догадки.

@Pro_grammer · 09.04.2021, 15:25

Сообщение от Замабувараев

Выводит:
КодВыделить код
Это та же самая строка
Это уже другая строка!

Враньё!
В этом случае одна и та же строка.

Вложение 1242863

@Pro_grammer · 09.04.2021, 15:32

Сообщение от Quiet Snow

Мы завели строку а потом посереди неё один из байтов нарекли нолём.

То же самое я сделал, когда в своём сообщении выложил код

PureBasic
1
2
sHiWd$ = "Hello World"
sHiWd$ = "Hello"

Воспользуйся инструментом в Отладчике - Просмотр памяти. Там чётко видно, что строка осталась, но после Hello встал 0.

Нет ни какой необходимости городить всю эту чушь, что Замабувараев порой пишет.

@The trick · 09.04.2021, 16:26

Сообщение от Pro_grammer

Враньё!
В этом случае одна и та же строка.

Не враньё:

Общие вопросы и приёмы эффективного программирования на BASIC

Сообщение от Pro_grammer

То же самое я сделал, когда в своём сообщении выложил код

Не тоже самое. У тебя при каждом вызове идет обращение куче и переопределение памяти, а также копирование строки. То что отладчик показывает одну и ту же память - ничего не значит, просто хип возвращает тот же самый блок.

Новые блоги и статьи Все статьи Все блоги /
Просветление в 5 секунд kumehtar 10.07.2026 Андрей Веретенников выдал фразу недавно: "Вам не обязательно кем-то себя считать"	Эксперимент с картинкой-обложкой на CodinGame Adler 10.07.2026 Решил на днях провести эксперимент. У меня есть аккаунт на CodinGame, ТОП-3 по РФ среди 2200 участников (в разделе соревнования по программированию ИИ-ботов). Там есть обложка, куда можно влепить. . .	GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude MaGz GoLd 08.07.2026 Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .	Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .
Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .