1# 2# Copyright (c) 1989 The Regents of the University of California. 3# All rights reserved. 4# 5# This code is derived from software contributed to Berkeley by 6# Ozan Yigit. 7# 8# Redistribution and use in source and binary forms are permitted 9# provided that the above copyright notice and this paragraph are 10# duplicated in all such forms and that any documentation, 11# advertising materials, and other materials related to such 12# distribution and use acknowledge that the software was developed 13# by the University of California, Berkeley. The name of the 14# University may not be used to endorse or promote products derived 15# from this software without specific prior written permission. 16# THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR 17# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED 18# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. 19# 20# @(#)string.m4 5.1 (Berkeley) 08/28/89 21# 22 23define(string,`integer $1(len(substr($2,1))) 24str($1,substr($2,1),0) 25data $1(len(substr($2,1)))/EOS/ 26') 27 28define(str,`ifelse($2,",,data $1(incr($3))/`LET'substr($2,0,1)/ 29`str($1,substr($2,1),incr($3))')') 30