Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. ZZ=D4
  2. : is_path_delimiter ( c -- flag )
  3.  
  4. 5A380F  30 38 5A 00  00 11 69 73  5F 70 61 74  68 5F 64 65 08Z...is_path_de
  5. 5A381F  6C 69 6D 69  74 65 72 75  37 5A 00 00  00 00 00 00 limiteru7Z......
  6. 5A382F  00 .
  7.  
  8.   DUP [CHAR] \ = SWAP [CHAR] / = OR
  9.  
  10. 5A3830  89 45 FC 89  45 F8 B8 5C  00 00 00 33  45 F8 83 E8 ‰Eü‰Eø¸\...3Eøƒè
  11. 5A3840  01 1B C0 8B  55 FC 89 45  FC 89 55 F8  B8 2F 00 00 ..À‹Uü‰Eü‰Uø¸/..
  12. 5A3850  00 33 45 F8  83 E8 01 1B  C0 0B 45 FC .3Eøƒè..À.Eü
  13.  
  14. ;
  15.  
  16. 5A385C  C3 Ã
  17.  
  18.  
  19. : CUT-PATH ( a u -- a u1 )
  20.  
  21. 5A385D  70 38 5A 00  00 08 43 55  54 2D 50 41  54 48 14 38 p8Z...CUT-PATH.8
  22. 5A386D  5A 00 00 Z..
  23.  
  24. \ èç ñòðîêè "path\name" âûäåëèòü ñòðîêó "path\"
  25.   OVER +
  26.  
  27. 5A3870  89 45 FC 8B  45 00 03 45  FC ‰Eü‹E..Eü
  28.  
  29.   BEGIN 2DUP <> WHILE DUP C@ is_path_delimiter 0= WHILE 1- REPEAT 1+ THEN
  30.  
  31. 5A3879  90 90 90 8B  55 00 89 45  FC 89 55 F8  33 45 F8 8B ‹U.‰Eü‰Uø3Eø‹
  32. 5A3889  45 FC 0F 84  24 00 00 00  89 45 FC 0F  B6 00 8D 6D Eü.„$...‰Eü.¶.m
  33. 5A3899  FC E8 91 FF  FF FF 0B C0  8B 45 00 8D  6D 04 0F 85 üè‘ÿÿÿ.À‹E.m..…
  34. 5A38A9  05 00 00 00  8D 40 FF EB  CA 8D 40 01 ....@ÿëʍ@.
  35.  
  36.   \ DUP 0!  \ ~ruv (to anfilat): íå äÎëæíî òóò çàòèðàòü ïîäàííûé áóôåð!
  37.   OVER -
  38.  
  39. 5A38B5  89 45 FC 8B  45 00 F7 D8  03 45 FC ‰Eü‹E.÷Ø.Eü
  40.  
  41. ;
  42.  
  43. 5A38C0  C3 Ã
  44.  
  45.  
  46. : ModuleName ( -- addr u )
  47.  
  48. 5A38C1  E0 38 5A 00  00 0A 4D 6F  64 75 6C 65  4E 61 6D 65 à8Z...ModuleName
  49. 5A38D1  62 38 5A 00  00 00 00 00  00 00 00 00  00 00 00 b8Z............
  50.  
  51.  ABORT
  52.  
  53. 5A38E0  E8 7B F6 FF  FF è{öÿÿ
  54.  
  55. ;
  56.  
  57. 5A38E5  C3 Ã
  58.  
  59.  
  60. : ModuleDirName ( -- addr u )
  61.  
  62. 5A38E6  00 39 5A 00  00 0D 4D 6F  64 75 6C 65  44 69 72 4E .9Z...ModuleDirN
  63. 5A38F6  61 6D 65 C6  38 5A 00 00  00 00 ameÆ8Z....
  64.  
  65.   ModuleName CUT-PATH
  66.  
  67. 5A3900  E8 DB FF FF  FF E8 66 FF  FF FF èÛÿÿÿèfÿÿÿ
  68.  
  69. ;
  70.  
  71. 5A390A  C3 Ã
  72.  
  73.  
  74. : +ModuleDirName ( addr u -- addr2 u2 )
  75.  
  76. 5A390B  30 39 5A 00  00 0E 2B 4D  6F 64 75 6C  65 44 69 72 09Z...+ModuleDir
  77. 5A391B  4E 61 6D 65  EB 38 5A 00  00 00 00 00  00 00 00 00 Nameë8Z.........
  78. 5A392B  00 00 00 00  00 .....
  79.  
  80.   2>R
  81.  
  82. 5A3930  E8 CB 94 FF  FF è˔ÿÿ
  83.  
  84.   ModuleDirName 2DUP +
  85.  
  86. 5A3935  E8 C6 FF FF  FF 8B 55 00  89 45 FC 89  55 F8 03 45 èÆÿÿÿ‹U.‰Eü‰Uø.E
  87. 5A3945  F8 8D 6D FC ømü
  88.  
  89.   2R> DUP >R ROT SWAP 1+ MOVE
  90.  
  91. 5A3949  E8 D2 94 FF  FF 89 45 FC  50 8B 45 FC  8B 55 00 89 èҔÿÿ‰EüP‹Eü‹U.‰
  92. 5A3959  45 00 8B 45  04 89 55 04  8B 55 00 89  45 00 8B C2 E.‹E.‰U.‹U.‰E.‹Â
  93. 5A3969  8D 40 01 E8  AF A4 FF FF @.诤ÿÿ
  94.  
  95.   R> +
  96.  
  97. 5A3971  89 45 FC 58  03 45 FC ‰EüX.Eü
  98.  
  99. ;
  100.  
  101. 5A3978  C3 Ã
  102.  
  103.  
  104. : +LibraryDirName ( addr u -- addr2 u2 )
  105.  
  106. 5A3979  A0 39 5A 00  00 0F 2B 4C  69 62 72 61  72 79 44 69  9Z...+LibraryDi
  107. 5A3989  72 4E 61 6D  65 10 39 5A  00 00 00 00  00 00 00 00 rName.9Z........
  108. 5A3999  00 00 00 00  00 00 00 .......
  109.  
  110. \ Äîáàâèòü addr u ê ïîëíûé_ïóòü_ïðèëîæåíèÿ+devel\
  111.   2>R
  112.  
  113. 5A39A0  E8 5B 94 FF  FF è[”ÿÿ
  114.  
  115.   ModuleDirName 2DUP +
  116.  
  117. 5A39A5  E8 56 FF FF  FF 8B 55 00  89 45 FC 89  55 F8 03 45 èVÿÿÿ‹U.‰Eü‰Uø.E
  118. 5A39B5  F8 8D 6D FC ømü
  119.  
  120.   S" devel\" ROT SWAP MOVE
  121.  
  122. 5A39B9  E8 9E E7 F9  FF 06 64 65  76 65 6C 5C  00 8B 55 00 èžçùÿ.devel\.‹U.
  123. 5A39C9  89 45 00 8B  45 04 89 55  04 8B 55 00  89 45 00 8B ‰E.‹E.‰U.‹U.‰E.‹
  124. 5A39D9  C2 E8 41 A4  FF FF ÂèA¤ÿÿ
  125.  
  126.   6 + 2DUP +
  127.  
  128. 5A39DF  89 45 FC B8  06 00 00 00  03 45 FC 8B  55 00 89 45 ‰Eü¸.....Eü‹U.‰E
  129. 5A39EF  FC 89 55 F8  03 45 F8 8D  6D FC ü‰Uø.Eømü
  130.  
  131.   2R> DUP >R ROT SWAP 1+ MOVE
  132.  
  133. 5A39F9  E8 22 94 FF  FF 89 45 FC  50 8B 45 FC  8B 55 00 89 è"”ÿÿ‰EüP‹Eü‹U.‰
  134. 5A3A09  45 00 8B 45  04 89 55 04  8B 55 00 89  45 00 8B C2 E.‹E.‰U.‹U.‰E.‹Â
  135. 5A3A19  8D 40 01 E8  FF A3 FF FF @.èÿ£ÿÿ
  136.  
  137.   R> +
  138.  
  139. 5A3A21  89 45 FC 58  03 45 FC ‰EüX.Eü
  140.  
  141. ;
  142.  
  143. 5A3A28  C3 Ã
  144.  
  145. : SOURCE-NAME ( -- a u )
  146.  
  147. 5A3A29  40 3A 5A 00  00 0B 53 4F  55 52 43 45  2D 4E 41 4D @:Z...SOURCE-NAM
  148. 5A3A39  45 7E 39 5A  00 00 00 E~9Z...
  149.  
  150.   CURFILE @ DUP IF ASCIIZ> ELSE 0 THEN
  151.  
  152. 5A3A40  E8 4F 2B FA  FF 8B 00 0B  C0 74 07 E8  D0 A6 FF FF èO+úÿ‹..Àt.èЦÿÿ
  153. 5A3A50  EB 08 89 45  FC 33 C0 8D  6D FC ë.‰Eü3Àmü
  154.  
  155. ;
  156.  
  157. 5A3A5A  C3 Ã
  158.  
  159. ZZ=D4