FvwmPerl - عبر الإنترنت في السحابة

برنامج:

اسم

FvwmPerl - معالج fvwm perl والمعالج المسبق

موجز

يجب أن يتم إنتاج FvwmPerl بواسطة fvwm(1) للوظائف العادية.

لتشغيل هذه الوحدة ، ضع هذا الأمر في مكان ما في التكوين:

الوحدة النمطية FvwmPerl [params]

أو:

ModuleSynchronize FvwmPerl [المعلمات]

إذا كنت تريد أن تبدأ فورًا في إرسال أوامر إلى FvwmPerl.

الوصف

تهدف هذه الوحدة إلى توسيع أوامر fvwm بقوة البرمجة النصية لـ perl. فإنه يمكن
لتضمين تعبيرات perl في ملفات التكوين fvwm وإنشاء أوامر fvwm.

استدعاء

إذا كنت ترغب في استدعاء instanse الفريد والمستمر لـ FvwmPerl ، فمن المقترح أن تقوم بذلك
افعل هذا من وظيفة البداية. من الممكن أيضًا استدعاءها من الأعلى ، ولكنها تتضمن
بعض القضايا التي لم تناقش هنا.

AddToFunc StartFunction I الوحدة النمطية FvwmPerl

هناك العديد من مفاتيح تبديل سطر الأوامر:

ففومبيرل [ - العصور خط ] [ --حمل ملف ] [ --العملية [ --اقتبس شار] [ --وينيد ود] [
- سمد ] [ --لا الإرسال ] [ - لا تزال ] [خط | ملف ] ] [ --يصدر [أسماء]] [ --يقضي ] [
--بدون قفل ] [اسم مستعار]

يمكن اختصار المفاتيح الطويلة إلى مفاتيح قصيرة من حرف واحد.

-e|- العصور سطر - تقييم كود perl المحدد

-l|--حمل file - تقييم كود perl في الملف المحدد

-p|--العملية [ملف] - معالجة مسبقة لملف التكوين fvwm المحدد

الخيارات الخمسة التالية صالحة فقط مع --العملية الخيار.

-c|- سمد سطر - أمر fvwm يجب معالجته مسبقًا بدلاً من الملف

-q|--اقتبس char - تغيير عرض الأسعار الافتراضي "٪"

-w|--وينيد wid - تعيين سياق نافذة واضح (يجب أن يبدأ برقم ، قد يكون في أكتوبر أو
شكل عرافة يكتب معرف النافذة هذا فوق سياق النافذة الضمني إن وجد)

--لا الإرسال - لا ترسل الملف المعالج مسبقًا إلى fvwm For عرضجي ، الافتراضي هو إرسال.
مفيد للمعالجة المسبقة لملفات التكوين غير fvwm.

- لا تزال - لا تقم بإزالة الملف المعالج مسبقًا بعد إرساله إلى fvwm For عرضجي ، ال
الافتراضي هو إزالة. مفيد في التصحيح.

-x|--يصدر [أسماء] - تحديد وظائف الاختصار fvwm (افتراضيًا ، يتم تسمية وظيفتين
"تقييم" و "."). هذا الخيار يعني --يقضي.

-s|--يقضي - يواصل الإعدام بعد - العصور, --حمل or --العملية تتم معالجتها. بواسطة
افتراضيًا ، الوحدة ليست ثابتة في هذه الحالة ، أي --لا تبقى يفترض.

--بدون قفل - عند تقديم أحد خيارات الإجراءات الثلاثة ، يؤدي هذا الخيار إلى إلغاء القفل fvwm
في الحال. بشكل افتراضي ، يتم تنفيذ الإجراء المطلوب بشكل متزامن ؛ هذا فقط يجعل
الاختلاف عند الاستدعاء مثل:

ModuleSynchronous FvwmPerl - ما قبل العملية someconfig.ppp

If --بدون قفل يضاف هنا ، الوحدة النمطية: متزامن يعود على الفور. لاحظ أن وحدة عائدات
على الفور بغض النظر عن هذا الخيار.

باستخدام ALIAS

تسمح الأسماء المستعارة بالحصول على عدة استدعاءات للوحدة والعمل بشكل منفصل مع جميع الدعوات ،
هنا مثال:

ModuleSynchronous FvwmPerl FvwmPerl-JustTest
SendToModule FvwmPerl-JustTest Eval $ a = 2 + 2 ؛ دولار ب = دولار أ
SendToModule FvwmPerl-JustTest Eval cmd ("Echo 2 + 2 = $ b")
KillModule FvwmPerl FvwmPerl-JustTest

المعالجة المسبقة مثال

