ab.com コミュニティ

下のようなプログラムを作ったのですが、
関数内では、正しく値を表示できるのですが、
関数から戻ってきた値が正しく表示されません。
誰か教えてください。

Print makePtr(x)
End

Function x() As *char
    Dim Str$ As String
    /* 何らかの処理 */
    Print Str$
     x = StrPtr(Str$)
End Fuction

[/code]

エラーなどがでていたらここに書いてください。
あとコードのミスを発見したので書いておきます。

Print MakeStr(x)
End

Function x() As *char
    Dim Str$ As String
    /* 何らかの処理 */
    Print Str$
     x = StrPtr(Str$)
End Function

エラーは出ないのですが、文字化け状態で表示されます。

あと、コードをミスしていましたが、それが原因ではありません。(恥)

StrPtrは簡単に言うとString型をBytePtrに変換する関数なので*charではなくBytePtrにしてみてください。(*charってABで定義無いような気が・・・)

xの呼び出しに関数呼び出しの()がありませんが書き写し間違いでしょうか。

String型は文字列のメモリの管理をしてくれますが，ポインタ型はそうではありません。
そのため，関数xを抜ける際に変数Str$の中身の文字列のメモリが解放されてしまっています。

特に事情が無ければxがString型を返すようにすれば良いのですが，そうできない事情でもあるのでしょうか？

この問題は関数をよく理解していないとやってしまうポカの１つです。

まずはローカル変数とグローバル変数についてよく理解してください。
関数内で宣言された変数はローカル変数ですよね。
ローカル変数は基本的に関数を抜けた時点で消滅しますので
消滅する変数へのポインタを関数の戻り値に指定するとどうなるか考えてみてください。

P.S.
イグトランス様に先を越されたようですね。

イグトランス様が仰っているのは

Function x() As String
    Dim Str$ As String
    /* 何らかの処理 */
    Print Str$
    x=Str$
End Function

ってことです。

どうしてもポインタを返したいなら

Function x() As *Char
    Dim pStr As *Char
    pStr=calloc(256)
    /* 何らかの処理 */
    Print MakeStr(pStr)
    x=pStr
End Function

この場合、x()関数が返したポインタをfree()で解放しないといけなくなります。
cdecl形式の関数であればスタックは呼び出し側が始末するので
後で解放しなくてもよいものができそうですが。。。

自分もポカしてましたね（恥）直し方はわかりましたがわりと簡単なのでここには書きません。

BytePtr型を使ってもだめだったので、
「NoWest」さんのコードを参考にして、「String型」から強引に「*char型」に変換する関数(StrToChar)を作って組み込んだところ、問題が解決しました。

Print MakeStr(x) 
End 

Function x() As *char 
    Dim Str$ As String 
    /* 何らかの処理 */ 
    Print Str$ 
     x = StrToChar(Str$)
End Function 

Function StrToChar(Str$ As String) As *char
	Dim I As Integer, Max As Long
	Dim pStr As *char

	Max = Len(Str$)

	pStr = calloc(Max + 1)

	For I = 1 To Max
		pStr = Asc(Mid$(Str$, I, 1))
	Next I
	
	StrToChar = pStr
End Function

For I = 1 To Max
    pStr = Asc(Mid$(Str$, I, 1))
Next I

この部分はもっと簡単に，これだけで済みます。そしてこの場合callocはmallocで置き換えられます。

memcpy(pStr, StrPtr(Str$), Max + 1)

また，callocで確保したメモリはfreeで解放すべきです。

Print MakeStr(x)
End

これを（たとえば）こうします。

Dim pStr As *Char
pStr = x()
Print MakeStr(pStr)
free(pStr)

End

もう1度言いますが，私なら関数xがString型を返すようにします。
こんなfreeしなければならないなんて面倒くささは受け入れられませんから。

私もどうしてポインタを返す関数を作りたいのか知りたいですね。

自分だけで使う関数なら、ポインタを返す関数を作ってもよいと思いますが
他の人に公開するライブラリの一部などであれば勿論のこと
「３日も経てば他人のソース」という格言のように自分でも混乱しかねません。

文字列操作の関数であれば外部から目的の文字列バッファを引数に与えてやるのが
基本だと思います。

> 私もどうしてポインタを返す関数を作りたいのか知りたいですね。

↑作った理由は、たいした理由では無いです。
昔、研究していた「スパゲッティプログラム」と「プログラム方言」を、もう一度、初めから研究するためです。

研究対象がスパゲッティプログラムか。どういうレポート結果になったの？

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

>研究対象がスパゲッティプログラムか。どういうレポート結果になったの？

↑痛いところを衝かれました。実言うと、レポートとかは残っていません。

昔、「スパゲッティプログラム」を研究していたのですが、仕事で忙しくなり、
挫折したためです。
でも最近、プログラムの「方言」が、「スパゲッティプログラム」を生み出す原因のひとつになっていそうだな････。と思ったので、また一から研究を始めたわけです。

と言うか、レポートとか文学は苦手です。

ＣやＪａｖａを始めとするほとんどの高水準言語にはスパゲッティープログラムの元になるgoto文が用意されてます。

覚えてる限りでは、COBOL(事務処理系)やForTran(科学技術系)等のやつらでgoto文あるいは同等の働きをする文が用意されていたような・・・。


低水準言語なら、アセンブリ言語ならjmpとかマシン語なら0xE9～0xEBと0xFFがgoto文と同じ働きをします。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

そんなCとかJavaとか持ち出さなくても，Goto付きのプログラミング言語なら目の前にあるでしょう，Basicが。
そういえば最近めっきりGotoを使う機会がありませんね。それでよいのでしょうけど。

PS 記念すべき400件目の投稿になりました。これからもみなさんよろしくおねがいします。