forum.clarionlife.net

Автор Mike Hanson.

                    PROGRAM

                    MAP
                    end

c1                  CLASS
GiveMeAString           Procedure(),String
                    end

    CODE
        
    Message(c1.GiveMeAString())    
        
c1.GiveMeAString    PROCEDURE
LocalClass              CLASS
MyString                    &String
Destruct                    PROCEDURE
                        END

  
    CODE
        
        LocalClass.MyString &= NEW String(100)
        LocalClass.MyString = 'Here it is!'
        Return LocalClass.MyString

LocalClass.Destruct PROCEDURE

    Code
        
        Message('Destructor is killing the string now')
        Dispose(SELF.MyString)

Прикольно.

Но не очевидно, например с повторным вызовом.

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

По крайне мере я контролирую зону действия переменной, могу ее использовать в этой зоне
и не нарвусь на GPF при обращении по несуществующему адресу.

Код: Выделить всё

  Map
    GetVarString(long),*string 
  end

MyString &String

  Code
 
   MyString &= GetVarString(123)
   If ~(MyString &= NULL)
        Message(MyString)
        Dispose(MyString)
   end
   
GetVarString  Procedure(xSize_)
RetString &String
  Code
  RetString &= New(String(xSize_))
  If ~(RetString &= NULL) then RetString = 'Привет лунатикам !'.
  Return RetString

Тогда уж так

Код: Выделить всё

  Map
    GetVarString(long),*string 
  end

MyString &String

  Code
 
   If ~(MyString &= NULL)
        Dispose(MyString)
        MyString &= NULL
   end
   MyString &= GetVarString(123)
   If ~(MyString &= NULL)
        Message(MyString)
        Dispose(MyString)
        MyString &= NULL
   end
   
GetVarString  Procedure(xSize_)
RetString &String
  Code
  RetString &= New(String(xSize_))
  If ~(RetString &= NULL) then RetString = 'Привет лунатикам !'.
  Return RetString

Ну это уже из серии "презерватив на свечку".

У меня ведь в примере нет использования ЛОКАЛЬНО объявленной переменной MyString, зачем ее сбрасывать ?
А связка

Код: Выделить всё

        Dispose(MyString)
        MyString &= NULL

оставляет ощущение, что, что одно здесь точно лишнее ...

Насколько я понял, здесь речь о тонкой разнице между
procedure (),*String
......
Return s

и
procedure(),String
......
Return (s)

Если пишется в скобках, выражение разыменовывается, а если без скобок-возвращается адрес.
Если s является ссылкой на строку, эту ссылку можно вернуть в качестве результата.

тут проблема в чём: если s ссылка на строку, то

Код: Выделить всё

s &= NEW STRING(100)
s = 'Here it is'
RETURN (s)

не освобождает выделенную память.

Опыт, сын ошибок трудных, говорит: Надень два, даже если это свечка! Это не трудно и не накладно, зато надежно

Игорь Столяров писал(а): Ну это уже из серии "презерватив на свечку".
У меня ведь в примере нет использования ЛОКАЛЬНО объявленной переменной MyString, зачем ее сбрасывать ?
А связка
Код: Выделить всё
        Dispose(MyString)
        MyString &= NULL
оставляет ощущение, что, что одно здесь точно лишнее ...

Дед Пахом писал(а):
s &= NEW STRING(100)
s = 'Here it is'
RETURN (s)

не освобождает выделенную память.
С уважением, ДП

Это просто не сработает, Return(s) вернёт не ссылку на строку, а её значение.
А декларация прописана как

Map
GetVarString(long),*string
end

Но фишку я так и не просёк...

Именно о декларации "(), STRING" речь изначально. Фишка в том, что, объявив в процедуре локальный класс с деструктором, можно возвращать по RETURN то, что было создано NEW.

Я бы сказал проще: используется неявный вызов Dispose(SELF.MyString) через LocalClass.Destruct. В этом основная фишка.
Пример действительно интересно показывает, как можно выполнить некий код после оператора RETURN в процедуре,
чего сделать традиционным способом наверное невозможно ....

forum.clarionlife.net

Изящный способ вернуть динамическую строку

Изящный способ вернуть динамическую строку

Изящный способ вернуть динамическую строку

Изящный способ вернуть динамическую строку

Изящный способ вернуть динамическую строку

Изящный способ вернуть динамическую строку

Изящный способ вернуть динамическую строку

Изящный способ вернуть динамическую строку

Изящный способ вернуть динамическую строку

Изящный способ вернуть динамическую строку

Изящный способ вернуть динамическую строку