ट्यूनिंग mooedit, कीड़े पर काम करते हैं

पहले भाग में, mededit में पर्ल स्रोतों की वाक्यविन्यास जाँच और प्रारूपण जोड़ा गया था । यदि पहले एक के साथ कोई समस्या नहीं थी, तो प्रारूपण करते समय अधिसूचना क्षेत्र में त्रुटियों को प्रदर्शित करने से इनकार करना आवश्यक था। लेकिन तब से एक नया संस्करण अस्थिर-1.1.9x शाखा में प्रकट हुआ है। लंबे समय से प्रतीक्षित कोड तह के लिए खाली को छोड़कर मुझे संस्करण 1.1.97-devel में विशेष रूप से अस्थिर कुछ भी दिखाई नहीं दिया। लेकिन आंतरिक एपीआई में कम से कम एक अच्छा बदलाव दिखाई दिया है।


पहले, यह चुनना असंभव था कि उपयोगिताओं का परिणाम कहां प्रदर्शित किया जाए: संपादक विंडो (स्वरूपित स्रोत) या सूचना क्षेत्र (त्रुटि संदेश) में। अब आप आउटपुट के लिए एक ऑब्जेक्ट प्राप्त कर सकते हैं, लुआ और पायथन में स्क्रिप्ट के लिए कोड बिल्कुल समान है:

obj = window.get_output() obj.clear() obj.set_filter_by_id("default") obj.write_with_filter("-,   ") window.present_output() 

आरंभ करने के लिए, ~ / bin / perlsyntax स्क्रिप्ट को थोड़ा बदलें , इसमें वापसी कोड जोड़ें:

 #!/usr/bin/perl use strict; die "Usage: $0 file\n" unless $ARGV[0]; my $out = `/usr/bin/perl -c $ARGV[0] 2>&1`; my $rc = ($out =~ s|^(.*) at (($ARGV[0]) line (\d+))(.*)$|$3:$4 $1$5|gm); print $out; exit $rc; # 0 -   

और हम सूत्रों को प्रारूपित करने के लिए स्क्रिप्ट को संशोधित करते हैं:

 filename = doc.get_filename() codefile = os.tmpname() rc = os.execute(string.format("/home/klopp/bin/perlsyntax \"%s\" > \"%s\" 2>&1",filename,codefile)) if rc == 0 then tidyfile = os.tmpname() os.execute(string.format("/usr/bin/perltidy -nsak=\"if elsif unless for while\" -pt=0 -i=4 -bl -vt=2 -vtc=2 -boc -st \"%s\" > \"%s\"",filename,tidyfile)) out = io.open(tidyfile,"r") doc.select_all() doc.replace_selected_text(out:read("*a")) doc.save() os.remove(tidyfile) else out = io.open(codefile,"r") err = string.format("Run syntax check!\n\n%s",out:read("*a")) o = window.get_output() o.clear() o.set_filter_by_id("default") o.write_with_filter(err) window.present_output() end os.remove(codefile) 

अब, त्रुटियों के साथ, संपादक विंडो में स्रोत नहीं बदलेगा, और इन त्रुटियों का आउटपुट अधिसूचना क्षेत्र में दिखाई देगा। इसके अलावा, एक त्रुटि के साथ एक पंक्ति पर क्लिक करने से हमें संपादक विंडो में उसी पंक्ति में स्थानांतरित किया जाएगा।



उपयोगिता सेटिंग्स इस प्रकार हैं:



इसके अतिरिक्त, हम स्क्रिप्ट को संपादक से सीधे चलाने के लिए एक उपयोगिता बनाते हैं। आप निश्चित रूप से, पहले की तरह - बस / usr / bin / perl "$ DOC_PATH" चला सकते हैं । लेकिन त्रुटियों के साथ, हमें सूचना क्षेत्र में क्लिक करने योग्य आउटपुट नहीं मिला। इसलिए, हम पहले स्रोत की जांच करेंगे, अगर सब ठीक है - स्क्रिप्ट चलाएं, और यदि त्रुटियों में संशोधित संदेश प्रदर्शित होते हैं। ऐसा करने के लिए, निम्नलिखित सामग्री के साथ ~ / bin / perlrun बनाएं :

 #!/bin/sh rc=`/home/klopp/bin/perlsyntax $1` if [ "$?" -eq 0 ] ; then /usr/bin/perl $1 else echo $rc fi 

और हम इसकी सेटिंग्स को निम्न सेटिंग्स के साथ उपयोगिता में लिखेंगे:



हम संपादक के अगले संस्करण की प्रतीक्षा कर रहे हैं, शायद कुछ और दिलचस्प दिखाई देगा :)