Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
assume printer can handle ISO-latin1 encoded strings (national characters)
authorClaus Gittinger <cg@exept.de>
Tue, 23 Apr 1996 20:21:30 +0200
changeset 1272 b45ddd6d6ec3
parent 1271 a11ef7b9c780
child 1273 f8449f53a6a3
assume printer can handle ISO-latin1 encoded strings (national characters)
CharArray.st file | annotate | diff | comparison | revisions
CharacterArray.st file | annotate | diff | comparison | revisions 
--- a/CharArray.st	Tue Apr 23 16:55:00 1996 +0200
+++ b/CharArray.st	Tue Apr 23 20:21:30 1996 +0200
@@ -163,7 +163,7 @@
     "/ You will loose the following characters:
     "/ - all of them will be replaced by 8F (¿)
     "/
-    "/  A0 (cross)
+    "/  A0 (dagger)
     "/  A5 (dot-dot)
     "/  AA (tm - trademark)
     "/  AD (not equal)
@@ -195,7 +195,7 @@
     "/  DD (single oldStyle closing quote (>) )
     "/  DE (? )
     "/  DF (? )
-    "/  E0 (double cross )
+    "/  E0 (double dagger )
     "/  E2 (opening bottom quote )
     "/  E3 (opening bottom dquote )
     "/  F0 (? )
@@ -252,8 +252,8 @@
     "/  AD (single oldStyle closing quote (>))
     "/  AE (?)
     "/  AF (?)
-    "/  B2 (cross)
-    "/  B3 (double cross)
+    "/  B2 (dagger)
+    "/  B3 (double dagger)
     "/  B7 (enter dot)
     "/  B8 (opening bottom quote)
     "/  B9 (opening bottom dquote)
@@ -308,19 +308,6 @@
     ].
 
     "/
-    "/ postscript -> iso8859
-    "/
-    encoding == #postscript ifTrue:[
-        table at:8r224+1 put:246. "/ german umlaut o (ps: 148; 8859: 246)
-        table at:8r204+1 put:228. "/ german umlaut a (ps: 132; 8859: 228)
-        table at:8r201+1 put:252. "/ german umlaut u (ps: 129; 8859: 252)
-        table at:8r231+1 put:214. "/ german umlaut O (ps: 153; 8859: 214)
-        table at:8r216+1 put:196. "/ german umlaut A (ps: 142; 8859: 196)
-        table at:8r232+1 put:220. "/ german umlaut U (ps: 154; 8859: 220)
-        "/ more needed here - need info to do it ....
-    ].
-
-    "/
     "/ msdos (codePage 437) -> iso8859
     "/
     "/
@@ -402,7 +389,7 @@
     "
 
     "Created: 20.10.1995 / 23:04:43 / cg"
-    "Modified: 22.4.1996 / 15:30:10 / cg"
+    "Modified: 23.4.1996 / 20:20:32 / cg"
 !
 
 encoderTableFor:encoding
@@ -428,6 +415,7 @@
         unrepresentableCharacterCode := 16rFF.
         unrepresentableISOCharacterCode := 16rBF.
     ].
+
     "/
     "/ iso8859 -> msdos
     "/
@@ -468,7 +456,7 @@
     "
 
     "Created: 22.2.1996 / 16:17:58 / cg"
-    "Modified: 22.4.1996 / 15:42:22 / cg"
+    "Modified: 23.4.1996 / 20:20:42 / cg"
 !
 
 supportedEncodings
@@ -3677,5 +3665,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.76 1996-04-22 14:41:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.77 1996-04-23 18:21:30 cg Exp $'
 ! !
--- a/CharacterArray.st	Tue Apr 23 16:55:00 1996 +0200
+++ b/CharacterArray.st	Tue Apr 23 20:21:30 1996 +0200
@@ -163,7 +163,7 @@
     "/ You will loose the following characters:
     "/ - all of them will be replaced by 8F (¿)
     "/
-    "/  A0 (cross)
+    "/  A0 (dagger)
     "/  A5 (dot-dot)
     "/  AA (tm - trademark)
     "/  AD (not equal)
@@ -195,7 +195,7 @@
     "/  DD (single oldStyle closing quote (>) )
     "/  DE (? )
     "/  DF (? )
-    "/  E0 (double cross )
+    "/  E0 (double dagger )
     "/  E2 (opening bottom quote )
     "/  E3 (opening bottom dquote )
     "/  F0 (? )
@@ -252,8 +252,8 @@
     "/  AD (single oldStyle closing quote (>))
     "/  AE (?)
     "/  AF (?)
-    "/  B2 (cross)
-    "/  B3 (double cross)
+    "/  B2 (dagger)
+    "/  B3 (double dagger)
     "/  B7 (enter dot)
     "/  B8 (opening bottom quote)
     "/  B9 (opening bottom dquote)
@@ -308,19 +308,6 @@
     ].
 
     "/
-    "/ postscript -> iso8859
-    "/
-    encoding == #postscript ifTrue:[
-        table at:8r224+1 put:246. "/ german umlaut o (ps: 148; 8859: 246)
-        table at:8r204+1 put:228. "/ german umlaut a (ps: 132; 8859: 228)
-        table at:8r201+1 put:252. "/ german umlaut u (ps: 129; 8859: 252)
-        table at:8r231+1 put:214. "/ german umlaut O (ps: 153; 8859: 214)
-        table at:8r216+1 put:196. "/ german umlaut A (ps: 142; 8859: 196)
-        table at:8r232+1 put:220. "/ german umlaut U (ps: 154; 8859: 220)
-        "/ more needed here - need info to do it ....
-    ].
-
-    "/
     "/ msdos (codePage 437) -> iso8859
     "/
     "/
@@ -402,7 +389,7 @@
     "
 
     "Created: 20.10.1995 / 23:04:43 / cg"
-    "Modified: 22.4.1996 / 15:30:10 / cg"
+    "Modified: 23.4.1996 / 20:20:32 / cg"
 !
 
 encoderTableFor:encoding
@@ -428,6 +415,7 @@
         unrepresentableCharacterCode := 16rFF.
         unrepresentableISOCharacterCode := 16rBF.
     ].
+
     "/
     "/ iso8859 -> msdos
     "/
@@ -468,7 +456,7 @@
     "
 
     "Created: 22.2.1996 / 16:17:58 / cg"
-    "Modified: 22.4.1996 / 15:42:22 / cg"
+    "Modified: 23.4.1996 / 20:20:42 / cg"
 !
 
 supportedEncodings
@@ -3677,5 +3665,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.76 1996-04-22 14:41:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.77 1996-04-23 18:21:30 cg Exp $'
 ! !
hg/stx-libbasic