أحد حلول المعالجة الفعالة هو تمرير تكوين fvwm بالكامل مع
تضمين كود perl في "FvwmPerl - Preprocess". نهج بديل هو كتابة بيرل
البرنامج النصي الذي ينتج أوامر fvwm ويرسلها للتنفيذ ، يمكن تحميل هذا البرنامج النصي
باستخدام "FvwmPerl --load". توجد حلول وسيطة أقل تعالج مسبقًا فقط
خطوط تكوين منفصلة (أو بدلاً من ذلك ، قم بتنفيذ أوامر perl منفصلة ذلك
إنتاج أوامر fvwm).

يضيف مقتطف الكود التالي قدرة الحساب والبرمجة النصية إلى بعض
الخطوط التي تحتاج هذا. لاستخدام هذا ، تريد بدء تشغيل FvwmPerl كأول أمر لك لذلك
أنه قد يُطلب من الأوامر الأخرى أن تتم معالجتها مسبقًا.

ModuleSynchronize FvwmPerl

AddToFunc.
+ I SendToModule FvwmPerl preprocess -c - $ *

. Exec exec xterm -name xterm -٪ {++ $ i}٪ # استخدم اسمًا فريدًا

. GotoDesk 0٪ {$ [desk.n] + 1}٪ # انتقل إلى المكتب التالي

. Exec exec٪ {-x "/ usr / bin / X11 / aterm"؟ "aterm": "xterm"}٪ -sb

# توسيط النافذة
التالي (MyWindow). يتحرك \
٪ {($ WIDTH - $ [w.width]) / 2}٪ p٪ {($ HEIGHT - $ [w.height]) / 2}٪ p

. Exec exec xmessage٪ {2 + 2}٪ # آلة حاسبة بسيطة

. ٪ {main :: show_message (2 + 2، "آلة حاسبة أخرى") ؛ ""}٪

الإجراءات

هناك العديد من الإجراءات التي قد يؤديها FvwmPerl:

وحدة التقييم بيرل كود
تقييم سطر من كود بيرل.

وظيفة خاصة كمد ("أمر") يمكن استخدامها في كود perl لإرسال الأوامر مرة أخرى إلى
fvwm.

إذا احتوى كود perl على خطأ ، فسيتم طباعته إلى تدفق الخطأ القياسي بامتداد
[FvwmPerl] [EVAL]: رأس مضاف.

تحميل اسم الملف
قم بتحميل ملف من كود بيرل. إذا لم يكن الملف مؤهلًا بشكل كامل ، فسيتم البحث عنه في ملف
دليل المستخدم $ FVWM_USERDIR (عادةً ~ / .fvwm) ودليل البيانات على مستوى النظام
FVWM_DATADIR دولار.

وظيفة خاصة كمد ("أمر") يمكن استخدامها في كود perl لإرسال الأوامر مرة أخرى إلى
fvwm.

إذا احتوى كود perl على خطأ ، فسيتم طباعته إلى تدفق الخطأ القياسي بامتداد
[FvwmPerl] [تحميل]: رأس مضاف.

العملية [-q | - اقتباس حرف] [-c | --cmd] [خط | ملف]
التكوين المسبق للمعالجة fvwm ملف أو (إذا تم إعطاء - cmd) خط. يحتوي هذا الملف على الأسطر التي
لم يتم لمسها (عادةً أوامر fvwm) وكود perl المنسق مسبقًا بشكل خاص
معالجتها واستبدالها. نص مرفق في %{ }% المحددات ، التي قد تبدأ في أي مكان
على السطر وينتهي في أي مكان على نفس السطر أو سطر آخر ، هو رمز perl.

تشير اقتبس تغير المعلمة محددات كود بيرل. إذا تم إعطاء حرف واحد ، مثل
"@" ، المحددات هي @{ }@. إذا كان الاقتباس المعطى 2 حرف ، مثل <>، الاقتباسات
. <{ }>

يتم استبدال كود perl بنتيجة تقييمه. أي٪ {$ a = "c" ؛ ++ $ a}٪
يستعاض عن "د".

التقييم على عكس وحدة التقييم تحميل يتم ذلك ضمن الحزمة PreprocessNamespace
ودون تستخدم صارم، لذلك أنت حر في استخدام أي أسماء متغيرة دون خوف
الصراعات. فقط لا تستخدم المتغيرات غير المهيأة لتعني قائمة غير محددة أو قائمة فارغة (هم
في الواقع من خلال إجراء العملية السابقة) ، وقم بتنظيف إذا
ضروري. المتغيرات والوظيفة في رئيسي الحزمة لا تزال متوفرة ، مثل
::كمد () أو ::يتخطى()، ولكن ليس من الجيد الوصول إليها أثناء
المعالجة.

