home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 15 / AACD15.ISO / AACD / System / MorphOS / CygnusED-PPC / CED-PPC < prev    next >
Encoding:
Text File  |  2000-10-17  |  7.1 KB  |  137 lines
  1. ;*****************************************************************************
  2. ;     ______ ______ ____             ______ ______ ______
  3. ;    / __  // ____// __ \           / __  // __  // __  /
  4. ;   / /  -'/ /_   / / / / ______   / /_/ // /_/ // /  -' MorphOS
  5. ;  / /    / __/  / / / / /_____/  / ____// ____// /   
  6. ; / /___ / /___ / /_/ /          / /    / /    / /___ Patch
  7. ; \____//_____//_____/          /_/    /_/     \____/
  8. ;
  9. ; CED-PPC Patch Installer ©1999-2000 Robert C. Reiswig 
  10. ; $VER: V0.63 (October-16-2000)
  11. ; 
  12. ; If you wish to use any part of this installer you must ask. May not be 
  13. ; integrated/placed into any other package! You may NOT change this in an way!
  14. ; You man NOT take or use the ENV definitions and use them without direct
  15. ; permission from me! Changes, suggestions or problems: rob@vgr.com
  16. ;********************************************************************************
  17.  
  18. (set patchfile1 "ed_morphos.pch")
  19. (set patchfile2 "ced_ppc.pch")
  20. (set ced_root "") (set diskname "CygnusEd_Pro_4:")
  21. (set disknamec "CygnusEd_Pro_4")
  22. (set spatchbin (tackon ced_root "spatch"))
  23.  
  24. ;********************************************************************************
  25. ;English Strings
  26. ;********************************************************************************
  27. (set #intro "\n\nThis installer will create a PPC-MorphOS version of CygnusEd. It will also back up your orginal 'Ed' and 'CED' files.\n\nYou will need your CygnusEd CDROM as a base to create the new MorphOS binary CygnusEd programs. You must have CygnusEd correctly installed on your system.")
  28. (set #filenothere1 "\n\nThe installer could not find the file 'ed' in the directory where you told it to look. \n\nThe PPC-MorphOS version of Ed could not be created. \n\nPlease quit the installer and start again and select the correct directory.")
  29. (set #wherefile1 "Select the directory CED's 'ed' is in")
  30.  
  31. (set #filenothere2 "\n\nThe installer could not find the file 'CED' in the directory where you told it to look. \n\nThe PPC-MorphOS version of Ed could not be created. \n\nPlease quit the installer and start again and select the correct directory.")
  32. (set #wherefile2 "Select the directory 'CED' is in")
  33. (set #err1 "\n\nspatch retured an error code of ")
  34. (set #err2a ", the orginal file to be patched, 'Ed', was corrupt or bad, or could have not been at the location you told the installer. You may have tried to patch CMB's 'ed' editor. You may try to reinstall CygnusEd from the CDROM.")
  35. (set #err2b ", the orginal file to be patched, 'CED', was corrupt or bad, or could have not been at the location you told the installer. You may have tried to patch a verion of CED that is to old. You may try to reinstall CygnusEd from the CDROM.")
  36.  
  37. (set #patching1 "\nPatching file\n\n")
  38. (set #patching2 "\n\nto\n\n")
  39. (set #needcd "\n\n\nPlease place your CygnusEd CDROM into your CDROM drive to continue.")
  40.  
  41. ;********************************************************************************
  42. ;German Strings by the King!
  43. ;********************************************************************************
  44. (if (= @language "deutsch")
  45.  (
  46.   (set #intro "\n\nDieser installer erzeugt eine PPC-MorphOS Version von CygnusEd. Ebenso werden die orginalen 'Ed' und 'CED' Dateien gesichert.\n\nDie CygnusEd CDROM wird zur Erzeugung des neuen MorphOS CygnusEd Programms benötigt. Sie müssen die 68K-Version von CygnusEd bereits auf Ihrem System installiert haben.")
  47.   (set #filenothere1 "\n\nDer installer konnte die Datei 'ed' nicht im angegebenen Verzeichnis finden. \n\nDie PPC-MorphOS Version von Ed konnte nicht erzeugt werden. \n\nBitte verlassen Sie das Installationsprogramm und starten Sie es noch einmal mit einem korrekten Pfad.")
  48.   (set #wherefile1 "Bitte wählen Sie das Verzeichnis, welches CED's 'ed' enthält")
  49.  
  50.   (set #filenothere2 "\n\nThe installer could not find the file 'CED' in the directory where you told it to look. \n\nThe PPC-MorphOS version of Ed could not be created. \n\nPlease quit the installer and start again and select the correct directory.")
  51.   (set #wherefile2 "Select the directory 'CED' is in")
  52.   (set #err1 "\n\nspatch retured an error code of ")
  53.   (set #err2a ", the orginal file to be patched, 'Ed', was corrupt or bad, or could have not been at the location you told the installer. You may have tried to patch CMB's 'ed' editor. You may try to reinstall CygnusEd from the CDROM.")
  54.   (set #err2b ", the orginal file to be patched, 'CED', was corrupt or bad, or could have not been at the location you told the installer. You may have tried to patch a verion of CED that is to old. You may try to reinstall CygnusEd from the CDROM.")
  55.  
  56.   (set #patching1 "\nErzeuge Dateien\n\n")
  57.   (set #patching2 "\n\nto\n\n")
  58.  )
  59. )
  60.  
  61.  
  62. ;********************************************************************************
  63. ; Welcome
  64. ;********************************************************************************
  65. (message  #intro)
  66. (welcome)(askdisk (dest disknamec) (prompt #needcd) (help #needcd) )
  67.  
  68. ;*******************************************************************
  69. ;  ASK where ED is 
  70. ;*******************************************************************
  71. (set wherefile  (askdir (prompt #wherefile1)
  72.              (help   #wherefile1)
  73.                   (default "c:")
  74.          )
  75. )
  76.  
  77. (if (exists (tackon wherefile "Ed"))
  78.    (
  79.     (set vernum1 (getversion (tackon wherefile "ed")) )
  80.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  81.     (copyfiles (source (tackon wherefile "Ed"))
  82.                        (dest (expandpath wherefile))
  83.                        (newname (cat "Ed" ver1 "." rev1))
  84.     )
  85.  
  86.     (set todo (cat spatchbin " \"-p" patchfile1 "\" " "\"-o" (tackon "ram:" "Ed") "\"" " \""(tackon diskname "CygnusEd/Ed\"")))
  87.     (working (cat #patching1 (tackon diskname "Ed") #patching2 (tackon "ram:" "Ed")) )
  88.     (set err (run todo))
  89.  
  90.     (if (> err 0)  (message (cat #err1 err #err2a)) )
  91.     (copylib (source (tackon "ram:" "Ed")) (dest wherefile) (optional "nofail") ) 
  92.  
  93.    )
  94.  
  95.    (message #filenothere1) 
  96. )
  97.  
  98.  
  99. ;*******************************************************************
  100. ;  ASK where CED is 
  101. ;*******************************************************************
  102. (set wherefile  (askdir (prompt #wherefile2)
  103.              (help   #wherefile2)
  104.                   (default wherefile)
  105.          )
  106. )
  107.  
  108. ;(if (exists (tackon wherefile "CED"))
  109. ;   (
  110. ;    (set vernum1 (getversion (tackon wherefile "CED")) )
  111. ;    (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  112. ;    (copyfiles (source (tackon wherefile "CED"))
  113. ;                       (dest (expandpath wherefile))
  114. ;                       (newname (cat "CED" ver1 "." rev1))
  115. ;    )
  116.  
  117. ;    (set todo (cat spatchbin " \"-p" patchfile2 "\" " "\"-o" (tackon "ram:" "CED.elf") "\"" " \""(tackon diskname "CygnusEd/CED\"")))
  118. ;    (working (cat #patching1 (tackon diskname "CED") #patching2 (tackon "ram:" "CED.elf")) )
  119. ;    (set err (run todo))
  120. ;    (if (> err 0)  (message (cat #err1 err #err2b)) )
  121. ;    ;;; (copy XYZ)
  122.  
  123.  
  124. ;   )
  125.  
  126. ;   (message #filenothere1) 
  127. ;)
  128.  
  129.  
  130. (copylib (source  "CED.elf") (dest wherefile) (optional "nofail") ) 
  131.  
  132.  
  133. ;********************************************************************************
  134. ; Exit
  135. ;********************************************************************************
  136. (exit)
  137.