1 / 96

dECLARE PROCEDURE JOi()

dECLARE PROCEDURE JOi(). BOOLEAN JOiNiT. STRiNG PAR. iNTEGER CREMENT. *$USEFUNCS. BEGIN. JOINIT=FALSE. CREMENT=0. IF (TOKCOUNT()=0) END ' we don't want any shit happening with wrong usage. PAR=GETTOKEN(). IF (PAR="PLUS") CREMENT=1 ' 1 means conf join ">".

lara-moses
Download Presentation

dECLARE PROCEDURE JOi()

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. dECLARE PROCEDURE JOi()

  2. BOOLEAN JOiNiT

  3. STRiNG PAR

  4. iNTEGER CREMENT

  5. *$USEFUNCS

  6. BEGIN

  7. JOINIT=FALSE

  8. CREMENT=0

  9. IF (TOKCOUNT()=0) END ' we don't want any shit happening with wrong usage ...

  10. PAR=GETTOKEN()

  11. IF (PAR="PLUS") CREMENT=1 ' 1 means conf join ">"

  12. IF (PAR="MINUS") CREMENT=-1 ' -1 means conf join "<"

  13. IF (CREMENT=0) END ' we don't want any shit happening with wrong parameters.

  14. JOI()

  15. END

  16. PROCEDURE JOI()

  17. INTEGER CNF

  18. CNF=CURCONF()

  19. WHiLE (JOINIT=FALSE) dO

  20. IF (CONFINFO(cnf+CREMENT, 1)<>"") THEN

  21. IF (CONFINFO(cnf+CREMENT, 2)=TRUE) THEN

  22. CNF=CNF+CREMENT

  23. JOINIT=TRUE

  24. ELSE

  25. IF ( CONFREG(CNF+CREMENT) |(CONFREG(CNF+CREMENT)&CONFEXP(CNF+CREMENT))) THEN

  26. CNF=CNF+CREMENT

  27. JOINIT=TRUE

  28. ELSE

  29. CNF=CNF+CREMENT

  30. ENDIF

  31. ENDIF

  32. ELSE

More Related