Source file: /~heha/messtech/ddegp32.zip/parser32.pas

unit parser32;
{Parsen von Kommandozeilen u.„. "komma-separierten" Listen}
interface
const
 DELIM_NoTrimLeft=$100;
 DELIM_NoTrimRight=$200;
 DELIM_NilWhenNone=$400;	{liefert NIL, wenn KEIN Element mehr da ist}
 DELIM_Whitespace=$800;
 ESCAP_SglQuote=LongInt('''') shl 16;
 ESCAP_DblQuote=LongInt('"') shl 16;
 DELIM_CmdLine=ESCAP_DblQuote or DELIM_WhiteSpace;

function NextItem(var s: PChar; escap_delim:LongInt):PChar;
{escap und delim teilen sich in Low-Byte und High-Byte auf:
 escap.lo=einleitendes Flucht-Zeichen (blich '"', 0 wenn keine Flucht)
 escap.hi=ausleitendes Flucht-Zeichen (0 wenn gleich einleitendem)
 delim.lo=Trennzeichen, 0 fr keins (nur trimmen)
 delim.hi=DELIM_xxx-Bits siehe oben
 Entsprechend der Kommandozeilen-Zusammensetzungs-Strategie der COMMAND.COM
 wird z.B. < "Lange Datei"".""xyz" > zu <Lange Datei.xyz> gewandelt,
 d.h. Flucht-Zeichen schalten hin und her und k”nnen selbst nicht mit
 bergeben werden, falls beide gleich sind
 Der String, auf den s zeigt, wird "zerst”rend gelesen", die via
 Returnwert (der immer gleich s beim Aufruf ist) Zeichenkette
 ist auch nach mehrfachem Aufruf nicht kaputt.}

function OneItem(s: PChar; escap_delim:LongInt):PChar; stdcall;
{eine Modifikation, die als Rckgabewert den vorgerckten Zeiger hat}

implementation

procedure IsWS; assembler;
{testet AL auf Weiáraum, d.h. $09, $0A, $0D, $20}
 asm	cmp	al,09h
	jz	@@e
	cmp	al,0Ah
	jz	@@e
	cmp	al,0Dh
	jz	@@e
	cmp	al,' '
@@e:	end;

function OneItem(s: PChar; escap_delim:LongInt):PChar; assembler;
 asm	pushad
	 cld
	 mov	esi,[s]
	 mov	edi,esi
	 or	esi,esi
	 jz	@@e	{wenn da NIL drinsteht, immer durchreichen!}

	 mov	cx,word ptr [escap_delim+2]
	 mov	dx,word ptr [escap_delim]

	 or	ch,ch
	 jnz	@@1
	 or	cl,cl
	 jz	@@1
	 mov	ch,cl	{gleich machen wenn CH=0 und CL<>0}
@@1:
	 mov	ebx,edi	{Abhack-Zeiger fr TrimRight}
	 test	dh,1	{NoTrimLeft?}
	 jnz	@@outquoteloop
@@trimleft:
	 lodsb; or al,al; jz @@raus
	 call	IsWS
	 jz	@@trimleft
	 jmp	@@oq1

@@oq3:	 mov	ebx,edi	{Abhackposition vorrcken}
@@outquoteloop:
	 lodsb; or al,al; jz @@raus
@@oq1:	 cmp	al,cl
	 je	@@inquoteloop
	 test	dh,8	{Whitespace als Trennzeichen?}
	 jnz	@@oq2
	 cmp	al,dl
	 je	@@raus_sep
	 stosb
	 test	dh,2	{NoTrimRight?}
	 jnz	@@oq3
	 call	IsWS
	 jz	@@outquoteloop
	 jmp	@@oq3
@@oq2:
	 call	IsWS
	 jz	@@raus_sep
	 stosb
	 jmp	@@oq3

@@inquoteloop:
	 lodsb; or al,al; jz @@raus
	 cmp	al,ch
	 je	@@outquoteloop
	 stosb
	 mov	ebx,edi	{hier jeden Weiáraum mitnehmen!}
	 jmp	@@inquoteloop

@@raus:		{ohne Separator: NIL in S einspeichern lassen!}
	 dec	esi	{wieder AUF DIE NULL zurckstellen}
	 test	dh,4
	 jz	@@raus_sep
	 xor	esi,esi
@@raus_sep:
	{Rechts-Trimmung ausfhren, gleichzeitig terminieren}
	 mov	byte ptr [ebx],0
	{vorgercktes S zurckliefern}
@@e:	 mov	[esp+1Ch],esi	{nach EAX}
	popad
 end;

function NextItem(var s: PChar; escap_delim:LongInt):PChar; assembler;
 begin
  NextItem:=s;
  s:=OneItem(s,escap_delim);
 end;

end.
Detected encoding: ANSI (CP1252)4
Wrong umlauts? -
Assume file is OEM (CP437) encoded