Path: ...!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Muttley@dastardlyhq.com
Newsgroups: comp.unix.shell,comp.unix.programmer,comp.lang.misc
Subject: Re: Command Languages Versus Programming Languages
Date: Mon, 1 Apr 2024 14:47:15 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 48
Message-ID: <uuehdj$2hshe$1@dont-email.me>
References: <uu54la$3su5b$6@dont-email.me> <uu636l$7haj$1@dont-email.me>
	<20240329084454.0000090f@gmail.com> <uu6om5$cmv8$1@dont-email.me>
	<20240329101248.556@kylheku.com> <uu6t9h$dq4d$1@dont-email.me>
	<20240329104716.777@kylheku.com> <uu8p02$uebm$1@dont-email.me>
	<20240330112105.553@kylheku.com> <uudrfg$2cskm$1@dont-email.me>
 <87r0fp8lab.fsf@tudado.org>
Injection-Date: Mon, 01 Apr 2024 14:47:17 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="9637a353974343ad91e9a40c3e22173d";
	logging-data="2683438"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+Qz0SW9nZVBjlzKEZn/2NC"
Cancel-Lock: sha1:XwAt2VycON1avoymq2pu7idJNYQ=
Bytes: 3359

On Mon, 01 Apr 2024 06:49:48 -0300
Johanne Fairchild <jfairchild@tudado.org> wrote:
>Muttley@dastardlyhq.com writes:
>
>> On Sat, 30 Mar 2024 18:46:50 -0000 (UTC)
>> Kaz Kylheku <643-408-1753@kylheku.com> wrote:
>>>(defun get-network-interface-list ()
>>>  (open-shared-library "iphlpapi.dll")
>>>  (let ((blk-size 65536) ;; crude!
>>>        (get-adapters-info (foreign-symbol-address "GetAdaptersInfo")))
>>>      (if get-adapters-info
>>>        (%stack-block ((blk blk-size))
>>>          (rlet ((len-inout #>ULONG blk-size))
>>>            (if (zerop (ff-call get-adapters-info :address blk
>>>                                                  :address len-inout
>>>                                                  #>DWORD))
>>>              (loop for ptr = blk then (pref ptr #>IP_ADAPTER_INFO.Next)
>>>                    until (%null-ptr-p ptr)
>>>                    collecting
>>>                      (let ((alen (pref ptr #>IP_ADAPTER_INFO.AddressLength))
>
>>>                            (addr (pref ptr #>IP_ADAPTER_INFO.Address))
>>>                            (aname (pref ptr #>IP_ADAPTER_INFO.AdapterName))
>>>                            (descr (pref ptr #>IP_ADAPTER_INFO.Description))
>>>                            (iplist (pref ptr
>#>IP_ADAPTER_INFO.IpAddressList))
>>>
>>>                            (type (pref ptr #>IP_ADAPTER_INFO.Type)))
>>>                        (list type
>>>                              (loop for i below alen
>>>                                    collecting (%get-unsigned-byte addr i)
>>>                                      into mac-bytes
>>>                                    finally
>>>                                      (return (mac-bytes-to-string
>mac-bytes)))
>>>
>>>                              (get-ip-address-list iplist)
>>>                              (%get-cstring aname)
>>>                              (%get-cstring descr))))))))))
>>
>> Ugh. No wonder the language fell out of fashion. Looks like some kind of 
>> hacked up Basic.
>
>Fashion and intelligence have never been very good friends.

Readability of the flow of control matters. God knows whats going on with
all those nested statements.