هناك وظيفة خاصة تتضمن(ملف) يقوم بتحميل ملف ومعالجته مسبقًا و
إرجاع النتيجة المعالجة. تجنب العودية.

إذا احتوى أي كود perl مضمن على خطأ ، فسيتم طباعته على الخطأ القياسي
تيار ومسبقة مع [FvwmPerl] [معالجة مسبقة]: رأس. نتائج
الاستبدال فارغ في هذه الحالة.

يمكن استخدام المتغيرات التالية في كود perl:

$ USER ، $ DISPLAY ، $ WIDTH ، $ HEIGHT ، $ FVWM_VERSION ، $ FVWM_MODULEDIR ، $ FVWM_DATADIR ،
FVWM_USERDIR دولار

يتم التعرف على التوجيهات المبنية على السطر التالية عند المعالجة المسبقة. هم
تتم معالجتها بعد استبدال رمز perl (إن وجد).

%كرر عد
يتسبب في تكرار الأسطر التالية عد .

%تكوين الوحدة النمطية اسم وحدة [ هدم ]
يؤدي إلى تفسير الأسطر التالية على أنها تكوين وحدة معينة. لو
تم تحديد "إتلاف" ، تم إتلاف تكوين الوحدة السابقة أولاً.

%بادئة بادئة
تبدأ الأسطر التالية بعلامات الاقتباس بادئة.

%النهاية أي تعليق اختياري
ينتهي أي من التوجيهات الموضحة أعلاه ، ويمكن أن تكون متداخلة.

أمثلة:

٪ بادئة "AddToFunc SwitchToWindow I"
إيقونة قبالة
نافذة الظل
ربى
واربتويندوو 50 50
٪نهاية

٪ تدمير ModuleConfig FvwmPager
مجموعة الألوان 0
الخط lucidasans-10
ديسك توب سكيل 28
MiniIcons
٪ End ModuleConfig FvwmPager

٪ بادئة "All (MyWindowToAnimate) ResizeMove"
100٪ 100 {($ WIDTH - 100) / 2}٪ {($ HEIGHT - 100) / 2}٪
٪ كرر٪ {$ count}٪
br w + 2c w + 2c w-1c w-1c
٪نهاية
٪ كرر٪ {$ count}٪
br w-2c w-2c w + 1c w + 1c
٪نهاية
٪ نهاية البادئة

يمكن أيضًا إعطاء معلمات إضافية للعملية المسبقة - nosend و --noremove. انظر بهم
الوصف في الأعلى.

تصدير [func- أسماء]
إرسال إلى fvwm تعريف وظائف الاختصار التي تساعد على تنشيط مختلف
إجراءات الوحدة (أي وحدة التقييم, تحميل العملية).

أسماء الوظائف (func- أسماء) بفواصل أو / ومسافة. بشكل افتراضي،
وظيفتين "Eval" و "." من المفترض.

يتم تخمين الإجراء الفعلي المحدد في دالة من اسم الوظيفة إن أمكن ،
حيث اسم الوظيفة "." محجوز لـ العملية عمل.

على سبيل المثال ، أي من هذين الأمرين fvwm

تصدير SendToModule MyPerl PerlEval، PP
FvwmPerl --export PerlEval، PP MyPerl

حدد وظيفتي الاختصار التاليتين:

DestroyFunc PerlEval
AddToFunc I SendToModule MyPerl Eval $ *
تدمير Func PP
AddToFunc I SendToModule MyPerl preprocess -c - $ *

يمكن طلب هذه الإجراءات الأربعة بإحدى الطرق الثلاث: 4) في سطر الأوامر عندما يكون FvwmPerl
تم استدعاؤه (في هذه الحالة ، يكون FvwmPerl قصير الأجل ما لم يكن --يقضي or --يصدر يعطى أيضا) ، 2)
عن طريق إرسال الرسالة المقابلة في تهيئة fvwm باستخدام SendToModule ، 3) عن طريق استدعاء ملف
دالة perl المقابلة في كود perl.

وظائف

هناك العديد من الوظائف التي قد يستدعيها كود perl:

كمد (fvwm_command $)
في حالة وحدة التقييم or تحميل - أرسل سلسلة إلى fvwm fvwm_command $. في حالة
العملية - إلحاق سلسلة fvwm_command $ لإخراج كود perl المضمن.

do_eval ($ perl_code)
هذه الوظيفة تعادل وحدة التقييم وظيفة على السلسلة $ perl_code,
موصوف بالاعلى.

