leppie

drop table if exists Reference
drop table if exists Source

declare @json NVARCHAR(MAX) = (select Data from Deps);  -- output from `DependenSee . -P -T ConsoleJson`

select *
into  Source
from
(
SELECT Id, Name, Source = 'Project' from OPENJSON(JSON_QUERY(@json, '$.Projects')) WITH (Id nvarchar(255), Name  nvarchar(255))

leppie

IronScheme's Implementation of map

The actual implementation of map in IronScheme is as follows:

(define map
  (case-lambda 
    [(proc list1)
      (let f ((lst list1)(a '()))
        (if (null? lst)
 (reverse! a)

leppie

Ignored Tags
vb6 vba vb homework grails coldfusion flash iphone air sifr ms-access db2 vbscript perl sap jpa gql java-ee magento ipad qt weblogic blackberry gwt pentaho wordpress mac corba intellij-idea lucene safari seo redis itouch ant antlr ada gtk doctrine lotus tomcat jcl mongodb netlogo nosql smalltalk beamer spring symbian agile firebird samba jasper-reports sybase fortran qtp itunes sqlite soapui acrobat actionscript* flex* cocoa* struts* ruby* zend* *php* java-* joomla* maven* *hibernate* ipod* xcode* jboss* dotnetnuke* *facebook* java groovy* *jaxb* kanban iphone* telerik osx python* jsf* jquery* r latex oracle* android* devexpress umbraco* wolfram-mathematica awk sed *dreamweaver* symfony* crystal-reports* alfresco *postgres* dojo* codeigniter* xbap oscommerce cucumber mod-rewrite mysql* jpa* extjs semantic-web kohana* django* sqlalchemy cufon birt .htaccess inno-setup jira drupal* postscript swf* automapper ssas jms asterisk amazon-ecs ios* delphi* labview jvm* *payment* *dynamics* yahoo-pipes web

leppie

Conversation

https://twitter.com/terrajobst/status/1562179020027965446

https://twitter.com/leppie/status/1562196732418482176

Source

leppie

drop table if exists [dbo].[Simple]
go

CREATE TABLE [dbo].[Simple](
	[Id] [int] IDENTITY(1,1) NOT NULL,
	[Name] [nvarchar](50) NOT NULL,
	[Extra] [bit] NULL,
	[Data] [nvarchar](max) NULL,
 CONSTRAINT [PK_Simple] PRIMARY KEY CLUSTERED (	[Id] ASC )
)

leppie

@echo off
@setlocal

rem arg can be blank to test all or one of Emit, Symbol, Semantic, Syntax (or WinRT, CommandLine, these untested)

set Area=%1
if "%Area%" == "" set Area=*

msbuild /v:m /m BuildAndTest.proj /p:IncludePattern=Roslyn.Compilers.CSharp.%Area%.UnitTests.dll

leppie

0:000> !gcroot 5cbb60a4
Thread 350c:
    0337ED80 0CA4D42E System.Threading.Tasks.Task.SpinThenBlockingWait(Int32, System.Threading.CancellationToken)
        ebp+28: 0337ed88
            ->  0555F510 System.Runtime.CompilerServices.AsyncTaskMethodBuilder`1+AsyncStateMachineBox`1[[System.Threading.Tasks.VoidTaskResult, System.Private.CoreLib],[Microsoft.AspNetCore.Hosting.WebHostExtensions+<RunAsync>d__4, Microsoft.AspNetCore.Hosting]]
            ->  04E3A9A8 Microsoft.AspNetCore.Hosting.Internal.WebHost
            ->  04E39444 Microsoft.Extensions.DependencyInjection.ServiceCollection
            ->  04E39450 System.Collections.Generic.List`1[[Microsoft.Extensions.DependencyInjection.ServiceDescriptor, Microsoft.Extensions.DependencyInjection.Abstractions]]
            ->  04E79E20 Microsoft.Extensions.DependencyInjection.ServiceDescriptor[]
            ->  04E0AC5C Microsoft.Extensions.DependencyInjection.ServiceDescriptor

leppie

(define-syntax define/return
  (lambda (x)
    (syntax-case x ()
      [(_ (name . args) . body)
        (with-syntax
          ([return (datum->syntax #'name 'return)])
         #'(define (name . args)
             (call/cc (lambda (return) . body))))])))

leppie

#!/usr/bin/env ruby -wKU

require "pp"
require 'fileutils'
require "gruff"
require 'rmagick'

def read_cal(file)
  data_segment = false

leppie

unsafe class Program
{
    delegate int? bar(int* i);
    static void Main(string[] args)
    {
        int[] ω = {};
        var Ʃ = 42;
        int? Φ = null;
        bar ϼ = default;