string.pas

来自「把pascal程序转成C语言程序 把pascal程序转成C语言程序」· PAS 代码 · 共 51 行

{ Oregon Software Pascal dynamic string package. }


{*VarFiles=0}  {INTF-ONLY}

function Len(var s : array [lo..hi:integer] of char) : integer; external;
{FuncMacro Len(lo,hi,s) = strlen(s)}

procedure Clear(var s : array [lo..hi:integer] of char); external;
{FuncMacro Clear(lo,hi,s) = (s[lo] = 0)}

procedure ReadString(var f : text;
		     var s : array [lo..hi:integer] of char); external;
{FuncMacro ReadString(f,lo,hi,s) = fgets(s, hi-lo+1, f)}

procedure WriteString(var f : text;
		      var s : array [lo..hi:integer] of char); external;
{FuncMacro WriteString(f,lo,hi,s) = fprintf(f, "%s", s)}

procedure Concatenate(var d : array [lod..hid:integer] of char;
		      var s : array [los..his:integer] of char); external;
{FuncMacro Concatenate(lod,hid,d,los,his,s) = strcat(d, s)}

function Search(var s : array [lo..hi:integer] of char;
		var s2 : array [lo2..hi2:integer] of char;
		i : integer) : integer; external;
{FuncMacro Search(lo,hi,s,lo2,hi2,s2,i) = strpos2(s,s2,i-lo)+lo}

procedure Insert(var d : array [lod..hid:integer] of char;
		 var s : array [los..his:integer] of char;
		 i : integer); external;
{FuncMacro Insert(lod,hid,d,los,his,s,i) = strinsert(s,d,i-lod)}

procedure Assign(var d : array [lo..hi:integer] of char;
		 var s : array [los..his:integer] of char); external;
{FuncMacro Assign(lo,hi,d,los,his,s) = strcpy(d,s)}

procedure AssChar(var d : array [lo..hi:integer] of char;
		  c : char); external;
{FuncMacro AssChar(lo,hi,d,c) = sprintf(d, "%c", c)}

function Equal(var s1 : array [lo1..hi1:integer] of char;
	       var s2 : array [lo2..hi2:integer] of char) : boolean; external;
{FuncMacro Equal(lo1,hi1,s1,lo2,hi2,s2) = !strcmp(s1,s2)}

procedure DelString(var s; i, j : integer); external;

procedure SubString(var d; var s; i, j : integer); external;