حمولة(اسم الملف $)
هذه الوظيفة تعادل تحميل وظيفة على الملف $ filename ، الموصوفة
في الاعلى.

المعالجة المسبقة (params ، ["-c أمر $ "] [اسم الملف $])
هذه الوظيفة تعادل العملية وظيفة مع المعلمات المعطاة
والملف $ filename الموصوف أعلاه.

يصدّر(func_names $ ، [$ do_unexport])
هذه الوظيفة تعادل تصدير وظيفة مع func_names $ المعطاة ،
موصوف بالاعلى. قد أيضا com.unexport أسماء الوظائف إذا كانت المعلمة الثانية صحيحة.

يجب أن تكون أسماء الوظائف مفصولة بفواصل أو / ومسافة. لو func_names $ is
فارغ ثم وظائف "Eval" و "." من المفترض.

قف()
ينهي الوحدة.

يتخطى()
يتخطى بقية كود رد نداء الحدث ، أي تعود الوحدة للاستماع إلى جديد
أحداث الوحدة.

الغاء القفل()
إلغاء مزامنة رد الاتصال من fvwm. قد يكون هذا مفيدًا لمنع المآزق ،
مثال: عادةً ما يقتل fvwm الوحدة غير المستجيبة إذا لم يكن رد نداء الحدث كذلك
انتهى في ModuleTimeout ثواني. هذا يمنعه.

يتسبب هذا المثال في قيام FvwmPerl بإيقاف التنفيذ لمدة دقيقة واحدة:

SendModule FvwmPerl Eval unlock () ؛ النوم(60)

ومع ذلك ، تحقق من عدم وجود طريقة لإرسال رسالة جديدة بواسطة fvwm أثناء الوحدة النمطية
مشغول ، ويظل fvwm مغلقًا على هذه الرسالة الجديدة لفترة طويلة. انظر أيضا فصل
حل إذا كنت بحاجة إلى عمليات طويلة الأمد.

فصل()
فوركس ويفصل باقي كود رد نداء الحدث من العملية الرئيسية. هذا ممكن
يكون مفيدًا لمنع قتل الوحدة إذا كان يجب أن تستغرق عملية رد نداء الحدث وقتًا طويلاً
لإكماله ويمكن القيام به في الطفل المنفصل. قد لا يزال الطفل المنفصل
إرسال أوامر إلى fvwm (لا تعتمد على هذا) ، ولكن لا تتلقى الأحداث بالطبع ، فإنه
يخرج مباشرة بعد انتهاء تنفيذ رد الاتصال.

إذا كنت تستخدم فصل()، من الأفضل فقط إرسال الأوامر إلى fvwm في عملية واحدة (العملية الرئيسية أو
المنفصل) ، قد يؤدي القيام بخلاف ذلك في كثير من الأحيان إلى حدوث صراعات.

اظهر الرسالة($ msg، $ title [، $ use_stderr_too = 1])
يعرض نافذة حوار بالرسالة المحددة ، باستخدام أي أداة X موجودة في ملف
نظام.

يرى FVWM :: Module :: Toolkit::اظهر الرسالة للمزيد من المعلومات.

المتغيرات

هناك العديد من المتغيرات العالمية في رئيسي مساحة الاسم التي يمكن استخدامها في perl
رمز:

$ a ، $ b ، ... $ h
a ، @ ب ، ... @ h
٪ a ،٪ b ، ...٪ h

يتم تهيئتها جميعًا إلى القيمة الفارغة ويمكن استخدامها لتخزين حالة بين
استدعاءات مختلفة لإجراءات FvwmPerl (وحدة التقييم تحميل).

إذا كنت بحاجة إلى أسماء متغيرات أكثر قابلية للقراءة ، فاكتب "no strict 'vars'؛" في بداية
كل كود perl أو استخدم هاش لهذا ، مثل:

$ h {id} = $ h {first_name}. "". $ h {second_name}

أو استخدم اسم حزمة ، مثل:

MyMenu :: المحطات = qw (xterm rxvt) ؛
$ MyMenu :: item_num =MyMenu :: terminals ؛

قد يكون هناك خيار تكوين لتشغيل وإيقاف تشغيل الصرامة.

الرسائل

قد يتلقى FvwmPerl رسائل باستخدام الأمر fvwm SendToModule. الأسماء والمعاني و
معلمات الرسائل هي نفس الإجراءات المقابلة ، الموضحة أعلاه.

بالإضافة إلى رسالة توقف يتسبب في إنهاء وحدة.

رسالة com.unexport [func- أسماء] يلغي تأثير تصديرالموصوفة في الإجراءات
والقسم الخاص به.

رسالة تفريغ تفريغ محتويات المتغيرات المتغيرة (ليس بعد).

