1 / 183

;$USEFUNCS

;$USEFUNCS. DECLARE PROCEDURE ProcessCmdLine(). DECLARE PROCEDURE ReadConfig(). DECLARE PROCEDURE PrintLogo(). DECLARE PROCEDURE ReadDesc(). DECLARE PROCEDURE ProcessDir(). ;$INCLUDE:POWERPPLAGSDIRCNAMES.PPS. ;$INCLUDE:POWERPPLAGSDIRDIRLST.PPS. STRING PPEPath. STRING ConfigFile.

apu
Download Presentation

;$USEFUNCS

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. ;$USEFUNCS

  2. DECLARE PROCEDURE ProcessCmdLine()

  3. DECLARE PROCEDURE ReadConfig()

  4. DECLARE PROCEDURE PrintLogo()

  5. DECLARE PROCEDURE ReadDesc()

  6. DECLARE PROCEDURE ProcessDir()

  7. ;$INCLUDE:\POWERPPL\AGSDIR\CNAMES.PPS

  8. ;$INCLUDE:\POWERPPL\AGSDIR\DIRLST.PPS

  9. STRING PPEPath

  10. STRING ConfigFile

  11. STRING Version

  12. ;----------------------- config

  13. STRING CreateBackup

  14. STRING ForceProcess

  15. STRING DescPath

  16. INTEGER ConfStart

  17. INTEGER ConfEnd

  18. INTEGER AreaStart

  19. INTEGER AreaEnd

  20. BOOLEAN AllConfs

  21. BOOLEAN AllAreas

  22. ;----------------------- variable

  23. DATE Oldest

  24. DATE Newest

  25. INTEGER NumFiles

  26. INTEGER TotalSize

  27. STRING BoardName

  28. STRING Desc[20]

  29. STRING FinalDesc[20]

  30. INTEGER LenDesc

  31. STRING ConfName

  32. STRING AreaName

  33. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

  34. ;PROCEDURE Main

  35. ;

  36. ;corp principal du program

  37. ;----------------------------------------------------------------------------;----------------------------------------------------------------------------

  38. BEGIN

  39. INTEGER i

  40. PRINT "@POFF@@QOFF@"

  41. PPEPath=PPEPath()

  42. ForceProcess="N"

  43. AllConfs=TRUE

  44. AllAreas=TRUE

  45. VERSION="1.0"

  46. DescPath=PPEPath()+"DESC.DEF"

  47. RDUnet PCBNODE()

  48. WRUnet PCBNODE(),UN_STAT(),UN_NAME(),"Running AEGIS DIR","AGSDIR",""

  49. PrintLogo()

  50. PrintLN "@X0FAEgis DIR v",VERSION," coded by GandalF/AEgis"

More Related