Path: utzoo!attcan!uunet!cs.utexas.edu!rutgers!news-server.csri.toronto.edu!dgp.toronto.edu!flaps
From: flaps@dgp.toronto.edu (Alan J Rosenthal)
Newsgroups: comp.lang.c
Subject: Re: more on TRUE and FALSE (side-comment)
Summary: If you want Fortran, you know where to find it.
Message-ID: <1990Sep19.114448.22151@jarvis.csri.toronto.edu>
Date: 19 Sep 90 15:44:48 GMT
References: <9@christmas.UUCP> <quan.653570879@sol> <F+lde642@cs.psu.edu>
Lines: 22

flee@dictionopolis.cs.psu.edu (Felix Lee) writes:
>Try writing this instead:
>	IF(strcmp(name, "hippo"), L10, L20, L10)
>  L10:	printf("%s is not a hippo\n", name);
>	GOTO(L30)
...
>And here are the macros that make it possible:

Try writing this instead (syntax subject to minor slips of memory):

	if (name(1) .eq. 1hh
	1	.and. name(2) .eq. 1hi
	2	.and. name(3) .eq. 1hp
	3	.and. name(4) .eq. 1hp
	4	.and. name(5) .eq. 1ho) 10, 20, 10
10	write (6,11),name
11	format (1x, a, 15h is not a hippo)
	goto 30

And here is the shellscript that makes it possible:

	f77 "$@"