1987 से सीधे पर्ल डाल रहा है

LINUX.ORG.RU पर समाचार " पर्ल इंटरप्रेटर कोड आधिकारिक रूप से गिटहब में पोर्ट किया गया " पढ़ने के बाद, मैंने पर्ल 5 रिपॉजिटरी पर एक नज़र डालने का फैसला किया, जो अब पहले से ही गिटहब पर है।

यह आश्चर्यजनक है कि वे कैसे विस्मय और गुणवत्ता के साथ कांप गए, न केवल परियोजना के पूरे 32-वर्षीय इतिहास को संरक्षित करते हुए, बल्कि बग रिपोर्ट (मुद्दों में मिला), पैच (पीआरएस में मिला), रिलीज और शाखाएं। शिलालेख " 32 साल पहले " फाइलों के बगल में एक अनैच्छिक मुस्कान का कारण बनता है।

शुक्रवार की रात इस सुस्त पर और क्या करना है, जब बारिश और बर्फ सड़क पर अप्रिय रूप से टपक रहे हैं, और सभी सड़क मार्ग शरद ऋतु में बह गए हैं? यह सही है, लाल आंखों वाला! तो प्रयोग और रुचि के लिए, मैंने एक आधुनिक x86_64 मशीन पर प्राचीन पर्ल को एक संकलक के रूप में जीसीसी 9.2.0 के नवीनतम संस्करण के साथ लेने और इकट्ठा करने का फैसला किया। क्या ऐसा पुराना कोड समय की कसौटी पर खरा उतर सकता है?


आधुनिक आर्क आर्क डिस्ट्रीब्यूशन डिस्ट्रीब्यूशन, एक्स विंडो सिस्टम के लिए पहले विंडो मैनेजरों में से एक, टीडम का प्रदर्शन।

पूरी तरह से प्रामाणिक और nekromantnenko होने के लिए, मैंने नंगे एक्स और विंडो मैनेजर ट्वम के साथ एक आभासी मशीन को तैनात किया, जो 1987 के बाद भी रहता है। कौन जानता है, हो सकता है कि लैरी वॉल ने अपने पर्ल को बिल्कुल ट्वम का उपयोग करते हुए लिखा हो, इसलिए उस समय की ब्लीडिंग एज टेक्नोलॉजी को बोलने के लिए। उपयोग किया गया वितरण आर्क लिनक्स है। सिर्फ इसलिए कि उनके भंडार में कुछ उपयोगी चीजें हैं जो बाद में काम आईं। तो चलिए!

सामग्री:

1. पर्यावरण की तैयारी
2. सोर्स कोड को कॉन्फ़िगर करना
3. याक व्याकरण फ़ाइल त्रुटियाँ
4. "C" पर कोड के संकलन की त्रुटियां
5. कुछ त्रुटियों का सुधार खंडन दोष
6. संक्षेप करने के लिए

1. पर्यावरण की तैयारी

सबसे पहले, हम एक वर्चुअल मशीन में एक तैनात ऑपरेटिंग सिस्टम पर स्थापित करते हैं और उपयोग करने और स्रोत कोड को संपादित करने के लिए आवश्यक उपयोगिताओं और संकलकों के सभी कोमल सेट: gcc , make , vim , git , gdb , आदि उनमें से कुछ पहले से इंस्टॉल हैं, जबकि अन्य मेटा-पैकेज में उपलब्ध हैं। बेस-डेवेल , इसे स्थापित किया जाना चाहिए अगर यह स्थापित नहीं है। पर्यावरण कार्रवाई के लिए तैयार होने के बाद, हमें 32 वर्षीय पर्ल स्रोत कोड की एक प्रति मिलती है!

$ git clone https://github.com/Perl/perl5/ --depth=1 -b perl-1.0 

Git की विशेषताओं के लिए धन्यवाद, हमें इस परियोजना के पहले रिलीज़ होने के लिए फ़ाइलों का एक गुच्छा खींचने की आवश्यकता नहीं है:

 * commit 8d063cd8450e59ea1c611a2f4f5a21059a2804f1 (grafted, HEAD, tag: perl-1.0) Commit: Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> CommitDate: Fri Dec 18 00:00:00 1987 +0000 a "replacement" for awk and sed 

हम केवल थोड़ी मात्रा में डेटा डाउनलोड करते हैं और परिणामस्वरूप, पर्ल के पहले संस्करण के स्रोत कोड के साथ रिपॉजिटरी को केवल 150 KB लगते हैं।

