Pointer to String Constant

[Demivec]

Code: Select all

#String1 = "Constant String X"
#String2 = "Constant String X"
#String3 = "Constant String 3"

Procedure test(*StringConstant)
  Debug Str(*StringConstant) + ": " + PeekS(*StringConstant)
EndProcedure

Define myString.s = "Variable String"
test(@myString)
test(@"Literal String")
test(?string1)
test(?string2)
test(?string3)

DataSection
  String1: Data.s #String1
  String2: Data.s #String2
  String3: Data.s #String3
EndDataSection

@Edit: shortened example code

[Shield]

Well if you're going to do something complicated like this, you might as well just go with:

Code: Select all

Macro MyConst
	"Hello World"
EndMacro
#MyConst = MyConst

Procedure Pointer(*pointer)
	
	Debug PeekS(*pointer)
	ProcedureReturn #True
EndProcedure

Debug #MyConst
Debug MyConst
Pointer(@MyConst)

[skywalk]

Bump
myStringProcedure(@#MYConst$) would have made string library changes much simpler, instead of:

Code: Select all

;- Pointer to a string constant. --> @#MYCONST$
Prototype.i PtrToStr(aString.p-unicode)
Procedure.i PtrToStr(aString.i)
  ProcedureReturn aString
EndProcedure
Global atS.PtrToStr = @PtrToStr()
CompilerIf 1
  Procedure SF_ShowPtrContents(*p)
    ; Work with ByRef string. Not its copy.
    Debug PeekS(*p)
  EndProcedure
  #String1 = "StrConst 1"
  String2$ = "StrVar 2"
  SF_ShowPtrContents(atS(#String1))    ;<-- Annoying for String Constants.
  SF_ShowPtrContents(@String2$)
  SF_ShowPtrContents(@"Literal String")
CompilerEndIf

[Mistrel]

Why would you need a pointer to a constant though?

It saves memory and processing power by being able to reuse the pointer to a string without having to allocate memory and perform and assignment each time you want to use it somewhere. For example, error messages.

[Sicro]

PB_5.50: @#StringConstant$ doesn't work

[walbus]

It should work, it's useful