Warning: mysqli::__construct(): (HY000/1203): User howardkn already has more than 'max_user_connections' active connections in D:\Inetpub\vhosts\howardknight.net\al.howardknight.net\includes\artfuncs.php on line 21
Failed to connect to MySQL: (1203) User howardkn already has more than 'max_user_connections' active connectionsPath: ...!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:
References:
<20240329084454.0000090f@gmail.com>
<20240329101248.556@kylheku.com>
<20240329104716.777@kylheku.com>
<20240330112105.553@kylheku.com>
<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 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.