उस अंधेरे और घने समय में ऑटोटूलस ( क्या एक आशीर्वाद! ) जैसी कोई प्राथमिक चीज नहीं थी, हालांकि, रिपॉजिटरी की जड़ में एक कॉन्फ़िगर स्क्रिप्ट है। मामला क्या है? लेकिन तथ्य यह है कि लैरी वॉल ऐसी लिपियों के आविष्कारक हैं जिन्होंने उस समय की सबसे अधिक चलने वाली UNIX मशीनों के लिए मेकफाइल्स बनाने की अनुमति दी थी। जैसा कि एक ही नाम की लिपियों के बारे में विकिपीडिया लेख कहता है, लैरी वॉल ने अपने कुछ सॉफ्टवेयर के साथ कॉन्फिगर फाइल की आपूर्ति की, उदाहरण के लिए, एक न्यूज़रीडर rn , पर्ल लिखने से तीन साल पहले। इसके बाद, पर्ल कोई अपवाद नहीं था, और एक स्क्रिप्ट जो पहले से ही कई मशीनों पर चलाई गई थी, इसे बनाने के लिए उपयोग किया गया था। बाद में, अन्य डेवलपर्स, उदाहरण के लिए, ट्रोलटेक के प्रोग्रामर ने भी इस विचार को उठाया। उन्होंने अपने क्यूटी ढांचे के निर्माण को कॉन्फ़िगर करने के लिए एक समान स्क्रिप्ट का उपयोग किया, जिसे बहुत से लोग ऑटोटूल से कॉन्फ़िगर करने के साथ भ्रमित करते हैं। यह अलग-अलग डेवलपर्स की ऐसी स्क्रिप्ट्स का चिड़ियाघर था जो उनकी सरलीकृत और स्वचालित पीढ़ी के लिए उपकरण बनाने के लिए प्रेरणा के रूप में कार्य करता था।

<< सामग्री पर जाएं

2. सोर्स कोड को कॉन्फ़िगर करना

कॉन्फिग स्क्रिप्ट एक "पुराना स्कूल" है, जो पहले से ही इसके शेबंग में देखा जाता है, जिसमें एक स्थान है:

 $ cat Configure | head -5 #! /bin/sh # # If these # comments don't work, trim them. Don't worry about any other # shell scripts, Configure will trim # comments from them for you. # 

कमेंट्री के अनुसार, यह पता चला कि लिपियों में गोले थे, जिनमें से टिप्पणियों को छोड़ना संभव नहीं था! अंतरिक्ष की स्थिति असामान्य लग रही है, लेकिन एक बार जब यह आदर्श था, तो यहां अधिक जानकारी के लिए लिंक देखें। सबसे महत्वपूर्ण बात, आधुनिक शेल दुभाषियों के लिए कोई अंतर नहीं है कि कोई स्थान है या नहीं।

