summaryrefslogtreecommitdiff
path: root/dviware/ln03/rose/lnfinc.pli
diff options
context:
space:
mode:
Diffstat (limited to 'dviware/ln03/rose/lnfinc.pli')
-rw-r--r--dviware/ln03/rose/lnfinc.pli35
1 files changed, 35 insertions, 0 deletions
diff --git a/dviware/ln03/rose/lnfinc.pli b/dviware/ln03/rose/lnfinc.pli
new file mode 100644
index 0000000000..c8cafe8ff6
--- /dev/null
+++ b/dviware/ln03/rose/lnfinc.pli
@@ -0,0 +1,35 @@
+cvis: PROCEDURE (i) RETURNS (CHAR (*));
+ DCL i FIXED;
+
+ RETURN (frontstrip(CHAR (i)));
+END cvis;
+
+strip: PROCEDURE (t) RETURNS (CHAR (*));
+ DCL i FIXED,
+ t CHAR (*);
+
+ DO i = Length (t) TO 1 BY -1;
+ IF substr (t,i,1) ^= ' '
+ THEN RETURN (substr (t,1,i));
+ END;
+ RETURN ('');
+END strip;
+
+frontstrip: PROCEDURE (t) RETURNS (CHAR (*));
+ DCL i FIXED,
+ t CHAR (*);
+
+ DO i = 1 TO Length (t);
+ IF substr (t,i,1) ^= ' '
+ THEN RETURN (substr (t,i));
+ END;
+ RETURN ('');
+END frontstrip;
+
+upcase: PROCEDURE (text) RETURNS (CHAR (*));
+ DCL text CHAR (*);
+
+ RETURN (translate (text,
+ 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
+ 'abcdefghijklmnopqrstuvwxyz'));
+END upcase;