- Bit operations in Component Pascal

From: Hof, Philipp <"Hof,>
Date: Wed, 30 Mar 2005 08:25:41 +1200

----boundary-LibPST-iamunique-905277879_-_-
Content-type: text/plain

Some more bit operations:
http://www.elec.canterbury.ac.nz/publicarea/staff/hof/p50-win/p020-set.html



-----Original Message-----
From: Wojtek Skulski [mailto:skulski{([at]})nowhere.xy
Sent: Tuesday, 22 March 2005 5:13 a.m.
To: blackbox{([at]})nowhere.xy
Subject: [BlackBox] - Bit operations in Component Pascal

Hi:

  one of the most useful features of Component Pascal,
and perhaps least appreciated, are the bit manipulation
intrinsics of the CP language. Today I showed the following
program to one of my collegaues who was wondering how to
manipulate bits. I am posting this program as a possible
addition to the CP documentation being discussed on this list.

It is wonderful to go back and forth between bitsets and integers
and be able to manipulate bits directly without any obscurations.

MODULE TstSetExample;
IMPORT StdLog;

PROCEDURE Do *;
  VAR s : SET;
      i : INTEGER;
      ans : BOOLEAN;
BEGIN
  StdLog.String (" Example set operations ");
  StdLog.Ln;
  s := {0,1..3,15};
  StdLog.Set (s); StdLog.Ln;
  s := s + {7};
  StdLog.Set (s); StdLog.Ln;
  EXCL (s, 15);
  StdLog.Set (s); StdLog.Ln;
  s := BITS (22);
  i := ORD (s);
  StdLog.Int (i); StdLog.Ln;
  StdLog.Set (s); StdLog.Ln;

  FOR i := 0 TO MAX (SET) DO
     StdLog.Int (i); StdLog.String (" ");
     ans := i IN s;
     StdLog.Bool (ans);
     StdLog.Ln;
  END;
END Do;

END TstSetExample.

<CTRL-Q> TstSetExample.Do

--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy

--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy



----boundary-LibPST-iamunique-905277879_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFNvbWUgbW9yZSBiaXQgb3BlcmF0aW9uczpccGFy
DQpodHRwOi8vd3d3LmVsZWMuY2FudGVyYnVyeS5hYy5uei9wdWJsaWNhcmVhL3N0YWZmL2hvZi9w
NTAtd2luL3AwMjAtc2V0Lmh0bWxccGFyDQpccGFyDQpccGFyDQpccGFyDQotLS0tLU9yaWdpbmFs
IE1lc3NhZ2UtLS0tLVxwYXINCkZyb206IFdvanRlayBTa3Vsc2tpIFttYWlsdG86c2t1bHNraUBw
YXMucm9jaGVzdGVyLmVkdV0gXHBhcg0KU2VudDogVHVlc2RheSwgMjIgTWFyY2ggMjAwNSA1OjEz
IGEubS5ccGFyDQpUbzogYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0KU3ViamVjdDogW0JsYWNrQm94
XSAtIEJpdCBvcGVyYXRpb25zIGluIENvbXBvbmVudCBQYXNjYWxccGFyDQpccGFyDQpIaTpccGFy
DQpccGFyDQogIG9uZSBvZiB0aGUgbW9zdCB1c2VmdWwgZmVhdHVyZXMgb2YgQ29tcG9uZW50IFBh
c2NhbCxccGFyDQphbmQgcGVyaGFwcyBsZWFzdCBhcHByZWNpYXRlZCwgYXJlIHRoZSBiaXQgbWFu
aXB1bGF0aW9uXHBhcg0KaW50cmluc2ljcyBvZiB0aGUgQ1AgbGFuZ3VhZ2UuIFRvZGF5IEkgc2hv
d2VkIHRoZSBmb2xsb3dpbmdccGFyDQpwcm9ncmFtIHRvIG9uZSBvZiBteSBjb2xsZWdhdWVzIHdo
byB3YXMgd29uZGVyaW5nIGhvdyB0b1xwYXINCm1hbmlwdWxhdGUgYml0cy4gSSBhbSBwb3N0aW5n
IHRoaXMgcHJvZ3JhbSBhcyBhIHBvc3NpYmxlXHBhcg0KYWRkaXRpb24gdG8gdGhlIENQIGRvY3Vt
ZW50YXRpb24gYmVpbmcgZGlzY3Vzc2VkIG9uIHRoaXMgbGlzdC5ccGFyDQpccGFyDQpJdCBpcyB3
b25kZXJmdWwgdG8gZ28gYmFjayBhbmQgZm9ydGggYmV0d2VlbiBiaXRzZXRzIGFuZCBpbnRlZ2Vy
c1xwYXINCmFuZCBiZSBhYmxlIHRvIG1hbmlwdWxhdGUgYml0cyBkaXJlY3RseSB3aXRob3V0IGFu
eSBvYnNjdXJhdGlvbnMuXHBhcg0KXHBhcg0KTU9EVUxFIFRzdFNldEV4YW1wbGU7XHBhcg0KSU1Q
T1JUIFN0ZExvZztccGFyDQpccGFyDQpQUk9DRURVUkUgRG8gKjtccGFyDQogIFZBUiBzICAgOiBT
RVQ7XHBhcg0KICAgICAgaSAgIDogSU5URUdFUjtccGFyDQogICAgICBhbnMgOiBCT09MRUFOO1xw
YXINCkJFR0lOXHBhcg0KICBTdGRMb2cuU3RyaW5nICgiIEV4YW1wbGUgc2V0IG9wZXJhdGlvbnMg
Iik7XHBhcg0KICBTdGRMb2cuTG47XHBhcg0KICBzIDo9IFx7MCwxLi4zLDE1XH07XHBhcg0KICBT
dGRMb2cuU2V0IChzKTsgU3RkTG9nLkxuO1xwYXINCiAgcyA6PSBzICsgXHs3XH07XHBhcg0KICBT
dGRMb2cuU2V0IChzKTsgU3RkTG9nLkxuO1xwYXINCiAgRVhDTCAocywgMTUpO1xwYXINCiAgU3Rk
TG9nLlNldCAocyk7IFN0ZExvZy5MbjtccGFyDQogIHMgOj0gQklUUyAoMjIpO1xwYXINCiAgaSA6
PSBPUkQgKHMpO1xwYXINCiAgU3RkTG9nLkludCAoaSk7IFN0ZExvZy5MbjtccGFyDQogIFN0ZExv
Zy5TZXQgKHMpOyBTdGRMb2cuTG47XHBhcg0KXHBhcg0KICBGT1IgaSA6PSAwIFRPIE1BWCAoU0VU
KSAgRE9ccGFyDQogICAgIFN0ZExvZy5JbnQgKGkpOyBTdGRMb2cuU3RyaW5nICgiICIpO1xwYXIN
CiAgICAgYW5zIDo9IGkgSU4gcztccGFyDQogICAgIFN0ZExvZy5Cb29sIChhbnMpO1xwYXINCiAg
ICAgU3RkTG9nLkxuO1xwYXINCiAgRU5EO1xwYXINCkVORCBEbztccGFyDQpccGFyDQpFTkQgVHN0
U2V0RXhhbXBsZS5ccGFyDQpccGFyDQo8Q1RSTC1RPiBUc3RTZXRFeGFtcGxlLkRvXHBhcg0KXHBh
cg0KLS0tIEJsYWNrQm94XHBhcg0KLS0tIHNlbmQgc3ViamVjdCBIRUxQIG9yIFVOU1VCU0NSSUJF
IHRvIGJsYWNrYm94QG9iZXJvbi5jaFxwYXINClxwYXINCi0tLSBCbGFja0JveFxwYXINCi0tLSBz
ZW5kIHN1YmplY3QgSEVMUCBvciBVTlNVQlNDUklCRSB0byBibGFja2JveEBvYmVyb24uY2hccGF9
fQBsYW1wLnZl


----boundary-LibPST-iamunique-905277879_-_---
Received on Tue Mar 29 2005 - 21:25:41 UTC