गीत के बोल, व्यापार के लिए नीचे उतरो! हम स्क्रिप्ट शुरू करते हैं और एक दिलचस्प धारणा देखते हैं, जो पूरी तरह से सच नहीं है:

 $ ./Configure (I see you are using the Korn shell. Some ksh's blow up on Configure, especially on exotic machines. If yours does, try the Bourne shell instead.) Beginning of configuration questions for perl kit. Checking echo to see how to suppress newlines... ...using -n. Type carriage return to continue. Your cursor should be here--> 

हैरानी की बात है कि स्क्रिप्ट इंटरैक्टिव है और इसमें विभिन्न पृष्ठभूमि की जानकारी का एक विशाल समूह है। उपयोगकर्ता इंटरैक्शन मॉडल संवादों पर बनाया गया है, उन उत्तरों का विश्लेषण करते हुए जिनमें स्क्रिप्ट अपने मापदंडों को बदलती है, जिसके अनुसार यह बाद में मेकाइल उत्पन्न करेगा। मुझे व्यक्तिगत रूप से यह जाँचने में दिलचस्पी थी कि क्या सभी शेल कमांड्स जगह पर हैं?

 Locating common programs... expr is in /bin/expr. sed is in /bin/sed. echo is in /bin/echo. cat is in /bin/cat. rm is in /bin/rm. mv is in /bin/mv. cp is in /bin/cp. tr is in /bin/tr. mkdir is in /bin/mkdir. sort is in /bin/sort. uniq is in /bin/uniq. grep is in /bin/grep. Don't worry if any of the following aren't found... test is in /bin/test. egrep is in /bin/egrep. I don't see Mcc out there, offhand. 

इससे पहले स्पष्ट रूप से इस मामले से दूर था। मुझे आश्चर्य है कि Mcc उपयोगिता किसके लिए जिम्मेदार है , जो नहीं मिल सका? मजेदार बात यह है कि उस समय की सर्वश्रेष्ठ हैकर परंपराओं में यह लिपि दोस्ताना हास्य से भरपूर है। अब आप शायद ही इसे देख पाएंगे:

 Is your "test" built into sh? [n] (OK to guess) OK Checking compatibility between /bin/echo and builtin echo (if any)... They are compatible. In fact, they may be identical. Your C library is in /lib/libc.a. You're normal. Extracting names from /lib/libc.a for later perusal...done Hmm... Looks kind of like a USG system, but we'll see... Congratulations. You aren't running Eunice. It's not Xenix... Nor is it Venix... Checking your sh to see if it knows about # comments... Your sh handles # comments correctly. Okay, let's see if #! works on this system... It does. Checking out how to guarantee sh startup... Let's see if '#!/bin/sh' works... Yup, it does. 

मैंने अधिकांश प्रश्नों का उत्तर डिफ़ॉल्ट मान के साथ दिया, या स्क्रिप्ट ने मुझे क्या दिया। विशेष रूप से प्रसन्न और आश्चर्यचकित करने वाले और संकलक के लिए झंडे के लिए अनुरोध था:

 Any additional cc flags? [none] Any additional ld flags? [none] 

वहां आप कुछ दिलचस्प लिख सकते हैं, उदाहरण के लिए, -32 से 32-बिट निष्पादन योग्य फ़ाइल या लाइब्रेरी बनाने के लिए, जिसे लिंक करने के दौरान आवश्यक है। अंतिम स्क्रिप्ट प्रश्न के लिए:

 Now you need to generate make dependencies by running "make depend". You might prefer to run it in background: "make depend > makedepend.out &" It can take a while, so you might not want to run it right now. Run make depend now? [n] y 

मैंने सकारात्मक उत्तर दिया। अपने विकिपीडिया पृष्ठ से देखते हुए, एथेना परियोजना के जीवन की शुरुआत में मेकाइल के साथ काम को सुविधाजनक बनाने के लिए प्राचीन मेकेड निर्भर उपयोगिता बनाई गई थी। इस परियोजना ने हमें एक्स विंडो सिस्टम, केर्बरोस, जेफायर दिया और कई अन्य चीजों को प्रभावित किया जो आज परिचित हैं। यह सब अद्भुत है, लेकिन आधुनिक लिनक्स वातावरण में यह उपयोगिता कहाँ से आती है? यह लंबे समय से किसी और कहीं भी उपयोग किया जाता है। लेकिन अगर आप रिपॉजिटरी की जड़ को करीब से देखते हैं, तो यह पता चलता है कि लैरी वॉल ने इसके स्थानापन्न स्क्रिप्ट संस्करण को लिखा था, जिसे हमने सावधानीपूर्वक अनपैक किया और कॉन्फ़िगरेशन स्क्रिप्ट को निष्पादित किया।

कुछ अजीब त्रुटियों के साथ पूरा किया गया निर्भरता :

 ./makedepend: command substitution: line 82: unexpected EOF while looking for matching `'' ./makedepend: command substitution: line 83: syntax error: unexpected end of file ./makedepend: command substitution: line 82: unexpected EOF while looking for matching `'' ./makedepend: command substitution: line 83: syntax error: unexpected end of file 

शायद यह वे थे जिन्होंने समस्या उत्पन्न की जिसके कारण उत्पन्न मेकफाइल्स थोड़ा चबाया गया:

 $ make make: *** No rule to make target '<built-in>', needed by 'arg.o'. Stop. 

मैं निश्चित रूप से पेचीदा उपयोगिता के जटिल शेल-नूडल्स के जंगल में नहीं जाना चाहता था और मैंने मेकफाइल्स को ध्यान से देखने का फैसला किया, जिसमें एक अजीब पैटर्न उभरा:

 arg.o: arg.c arg.o: arg.h arg.o: array.h arg.o: <built-in> arg.o: cmd.h arg.o: <command-line> arg.o: config.h arg.o: EXTERN.h ... array.o: arg.h array.o: array.c array.o: array.h array.o: <built-in> array.o: cmd.h array.o: <command-line> array.o: config.h array.o: EXTERN.h ... 

जाहिरा तौर पर कुछ उपयोगिता ने गलत तरीके से निकास में अपने तर्क डाले। कुल्हाड़ी उपयोगिता सीड उठाते हुए , मैंने इस चीज़ को थोड़ा ठीक करने का फैसला किया:

 $ sed -i '/built-in/d' Makefile $ sed -i '/command-line/d' Makefile 

आश्चर्यजनक रूप से इस ट्रिक ने काम किया और मेकफाइल्स ने भी वैसा ही काम किया जैसा कि उन्हें करना चाहिए!

<< सामग्री पर जाएं

3. याक व्याकरण फ़ाइल त्रुटियाँ

यह 32 साल पुराना कोड लेने और बिना किसी समस्या के असेंबल करने पर अविश्वसनीय होगा। दुर्भाग्य से, चमत्कार नहीं होता है। स्रोत वृक्ष का अध्ययन करते हुए, मैं एक perl.y फ़ाइल में आया, जो कि याक उपयोगिता के लिए एक व्याकरण विवरण है, जिसे लंबे समय से आधुनिक वितरण में बाइसन द्वारा प्रतिस्थापित किया गया है। पथ / usr / bin / yacc पर स्थित स्क्रिप्ट बस yacc के साथ संगतता मोड में बायसन को बुलाती है। यह सिर्फ इतना है कि यह संगतता पूर्ण नहीं है और इस फ़ाइल को संसाधित करते समय त्रुटियों का एक बड़ा गुच्छा डाल रहा है, जो मुझे नहीं पता कि कैसे सही करना है और वास्तव में नहीं करना चाहते हैं, क्योंकि एक वैकल्पिक समाधान है जो मैंने हाल ही में सीखा है।

ठीक एक या दो साल पहले, हेलियो चिसिनी डे कास्त्रो, जो केडीई के डेवलपर हैं, ने इसी तरह का काम किया और केडीई 1, 2 और क्यूटी 1, 2 से आधुनिक वातावरण और कंपाइलर्स को अनुकूलित किया। मुझे उनके काम में दिलचस्पी हो गई, परियोजनाओं के स्रोत कोड डाउनलोड किए, लेकिन असेंबली के दौरान मैं याक और बाइसन की असंगति के कारण एक समान गड्ढे में आ गया, जिसका उपयोग मॉक मेटाकॉम्पेलर के प्राचीन संस्करण के निर्माण के लिए किया गया था। बाद में, मैं इस समस्या का हल बायसेक यूटिलिटी (बर्कले याक ) के साथ बायसन के रूप में खोजने में कामयाब रहा, जो कि याक के लिए पुराने व्याकरणों के साथ संगत था और कई लिनक्स संस्करणों में उपलब्ध था।

निर्माण प्रणाली में बायक के साथ याक के एक सरल प्रतिस्थापन ने मुझे तब तक मदद की, हालांकि लंबे समय तक नहीं, क्योंकि बायकाक के नए संस्करणों में थोड़ा बाद में उन्होंने अभी भी याक के साथ संगतता को तोड़ दिया, येडबेकन इकाई से जुड़े डिबगिंग को तोड़ दिया। इसलिए, मुझे उपयोगिता के व्याकरण को थोड़ा सही करना पड़ा।

इसलिए, perl.y फ़ाइल में निर्माण त्रुटियों को ठीक करने की रणनीति का पिछले अनुभव से अनुमान लगाया गया था: बायपास उपयोगिता को स्थापित करें, सभी मेकफाइल्स में याक को बायकाक में बदलें, फिर हर जगह से yydebug काटें। इन कार्यों ने इस फ़ाइल के साथ सभी समस्याओं को हल किया, त्रुटियां गायब हो गईं और संकलन जारी रहा।

<< सामग्री पर जाएं

4. "C" पर कोड के संकलन की त्रुटियां

पर्ल का प्राचीन कोड भयावहता से भरा हुआ था, जैसे कि K & R की फ़ंक्शन परिभाषाओं के लंबे-अप्रचलित और विस्मृत संकेतन:

 format(orec,fcmd) register struct outrec *orec; register FCMD *fcmd; { ... } STR * hfetch(tb,key) register HASH *tb; char *key; { ... } /*VARARGS1*/ fatal(pat,a1,a2,a3,a4) char *pat; { fprintf(stderr,pat,a1,a2,a3,a4); exit(1); } 

इसी तरह की विशेषताएं पाई गईं, उदाहरण के लिए, माइक्रोसॉफ्ट वर्ड 1.1a कोड में, जो काफी प्राचीन भी है। प्रोग्रामिंग भाषा "C" का पहला मानक, जिसे "C89" कहा जाता है, केवल दो वर्षों में दिखाई देगा। आधुनिक कंपाइलर इस तरह के कोड के साथ काम करने में सक्षम हैं, लेकिन कुछ आईडीई ऐसी परिभाषाओं को पार्स करने के साथ सामना नहीं करते हैं और उन्हें सिंटैक्स त्रुटियों के रूप में उजागर करते हैं, उदाहरण के लिए, क्यूटी क्रिएटर ने कोड को लिबासक्लब लाइब्रेरी में पार्स करने से पहले पाप किया।

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


आधुनिक जीसीसी 9.2.0 कंपाइलर और जीडीबी 8.3.1 डिबगर का काम टीडम विंडो मैनेजर और एक्सटर्म टर्मिनल एमुलेटर का काम करता है।

STDSTDIO के तहत , लैरी वॉल ने कुछ प्राचीन और गैर-मानक प्रोग्रामिंग लैंग्वेज लाइब्रेरी "C" के साथ प्रयोग किया, और DEBUGGING के तहत कुख्यात येडबग के साथ डिबगिंग जानकारी थी, जिसका मैंने ऊपर उल्लेख किया था। डिफ़ॉल्ट रूप से, ये चेकबॉक्स सक्षम किए गए थे। उन्हें perl.h फ़ाइल में बंद करके और कुछ भूले हुए परिभाषित जोड़कर, मैं त्रुटियों की संख्या को कम करने में सक्षम था।

एक अन्य प्रकार की त्रुटि मानक पुस्तकालय और पोसिक्स परत के अब मानकीकृत कार्यों से आगे निकल रही है। परियोजना का अपना मॉलोक () , सेटेनव () और अन्य इकाइयां हैं जिन्होंने संघर्ष पैदा किया।

कुछ स्थानों ने घोषणाओं के बिना स्थिर कार्यों को परिभाषित किया। समय के साथ, कंपाइलरों ने इस समस्या के लिए एक सख्त दृष्टिकोण लेना शुरू कर दिया और चेतावनी को एक त्रुटि में बदल दिया । और अंत में, भूल गए हेडर के एक जोड़े, आप उनके बिना कहाँ जाएंगे।

मेरे आश्चर्य के लिए, 32-वर्षीय कोड के लिए पैच इतना छोटा निकला कि यहां पूरी तरह से उद्धृत किया जा सकता है:

 diff --git a/malloc.cb/malloc.c index 17c3b27..a1dfe9c 100644 --- a/malloc.c +++ b/malloc.c @@ -79,6 +79,9 @@ static u_int nmalloc[NBUCKETS]; #include <stdio.h> #endif +static findbucket(union overhead *freep, int srchlen); +static morecore(register bucket); + #ifdef debug #define ASSERT(p) if (!(p)) botch("p"); else static diff --git a/perl.hb/perl.h index 3ccff10..e98ded5 100644 --- a/perl.h +++ b/perl.h @@ -6,16 +6,16 @@ * */ -#define DEBUGGING -#define STDSTDIO /* eventually should be in config.h */ +//#define DEBUGGING +//#define STDSTDIO /* eventually should be in config.h */ #define VOIDUSED 1 #include "config.h" -#ifndef BCOPY -# define bcopy(s1,s2,l) memcpy(s2,s1,l); -# define bzero(s,l) memset(s,0,l); -#endif +//#ifndef BCOPY +//# define bcopy(s1,s2,l) memcpy(s2,s1,l); +//# define bzero(s,l) memset(s,0,l); +//#endif #include <stdio.h> #include <ctype.h> @@ -183,11 +183,11 @@ double atof(); long time(); struct tm *gmtime(), *localtime(); -#ifdef CHARSPRINTF - char *sprintf(); -#else - int sprintf(); -#endif +//#ifdef CHARSPRINTF +// char *sprintf(); +//#else +// int sprintf(); +//#endif #ifdef EUNICE #define UNLINK(f) while (unlink(f) >= 0) diff --git a/perl.yb/perl.y index 16f8a9a..1ab769f 100644 --- a/perl.y +++ b/perl.y @@ -7,6 +7,7 @@ */ %{ +#include <stdlib.h> #include "handy.h" #include "EXTERN.h" #include "search.h" diff --git a/perly.cb/perly.c index bc32318..fe945eb 100644 --- a/perly.c +++ b/perly.c @@ -246,12 +246,14 @@ yylex() static bool firstline = TRUE; retry: +#ifdef DEBUGGING #ifdef YYDEBUG if (yydebug) if (index(s,'\n')) fprintf(stderr,"Tokener at %s",s); else fprintf(stderr,"Tokener at %s\n",s); +#endif #endif switch (*s) { default: diff --git a/stab.cb/stab.c index b9ef533..9757cfe 100644 --- a/stab.c +++ b/stab.c @@ -7,6 +7,7 @@ */ #include <signal.h> +#include <errno.h> #include "handy.h" #include "EXTERN.h" #include "search.h" diff --git a/util.hb/util.h index 4f92eeb..95cb9bf 100644 --- a/util.h +++ b/util.h @@ -28,7 +28,7 @@ void prexit(); char *get_a_line(); char *savestr(); int makedir(); -void setenv(); +//void setenv(); int envix(); void notincl(); char *getval(); 

32 साल पुराने कोड के लिए शानदार परिणाम! बग को लिंक करने के लिए `क्रिप्ट ' बग को अपरिभाषित संदर्भ मेकफाइल के लिए-उपयुक्त निर्देश लाइब्रेरी के साथ जोड़कर तय किया गया था, जिसके बाद मुझे अंततः वांछित पर्ल इंटरप्रेटर निष्पादन योग्य मिला:

 $ file perl perl: ELF 64-bit LSB pie executable, x86-64, version 1 (SYSV), dynamically linked, interpreter /lib64/ld-linux-x86-64.so.2, BuildID[sha1]=fd952ceae424613568530b3a2ca88ebd6477e0ae, for GNU/Linux 3.2.0, not stripped 

<< सामग्री पर जाएं

5. कुछ त्रुटियों का सुधार खंडन दोष

लगभग परेशानी-मुक्त संकलन के बाद, किस्मत ने मुझे पीछे कर दिया। इकट्ठे पर्ल दुभाषिया शुरू करने के तुरंत बाद, मुझे कुछ अजीब त्रुटियाँ मिलीं और अंत में एक विभाजन गलती:

 $ ./perl -e 'print "Hello World!\n";' Corrupt malloc ptr 0x2db36040 at 0x2db36000 Corrupt malloc ptr 0x2db36880 at 0x2db36800 Corrupt malloc ptr 0x2db36080 at 0x2db36040 Corrupt malloc ptr 0x2db37020 at 0x2db37000 Segmentation fault (core dumped) 

करप्ट मॉलॉक वाक्यांश के लिए स्रोत पाठ पर gnawed होने के बाद, यह पता चला कि सिस्टम मॉलोक () के बजाय 1982 से किसी प्रकार के कस्टम आवंटनकर्ता को बुलाया गया था। दिलचस्प बात यह है कि बर्कले को इसके स्रोत कोड में एक स्ट्रिंग लिटरल में लिखा गया है, और इसके आगे एक टिप्पणी में कैलटेक । इन विश्वविद्यालयों के बीच सहयोग स्पष्ट था तब बहुत मजबूत था। सामान्य तौर पर, मैंने इस हैकर आवंटन को टिप्पणी दी और स्रोत कोड का पुनर्निर्माण किया। मेमोरी भ्रष्टाचार त्रुटियां गायब हो गईं, लेकिन सेगमेंटेशन दोष बना रहा। तो यह बात नहीं थी, और अब हमें डिबगर को उजागर करने की आवश्यकता है।

प्रोग्राम को gdb के तहत चलाने पर , मैंने पाया कि दुर्घटना तब होती है जब लिबास से एक अस्थायी फ़ाइल mktemp () बनाने के लिए फ़ंक्शन को कहा जाता है:

 $ gdb --args ./perl -e 'print "Hello, World!\n";' (gdb) r Starting program: /home/exl/perl5/perl -e print\ \"Hello\ World\!\\n\"\; Program received signal SIGSEGV, Segmentation fault. 0x00007ffff7cd20c7 in __gen_tempname () from /usr/lib/libc.so.6 (gdb) bt #0 0x00007ffff7cd20c7 in __gen_tempname () from /usr/lib/libc.so.6 #1 0x00007ffff7d71577 in mktemp () from /usr/lib/libc.so.6 #2 0x000055555556bb08 in main () 

वैसे, लिंकर ने पहले इस फ़ंक्शन पर शपथ ली थी। संकलक नहीं, लेकिन एक लिंकर, जिसने मुझे आश्चर्यचकित किया:

 /usr/bin/ld: perl.o: in function `main': perl.c:(.text+0x978c): warning: the use of `mktemp' is dangerous, better use `mkstemp' or `mkdtemp' 

पहले सोचा था कि शायद आपके मन में भी आया था कि असुरक्षित कार्य mktemp () को mkstemp () के साथ बदल दिया जाए , जो मैंने किया। लिंकर चेतावनी गायब हो गई, लेकिन सेगमेंटेशन दोष इस स्थान पर वैसे भी बना रहा, केवल अब यह mkstemp () फ़ंक्शन में था।

इसलिए, अब आपको उस कोड के टुकड़े को बहुत ध्यान से देखने की आवश्यकता है जो इस फ़ंक्शन से जुड़ा हुआ है। वहां मुझे एक अजीब सी चीज़ का पता चला, जिसे इस स्निपेट में डाला गया है:

 char *e_tmpname = "/tmp/perl-eXXXXXX"; int main(void) { mktemp(e_tmpname); e_fp = f_open(e_tmpname, "w"); ... } 

यह पता चलता है कि मुखौटे () मुखौटा के लिए शाब्दिक रूप से बदलने की कोशिश कर रहे हैं, जो कि .rodata अनुभाग में स्थित है, जो स्पष्ट रूप से विफलता के लिए बर्बाद है। या, आखिरकार, 32 साल पहले, यह स्वीकार्य था, कोड में मिला, और यहां तक ​​कि किसी तरह काम किया?

बेशक, char e_tmpname के साथ char * e_tmpname की जगह [] ने इस सेगमेंटेशन फ़ॉल्ट को ठीक कर दिया और मैं पूरी शाम के लिए जो मैंने मार दिया, वह पाने में सक्षम था:

 $ ./perl -e 'print "Hello World!\n";' $ Hello, World! $ ./perl -e '$a = 5; $b = 6.3; $c = $a+$b; print $c."\n";' $ 11.3000000000000007 $ ./perl -v $Header: perly.c,v 1.0 87/12/18 15:53:31 root Exp $ Patch level: 0 

हमने कमांड लाइन से निष्पादन की जांच की, लेकिन फाइल के बारे में क्या? मैंने इंटरनेट से पर्ल प्रोग्रामिंग भाषा के लिए पहला "हैलो वर्ल्ड" डाउनलोड किया:

 ################# test.pl #!/usr/bin/perl # # The traditional first program. # Strict and warnings are recommended. use strict; use warnings; # Print a message. print "Hello, World!\n"; 

फिर मैंने इसे चलाने की कोशिश की, लेकिन, अफसोस, सेगमेंटेशन दोष फिर से मेरी प्रतीक्षा कर रहा था। इस बार एक पूरी तरह से अलग जगह पर:

 $ gdb --args ./perl test.pl (gdb) r Starting program: /home/exl/perl5/perl test.pl Program received signal SIGSEGV, Segmentation fault. 0x00007ffff7d1da75 in __strcpy_sse2_unaligned () from /usr/lib/libc.so.6 (gdb) bt #0 0x00007ffff7d1da75 in __strcpy_sse2_unaligned () from /usr/lib/libc.so.6 #1 0x00005555555629ea in yyerror () #2 0x0000555555568dd6 in yyparse () #3 0x000055555556bd4f in main () 

निम्नलिखित दिलचस्प बिंदु yyerror () फ़ंक्शन में पाया गया था, मैं मूल स्निपेट उद्धृत करता हूं:

 // perl.y char *tokename[] = { "256", "word", "append", ... // perl.c yyerror(s) char *s; { char tmpbuf[128]; char *tname = tmpbuf; if (yychar > 256) { tname = tokename[yychar-256]; // ??? if (strEQ(tname,"word")) strcpy(tname,tokenbuf); // Oops! else if (strEQ(tname,"register")) sprintf(tname,"$%s",tokenbuf); // Oops! ... 

फिर, स्थिति उसी के समान है जिसके बारे में मैंने ऊपर लिखा था। .Rodata अनुभाग में डेटा फिर से संशोधित किया गया है । हो सकता है कि यह कॉपी-पेस्ट के कारण सिर्फ टाइपो हो और tname के बजाय वे tmpbuf लिखना चाहते थे? या वास्तव में इसके पीछे किसी तरह का छिपा हुआ अर्थ है? किसी भी मामले में, चार टोकन के साथ चार * टोकन [] को प्रतिस्थापित करना [] [32] सेग्मेंटेशन गलती को दूर करता है और पर्ल हमें निम्नलिखित बताता है:

 $ ./perl test.pl syntax error in file test.pl at line 7, next token "strict" Execution aborted due to compilation errors. 

यह पता चला है कि वह सभी प्रकार के न्यूफ़ंगल के सख्त उपयोग को पसंद नहीं करता है, यही वह हमें बताने की कोशिश कर रहा है! यदि आप फ़ाइल में इन पंक्तियों को हटाते हैं या टिप्पणी करते हैं, तो प्रोग्राम शुरू होता है:

 $ ./perl test.pl Hello, World! 

<< सामग्री पर जाएं

6. संक्षेप करने के लिए

वास्तव में, मैंने अपना लक्ष्य प्राप्त किया और 1987 से प्राचीन कोड न केवल संकलित किया, बल्कि आधुनिक लिनक्स वातावरण में भी काम किया। निस्संदेह, अभी भी विभिन्न सेगमेंटेशन दोष त्रुटियों का एक बड़ा ढेर बना हुआ है, संभवतः 64-बिट वास्तुकला पर सूचक के आकार से संबंधित है। यह सब तैयार होने पर डिबगर के साथ कुछ शाम बैठने के बाद साफ किया जा सकता है। लेकिन यह बहुत सुखद और बल्कि थकाऊ काम नहीं है। आखिरकार, इस प्रयोग को एक उबाऊ शाम के लिए मनोरंजन के रूप में योजनाबद्ध किया गया था, न कि एक पूर्ण काम के रूप में जो अंत में लाया जाएगा। क्या किए गए कार्यों से कोई व्यावहारिक लाभ है? हो सकता है कि किसी दिन इस लेख में कुछ डिजिटल पुरातत्वविद आएंगे और यह उनके लिए उपयोगी होगा। लेकिन वास्तविक दुनिया में, यहां तक ​​कि इस तरह के अनुसंधान से प्राप्त अनुभव, मेरी राय में, बहुत मूल्यवान नहीं है।

अगर किसी को दिलचस्पी है, तो मैं दो पैच का एक सेट पोस्ट करता हूं। पहला संकलन त्रुटियों को ठीक करता है, और दूसरा कुछ विभाजन त्रुटि त्रुटियों को ठीक करता है।

• Perl1987-फिक्स-संकलन-errors.patch
• Perl1987-फिक्स-कुछ-Segmentation- Faults.patch

PS मैं विनाशकारी सिंगल-लाइन खिलाड़ियों के प्रशंसकों को परेशान करता हूं, यह यहां काम नहीं करता है। शायद पर्ल का संस्करण इस तरह के मनोरंजन के लिए बहुत पुराना है।
पीपीएस ऑल गुड और एक अच्छा सप्ताहांत है। एक छोटे से फिक्स के लिए kawaii_neko का धन्यवाद।

28-Oct-2019 को अपडेट करें : LINUX.ORG.RU मंच का एक उपयोगकर्ता, उपनाम utf8nowhere का उपयोग करते हुए , इस लेख पर अपनी टिप्पणी में काफी दिलचस्प लिंक प्रदान करता है, जिसमें से जानकारी न केवल उत्परिवर्तित स्ट्रिंग शाब्दिकता के साथ स्थिति को स्पष्ट करती है, बल्कि ऊपर वर्णित उपयोग समस्या पर भी विचार करती है। mktemp () फ़ंक्शंस! मुझे इन स्रोतों को उद्धृत करना चाहिए, जो गैर-मानकीकृत K & R C और GNU C के बीच विभिन्न असंगतियों का वर्णन करते हैं:

जीसीसी की असंगति
जीएनयू सी और के एंड आर (गैर-आईएसओ) सी के संस्करणों के बीच कई उल्लेखनीय असंगतताएं हैं।

जीसीसी सामान्य रूप से स्ट्रिंग स्थिरांक को केवल पढ़ने के लिए बनाता है। यदि कई समान दिखने वाले स्ट्रिंग स्थिरांक का उपयोग किया जाता है, तो GCC स्ट्रिंग की केवल एक प्रति संग्रहीत करता है।
एक परिणाम यह है कि आप एक स्ट्रिंग निरंतर तर्क के साथ mktemp नहीं कह सकते। समारोह mktemp हमेशा स्ट्रिंग को बदल देता है इसके तर्क को इंगित करता है।

एक और परिणाम यह है कि sscanf कुछ सिस्टम पर काम नहीं करता है जब एक स्ट्रिंग स्थिरांक को उसके प्रारूप नियंत्रण स्ट्रिंग या इनपुट के रूप में पास किया जाता है। ऐसा इसलिए है क्योंकि sscanf स्ट्रिंग स्ट्रिंग में गलत लिखने की कोशिश करता है।इसी तरह fscanf और scanf ।

करने के लिए समाधान: इन समस्याओं को देखने के लिए का सबसे अच्छा कार्यक्रम के लिए उपयोग बदलने के लिए है चार स्ट्रिंग स्थिरांक: -array एक के बजाय इन उद्देश्यों के लिए के लिए एक प्रारंभ तार चर के साथ। लेकिन अगर यह संभव नहीं है, तो आप -fwritable-strings ध्वज का उपयोग कर सकते हैं , जो कि स्ट्रिंग स्थिरांक को उसी तरह से हैंडल करने के लिए GCC को निर्देश देता है, जिस तरह से अधिकांश C कंपाइलर करते हैं।

स्रोत: GNU कम्पाइलर संग्रह (GCC 3.3) आधिकारिक मैनुअल का उपयोग करना ।

-Fwritable-strings संकलक ध्वज GCC 3.4 में पदावनत किया गया था और स्थायी रूप से GCC 4.0 में हटा दिया गया था।

ANSI C rationale | String literals
String literals are specified to be unmodifiable. This specification allows implementations to share copies of strings with identical text, to place string literals in read-only memory, and perform certain optimizations. However, string literals do not have the type array of const char, in order to avoid the problems of pointer type checking, particularly with library functions, since assigning a pointer to const char to a plain pointer to char is not valid. Those members of the Committee who insisted that string literals should be modifiable were content to have this practice designated a common extension (see F.5.5).

Existing code which modifies string literals can be made strictly conforming by replacing the string literal with an initialized static character array. For instance,

 char *p, *make_temp(char *str); /* ... */ p = make_temp("tempXXX"); /* make_temp overwrites the literal */ /* with a unique name */ 

can be changed to:

 char *p, *make_temp(char *str); /* ... */ { static char template[ ] = "tempXXX"; p = make_temp( template ); } 

: Rationale for American National Standard for Information Systems, Programming Language C .

VarfolomeyKote4ka , Segmentation faults .rodata .rwdata . «From .rodata to .rwdata – introduction to memory mapping and LD scripts» guye1296 , . ld — rwdata.ld। बस स्क्रिप्ट डाउनलोड, सही बॉक्स करने के लिए पर्ल स्रोत कोड के साथ रूट निर्देशिका में डाल दिया LDFLAGS इस प्रकार है: LDFLAGS = -टी rwdata.ld , तो परियोजना के पुनर्निर्माण। परिणामस्वरूप, हमारे पास निम्नलिखित हैं:

 $ make clean && make -j1 $ mv perl perl_rodata $ curl -LOJ https://raw.githubusercontent.com/guye1296/ld_script_elf_blog_post/master/rwdata.ld $ sed -i 's/LDFLAGS =/LDFLAGS = -T rwdata.ld/' Makefile $ make clean && make -j1 $ mv perl perl_rwdata $ objdump -s -j .rodata perl_rodata | grep tmp -2 19da0 21233f5e 7e3d2d25 30313233 34353637 !#?^~=-%01234567 19db0 38392e2b 262a2829 2c5c2f5b 7c002400 89.+&*(),\/[|.$. 19dc0 73746465 7272002f 746d702f 7065726c stderr./tmp/perl 19dd0 2d655858 58585858 00323536 00617070 -eXXXXXX.256.app 19de0 656e6400 6c6f6f70 63746c00 66756e63 end.loopctl.func $ objdump -s -j .rwdata perl_rodata | grep tmp -2 objdump: section '.rwdata' mentioned in a -j option, but not found in any input file $ objdump -s -j .rwdata perl_rwdata | grep tmp -2 41d9c0 21233f5e 7e3d2d25 30313233 34353637 !#?^~=-%01234567 41d9d0 38392e2b 262a2829 2c5c2f5b 7c002400 89.+&*(),\/[|.$. 41d9e0 73746465 7272002f 746d702f 7065726c stderr./tmp/perl 41d9f0 2d655858 58585858 00323536 00617070 -eXXXXXX.256.app 41da00 656e6400 6c6f6f70 63746c00 66756e63 end.loopctl.func $ objdump -s -j .rodata perl_rwdata | grep tmp -2 objdump: section '.rodata' mentioned in a -j option, but not found in any input file $ ./perl_rodata -e 'print "Hello, World!\n";' Segmentation fault (core dumped) $ ./perl_rwdata -e 'print "Hello, World!\n";' Hello, World! 

यह पता चला है कि इस हैक के लिए धन्यवाद, दूसरी पैच से लगभग सभी परिवर्तन बस छोड़ा जा सकता है! हालांकि, निश्चित रूप से, कोड को ऐसे दृष्टिकोण पर लाना जो मानकों का उल्लंघन नहीं करता है, अभी भी बेहतर है।

<< सामग्री पर जाएं