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.