This is a multi-part message in MIME format.
--------------7ED59985573AF652F99F1746
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Michael Worsley's recent windows-related enquiry (the first such for a
good while on pop-forum) prompts me to offer to the community the
attached global init.p file for windows poplog systems. (Aaron: is there
a sensible archive place it could be saved in for posterity etc if
appropriate?).
The attached file sets up 'reasonable' defaults for pop_filename_case
(ok, so unix users don't even know what this is!) and $poplocal, but
most signficantly provides some code to allow winpop11 to be used as a
filetype action - so that you can double click on a pop11 file and open
ved on it (and if you wish, open ved-in-prolog on a prolog file). If you
look at the code you will see this was slightly non-trivial to achieve
(in terms of beating the innards of winpop11 startup into submission),
so I hope it may be useful to some people.
The file contains the code uncommented first, and then at the end a more
heavily commented version which should explain how to use it etc.
Have fun!
Roger
PS: I'd be interested to know how large the windows-poplog
pop-forum-reading community is, but perhaps it would be better to
respond to me personally rather than bombarding the list with replies...
--------------7ED59985573AF652F99F1746
Content-Type: application/x-unknown-content-type-ft000001;
name="init.p"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
filename="init.p"
LyogIFNvbWUgdXNlZnVsIHN5c3RlbS13aWRlIGluaXRpYWxpc2F0aW9ucyBmb3Igd2luZG93
cyBwb3Bsb2cNCiAgICBSb2dlci5FdmFuc0BpdHJpLmJyaWdodG9uLmFjLnVrDQogICAgNHRo
IEp1bmUgMjAwMA0KDQogICAgSW5zdGFsbCBhcyBwb3BccG9wXGluaXQucCBmb3Igc3lzdGVt
LXdpZGUgZWZmZWN0IG9yICVIT01FJVxpbml0LnAgZm9yDQogICAgcGVyc29uYWwgdXNlLg0K
DQogICAgRm9yIGRldGFpbCBzZWUgY29tbWVudGVkIHZlcnNpb24gb2YgY29kZSBhdCBlbmQg
b2YgZmlsZS4NCiovDQoNCiJ1bmRlZiIgLT4gcG9wX2ZpbGVuYW1lX2Nhc2U7DQpzeXN0cmFu
c2xhdGUoJ3VzZXBvcCcpIC0+IHN5c3RyYW5zbGF0ZSgncG9wbG9jYWwnKTsNCnN5c2ZpbGVv
aygnJHBvcGxvY2FsL2xvY2FsL2F1dG8nKSAtPiBzeXN0cmFuc2xhdGUoJ3BvcGxvY2FsYXV0
bycpOw0KDQpkZWZpbmUgbWFjcm8gd2ludmVkZWRpdDsNCiAgICByZWFkc3RyaW5nbGluZSgp
IC0+IDsNCiAgICBbXSAtPiB2ZWRfY2hhcl9pbl9zdHJlYW07DQogICAgdmVkc2NyZWVubGVu
Z3RoIGRpdiAyIC0+IHZlZHN0YXJ0d2luZG93Ow0KICAgIHZlZGVkaXQoaGQocG9wYXJnbGlz
dCkpOw0KICAgIHZlZHNldHdpbmRvdygpOw0KZW5kZGVmaW5lOw0KDQppZiBpc3BhaXIocG9w
YXJnbGlzdDApIHRoZW4NCiAgICBsdmFycyBiYXNlbmFtZSA9IHN5c19mbmFtZV9uYW0oZmFz
dF9mcm9udChwb3BhcmdsaXN0MCkpLA0KICAgICAgICAgIGFyZ2xpc3QgPSBmYWxzZSwNCiAg
ICAgICAgICBhcmc7DQogICAgaWYgYmFzZW5hbWUgPSAnd2lucG9wMTEnIHRoZW4NCiAgICAg
ICAgZmFzdF9iYWNrKHBvcGFyZ2xpc3QwKSAtPiBhcmdsaXN0Ow0KICAgICAgICA7Ozsgc2tp
cCBzYXZlZCBpbWFnZSBzdGFydHVwIGFyZ3MNCiAgICAgICAgd2hpbGUgaXNwYWlyKGFyZ2xp
c3QpIGRvDQogICAgICAgICAgICBmYXN0X2Zyb250KGFyZ2xpc3QpIC0+IGFyZzsNCiAgICAg
ICAgICAgIHF1aXR1bmxlc3MoZGF0YWxlbmd0aChhcmcpID4gMCBhbmQgZmFzdF9zdWJzY3Jz
KDEsYXJnKSA9PSBgK2ApOw0KICAgICAgICAgICAgZmFzdF9iYWNrKGFyZ2xpc3QpIC0+IGFy
Z2xpc3Q7DQogICAgICAgIGVuZHdoaWxlOw0KICAgICAgICA7Ozsgc2F2ZSByZXN0IGFzIHBv
cGFyZ2xpc3QNCiAgICAgICAgYXJnbGlzdCAtPiBwb3BhcmdsaXN0Ow0KICAgICAgICBwcm9j
ZWR1cmUob2xkKTsNCiAgICAgICAgICAgIGx2YXJzIG9sZDsNCiAgICAgICAgICAgIHZlZGlu
cHV0KHN5c19wcm9jZXNzX3BvcGFyZzEoJXBvcDExX2NvbXBpbGUsIHRyeWNvbXBpbGUsICcu
cCclKSk7DQogICAgICAgICAgICBvbGQgLT4gdmVkcHJvY2Vzc3RyYXA7DQogICAgICAgICAg
ICBvbGQoKTsNCiAgICAgICAgZW5kcHJvY2VkdXJlKCV2ZWRwcm9jZXNzdHJhcCUpIC0+IHZl
ZHByb2Nlc3N0cmFwOw0KICAgIGVuZGlmOw0KZW5kaWY7DQoNCiNfVEVSTUlOX0lGIHRydWU7
ICAgOzs7IGNvbXBpbGF0aW9uIGVuZHMgaGVyZSAtIGNvbW1lbnRlZCB2ZXJzaW9uIG9mIGNv
ZGUgYmVsb3cNCg0KOzs7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCjs7OyAvKiAgU29tZSB1
c2VmdWwgc3lzdGVtLXdpZGUgaW5pdGlhbGlzYXRpb25zIGZvciB3aW5kb3dzIHBvcGxvZw0K
Ozs7ICAgICBSb2dlci5FdmFuc0BpdHJpLmJyaWdodG9uLmFjLnVrDQo7OzsgICAgIDR0aCBK
dW5lIDIwMDANCjs7Ow0KOzs7ICAgICBJbnN0YWxsIGFzIHBvcFxwb3BcaW5pdC5wIGZvciBz
eXN0ZW0td2lkZSBlZmZlY3Qgb3IgJUhPTUUlXGluaXQucCBmb3INCjs7OyAgICAgcGVyc29u
YWwgdXNlLg0KOzs7DQo7OzsgKi8NCjs7Ow0KOzs7IC8qICBwcmVzZXJ2ZSBjYXNlIGluIGZp
bGVuYW1lcyAtIGVzcGVjaWFsbHkgaWYgeW91IGFyZSB3b3JraW5nIHdpdGggSmF2YSwgd2hp
Y2gNCjs7OyAgICAgY2FyZXMgYWJvdXQgZmlsZW5hbWUgY2FzZSBtb3JlIHRoYW4gbW9zdCB3
aW5kb3dzIGFwcGxpY2F0aW9ucw0KOzs7ICovDQo7OzsgInVuZGVmIiAtPiBwb3BfZmlsZW5h
bWVfY2FzZTsNCjs7Ow0KOzs7IC8qICB3aW5wb3AxMSBkb2Vzbid0IGhhbmRsZSBjb21tYW5k
IGxpbmUgYXJndW1lbnRzIG5pY2VseSAtIGl0IGp1c3Qgc3RhcnRzIHVwDQo7OzsgICAgIGFu
IGltbWVkaWF0ZSBtb2RlIFZFRCB3aW5kb3cgaWdub3JpbmcgYW55IGFyZ3VtZW50cyBhcGFy
dCBmcm9tIHNhdmVkIGltYWdlDQo7OzsgICAgIHNwZWNpZmllcnMuDQo7OzsgICAgIFRoZSBj
b2RlIGJlbG93IG1ha2VzIHdpbnBvcDExIGJlaGF2ZSBiZXR0ZXIsIGJ5IGNvbGxlY3Rpbmcg
dXAgYWxsIGFyZ3MNCjs7OyAgICAgKmFmdGVyKiB0aGUgc2F2ZWQgaW1hZ2UgYXJncyBhbmQg
aW52b2tpbmcgc3lzX3Byb2Nlc3NfcG9wYXJnMSBvbiB0aGVtLg0KOzs7ICAgICAoVGhpcyB0
dXJucyBvdXQgdG8gYmUgaGFyZGVyIHRoYW4geW91IG1pZ2h0IHRoaW5rKS4NCjs7OyAgICAg
RXZlbiB0aGlzIGRvZXNuJ3Qgc3VwcG9ydCBpbnZva2luZyBWRUQgZGlyZWN0bHksIGJ1dCB0
aGUgZm9sbG93aW5nIG1hY3JvIGhlbHBzDQo7OzsgICAgIG1ha2UgdGhpcyBsZXNzIHBhaW5m
dWwNCjs7OyAqLw0KOzs7DQo7OzsNCjs7OyAvKiAgVGhpcyBtYWNybyBjYW4gYmUgdXNlZCB0
byBtYWtlIHdpbnBvcDExIHN0YXJ0IHVwIHZlZCBvbiBhIG5hbWVkIGZpbGUsIGluc3RlYWQg
b2YNCjs7OyAgICAgYW4gaW1tZWRpYXRlIG1vZGUgd2luZG93LiBJdCB1c2VzIHRoZSBzZXBj
YWlsIHNhdHJ0dXAgY29kZSBmdXJ0aGVyIGRvd24gdGhlIGZpbGUuDQo7OzsgICAgIEludm9r
ZSBpdCBsaWtlIHRoaXM6DQo7OzsNCjs7OyAgICAgICAgIHdpbnBvcDExICtzdGFydHVwICc6
d2ludmVkZWRpdCcgPGZpbGU+DQo7OzsNCjs7OyAgICAgWW91IGNhbiB1c2UgaXQgbGlrZSB0
aGlzIGluIHRoZSBmaWxlIHR5cGVzIHNwZWNpZmljYXRpb24gZm9yIC5wIChldGMpIGZpbGVz
IHRvIG1ha2UNCjs7OyAgICAgZG91YmxlLWNsaWNraW5nIGEgZmlsZSBvcGVuIGl0IGluIHZl
ZDoNCjs7Ow0KOzs7ICAgICAgICAgRDpcUG9wbG9nXDE1LjVccG9wXHBvcFx3aW5wb3AxMSAr
c3RhcnR1cCAnOndpbnZlZGVkaXQnICclMScNCjs7Ow0KOzs7ICAgICBJTVBPUlRBTlQ6IFZF
RCAqaGF0ZXMqIHNwYWNlcyBpbiBwYXRoIG5hbWVzLCBhbmQgbWlzYmVoYXZlcyBiYWRseS4g
U28gaWYgdGhlIGZ1bGwNCjs7OyAgICAgcGF0aG5hbWUgb2YgYSBmaWxlIHlvdSBlZGl0IGxp
a2UgdGhpcyBoYXMgYSBzcGFjZSwgaXQgd2lsbCBub3Qgd29yayBwcm9wZXJseS4NCjs7OyAq
Lw0KOzs7IGRlZmluZSBtYWNybyB3aW52ZWRlZGl0Ow0KOzs7ICAgICByZWFkc3RyaW5nbGlu
ZSgpIC0+IDsgICAgICAgIDs7OyBjbGVhciAodW5wYXJzZWFibGUpIHBhdGhuYW1lIGZyb20g
aW5wdXQgc3RyZWFtDQo7OzsgICAgIFtdIC0+IHZlZF9jaGFyX2luX3N0cmVhbTsgICAgOzs7
IGNsZWFyIHZlZCBhY3Rpb25zIHRvIHN0YXJ0IHVwIGltbWVkaWF0ZSBtb2RlIGJ1ZmZlcg0K
Ozs7ICAgICB2ZWRlZGl0KGhkKHBvcGFyZ2xpc3QpKTsgICAgIDs7OyBnZXQgcGF0aCBuYW1l
IGZyb20gcG9wYXJnbGlzdCBhbmQgZWRpdCBpdA0KOzs7IGVuZGRlZmluZTsNCjs7Ow0KOzs7
IC8qICBUaGlzIGNvZGUgbWFrZXMgd2lucG9wMTEgcmVjb2duaXNlIGNvbW1hbmQgbGluZSBh
cmd1bWVudHMuDQo7OzsgICAgIEl0IHJlYnVpbGRzIHBvcGFyZ2xpc3QgZnJvbSBwb3Bhcmds
aXN0MCBhbmQgdGhlbiB1c2VzIHZlZHByb2Nlc3N0cmFwIHRvDQo7OzsgICAgIGludGVyY2Vw
dCBleGVjdXRpb24gYmVmb3JlIGp1c3QgdGhlIGltbWVkaWF0ZSBtb2RlIGJ1ZmZlciBpcyBz
dGFydGVkDQo7OzsgICAgIGFuZCBydW4gc3lzX3Byb2Nlc3NfcG9wYXJnMSBvbiB0aGUgbmV3
IHBvcGFyZ2xpc3QuDQo7OzsgKi8NCjs7OyBpZiBpc3BhaXIocG9wYXJnbGlzdDApIHRoZW4N
Cjs7OyAgICAgbHZhcnMgYmFzZW5hbWUgPSBzeXNfZm5hbWVfbmFtKGZhc3RfZnJvbnQocG9w
YXJnbGlzdDApKSwNCjs7OyAgICAgICAgICAgYXJnbGlzdCA9IGZhbHNlLA0KOzs7ICAgICAg
ICAgICBhcmc7DQo7OzsgICAgIGlmIGJhc2VuYW1lID0gJ3dpbnBvcDExJyB0aGVuDQo7Ozsg
ICAgICAgICBmYXN0X2JhY2socG9wYXJnbGlzdDApIC0+IGFyZ2xpc3Q7DQo7OzsgICAgICAg
ICA7Ozsgc2tpcCBzYXZlZCBpbWFnZSBzdGFydHVwIGFyZ3MNCjs7OyAgICAgICAgIHdoaWxl
IGlzcGFpcihhcmdsaXN0KSBkbw0KOzs7ICAgICAgICAgICAgIGZhc3RfZnJvbnQoYXJnbGlz
dCkgLT4gYXJnOw0KOzs7ICAgICAgICAgICAgIHF1aXR1bmxlc3MoZGF0YWxlbmd0aChhcmcp
ID4gMCBhbmQgZmFzdF9zdWJzY3JzKDEsYXJnKSA9PSBgK2ApOw0KOzs7ICAgICAgICAgICAg
IGZhc3RfYmFjayhhcmdsaXN0KSAtPiBhcmdsaXN0Ow0KOzs7ICAgICAgICAgZW5kd2hpbGU7
DQo7OzsgICAgICAgICA7Ozsgc2F2ZSByZXN0IGFzIHBvcGFyZ2xpc3QNCjs7OyAgICAgICAg
IGFyZ2xpc3QgLT4gcG9wYXJnbGlzdDsNCjs7OyAgICAgICAgIDs7OyBjcmVhdGUgYSBvbmUt
b2ZmIHdyYXBwZXIgZm9yIHZlZHByb2Nlc3N0cmFwIHRvIHByb2Nlc3MgcG9wYXJnbGlzdA0K
Ozs7ICAgICAgICAgOzs7IHVzZSB2ZWRpbnB1dCB0byBlbnN1cmUgdXNlciBjb2RlIGlzIHJ1
biBmcm9tIFZFRCdzIHRvcCBsZXZlbCBsb29wIGNvbnRleHQNCjs7OyAgICAgICAgIHByb2Nl
ZHVyZShvbGQpOw0KOzs7ICAgICAgICAgICAgIGx2YXJzIG9sZDsNCjs7OyAgICAgICAgICAg
ICB2ZWRpbnB1dChzeXNfcHJvY2Vzc19wb3BhcmcxKCVwb3AxMV9jb21waWxlLCB0cnljb21w
aWxlLCAnLnAnJSkpOw0KOzs7ICAgICAgICAgICAgIG9sZCAtPiB2ZWRwcm9jZXNzdHJhcDsN
Cjs7OyAgICAgICAgICAgICBvbGQoKTsNCjs7OyAgICAgICAgIGVuZHByb2NlZHVyZSgldmVk
cHJvY2Vzc3RyYXAlKSAtPiB2ZWRwcm9jZXNzdHJhcDsNCjs7OyAgICAgZW5kaWY7DQo7Ozsg
ZW5kaWY7DQo=
--------------7ED59985573AF652F99F1746--
|