أمثلة

اختبار بسيط:

SendToModule FvwmPerl Eval $ h {dir} = $ ENV {HOME}
تحميل SendToModule FvwmPerl EVAL ($ h {dir}. "/test.fpl")
SendToModule FvwmPerl تحميل $ [HOME] /test.fpl
SendToModule FvwmPerl config.ppp
SendToModule FvwmPerl export Eval، PerlEval، PerlLoad، PerlPP
SendToModule FvwmPerl unexport PerlEval و PerlLoad و PerlPP
توقف SendToModule FvwmPerl

المثال التالي يعالج الخلفيات الجذرية في fvwmrc. يمكن إضافة كل هذه الأوامر
إلى StartFunction.

الوحدة النمطية FvwmPerl --export PerlEval

# البحث عن جميع خرائط البكسل في الخلفية لاستخدامها لاحقًا
PerlEval $ a = $ ENV {HOME}. "/ bg" ؛ \
opendir DIR، $ a؛ b = grep {/ xpm $ /} readdir (DIR) ؛ كلوسيدير ​​DIR

# إنشاء قائمة بالخلفية البيكسيلية
AddToMenu MyBackgrounds عنوان "الخلفيات"
PerlEval foreach $ b (b) \
{cmd ("AddToMenu MyBackgrounds '$ b' Exec fvwm-root $ a / $ b")}

# اختر خلفية عشوائية للتحميل عند بدء التشغيل
PerlEval cmd ("AddToFunc \
InitFunction + I Exec exec fvwm-root $ a / ". $ b [int (random (b))])

الهروب

SendToModule تمامًا مثل أي أوامر fvwm أخرى ، توسع عدة متغيرات مسبوقة بالدولار.
قد يتعارض هذا مع الدولارات التي يستخدمها بيرل. يمكنك تجنب ذلك ببدء SendToModule
مع اندفاعة في المقدمة. السطران التاليان في كل زوج متكافئان:

SendToModule FvwmPerl Eval $$ d = "$ [DISPLAY]"
-SendToModule FvwmPerl Eval $ d = "$ ENV {DISPLAY}"

SendToModule FvwmPerl EVAL \
cmd ("Echo desk = $ d ، العرض = $$ d")
المعالجة المسبقة لـ SendToModule FvwmPerl -c \
مكتب صدى =٪ ("$ d")٪ ، العرض =٪ {$$ d}٪

حل آخر لتجنب الهروب من الرموز الخاصة مثل الدولارات والشرطة المائلة العكسية هو
إنشاء ملف perl بتنسيق ~ / .fvwm ثم قم بتحميله:

SendToModule FvwmPerl تحميل build-menus.fpl

إذا كنت بحاجة إلى المعالجة المسبقة لأمر واحد يبدأ بشرطة ، فيجب أن تسبقه باستخدام
"-".

# هذا يطبع المكتب الحالي ، أي "0"
SendToModule FvwmPerl preprocess -c Echo "$٪ {$ a =" c "؛ ++ $ a}٪"
# هذا يطبع "$ d"
SendToModule FvwmPerl preprocess -c - -Echo "$٪ {" d "}٪"
# هذا يطبع "$ d" (تتوسع SendToModule من $$ إلى $)
SendToModule FvwmPerl preprocess -c - -Echo "$$٪ {" d "}٪"
# هذا يطبع "$$ d"
-SendToModule FvwmPerl preprocess -c - -Echo "$$٪ {" d "}٪"

مرة أخرى ، يُقترح وضع الأمر (الأوامر) في الملف والمعالجة المسبقة للملف بدلاً من ذلك.

تحفظات

تمت كتابة FvwmPerl بلغة perl والتعامل مع perl ، وفقًا لشعار perl الشهير:
"هناك أكثر من طريقة للقيام بذلك" ، فالخيار لك.

إليك المزيد من أزواج الخطوط المتكافئة:

الوحدة النمطية FvwmPerl - تحميل "my.fpl" --stay
الوحدة النمطية FvwmPerl -e 'load ("my.fpl")' -s

SendToModule FvwmPerl preprocess - اقتبس "@" my.ppp
SendToModule FvwmPerl EVAL preprocess ({quote => '@'}، "my.ppp")؛

تحذير ، قد تؤثر على طريقة عمل FvwmPerl من خلال تقييم كود perl المناسب ، هذا
تعتبر ميزة وليست خطأ. لكن من فضلك لا تفعل هذا ، اكتب وحدة fvwm الخاصة بك
في perl بدلاً من ذلك.

استخدم FvwmPerl عبر الإنترنت باستخدام خدمات onworks.net