Слово FILE-COMPRESSED?

Обсуждение программ nnCron и nnCron LITE

Слово FILE-COMPRESSED?

Postby ask » Fri, 23 Aug 2013, 20:12

Люди добрые, подмогните, кто чем может!
Нужно слово "FILE-COMPRESSED?", которое возвращало бы истину, если файл сжат (средствами NTFS).
Примерный код, как это проверить, приведён ниже.
Т.к. используется в нескольких местах, хочется оформить это словом, а образования не хватает :(

Code: Select all
         
WINAPI: GetFileAttributesA Kernel32.dll


\ Проверить атрибуты файла
          S" %FOUND-FULLPATH%" EVAL-SUBST DROP GetFileAttributesA
          2048 <
          IF
            \ Этот файл не имеет атрибутов "сжатый", "зашифрованный", "неиндексируемый"
            \ Вернуть "ИСТИНУ"
          ELSE
            S" %FOUND-FULLPATH%" EVAL-SUBST DROP GetFileAttributesA TO FileAttributes
           
            \ Стоит атрибут "неиндексируемый"
            FileAttributes
            8192 >
            IF
              FileAttributes
              10240 <
              IF
               \ Вернуть "ИСТИНУ"
              THEN
            THEN
          THEN
ask
 
Posts: 56
Joined: Sun, 11 Dec 2011, 09:38

Re: Слово FILE-COMPRESSED?

Postby VoidVolker » Fri, 23 Aug 2013, 21:58

Code: Select all
S" %FOUND-FULLPATH%" EVAL-SUBST
=
Code: Select all
FOUND-FULLPATH


Code: Select all
: FILE-COMPRESSED?   \ ( a u -- ? ) Файл сжат?
  S>ZTEMP GetFileAttributesA 0x800 AND 0<>
;

: IS-COMPRESSED?   \ ( -- ? ) Файл сжат? Для цикла FOR-FILES.
  0x800 FF-ATTRIB?
;
95% вопросов уже обсуждались на форуме или ответы на них есть в мануале.        nnCron 1.93 b15.exe
Как правильно задавать вопросы.
User avatar
VoidVolker
Site Admin
 
Posts: 2898
Joined: Tue, 25 Apr 2006, 17:56

Re: Слово FILE-COMPRESSED?

Postby ask » Sat, 24 Aug 2013, 08:06

Ответ VoidVolker'a, как всегда, краток и по делу.
Огромное спасибо!
ask
 
Posts: 56
Joined: Sun, 11 Dec 2011, 09:38

Re: Слово FILE-COMPRESSED?

Postby VoidVolker » Sat, 24 Aug 2013, 19:08

95% вопросов уже обсуждались на форуме или ответы на них есть в мануале.        nnCron 1.93 b15.exe
Как правильно задавать вопросы.
User avatar
VoidVolker
Site Admin
 
Posts: 2898
Joined: Tue, 25 Apr 2006, 17:56


Return to nnCron forum (Russian)

Who is online

Users browsing this forum: Bing [Bot], Google [Bot] and 1 guest

cron