welche Sprache ist das?

[frankx]

Hellihello,

kann mir jemand sagen, was das ist/welche Sprache?

*function modulo10    && Pruefziffer wird nach dem MODULO10-Verfahren berechnet
parameters m_knummer
z=len(m_knummer)
k=0
j=2
pz=""
do while z>0
 i=j*val(subs(m_knummer,z,1))
 if i>=10
  i=i-9
 endif
 k=k+i
 if j=2
  j=1
 elseif j=1
  j=2
 endif
 z--
enddo
k=10-(10*((k/10)-int(k/10)))
if k=10
 pz="0"
else
 pz=str(k,1)
endif
return(pz)

Dank und Gruß,

frankx

[SteBu]

Moin,

kann mir jemand sagen, was das ist/welche Sprache?

sieht sehr nach FoxPro aus.

Gruß
SteBu

[MudGuard]

Hi,

kann mir jemand sagen, was das ist/welche Sprache?
*function modulo10    && Pruefziffer wird nach dem MODULO10-Verfahren berechnet

&& als Kommentaranfang - damit scheiden alle mir bekannten Sprachen (C, C++, Java, Perl, Javascript, Pascal, Modula, Prolog, Basic, ...) aus.

cu,
Andreas

[Ashura]

Hallo MudGuard.

&& als Kommentaranfang - damit scheiden alle mir bekannten Sprachen (C, C++, Java, Perl, Javascript, Pascal, Modula, Prolog, Basic, ...) aus.

Über meine Suche bin ich auf dieses Dokument gestoßen, worin folgendes steht:

No ‘*’ or ‘&&’ Comment Support

CULE does not support the * and && comment syntax that are supported in Clipper/VO.  The language supports to forms of commenting, line comments using a double slash //… and block comments /*…*/.

Möglicherweise handelt es sich hierbei also um Clipper-Code, dieser Guide erwähnt zumindest diese Kommentarform.

Einen schönen Mittwoch noch.

Gruß, Ashura

[Klawischnigg]

Hi there,

Möglicherweise handelt es sich hierbei also um Clipper-Code, dieser Guide erwähnt zumindest diese Kommentarform.

Nicht möglicherweise. Ohne elseif und ohne z-- Statement hätte es noch natives dBASE, Foxbase oder Foxpro sein können; elseif wurde mit Clipper Summer 87 eingeführt, und die Möglichkeit, Inkrementoren oder Dekrementoren wie ++ oder -- gibt es frühestens seit der Version Clipper 5...

[Klawischnigg]

Hi there,

ist irgendeine xBasesprache (dBase, CLipper, Foxpro...)